3 replies to this topic

[enecumene]

Hola colegas, como algunos saben hace tiempo he creando una aplicación para el manejo de las asistencias de empleado con un Lector dactilar, todo va perfecto, pero..., tengo un bucle donde registro las vacaciones de tal fecha a tal fecha, pero yo quisiera que en es bucle la forma de no incluir los Sábados o Los sábados y domingos, dejo el código es un poquito largo, así que sólo dejo la parte del problema:

delphi

if rbRango.Checked then begin
  Close;
  SQL.Clear;
  SQL.Text := 'INSERT INTO REGISTRO(REGNO,EMPID,EMPLEADO,FECHA,ENTRADA,SALIDA,VACACIONES) VALUES(NULL,:EMP,:NOM,:FEC,:ENT,:SAL,:VAC)';
  Fecha := edDesde.Date;
  FechaFinal := edHasta.Date;
  while (Fecha < FechaFinal) do
   begin
    ParamByName('EMP').AsInteger := integer(TreeView1.Selected.Data);
    ParamByName('FEC').AsDate := Fecha;
    ParamByName('NOM').AsString := Label4.Caption;
    ParamByName('ENT').Value := NULL;
    ParamByName('SAL').Value := NULL;
    ParamByName('VAC').AsString := 'X';
    ExecSQL;
    Fecha := IncDay(Fecha,1);
    end;
    Datos.ZConnection1.Commit;
    ZVaca.Close;
    ZVaca.Open;
   end;

Saludos.

PD: Trabajo con Delphi7 y Firebird 2.0

[egostar]

Hola

delphi

  while ( Fecha < FechaFinal ) do begin
       if ( DayoftheWeek(Fecha ) in [1..5] ) and
          ( NoesFestivo(Fecha) ) then begin // NoesFestivo es una función que deberas crear para comparar la fecha :)
          ParamByName('EMP').AsInteger := integer(TreeView1.Selected.Data);
          ParamByName('FEC').AsDate := Fecha;
          ParamByName('NOM').AsString := Label4.Caption;
          ParamByName('ENT').Value := NULL;
          ParamByName('SAL').Value := NULL;
          ParamByName('VAC').AsString := 'X';
          ExecSQL;
       end; 
       Fecha := IncDay(Fecha,1);
  end;
  Datos.ZConnection1.Commit;
  ZVaca.Close;
  ZVaca.Open;

Para omitir sabados y domingos es muy facil, para los dias festivos lo mas fácil es crear una tabla de dias festivos y comparar si no es dia festivo en una funcion booleana como lo puse ahi

Salud OS

[enecumene]

Amigo, cuanta creatividad tienes, por eso eres un maestro, en la noche lo pruebo. Muchas gracias.

Saludos.

[egostar]

Amigo, cuanta creatividad tienes, por eso eres un maestro, en la noche lo pruebo. Muchas gracias.

Saludos.

Hombre amigo favor que me haces, F1 amigo F1

Salud OS