-- RunMaterialParamEdit.lua by Egaltech s.r.l. 2022/04/09
-- Gestione edit parametri materiali per Stampa 3d

-- Tabella per definizione modulo
local RunMaterialParamEdit = {}

-- Intestazioni
require( 'EgtBase')

EgtOutLog( ' RunMaterialParamEdit started', 1)

-- Costanti generali
local AMD = require( 'AddManData')

---------------------------------------------------------------------
function RunMaterialParamEdit.Exec()
   -- recupero cartella dei materiali
   local sCalcBaseDir = EgtGetStringFromIni( '3dPrinting', 'BaseDir', 'C:\\ProgramData\\Egaltech\\EgtCam5\\3dPrinting', EgtGetIniFile())
   local sMaterialDirPath = sCalcBaseDir .. '\\Materials\\'

   -- recupero elenco file dei materiali
   local Files = EgtFindAllFiles( sMaterialDirPath..'*.csv')
   if not Files then
      EgtOutBox( 'Material files not found', 'Error', 'ERROR')
      return
   end
   local sMaterials = ''
   for i = 1, #Files do
      local sDir, sFile, sExt = EgtSplitPath( Files[i])
      if sMaterials ~= "" then
         sMaterials = sMaterials .. ','
      end
      sMaterials = sMaterials .. sFile
   end

   -- chiedo quale file aprire
   MaterialValues = EgtDialogBox( 'Materials edit', { 'Material', 'CB:' .. sMaterials})
   if not MaterialValues or #MaterialValues < 1 then return end

   -- verifico esistenza file
   local sSelMaterialPath = sMaterialDirPath .. MaterialValues[1] .. '.csv'
   if not EgtExistsFile( sSelMaterialPath) then
      EgtOutBox( 'Material file not found', 'Error', 'ERROR')
      return
   end

   -- apro programma di edit
   local sEditProgPath = EgtGetStringFromIni( '3dPrinting', RESULT_READ_PROG, "", EgtGetIniFile())
   if not sEditProgPath or not EgtWinExec( '"'..sEditProgPath..'" "'..sSelMaterialPath..'"') then
      EgtOutBox( 'Impossible opening software to show Material. You can find them it in ' .. sSelMaterialPath, 'Error', 'ERROR')
   end

end

---------------------------------------------------------------------
return RunMaterialParamEdit