Pascual Montes
09-12-2004, 03:00:15
hola amigos, Sabes tengo una rutina en donde hago un filtro por medio
de un query, y necesito saber cuantos registros cumplieron la condicion
de ese query, como puedo obtener ese dato ?
mi rutina es esta:
DATa.q1.close;
DATa.Q1.SQL.Clear;
DATA.q1.SQL.Add('SELECT * FROM '+#34+cruta+#34+' WHERE fecha between '+#34+sfechaini+#34+' and '+#34+sfechafin+#34' ORDER BY numempleado');
DATA.Q1.OPEN;
y en otro procedimiento es lo siguiente :
while not data.q1.Eof DO BEGIN
CNT:=CNT+1;
CADENA:='9999000000@'+copy(edit1.text,1,1);
cad2:=RELLENACONCEROS(data.TCHECANumempleado.VALUE,8);
CAD3:=COPY(CAD2,8,1);
CAD2:=COPY(CAD2,3,5);
CADENA:=CADENA+CAD2+CAD3;
Present:= Now;
DecodeDate(data.q1Fecha.value, Year, Month, Day);
CAD2:=IntToStr(MONTH);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2;
CAD2:=IntToStr(Day);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2;
DecodeTime(data.q1Hora.value, Hour, Min, Sec, MSec);
CAD2:=IntToStr(HOUR);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2;
CAD2:=IntToStr(MIN);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2+'1';
WRITELN(F, Cadena);
data.q1.Next;
END;
closeFILE(f); // CERRAR EL ARCHIVO MUY IMPORTANTE
memo1.Lines.Add('Archivo Reloj.dat Creado con Exito');
memo1.Lines.Add('Para Incorporarlo o Importarlo de su');
memo1.Lines.Add('Sistema de Nomina, Entre y Ejecute ese Proceso ');
biniciar.enabled:=false;
bpreparar.SetFocus;
Te agradezco mucho tu ayuda. :D
Saludos
de un query, y necesito saber cuantos registros cumplieron la condicion
de ese query, como puedo obtener ese dato ?
mi rutina es esta:
DATa.q1.close;
DATa.Q1.SQL.Clear;
DATA.q1.SQL.Add('SELECT * FROM '+#34+cruta+#34+' WHERE fecha between '+#34+sfechaini+#34+' and '+#34+sfechafin+#34' ORDER BY numempleado');
DATA.Q1.OPEN;
y en otro procedimiento es lo siguiente :
while not data.q1.Eof DO BEGIN
CNT:=CNT+1;
CADENA:='9999000000@'+copy(edit1.text,1,1);
cad2:=RELLENACONCEROS(data.TCHECANumempleado.VALUE,8);
CAD3:=COPY(CAD2,8,1);
CAD2:=COPY(CAD2,3,5);
CADENA:=CADENA+CAD2+CAD3;
Present:= Now;
DecodeDate(data.q1Fecha.value, Year, Month, Day);
CAD2:=IntToStr(MONTH);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2;
CAD2:=IntToStr(Day);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2;
DecodeTime(data.q1Hora.value, Hour, Min, Sec, MSec);
CAD2:=IntToStr(HOUR);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2;
CAD2:=IntToStr(MIN);
CAD2:=RELLENACONCEROS(CAD2,2);
CADENA:=CADENA+CAD2+'1';
WRITELN(F, Cadena);
data.q1.Next;
END;
closeFILE(f); // CERRAR EL ARCHIVO MUY IMPORTANTE
memo1.Lines.Add('Archivo Reloj.dat Creado con Exito');
memo1.Lines.Add('Para Incorporarlo o Importarlo de su');
memo1.Lines.Add('Sistema de Nomina, Entre y Ejecute ese Proceso ');
biniciar.enabled:=false;
bpreparar.SetFocus;
Te agradezco mucho tu ayuda. :D
Saludos