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