Consultar Registro Booleano

Aquí puedes preguntar o compartir tus dudas y conocimientos acerca del programa
He seguido los procedimientos que hace el profesor Douglas Castillo sobre como guardar un registro booleano, muy buenos tutoriales, ahora lo que pretendo realizar el como hacer una consulta mediante un registro booleano.

True = Habilitado
False =Desabilitado

Cuando de check en el CheckBox y presione el boton condicion me carguen todos los "true" en el grid y si no le doy check al checkbox y presiono el boton condicion me carguen todos los false en el grid.

Imagen


---CODIGO DEL BOTON CONDICION
Grid.DeleteAllItems("Workspace");
Condicion = CheckBox.GetChecked("CXB_CONDICION")
Apos = "'"
local this="BT_CONDICION";--@@Porcentajes -> Button9 -> On Click
	
	bNewRecord = true
	--CheckBox.SetChecked("CXB_CONDICION", true)
	Input.SetText("INP_CODIGOLICENCIAFUNCIONAMIENTO", "");
	Input.SetText("INP_NUMERORESOLUCION", "");
	Input.SetText("INP_RAZONSOCIAL", "");
	Input.SetText("INP_RUC", "");
	Input.SetText("INP_REPRESENTANTELEGAL", "");
	ComboBox.SetText("CBX_ACTIVIDADCOMERCIAL", "")
	Input.SetText("inpDesde", "")
	Input.SetText("inpHasta", "")
	
if e_Row ~= 1 then
	sCurrentTable = Grid.GetCellText("Workspace", e_Row, e_Column)
		
local tblReturn = SQLite.QueryToTable(db, "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '%"..CheckBox.SetChecked("CXB_CONDICION").."%')")

if Ruc  == "" then
Dialog.Message("Informe", "Debes seleccionar la Condicion para que la busqueda sea exitosa");
end

if tblReturn.Rows > 0 then
		
		for x = 1 , tblReturn.Rows do
		Grid.SetCellText("Workspace", x, 1, tblReturn.Data[x]["RecordID"], true);
		
		end

		Grid.ExpandToFit("Workspace", false, true)
				-- Borrar e_Columns
		Grid.SetColumnCount("Workspace", 0);
		Grid.SetRowCount("Workspace", 0);
		Grid.Refresh("Workspace")

		
		BindGrid(db, "Workspace", "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '%"..CheckBox.GetChecked("CXB_CONDICION").."%')")
		Grid.AutoSizeColumns("Workspace", GVS_BOTH, true)
		Grid.SetGridLines("Workspace", true)
		Grid.SetGridLines("Workspace", GVL_BOTH);
	end
end

if(Grid.GetRowCount("Workspace")<1)then
--MANDA EL MENSAJE
Dialog.Message("Resultado", "No se han encontrados resultados", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

Grid.DeleteNonFixedRows("Workspace", true);
-- flush variables & tables
nItems = 0; 
tTextFile = {};
end

Agradecer al Profesor Agotaraz por su grandes videotutoriales y a toda la gente de este foro
luasqlite escribió:
21 Ago 2018 19:00
He seguido los procedimientos que hace el profesor Douglas Castillo sobre como guardar un registro booleano, muy buenos tutoriales, ahora lo que pretendo realizar el como hacer una consulta mediante un registro booleano.

True = Habilitado
False =Desabilitado

ooh what this ? is this true to write ?
the right way is write as this :

Código: Seleccionar todo

Habilitado = true ;
Desabilitado = false ;
as you see the result variable who is named Habilitado is equal a boolean true Written in small letters .
abood1987 escribió:
21 Ago 2018 20:26
luasqlite escribió:
21 Ago 2018 19:00
He seguido los procedimientos que hace el profesor Douglas Castillo sobre como guardar un registro booleano, muy buenos tutoriales, ahora lo que pretendo realizar el como hacer una consulta mediante un registro booleano.

True = Habilitado
False =Desabilitado

ooh what this ? is this true to write ?
the right way is write as this :

Código: Seleccionar todo

Habilitado = true ;
Desabilitado = false ;
as you see the result variable who is named Habilitado is equal a boolean true Written in small letters .
Tienes razon
en la consulta solo debes de colocar tu campo boleano ejempo codigo = 'true' y listo eso es todo si te da error o no te da resultados quita las los apostrofes y listo
Agotaras123 escribió:
22 Ago 2018 00:54
en la consulta solo debes de colocar tu campo boleano ejempo codigo = 'true' y listo eso es todo si te da error o no te da resultados quita las los apostrofes y listo
Me continua saliendo el mismo error

Imagen

Codigo
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Grid.DeleteAllItems("Workspace");

Condicion = CheckBox.GetChecked("CXB_CONDICION")
Apos = "'"

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

local this="BT_CONDICION2";--@@Porcentajes -> Button9 -> On Click
	
	bNewRecord = true--CheckBox.SetChecked("CXB_CONDICION", true)
	Input.SetText("INP_CODIGOLICENCIAFUNCIONAMIENTO", "");
	Input.SetText("INP_NUMERORESOLUCION", "");
	Input.SetText("INP_RAZONSOCIAL", "");
	Input.SetText("INP_RUC", "");
	Input.SetText("INP_REPRESENTANTELEGAL", "");
	ComboBox.SetText("CBX_ACTIVIDADCOMERCIAL", "")
	Input.SetText("inpDesde", "")
	Input.SetText("inpHasta", "")
	
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

if e_Row ~= 1 then
	sCurrentTable = Grid.GetCellText("Workspace", e_Row, e_Column)
	
	
tChecar = CheckBox.GetChecked("CXB_CONDICION")
if tChecar == true then
local tblReturn = SQLite.QueryToTable(db, "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '%".."true".."%')")--EL PROBLEMA ESTA EN ESTA LINEA
else
local tblReturn = SQLite.QueryToTable(db, "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '%".."false".."%')")
end

--if Condicion  == "" then
--Dialog.Message("Informe", "Debes seleccionar la Condicion para que la busqueda sea exitosa");
--end

if tblReturn.Rows > 0 then
		
		for x = 1 , tblReturn.Rows do
		Grid.SetCellText("Workspace", x, 1, tblReturn.Data[x]["RecordID"], true);
		
		end

		Grid.ExpandToFit("Workspace", false, true)
				-- Borrar e_Columns
		Grid.SetColumnCount("Workspace", 0);
		Grid.SetRowCount("Workspace", 0);
		Grid.Refresh("Workspace")

		BindGrid(db, "Workspace", "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '%".."true".."%')")
		BindGrid(db, "Workspace", "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '%".."false".."%')")
   
     
		
		Grid.AutoSizeColumns("Workspace", GVS_BOTH, true)
		Grid.SetGridLines("Workspace", true)
		Grid.SetGridLines("Workspace", GVL_BOTH);
	end
end



if(Grid.GetRowCount("Workspace")<1)then
--MANDA EL MENSAJE
Dialog.Message("Resultado", "No se han encontrados resultados", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

Grid.DeleteNonFixedRows("Workspace", true);
-- flush variables & tables
nItems = 0; 
tTextFile = {};
end

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

no don Comillas las que debes de usar si no apostrofes comillas = " Apostrofe = '
Agotaras123 escribió:
22 Ago 2018 18:24
no don Comillas las que debes de usar si no apostrofes comillas = " Apostrofe = '
Tambien lo he intentado pero me sigue saliendo el mismo error

Link:
https://mega.nz/#!r01DAKSB

Clave del Cifrado:
!B0eCI84u_VxArL1JiPuSIGLav_N05jzw-F4HLuHqwq4
:feelsgoodman-1417755815: No Agotaras, así no funciona el Plug-in de AMS para SQLite

Tenemos la siguiente tabla

Código: Seleccionar todo

+----+----------+
| id | boolean  |
+----+----------+
|  1 |   true   |
+----+----------+
|  2 |   true   |
+----+----------+
|  3 |  false   |
+----+----------+
|  4 |   true   |
+----+----------+
|  5 |  false   |
+----+----------+
tblDB = SQLite.QueryToTable(db_reference, "SELECT * FROM  table_name");

-- // Lo que tblDB contiene ahora es una tabla que contiene lo siguiente \\ --
tblDB = {
  Data = {
    {id = "1", boolean = "Y"},
    {id = "2", boolean = "Y"},
    {id = "3", boolean = "N"},
    {id = "4", boolean = "Y"},
    {id = "5", boolean = "N"}
  }
};

-- // Es decir, que no debuelve ni true, ni false, ni son las comillas, ni son los apostrofes \\ --
Te dejo el código modificado así como te lo deje te mostrara todos los true, el condicional if que tenias causaba error porque encerrabas la consulta dentro de el si lo usaras usalo cerrando el ciclo al final
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Grid.DeleteAllItems("Workspace");

Condicion = CheckBox.GetChecked("CXB_CONDICION")
Apos = "'"

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

local this="BT_CONDICION2";--@@Porcentajes -> Button9 -> On Click
	
	bNewRecord = true--CheckBox.SetChecked("CXB_CONDICION", true)
	Input.SetText("INP_CODIGOLICENCIAFUNCIONAMIENTO", "");
	Input.SetText("INP_NUMERORESOLUCION", "");
	Input.SetText("INP_RAZONSOCIAL", "");
	Input.SetText("INP_RUC", "");
	Input.SetText("INP_REPRESENTANTELEGAL", "");
	ComboBox.SetText("CBX_ACTIVIDADCOMERCIAL", "")
	Input.SetText("inpDesde", "")
	Input.SetText("inpHasta", "")
	
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

if e_Row ~= 1 then
	sCurrentTable = Grid.GetCellText("Workspace", e_Row, e_Column)
	
	
tChecar = tonumber(CheckBox.GetChecked("CXB_CONDICION"))

local tblReturn = SQLite.QueryToTable(db, "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE 'true')") ----oproblema está aqui amigo


if tblReturn.Rows > 0 then
		
		for x = 1 , tblReturn.Rows do
		Grid.SetCellText("Workspace", x, 1, tblReturn.Data[x]["RecordID"], true);
		
		end

		Grid.ExpandToFit("Workspace", false, true)
				-- Borrar e_Columns
		Grid.SetColumnCount("Workspace", 0);
		Grid.SetRowCount("Workspace", 0);
		Grid.Refresh("Workspace")

		BindGrid(db, "Workspace", "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE 'true')")

		
		Grid.AutoSizeColumns("Workspace", GVS_BOTH, true)
		Grid.SetGridLines("Workspace", true)
		Grid.SetGridLines("Workspace", GVL_BOTH);
	end
end



if(Grid.GetRowCount("Workspace")<1)then
--MANDA EL MENSAJE
Dialog.Message("Resultado", "No se han encontrados resultados", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

Grid.DeleteNonFixedRows("Workspace", true);
-- flush variables & tables
nItems = 0; 
tTextFile = {};
end

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Gracias :pc:
Solucionado:

Imagen

Imagen

Codigo:
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Grid.DeleteAllItems("Workspace");

Condicion = CheckBox.GetChecked("CXB_CONDICION")

Apos = "'"

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

local this="BT_CONDICION2";--@@Porcentajes -> Button9 -> On Click
	
	bNewRecord = true--CheckBox.SetChecked("CXB_CONDICION", true)
	Input.SetText("INP_CODIGOLICENCIAFUNCIONAMIENTO", "");
	Input.SetText("INP_NUMERORESOLUCION", "");
	Input.SetText("INP_RAZONSOCIAL", "");
	Input.SetText("INP_RUC", "");
	Input.SetText("INP_REPRESENTANTELEGAL", "");
	ComboBox.SetText("CBX_ACTIVIDADCOMERCIAL", "")
	Input.SetText("inpDesde", "")
	Input.SetText("inpHasta", "")
	
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

if e_Row ~= 1 then
sCurrentTable = Grid.GetCellText("Workspace", e_Row, e_Column)
tChecar = tonumber(CheckBox.GetChecked("CXB_CONDICION"))

if CheckBox.GetChecked("CXB_CONDICION") ~= true then
sCondicion = "false"
else
sCondicion = "true"
end
local tblReturn = SQLite.QueryToTable(db, "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '"..sCondicion.."')") ----oproblema está aqui amigo

if tblReturn.Rows > 0 then
		
		for x = 1 , tblReturn.Rows do
		Grid.SetCellText("Workspace", x, 1, tblReturn.Data[x]["RecordID"], true);
		
		end

		Grid.ExpandToFit("Workspace", false, true)
				-- Borrar e_Columns
		Grid.SetColumnCount("Workspace", 0);
		Grid.SetRowCount("Workspace", 0);
		Grid.Refresh("Workspace")

		BindGrid(db, "Workspace", "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Condicion AS [CONDICION], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Condicion LIKE '"..sCondicion.."')")

		
		Grid.AutoSizeColumns("Workspace", GVS_BOTH, true)
		Grid.SetGridLines("Workspace", true)
		Grid.SetGridLines("Workspace", GVL_BOTH);
	end
end



if(Grid.GetRowCount("Workspace")<1)then
--MANDA EL MENSAJE
Dialog.Message("Resultado", "No se han encontrados resultados", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

Grid.DeleteNonFixedRows("Workspace", true);
-- flush variables & tables
nItems = 0; 
tTextFile = {};
end

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Agradeciemientos a: Dipro-DouglasCastillo- Dowsher
:SOS: Disculpen que vuelva a consultar desde una pregunta que ya esta solucionada:

En vez que salga true o false en el grid, se puede conseguir que en vez del true aparezca la palabra Si y en vez del false aparezca la palabra No
Solucionado :friends:
Debemos recordar que en la pagina o dialogo donde ingresen dichos registros también hay que aplicar las condición de comparación

Imagen
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Grid.DeleteAllItems("Workspace");

Habilitado = CheckBox.GetChecked("CXB_HABILITADO")

Apos = "'"

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

local this="BT_CONDICION2";--@@Porcentajes -> Button9 -> On Click
	
	bNewRecord = true--CheckBox.SetChecked("CXB_HABILITADO", true)
	Input.SetText("INP_CODIGOLICENCIAFUNCIONAMIENTO", "");
	Input.SetText("INP_NUMERORESOLUCION", "");
	Input.SetText("INP_RAZONSOCIAL", "");
	Input.SetText("INP_RUC", "");
	Input.SetText("INP_REPRESENTANTELEGAL", "");
	ComboBox.SetText("CBX_ACTIVIDADCOMERCIAL", "")
	Input.SetText("inpDesde", "")
	Input.SetText("inpHasta", "")
	
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

if e_Row ~= 1 then
sCurrentTable = Grid.GetCellText("Workspace", e_Row, e_Column)
tChecar = tonumber(CheckBox.GetChecked("CXB_HABILITADO"))

if CheckBox.GetChecked("CXB_HABILITADO") ~= true then
sHabilitado = "No"
else
sHabilitado = "Si"
end
local tblReturn = SQLite.QueryToTable(db, "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Habilitado AS [HABILITADO], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Habilitado LIKE '"..sHabilitado.."')") ----oproblema está aqui amigo


Progress.SetVisible("Progress1", true)
pos = 0;
min = 0;
max = 100;
for count = min, max do
Progress.SetCurrentPos("Progress1", pos);
Progress.SetText("Progress1", ""..pos.."%");
Application.Sleep(2)
pos = pos + 1
end	


if tblReturn.Rows > 0 then
		
		for x = 1 , tblReturn.Rows do
		Grid.SetCellText("Workspace", x, 1, tblReturn.Data[x]["RecordID"], true);
		
		end

		Grid.ExpandToFit("Workspace", false, true)
				-- Borrar e_Columns
		Grid.SetColumnCount("Workspace", 0);
		Grid.SetRowCount("Workspace", 0);
		Grid.Refresh("Workspace")

		BindGrid(db, "Workspace", "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Habilitado AS [HABILITADO], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Habilitado LIKE '"..sHabilitado.."')")

		
		Grid.AutoSizeColumns("Workspace", GVS_BOTH, true)
		Grid.SetGridLines("Workspace", true)
		Grid.SetGridLines("Workspace", GVL_BOTH);
	end
end



if(Grid.GetRowCount("Workspace")<1)then
--MANDA EL MENSAJE
Dialog.Message("Resultado", "No se han encontrados resultados", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

Grid.DeleteNonFixedRows("Workspace", true);
-- flush variables & tables
nItems = 0; 
tTextFile = {};
end

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
luasqlite escribió:
24 Ago 2018 17:26
Debemos recordar que en la pagina o dialogo donde ingresen dichos registros también hay que aplicar las condición de comparación

Imagen
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Grid.DeleteAllItems("Workspace");

Habilitado = CheckBox.GetChecked("CXB_HABILITADO")

Apos = "'"

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

local this="BT_CONDICION2";--@@Porcentajes -> Button9 -> On Click
	
	bNewRecord = true--CheckBox.SetChecked("CXB_HABILITADO", true)
	Input.SetText("INP_CODIGOLICENCIAFUNCIONAMIENTO", "");
	Input.SetText("INP_NUMERORESOLUCION", "");
	Input.SetText("INP_RAZONSOCIAL", "");
	Input.SetText("INP_RUC", "");
	Input.SetText("INP_REPRESENTANTELEGAL", "");
	ComboBox.SetText("CBX_ACTIVIDADCOMERCIAL", "")
	Input.SetText("inpDesde", "")
	Input.SetText("inpHasta", "")
	
--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

if e_Row ~= 1 then
sCurrentTable = Grid.GetCellText("Workspace", e_Row, e_Column)
tChecar = tonumber(CheckBox.GetChecked("CXB_HABILITADO"))

if CheckBox.GetChecked("CXB_HABILITADO") ~= true then
sHabilitado = "No"
else
sHabilitado = "Si"
end
local tblReturn = SQLite.QueryToTable(db, "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Habilitado AS [HABILITADO], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Habilitado LIKE '"..sHabilitado.."')") ----oproblema está aqui amigo


Progress.SetVisible("Progress1", true)
pos = 0;
min = 0;
max = 100;
for count = min, max do
Progress.SetCurrentPos("Progress1", pos);
Progress.SetText("Progress1", ""..pos.."%");
Application.Sleep(2)
pos = pos + 1
end	


if tblReturn.Rows > 0 then
		
		for x = 1 , tblReturn.Rows do
		Grid.SetCellText("Workspace", x, 1, tblReturn.Data[x]["RecordID"], true);
		
		end

		Grid.ExpandToFit("Workspace", false, true)
				-- Borrar e_Columns
		Grid.SetColumnCount("Workspace", 0);
		Grid.SetRowCount("Workspace", 0);
		Grid.Refresh("Workspace")

		BindGrid(db, "Workspace", "SELECT RecordID, CodigoLicenciaFuncionamiento AS[CODIGO], Habilitado AS [HABILITADO], NumeroResolucion AS[N RESOLUCION], RazonSocial AS [RAZON SOCIAL], RepresentanteLegal AS [REPRESENTANTE LEGAL], DomicilioFiscal AS[DOMICILIO FISCAL], ActividadComercial AS[ACTIVIDAD COMERCIAL], NombreComercial AS[NOMBRE COMERCIAL], DireccionNegocio AS[DIRECCION NEGOCIO], AreaNegocio AS[AREA NEGOCIO], CertificadoItse AS[CERTIFICADO ITSE], Aforo AS[AFORO], FechaEmision AS[FECHA EMISION], Ruc AS[RUC], HorarioAtencion AS[HORARIO ATENCION], Representante1 AS[REPRESENTANTE 1], Representante2 AS[REPRESENTANTE 2], UsuarioRegistro AS [USUARIO REGISTRO] FROM LicenciasFuncionamientos where (Habilitado LIKE '"..sHabilitado.."')")

		
		Grid.AutoSizeColumns("Workspace", GVS_BOTH, true)
		Grid.SetGridLines("Workspace", true)
		Grid.SetGridLines("Workspace", GVL_BOTH);
	end
end



if(Grid.GetRowCount("Workspace")<1)then
--MANDA EL MENSAJE
Dialog.Message("Resultado", "No se han encontrados resultados", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

Grid.DeleteNonFixedRows("Workspace", true);
-- flush variables & tables
nItems = 0; 
tTextFile = {};
end

--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Graças amigo luasqlite