-
- AMS Freak
15 Abr 2023 07:09
Problemas al guardar ruta de Imagen en Tabla de Mysql 
He notado que la ruta la guarda de otra forma y cuando realizo la visualización no se muestra, con sqlite nunca tuve problemas, la ruta si la logra guardar en la base de datos, pero en mysql he notado que se borran los caracteres" \"
Botón Adjuntar:
result = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Images\\Logo");
if not result then
Folder.Create(_SourceFolder.."\\AutoPlay\\Images\\Logo");
end
ImagenesVbl = Shell.GetFolder(SHF_MYPICTURES);
FormatosVbl = "imagenes (*.jpg;*.bmp;*.png;*.gif)|*.jpg;*.bmp;*.png;*.gif|Todos los archivos(*.*)|*.*"
result = Dialog.FileBrowse(true, "Locate File",ImagenesVbl,FormatosVbl, "", "data", false, true);
if (result[1] ~= "CANCEL") then
Source = result[1]
local imgName = String.SplitPath(result[1]).Filename..String.SplitPath(result[1]).Extension;
Destino = _SourceFolder.."\\Autoplay\\Images\\Logo\\"..imgName;
File.Copy(Source, Destino, true, true, false, true, nil);
error = Application.GetLastError();
if (error ~= 0) then
Dialog.TimedMessage("Error", _tblErrorMessages[error], 2000, MB_ICONSTOP);
else
Input.SetText("INP_LOGO", "Autoplay\\Images\\Logo\\"..imgName);
Image.Load("Logo", "Autoplay\\Images\\Logo\\"..imgName);
end
end --RECOGE LO ESCRITO EN LOS OBJETOS
local tCodigo = Input.GetText("INP_CODIGO");
local tNombreEmpresa = Input.GetText("INP_NOMBREEMPRESA");
local tLogo = Input.GetText("INP_LOGO");
local tRuc = Input.GetText("INP_RUC");
local tDireccion = Input.GetText("INP_DIRECCION");
local tTelefono = Input.GetText("INP_TELEFONO");
local tFecha = Input.GetText("INP_FECHA");
--CONDICION SI NO HAY NADA ESCRITO
if (tNombreEmpresa == "" or tLogo == "") then
Dialog.TimedMessage("Error", "No has escrito ninguna Empresa", 2000, MB_ICONSTOP);
else
--CONDICION PARA GUARDAR SIN QUE SE REPITA
if (tNovoEmpresa == true) then
tSelected = MySQL.QueryToTable("SELECT * FROM empresas WHERE NOMBREEMPRESA LIKE '"..tNombreEmpresa.."%'");
if tSelected == nil then
if not rData then
MySQL.Query("INSERT INTO empresas (ID, CODIGO, NOMBREEMPRESA, LOGO, RUC, DIRECCION, TELEFONO, FECHA) VALUES (NULL, '"
--MySQL.Query("INSERT INTO empresas (ID, CODIGO, NOMBREEMPRESA, LOGO, RUC, DIRECCION, TELEFONO, FECHA) VALUES (NULL, '"
..tCodigo.."', '"
..tNombreEmpresa.."', '"
..tLogo.."', '"
..tRuc.."', '"
..tTelefono.."', '"
..tDireccion.."', '"
..tFecha.."')")
Dialog.TimedMessage("Registro completo", "La Empresa ("..tNombreEmpresa..") fue registrado con exito", 2000, MB_ICONINFORMATION);
xButton.SetVisible("xButton1", true);
xButton.SetVisible("xButton3", true);
xButton.SetVisible("xButton2", false);
xButton.SetVisible("xButton4", false);
Page.ClickObject("xButton10")
tContePagina();
else
end
else
Dialog.TimedMessage("Sys Inventory TI", "("..tNombreEmpresa..") ya existe en el Sistema.", 3000, MB_ICONSTOP);
end
end
--CONDICION PARA MODIFICAR SIN QUE SE REPITA
if (tNovoEmpresa == false) then
tSelected = MySQL.QueryToTable("SELECT * FROM empresas WHERE NOMBREEMPRESA LIKE '"..tNombreEmpresa.."%'");
if tSelected == nil then
if not rData then
MySQL.Query("UPDATE empresas SET CODIGO ='"
..tCodigo.."',NOMBREEMPRESA ='"
..tNombreEmpresa.."',LOGO ='"
..tLogo.."',RUC ='"
..tRuc.."',DIRECCION ='"
..tDireccion.."',TELEFONO ='"
..tTelefono.."',FECHA ='"
..tFecha.."'WHERE ID ="..nID)
Dialog.TimedMessage("Datos atualizados", "Los datos de la Empresa se actualizaron con éxito "..tNombreEmpresa, 2000, MB_ICONINFORMATION);
xButton.SetVisible("xButton1", true);
xButton.SetVisible("xButton3", true);
xButton.SetVisible("xButton2", false);
xButton.SetVisible("xButton4", false);
sPesquisarPaginas();
else
end
else
Dialog.TimedMessage("Sys Inventory TI", "("..tNombreEmpresa..") ya existe en el Sistema.", 3000, MB_ICONSTOP);
end
end
end
xData = Grid.GetCellText("Grid1", e_Row, 0);
if xData ~= "" then
nID = String.ToNumber(xData);
tSelected = MySQL.QueryToTable("SELECT * FROM empresas WHERE ID ="..nID.."")
if Application.GetLastError() == 0 then
for nRow, x in pairs (tSelected) do
Input.SetText("INP_CODIGO", tSelected[nRow][2]);
Input.SetText("INP_NOMBREEMPRESA", tSelected[nRow][3]);
Input.SetText("INP_LOGO", tSelected[nRow][4]);
sLogo = tSelected[nRow][4];
Image.Load("Logo", sLogo);
Input.SetText("INP_RUC", tSelected[nRow][5]);
Input.SetText("INP_DIRECCION", tSelected[nRow][6]);
Input.SetText("INP_TELEFONO", tSelected[nRow][7]);
Input.SetText("INP_FECHA", tSelected[nRow][8]);
--ImageName = Input.GetText("INP_LOGO")
--Image.Load("Logo", "AutoPlay\\Images\\FotoAlcalde.png"..ImageName);
xButton.SetVisible("xButton1", true);
xButton.SetVisible("xButton3", true);
xButton.SetVisible("xButton2", false);
xButton.SetVisible("xButton4", false);
end
end
end
sCor_a = {}
sCor_a.e_Row = e_Row
sCor_a.e_Column = e_Column
if sCor_b then
for b=0,5 do
Grid.SetCellColors("Grid1", sCor_b.e_Row, b, {Background=16777215,Text=0}, true);
end
sCor_b = nil
end
if sCor_a then
if sCor_a.e_Row > 0 then
for a=0,5 do
Grid.SetCellColors("Grid1", sCor_a.e_Row, a, {Background=10526975,Text=8393216}, true);
sCor_b = {}
sCor_b = sCor_a
end
end
end