- aggiunto RUID su tutte le richieste
- introdotta funzione EgtSanitizeUtf8 da LuaLibs - aggiunta modalita' Balance su chiamata REST per Beam - aggiunta funzione CreateBWEFromMachGroup - aggiunta funzione per nesting travi - aggiunto calcolo lista soglie per finestre - copiato file WindowRESTPipe da BeamRESTPipe
This commit is contained in:
Emmanuele Sassi
+403
-6
@@ -32,7 +32,7 @@ QUESTION_ORDER_SUBMODES = {
|
||||
NULL = 0,
|
||||
CREATE = 1,
|
||||
ESTIMATE = 2,
|
||||
CONFIRM = 3,
|
||||
BALANCE = 3,
|
||||
}
|
||||
|
||||
PART_VERIFICATION_RESULTS = {
|
||||
@@ -68,7 +68,7 @@ local function Create_Order( QuestionArgs)
|
||||
local sBtl = QuestionArgs["SerializedData"]
|
||||
local sOrderUID = QuestionArgs["OrderUID"]
|
||||
local sUID = QuestionArgs["UID"]
|
||||
local sTagList = QuestionArgs["TagsList"]
|
||||
local sTagList = QuestionArgs["TagList"]
|
||||
if sFile and #sFile > 0 then
|
||||
if sBtl and #sBtl > 0 then
|
||||
if sOrderUID and #sOrderUID > 0 then
|
||||
@@ -203,7 +203,8 @@ local function Calc_Estimate( QuestionArgs)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
--local MachinesDir = EgtFindAllFiles( MachineDirPath .. '\\*.*')
|
||||
local MachinesDir = { MachineDirPath .. '\\Saomad-Kairos', MachineDirPath .. '\\Essetre-FAST', MachineDirPath .. '\\Essetre-PF1250MAX' }
|
||||
--local MachinesDir = { MachineDirPath .. '\\Saomad-Kairos', MachineDirPath .. '\\Essetre-FAST', MachineDirPath .. '\\Essetre-PF1250MAX' }
|
||||
local MachinesDir = { MachineDirPath .. '\\Saomad-Kairos', MachineDirPath .. '\\Essetre-FAST'}
|
||||
--local MachinesDir = { MachineDirPath .. '\\Essetre-FAST'}
|
||||
local BeamMachineList = {}
|
||||
local AnswerChannelList = {}
|
||||
@@ -248,7 +249,7 @@ local function Calc_Estimate( QuestionArgs)
|
||||
local BarPath = sMachineOrderDirPath
|
||||
local ProjType = BWTYPES.BEAM
|
||||
local GlobState = CALCSTATES.NOTCALCULATED
|
||||
local bResult, AnswerChannel = BeamWallPipeLib.AsyncVerifyBtlPartCalc( nPartId, BarPath, ProjType, sMachineName, GlobState)
|
||||
local bResult, AnswerChannel = BeamWallPipeLib.AsyncVerifyPartCalc( nPartId, BarPath, ProjType, sMachineName, GlobState)
|
||||
if bResult then
|
||||
table.insert( AnswerChannelList, { Channel = AnswerChannel, PartId = nPartId, Machine = sMachineName})
|
||||
else
|
||||
@@ -267,7 +268,7 @@ local function Calc_Estimate( QuestionArgs)
|
||||
for nAnswerIndex = 1, #AnswerChannelList do
|
||||
local AnswerChannel = AnswerChannelList[nAnswerIndex]
|
||||
-- verifico se ci sono i risultati e aspetto che arrivino tutti
|
||||
local bOk, bAnswerReceived, PartAnswerArgs = BeamWallPipeLib.AsyncVerifyBtlPartResult( AnswerChannel.Channel)
|
||||
local bOk, bAnswerReceived, PartAnswerArgs = BeamWallPipeLib.AsyncVerifyPartResult( AnswerChannel.Channel)
|
||||
if bOk then
|
||||
if bAnswerReceived then
|
||||
if PartAnswerArgs then
|
||||
@@ -334,6 +335,396 @@ local function Calc_Estimate( QuestionArgs)
|
||||
end
|
||||
end
|
||||
|
||||
local function IsTagInPart( nPartId, TagList)
|
||||
local sPartTagList = EgtGetInfo( nPartId, 'LuxTagList')
|
||||
local PartTagList = EgtSplitString( sPartTagList, ',')
|
||||
local nQuantity = 0
|
||||
for nPartTagListIndex = 1, #PartTagList do
|
||||
for nTagListIndex = 1, #TagList do
|
||||
if PartTagList[nPartTagListIndex] == TagList[nTagListIndex] then
|
||||
nQuantity = nQuantity + 1
|
||||
end
|
||||
end
|
||||
end
|
||||
return nQuantity > 0, nQuantity
|
||||
end
|
||||
|
||||
-- Calcola la deviazione rispetto alle percentuali desiderate
|
||||
local function computeDeviation(machineLoads, percentages)
|
||||
local total = 0
|
||||
for _, load in ipairs(machineLoads) do
|
||||
total = total + load
|
||||
end
|
||||
if total == 0 then
|
||||
return 0
|
||||
end
|
||||
|
||||
local dev = 0
|
||||
for j, load in ipairs(machineLoads) do
|
||||
local q = load / total
|
||||
local p = percentages[j]
|
||||
dev = dev + (q - p) * (q - p)
|
||||
end
|
||||
return dev
|
||||
end
|
||||
|
||||
-- Algoritmo greedy per assegnare i pezzi alle macchine
|
||||
local function assignGreedy(items, percentages)
|
||||
local N = #items
|
||||
local M = #items[1].MachGroupList
|
||||
|
||||
-- carico iniziale per macchina
|
||||
local machineLoads = {}
|
||||
for j = 1, M do
|
||||
machineLoads[j] = 0
|
||||
end
|
||||
|
||||
-- assegnazione: per ogni pezzo, indice della macchina scelta (1..M)
|
||||
local assignment = {}
|
||||
|
||||
-- ORDINAMENTO INTELLIGENTE:
|
||||
-- 1) prima i pezzi con meno macchine valide
|
||||
-- 2) a parità, quelli più pesanti
|
||||
table.sort(items, function(a, b)
|
||||
local validA, validB = 0, 0
|
||||
for _, m in ipairs(a.MachGroupList) do
|
||||
if m.CalcResult and m.CalcResult > 0 then
|
||||
validA = validA + 1
|
||||
end
|
||||
end
|
||||
for _, m in ipairs(b.MachGroupList) do
|
||||
if m.CalcResult and m.CalcResult > 0 then
|
||||
validB = validB + 1
|
||||
end
|
||||
end
|
||||
if validA ~= validB then
|
||||
return validA < validB
|
||||
end
|
||||
local maxA, maxB = 0, 0
|
||||
for _, m in ipairs(a.MachGroupList) do
|
||||
if m.Time > maxA then
|
||||
maxA = m.Time
|
||||
end
|
||||
end
|
||||
for _, m in ipairs(b.MachGroupList) do
|
||||
if m.Time > maxB then
|
||||
maxB = m.Time
|
||||
end
|
||||
end
|
||||
return maxA > maxB
|
||||
end)
|
||||
|
||||
for i, item in ipairs(items) do
|
||||
local bestMachine = nil
|
||||
local bestDev = nil
|
||||
|
||||
-- prova ad assegnare il pezzo a ciascuna macchina
|
||||
for j = 1, M do local mInfo = item.MachGroupList[j]
|
||||
-- VINCOLO: CalcResult deve essere > 0
|
||||
if mInfo.CalcResult and mInfo.CalcResult > 0 then
|
||||
local time = mInfo.Time
|
||||
-- prova temporaneamente
|
||||
machineLoads[j] = machineLoads[j] + time
|
||||
local dev = computeDeviation(machineLoads, percentages)
|
||||
machineLoads[j] = machineLoads[j] - time
|
||||
if bestDev == nil or dev < bestDev then
|
||||
bestDev = dev bestMachine = j
|
||||
end
|
||||
end
|
||||
end
|
||||
--for j = 1, M do
|
||||
-- local time = item.MachGroupList[j].Time
|
||||
--
|
||||
-- -- aggiorna temporaneamente il carico
|
||||
-- machineLoads[j] = machineLoads[j] + time
|
||||
-- local dev = computeDeviation(machineLoads, percentages)
|
||||
-- machineLoads[j] = machineLoads[j] - time -- rollback
|
||||
--
|
||||
-- if bestDev == nil or dev < bestDev then
|
||||
-- bestDev = dev
|
||||
-- bestMachine = j
|
||||
-- end
|
||||
--end
|
||||
-- Se nessuna macchina è valida → errore
|
||||
-- DA MIGLIORARE! se nessuna macchina riesce a farlo, devo rivalutare i pezzi singoli su ogni macchina e farne la somma
|
||||
if not bestMachine then
|
||||
local sErrorMsg = 'Errore! Nessuna macchina valida per il MachGroup ' .. tostring(item.Index) .. '!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
|
||||
-- assegna definitivamente
|
||||
assignment[i] = bestMachine
|
||||
local chosenTime = item.MachGroupList[bestMachine].Time
|
||||
machineLoads[bestMachine] = machineLoads[bestMachine] + chosenTime
|
||||
end
|
||||
|
||||
return assignment, machineLoads
|
||||
end
|
||||
|
||||
local function Calc_Balance( QuestionArgs)
|
||||
-- leggo argomenti passati
|
||||
local sOrderUID = QuestionArgs["OrderUID"]
|
||||
local sUID = QuestionArgs["UID"]
|
||||
local dBarLenght = tonumber( QuestionArgs["BarLenght"])
|
||||
local sTagList = QuestionArgs["TagList"]
|
||||
if sOrderUID and #sOrderUID > 0 then
|
||||
if sUID and #sUID > 0 then
|
||||
-- recupero cartella progetto
|
||||
local sDataDir = EgtGetStringFromIni( 'Lux', 'DataDir', '', sIniFilePath)
|
||||
local sOrderDirPath = sDataDir .. '\\Beam\\' .. sOrderUID .. '\\' .. sUID
|
||||
if not EgtExistsDirectory( sOrderDirPath) then
|
||||
local sErrorMsg = 'Errore! Cartella della riga d\'ordine non trovata!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
-- verifico esistenza cartella per progetti di bilanciamento
|
||||
local sBalanceDirPath = sOrderDirPath .. '\\Balance'
|
||||
if EgtExistsDirectory( sBalanceDirPath) then
|
||||
if not EgtEmptyDirectory( sBalanceDirPath) then
|
||||
local sErrorMsg = 'Errore! Impossibile svuotare cartella ' .. sBalanceDirPath .. ' per il progetto ' .. sOrderUID .. '!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
else
|
||||
if not EgtCreateDirectory( sBalanceDirPath) then
|
||||
local sErrorMsg = 'Errore! Impossibile creare cartella ' .. sBalanceDirPath .. ' per il progetto ' .. sOrderUID .. '!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
end
|
||||
-- creo cartella per progetto di bilanciamento corrente
|
||||
local nCurrTime = os.time()
|
||||
local sCurrBalanceDirPath = sBalanceDirPath .. '\\' .. nCurrTime
|
||||
if not EgtCreateDirectory( sCurrBalanceDirPath) then
|
||||
local sErrorMsg = 'Errore! Impossibile creare cartella ' .. sCurrBalanceDirPath .. ' per il progetto ' .. sOrderUID .. '!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
local sNgeFilePath = sOrderDirPath .. '\\' .. sUID .. '.nge'
|
||||
local sBalanceNgeFilePath = sCurrBalanceDirPath .. '\\' .. sUID .. '_' .. nCurrTime .. '.nge'
|
||||
if not EgtCopyFile( sNgeFilePath, sBalanceNgeFilePath) then
|
||||
local sErrorMsg = 'Errore! Fallita copia del file!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
if not EgtOpenFile( sBalanceNgeFilePath) then
|
||||
local sErrorMsg = 'Errore! Fallita apertura del file!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
-- recupero Id dei pezzi da nestare
|
||||
local TagList = EgtSplitString( sTagList)
|
||||
local nPartId = EgtGetFirstPart()
|
||||
local PartIdList = {}
|
||||
local nPartCount = 0
|
||||
while nPartId do
|
||||
local bFound, nQuantity = IsTagInPart( nPartId, TagList)
|
||||
if bFound then
|
||||
PartIdList[nPartId] = nQuantity
|
||||
nPartCount = nPartCount + nQuantity
|
||||
end
|
||||
nPartId = EgtGetNextPart( nPartId)
|
||||
end
|
||||
local RawList = { { Len = dBarLenght, Qty = nPartCount}}
|
||||
-- recupero cartella macchine
|
||||
local MachineDirPath = EgtGetStringFromIni( 'Mach', 'MachinesDir', '', sIniFilePath)
|
||||
if not MachineDirPath or #MachineDirPath <=0 then
|
||||
local sErrorMsg = 'Errore! Cartella delle macchine non impostata!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
--local MachinesDir = EgtFindAllFiles( MachineDirPath .. '\\*.*')
|
||||
--local MachinesDir = { MachineDirPath .. '\\Saomad-Kairos', MachineDirPath .. '\\Essetre-FAST', MachineDirPath .. '\\Essetre-PF1250MAX' }
|
||||
local MachinesDir = { MachineDirPath .. '\\Saomad-Kairos', MachineDirPath .. '\\Essetre-FAST'}
|
||||
--local MachinesDir = { MachineDirPath .. '\\Essetre-FAST'}
|
||||
local sReqBalance = QuestionArgs["ReqBalance"]
|
||||
local ReqBalance = JSON:decode( sReqBalance)
|
||||
local MachineNameList = {}
|
||||
local PercentageList = {}
|
||||
for sMachineName, dPercentage in pairs(ReqBalance) do
|
||||
if EgtExistsDirectory( MachineDirPath .. '\\' .. sMachineName) then
|
||||
table.insert( MachineNameList, sMachineName)
|
||||
table.insert( PercentageList, dPercentage)
|
||||
end
|
||||
end
|
||||
local StartOffset = 20
|
||||
local Offset = 6
|
||||
-- faccio nesting dei pezzi
|
||||
local sNestingLogFilePath = sOrderDirPath .. '\\' .. sUID .. '_' .. nCurrTime .. 'NestLog.txt'
|
||||
local bOk, sErrorMsg = BeamWallPipeLib.NestBeam( PartIdList, RawList, MachineNameList, StartOffset, Offset, sNestingLogFilePath)
|
||||
if not bOk then
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
EgtSaveFile()
|
||||
-- eseguo verifica dei gruppi di lavorazione creati
|
||||
-- creo i singoli bwe e li mando da eseguire via redis
|
||||
local AnswerChannelList = {}
|
||||
local nMachGroupId = EgtGetFirstMachGroup()
|
||||
local AnswerArgs = {}
|
||||
local TagTimeList = {}
|
||||
local dTotTime = 0
|
||||
local nNotMachinedPart = 0
|
||||
local MachGroupList = {}
|
||||
local NestList = {}
|
||||
while nMachGroupId do
|
||||
local BarPath = sCurrBalanceDirPath
|
||||
local ProjType = BWTYPES.BEAM
|
||||
local sMachineName = EgtGetMachGroupMachineName( nMachGroupId)
|
||||
local GlobState = CALCSTATES.NOTCALCULATED
|
||||
local bResult, AnswerChannel = BeamWallPipeLib.AsyncVerifyPartCalc( nMachGroupId, BarPath, ProjType, sMachineName, GlobState, true)
|
||||
if bResult then
|
||||
table.insert( AnswerChannelList, { Channel = AnswerChannel, PartId = nMachGroupId, Machine = sMachineName})
|
||||
else
|
||||
local sErrorMsg = 'Errore! Tentativo di verifica della barra ' .. nMachGroupId .. ' fallito!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
end
|
||||
local nNestIndex = EgtGetInfo( nMachGroupId, "NestIndex", 'i')
|
||||
local bFound = false
|
||||
for nMachGroupIndex = 1, #NestList do
|
||||
local CurrNest = NestList[nMachGroupIndex]
|
||||
if nNestIndex == CurrNest.NestIndex then
|
||||
bFound = true
|
||||
table.insert( CurrNest.MachGroupList, { PartId = nMachGroupId, Machine = sMachineName})
|
||||
end
|
||||
end
|
||||
if not bFound then
|
||||
table.insert( NestList, { NestIndex = nNestIndex, MachGroupList = { { PartId = nMachGroupId, Machine = sMachineName}}})
|
||||
end
|
||||
table.insert( MachGroupList, { PartId = nMachGroupId, NestIndex = nNestIndex, Machine = sMachineName})
|
||||
nMachGroupId = EgtGetNextMachGroup( nMachGroupId)
|
||||
end
|
||||
local nTimeCount = 0
|
||||
local nTimeClock = 100
|
||||
while nTimeCount < 1200 and #AnswerChannelList > 0 do
|
||||
local RemoveAnswerList = {}
|
||||
for nAnswerIndex = 1, #AnswerChannelList do
|
||||
local AnswerChannel = AnswerChannelList[nAnswerIndex]
|
||||
-- verifico se ci sono i risultati e aspetto che arrivino tutti
|
||||
local bOk, bAnswerReceived, PartAnswerArgs = BeamWallPipeLib.AsyncVerifyPartResult( AnswerChannel.Channel)
|
||||
if bOk then
|
||||
if bAnswerReceived then
|
||||
if PartAnswerArgs then
|
||||
if PartAnswerArgs.Error then
|
||||
local sErrorMsg = 'Errore! La verifica del pezzo ' .. AnswerChannel.PartId .. ' ha restituito un errore! (' .. PartAnswerArgs.Error .. ')'
|
||||
EgtOutLog(sErrorMsg)
|
||||
else
|
||||
--local sTagList = EgtGetInfo( AnswerChannel.PartId, 'LuxTagList')
|
||||
--local TagList = EgtSplitString( sTagList, ',')
|
||||
--
|
||||
local CalcResult
|
||||
CalcResult = EgtIf( tonumber( PartAnswerArgs.MachiningOk) == 1, PART_VERIFICATION_RESULTS.MACHINABLE, PART_VERIFICATION_RESULTS.NOTMACHINABLE)
|
||||
for nMachGroupIndex = 1, #MachGroupList do
|
||||
local CurrMachGroup = MachGroupList[nMachGroupIndex]
|
||||
if CurrMachGroup.PartId == tonumber( PartAnswerArgs.BarId) then
|
||||
CurrMachGroup.CalcResult = CalcResult
|
||||
CurrMachGroup.Time = ( tonumber( PartAnswerArgs.Time) or 0)
|
||||
end
|
||||
end
|
||||
local bNestFound = false
|
||||
for nNestIndex = 1, #NestList do
|
||||
if not bNestFound then
|
||||
for nMachGroupIndex = 1, #NestList[nNestIndex].MachGroupList do
|
||||
local CurrMachGroup = NestList[nNestIndex].MachGroupList[nMachGroupIndex]
|
||||
if CurrMachGroup.PartId == tonumber( PartAnswerArgs.BarId) then
|
||||
CurrMachGroup.CalcResult = CalcResult
|
||||
CurrMachGroup.Time = ( tonumber( PartAnswerArgs.Time) or 0)
|
||||
bNestFound = true
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
table.insert( RemoveAnswerList, nAnswerIndex)
|
||||
else
|
||||
local sErrorMsg = 'Errore! Tentativo di verifica del pezzo sul canale' .. AnswerChannel.Channel .. ' fallito!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
end
|
||||
end
|
||||
elseif bOk then
|
||||
local sErrorMsg = 'Errore! Funzione di lettura risultato sul canale ' .. AnswerChannel.Channel .. ' fallita!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
end
|
||||
end
|
||||
for nRemoveAnswerCount = #RemoveAnswerList, 1, -1 do
|
||||
table.remove( AnswerChannelList, RemoveAnswerList[nRemoveAnswerCount])
|
||||
end
|
||||
EgtPause( nTimeClock, true)
|
||||
nTimeCount = nTimeCount + 1
|
||||
end
|
||||
if #AnswerChannelList > 0 then
|
||||
for nAnswerCount = 1, #AnswerChannelList do
|
||||
local sTagList = EgtGetInfo( AnswerChannelList[nAnswerCount].PartId, 'LuxTagList')
|
||||
local TagList = EgtSplitString( sTagList, ',')
|
||||
CalcResult = PART_VERIFICATION_RESULTS.CALCULATIONFAILED
|
||||
local sErrorMsg = 'Errore! Verifica sul pezzo ' .. AnswerChannelList[nAnswerCount].PartId .. ' fallita!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
for nMachGroupIndex = 1, #MachGroupList do
|
||||
local CurrMachGroup = MachGroupList[nMachGroupIndex]
|
||||
if CurrMachGroup.PartId == AnswerChannelList.PartId then
|
||||
CurrMachGroup.CalcResult = 0
|
||||
CurrMachGroup.Time = 0
|
||||
end
|
||||
end
|
||||
local bNestFound = false
|
||||
for nNestIndex = 1, #NestList do
|
||||
if not bNestFound then
|
||||
for nMachGroupIndex = 1, #NestList[nNestIndex].MachGroupList do
|
||||
local CurrMachGroup = NestList[nNestIndex].MachGroupList[nMachGroupIndex]
|
||||
if CurrMachGroup.PartId == AnswerChannelList.PartId then
|
||||
CurrMachGroup.CalcResult = 0
|
||||
CurrMachGroup.Time = 0
|
||||
bNestFound = true
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
-- divido le barre sulle macchine secondo le percentuali dei tempi
|
||||
local assignment, loads = assignGreedy(NestList, PercentageList)
|
||||
local MachineTagList = { }
|
||||
for nAssignmentIndex = 1, #assignment do
|
||||
local nMachGroupId = NestList[nAssignmentIndex].MachGroupList[assignment[nAssignmentIndex]].PartId
|
||||
local sMachineName = NestList[nAssignmentIndex].MachGroupList[assignment[nAssignmentIndex]].Machine
|
||||
EgtSetCurrMachGroup( nMachGroupId)
|
||||
local nRawPartId = EgtGetFirstRawPart()
|
||||
while nRawPartId do
|
||||
local nPartId = EgtGetFirstPartInRawPart( nRawPartId)
|
||||
while nPartId do
|
||||
local sTag = EgtGetInfo( nPartId, 'LuxTag')
|
||||
if not MachineTagList[sMachineName] then
|
||||
MachineTagList[sMachineName] = { }
|
||||
MachineTagList[sMachineName].TagList = { }
|
||||
MachineTagList[sMachineName].BarQty = 0
|
||||
MachineTagList[sMachineName].Time = 0
|
||||
end
|
||||
table.insert( MachineTagList[sMachineName].TagList, sTag)
|
||||
nPartId = EgtGetNextPartInRawPart( nRawPartId)
|
||||
end
|
||||
nRawPartId = EgtGetNextRawPart( nRawPartId)
|
||||
end
|
||||
MachineTagList[sMachineName].BarQty = MachineTagList[sMachineName].BarQty + 1
|
||||
MachineTagList[sMachineName].Time = MachineTagList[sMachineName].Time + NestList[nAssignmentIndex].MachGroupList[assignment[nAssignmentIndex]].Time
|
||||
end
|
||||
EgtResetCurrMachGroup()
|
||||
-- do risultato
|
||||
local JsonMachineTagList = JSON:encode( MachineTagList)
|
||||
return 1, { Balance = JsonMachineTagList}
|
||||
else
|
||||
local sErrorMsg = 'Errore! UID vuoto!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
else
|
||||
local sErrorMsg = 'Errore! OrderUID vuoto!'
|
||||
EgtOutLog(sErrorMsg)
|
||||
return 0, { Error = sErrorMsg}
|
||||
end
|
||||
end
|
||||
|
||||
local nErr = 999
|
||||
local nNilCount = 0
|
||||
local bRun = true
|
||||
@@ -349,7 +740,7 @@ while bRun do
|
||||
if sReadLine ~= '' and sReadLine:find( '^#8477271#') and sReadLine:find( '#8477271#$') then
|
||||
EgtOutLog( 'Lettura istruzione valida')
|
||||
sReadLine = string.sub( sReadLine, 10, #sReadLine - 9)
|
||||
local sSanitizedReadLine = EgtSanitizeUtf8(sReadLine)
|
||||
local sSanitizedReadLine = EgtSanitizeUtf8( sReadLine)
|
||||
local Question = JSON:decode( sSanitizedReadLine)
|
||||
local nThreadIndex = -1
|
||||
local nId = -1
|
||||
@@ -363,6 +754,7 @@ while bRun do
|
||||
local QuestionArgs = Question["Args"]
|
||||
if QuestionArgs and QuestionArgs.Mode and QuestionArgs.UID then
|
||||
local sUid = QuestionArgs["UID"]
|
||||
local sRUID = QuestionArgs["RUID"]
|
||||
local nMode = tonumber( QuestionArgs["Mode"])
|
||||
-- esecuzione della corretta modilita'
|
||||
EgtOutLog('Ricevuta richiesta calcolo: nThreadIndex=' .. nThreadIndex .. ', nId=' .. nId .. ', UID=' .. sUid .. ', nMode=' .. nMode)
|
||||
@@ -377,6 +769,10 @@ while bRun do
|
||||
_G.LUX = {}
|
||||
LUX.REDISID = nRedisConnectionId
|
||||
nResult, AnswerArgs = Calc_Estimate( QuestionArgs)
|
||||
elseif nSubMode == QUESTION_ORDER_SUBMODES.BALANCE then
|
||||
_G.LUX = {}
|
||||
LUX.REDISID = nRedisConnectionId
|
||||
nResult, AnswerArgs = Calc_Balance( QuestionArgs)
|
||||
else
|
||||
nResult = 0
|
||||
local sErrorMsg = 'Errore! Valore di SubMode errato!'
|
||||
@@ -395,6 +791,7 @@ while bRun do
|
||||
end
|
||||
end
|
||||
AnswerArgs.UID = sUid
|
||||
AnswerArgs.RUID = sRUID or 0
|
||||
else
|
||||
nResult = 0
|
||||
local sErrorMsg = 'Errore! Domanda senza argomenti o senza UID o Mode che sono obbligatori!'
|
||||
|
||||
Reference in New Issue
Block a user