- HIDE: ON
- Hidebb Message Hidden Description
function RightAlignMenuItem(nNumItems)
--hacer nNumItems que tiene un valor
if nNumItems == nil then
nNumItems = 0;
end
--hacer nNumItems que es numérico
nNumItems = String.ToNumber(nNumItems);
--llamar a la DLL
n = DLL.CallFunction("AutoPlay\\Docs\\MenuHelper.dll", "RightAlign", Application.GetWndHandle()..","..nNumItems, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end
function SQLiteToHTML(ParentDB, ParentRS, ChildDB, sFileOut)
--Poner la mesa formateo editando las variables de los valores por debajo
local BorderColorSet = "#000000"
local BorderWidthSet = "1"
local HeadBgColorSet = "#bcc5d0"
local HeadFontSet = "Verdana"
local HeadFontSizeSet = "4"
local DetailBgColorSet = "#ffffff"
local DetailFontSet = "Verdana"
local DetailFontSizeSet = "2"
--NO EDITAR - Formatos de las variables anteriores como html listo para combinar en el html principal. - NO EDITAR
local BorderColor = "bordercolor=\""..BorderColorSet.."\""
local BorderWidth = "border=\""..BorderWidthSet.."\""
local HeadBgColor = "bgcolor=\""..HeadBgColorSet.."\""
local HeadFont = "<font face=\""..HeadFontSet.."\" size=\""..HeadFontSizeSet.."\">"
local DetailBgColor = "bgcolor=\""..DetailBgColorSet.."\""
local DetailFont = "<font face=\""..DetailFontSet.."\" size=\""..DetailFontSizeSet.."\">"
--FIN NO EDITAR
local n;
local strFile;
local strHTML;
local tblQ = SQLite.QueryToTable(db, ParentRS);
--el progreso conjunto metros máximo y mostrar el metro
StatusDlg.SetMeterRange(0, tblQ.Rows);
StatusDlg.Show(0, false);
if tblQ and tblQ.Rows > 0 then
strHTML = "<table "..BorderWidth.." width=\"100%\" style=\"border-collapse: collapse\" "..BorderColor.." cellpadding=\"2\">\r\n";
--Encabezados de la columna
strHTML = strHTML .. "<tr>\r\n";
for m=1, tblQ.Columns do
strHTML = strHTML .. "<td "..HeadBgColor.." nowrap>"..HeadFont .. tblQ.ColumnNames[m] .. "</td>\r\n";
end
strHTML = strHTML .. "\r\n</tr>";
--Llene la tabla
for n=1, tblQ.Rows do
strHTML = strHTML .. "<tr>\r\n";
for m=1, tblQ.Columns do
strHTML = strHTML .. "<td "..DetailBgColor.." nowrap>"..DetailFont.. tblQ.Data[n][tblQ.ColumnNames[m]] .. "</td>\r\n";
end
strHTML = strHTML .. "\r\n</tr>";
--Añadir celda que abarca todas las columnas para asegurar al niño la tabla registros
if ChildDB ~= "" then
--strHTML = strHTML .. "<td width=\"100%\" colspan=\""..tblQ.Columns.."\" bgcolor=\"#F9EFCA\">".."Order Details </td>\r\n";
--strHTML = strHTML .. "\r\n</tr>";
--Call the AddChildRec function to load in any child records.
ChildHTML = AddChildRecs(ChildDB, "Select OrderID AS [Order ID], ShipName AS [Enviado a Nombre], Freight AS [carga de carga] from Orders where CustomerID = \'"..tblQ.Data[n][tblQ.ColumnNames[1]].."\'");
if ChildHTML ~= nil then
strHTML = strHTML .. "<td width=\"100%\" colspan=\""..tblQ.Columns.."\" bgcolor=\"#F9EFCA\">"..ChildHTML;
end
end
--Actualización de metro de estado
StatusDlg.SetTitle("Generando Reporte . . .");
StatusDlg.SetMessage("Generando Reporte . . . Por Favor Espere . . .");
StatusDlg.SetMeterPos(n);
end
strHTML = strHTML .. "</table>";
end
--leer en el archivo de plantilla
strFile = TextFile.ReadToString("AutoPlay\\Docs\\Template.htm");
--Buscar posición de la tabla, y se sustituye espacio reservado con tabla generada
strFile = String.Replace(strFile, "<!--~TABLE~-->", strHTML, false);
--escribir en el fichero
TextFile.WriteFromString(sFileOut, strFile, false);
--Ocultar el contador Satus
StatusDlg.Hide();
end
function AddChildRecs(db, RS)
--Poner la mesa formateo editando las variables de los valores por debajo
local BorderColorSet = "#000000";
local BorderWidthSet = "0";
local HeadBgColorSet = "#bcc5d0";
local HeadFontSet = "Verdana";
local HeadFontSizeSet = "1";
local DetailBgColorAlt1Set = "#ffffff"; --Para la fila alternativo sombreado
local DetailBgColorAlt2Set = "#ffffff"; --Para la fila alternativo sombreado
local DetailFontSet = "Verdana";
local DetailFontSizeSet = "1";
--NO EDITAR - Formatos de las variables anteriores como html listo para combinar en el html principal. - NO EDITAR
local BorderColor = "bordercolor=\""..BorderColorSet.."\"";
local BorderWidth = "border=\""..BorderWidthSet.."\"";
local HeadBgColor = "bgcolor=\""..HeadBgColorSet.."\"";
local HeadFont = "<font face=\""..HeadFontSet.."\" size=\""..HeadFontSizeSet.."\">";
local DetailBgColorAlt1 = "bgcolor=\""..DetailBgColorAlt1Set.."\"";
local DetailBgColorAlt2 = "bgcolor=\""..DetailBgColorAlt2Set.."\"";
local DetailFont = "<font face=\""..DetailFontSet.."\" size=\""..DetailFontSizeSet.."\">";
--FIN NO EDITAR
local n;
local strHTML;
local DetailBgColor
local tblQ = SQLite.QueryToTable(db, RS);
if tblQ and tblQ.Rows > 0 then
strHTML = "<table "..BorderWidth.." width=\"100%\" style=\"border-collapse: collapse\" "..BorderColor.." cellpadding=\"2\">\r\n";
--Añadir pequeña columna Encabezados
strHTML = strHTML .. "<tr>\r\n";
for m=1, tblQ.Columns do
strHTML = strHTML .. "<td "..HeadBgColor.." nowrap>"..HeadFont .. tblQ.ColumnNames[m] .. "</td>\r\n";
end
strHTML = strHTML .. "\r\n</tr>";
--Llene la tabla secundaria
for n=1, tblQ.Rows do
strHTML = strHTML .. "<tr>\r\n";
--Aplicar alternativa fila sombreado
OddEvenRow = Math.Mod(n, 2)
if OddEvenRow == 0 then
DetailBgColor = DetailBgColorAlt1
else
DetailBgColor = DetailBgColorAlt2
end
for m=1, tblQ.Columns do
strHTML= strHTML .. "<td "..DetailBgColor.." nowrap>"..DetailFont.. tblQ.Data[n][tblQ.ColumnNames[m]] .. "</td>\r\n";
end
strHTML = strHTML .. "\r\n</tr>";
end
strHTML = strHTML .. "</table>";
end
--Devuelve el HTML para generar la función de los padres
return strHTML
end
Web.LoadURL("Web1", "AutoPlay\\Docs\\plantilla.htm");
ParentQuery = "SELECT Proveedor, Contacto, Telefono, Fax, Email, Direccion from Proveedores ORDER BY RecordID";
SQLiteToHTML(db, ParentQuery, "", "AutoPlay\\Docs\\plantilla.htm");
Web.LoadURL("Web1", "AutoPlay\\Docs\\plantilla.htm");
CREATE INDEX index_Nombre
ON Nombre_Tabla (Nombre_Columna)
SELECT Nombre_Columna(s) FROM Nombre_Tabla1
UNION
SELECT Nombre_Columna(s) FROM Nombre_Tabla2