Emmanuele Sassi
dd9ff98329
- Correzione aggiornamento quote Duplo quando selezionato BtlPart in ottimizzatore - Correzione su update messaggi di errore da verifica (CALC) - Aggiunta indicazione dei duplo e MachGroup che contengono il BTLPart selezionato - Ridotto lista feature in CambiaParametro a solo quelle presenti nel progetto - disattivato caricamento iniziale su datagrid MachGroup e Part per evitare eccezione di modifica lista durante caricamento - Estesa lettura dei progetti in finestra da 50 a 5000 - Nascosti bottoni Produci se modalita' senza supervisore
31 lines
955 B
VB.net
31 lines
955 B
VB.net
Imports EgtUILib
|
|
|
|
Public Module LuaMsgManager
|
|
|
|
Public Function MessageFromLuaMsg(LuaMsg As String) As String
|
|
' verifico se inizia con $$
|
|
If LuaMsg.Substring(0, 2) = "$$" Then
|
|
Dim sMsgArgs() As String = LuaMsg.Substring(2).Split(",")
|
|
Dim nMsg As Integer = -1
|
|
If sMsgArgs.Count > 1 AndAlso Integer.TryParse(sMsgArgs(0), nMsg) AndAlso nMsg > 0 Then
|
|
If sMsgArgs.Count > 1 Then
|
|
Dim sArgs() As String = sMsgArgs.Skip(1).ToArray()
|
|
Dim sMsg As String = String.Format(EgtMsg(65000 + nMsg), sArgs)
|
|
If Not String.IsNullOrWhiteSpace(sMsg) Then
|
|
Return sMsg
|
|
Else
|
|
EgtMsg(65000 + nMsg)
|
|
End If
|
|
Else
|
|
Return EgtMsg(65000 + nMsg)
|
|
End If
|
|
Else
|
|
Return LuaMsg
|
|
End If
|
|
Else
|
|
Return LuaMsg
|
|
End If
|
|
End Function
|
|
|
|
End Module
|