Consultar Registro Booleano
Publicado: 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
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.
---CODIGO DEL BOTON CONDICION
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.
---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