Đang tải... (xem toàn văn)
Hiện nay, việc quản lý, sử dụng đất đai của Công ty còn nhiều vấn đề bất cập cần được khắc phục như: Diện tích đất sử dụng đã được đo đạc lại nhưng đo chung không tách phần diện tích cây cao su, cây khác (tràm, keo, …) và đất lấn chiếm; Mặc khác, trong thời gian khá dài công tác quản lý đất đai trải qua nhiều giai đoạn, có nhiều biến động, diễn biến phức tạp như việc để người dân lấn chiếm đất; việc giao khoán diện tích đất cho các cá nhân trước đây là CB CNV của Công ty trên mỗi hợp đồng tách cho nhiều người và nhiều năm trồng các thời hạn giao khoán khác nhau không kiểm tra kỹ dẫn đến không quản lý được các hộ nhận khoán đất trồng cao su. Ứng dụng phần mềm Macro VBA trên Excel khi đến thời hạn trước 30 ngày hệ thống tự động cập nhật và cảnh báo cho biết để theo dõi.
Giải pháp tăng cường công tác quản lý đất đai 2019 Tên giải pháp: Ứng dụng giải pháp sử dụng phần mềm Micro Station SE quản lý sử dụng đất Sự cần thiết (lý nghiên cứu) 2.1 Sự cần thiết Hiện nay, việc quản lý, sử dụng đất đai Cơng ty cịn nhiều vấn đề bất cập cần khắc phục như: Diện tích đất sử dụng đo đạc lại đo chung không tách phần diện tích cao su, khác (tràm, keo, …) đất lấn chiếm; Mặc khác, thời gian dài công tác quản lý đất đai trải qua nhiều giai đoạn, có nhiều biến động, diễn biến phức tạp việc để người dân lấn chiếm đất; việc giao khốn diện tích đất cho cá nhân trước CB - CNV Công ty hợp đồng tách cho nhiều người nhiều năm trồng thời hạn giao khốn khác khơng kiểm tra kỹ dẫn đến không quản lý hộ nhận khoán đất trồng cao su Ứng dụng phần mềm Macro VBA Excel đến thời hạn trước 30 ngày hệ thống tự động cập nhật cảnh báo cho biết để theo dõi Trước có số CB - CNV gắn bó lâu dài với nơng trường cơng tác trồng có số diện tích trảng trũng cơng ty khơng trồng cao su trồng bị chết, cá nhân vào sản xuất trồng hoa màu nông trường cao su Xa Mát, Nông trường cao su Suối Ngô, Nông trường cao su Tân Hiệp để có thêm thu nhập cải thiện sống Sau công ty đến giai đoạn tái canh công ty tiến hành thu hồi cho liền vùng liền xảy tranh chấp, khiếu kiện phức tạp Dữ liệu phần mềm quản lý đất đai chưa thiết lập cách khoa học làm ảnh hưởng đến công tác quản lý đất đai Công ty Trong q trình Cơng ty trắc địa đồ 305 Sở tài nguyên môi trường Miền nam đo đạc lại đo bao chung không tách biệt cá nhân sử dụng trồng khác nên không kiểm tra hộ Do đó, thân tự nghiên cứu học hỏi ứng dụng phần mềm Micro Station SE để theo dõi phân tách cá nhân sử dụng đất trảng công ty để quản lý hiệu 1.2 Mục đích: - Theo dõi sở liệu đất đai sử dụng phần mềm Micro Station SE để kiểm tra, quản lý diện tích đất tồn cơng ty để quản lý chặt chẽ cách khoa học Giải pháp tăng cường công tác quản lý đất đai 2019 - Theo dõi xác diện tích hộ lấn chiếm, hộ sử dụng đất để có sở báo cáo quan ban ngành - Sử dụng phần mềm Macros Excel lập trình VBA để theo dõi cá nhân hợp đồng giao khoán hết thời hạn vườn Nội dung giải pháp: Quản lý công tác đất đai tốt hệ thống phần mềm Micro Station SE phần mềm Macros lập trình VBA Excel Phạm vi áp dụng: - Đối tượng áp dụng: Công ty cổ phần cao su Tân Biên - Thời gian áp dụng: Từ năm 2019 Hiệu đạt được: Sau ứng dụng phần mềm Micro Station SE phần mềm Macros VBA Excel sau: - Tổng hợp chi tiết thửa, lơ theo diện tích đo đạc, điều chỉnh lại diện tích sổ sách trước công ty theo dõi - Sắp xếp liệu quản lý đất đai, tăng cường công tác quản lý đất đai Công ty cổ phần cao su Tân Biên vào nề nếp quy định - Kiểm tra hồ sơ cá nhân nhận khoán đất trồng cao su đến hạn hợp đồng năm trồng cao su BÁO CÁO Giải pháp tăng cường công tác quản lý đất đai 2019 TÓM TẮT NỘI DUNG GIẢI PHÁP - Tên giải pháp: Ứng dụng giải pháp sử dụng phần mềm Micro Station SE quản lý sử dụng đất lấn chiếm, diện tích đất cá nhân sử dụng đơn vị Nông trường phần mềm VBA quản lý hợp đồng giao khoán đến hạn Công ty cổ phần cao su Tân Biên Sự cần thiết, mục đích việc thực giải pháp: 1.1 Sự cần thiết: Trong thời gian qua việc quản lý, sử dụng đất đai Công ty nhiều vấn đề bất cập cần khắc phục như: Diện tích đất sử dụng đo đạc lại đo chung khơng tách phần diện tích cao su, khác (tràm, keo, …) đất lấn chiếm; Mặc khác, thời gian dài công tác quản lý đất đai trải qua nhiều giai đoạn, có nhiều biến động, diễn biến phức tạp việc để người dân lấn chiếm đất; việc giao khoán diện tích đất cho cá nhân trước CB - CNV Công ty hợp đồng tách cho nhiều người nhiều năm trồng thời hạn giao khốn khác bận cơng tác khơng kiểm tra kỹ dẫn đến không quản lý hộ nhận khoán đất trồng cao su Ứng dụng phần mềm Macro VBA Excel đến thời hạn trước 30 ngày hệ thống tự động cập nhật cảnh báo cho biết để theo dõi Trước có số CB - CNV gắn bó lâu dài với nơng trường cơng tác trồng có số diện tích trảng trũng cơng ty khơng trồng cao su trồng bị chết, cá nhân vào sản xuất trồng hoa màu nông trường cao su Xa Mát, Nông trường cao su Suối Ngô, Nông trường cao su Tân Hiệp để có thêm thu nhập cải thiện sống Sau công ty đến giai đoạn tái canh công ty tiến hành thu hồi cho liền vùng liền xảy tranh chấp, khiếu kiện phức tạp Dữ liệu phần mềm quản lý đất đai chưa thiết lập cách khoa học làm ảnh hưởng đến công tác quản lý đất đai Công ty Trong q trình Cơng ty trắc địa đồ 305 Sở tài nguyên môi trường Miền nam đo đạc lại đo bao chung không tách biệt cá nhân sử dụng trồng khác nên không kiểm tra hộ Do đó, thân tự nghiên cứu học hỏi ứng dụng phần mềm Micro Station SE để theo dõi phân tách cá nhân sử dụng đất trảng công ty để quản lý hiệu Giải pháp tăng cường công tác quản lý đất đai 2019 1.2 Mục đích việc thực giải pháp: - Theo dõi sở liệu đất đai sử dụng phần mềm Micro Station SE để kiểm tra, quản lý diện tích đất tồn cơng ty để quản lý chặt chẽ cách khoa học - Theo dõi xác diện tích hộ lấn chiếm, hộ sử dụng đất Cơng ty để có sở báo cáo quan ban ngành - Sử dụng phần mềm Macros Excel lập trình VBA để theo dõi cá nhân hợp đồng giao khoán hết thời hạn vườn Mô tả giải pháp: 2.1/ Đối với diện tích đất bị người dân lấn chiếm số CBCNV sử dụng: Nhìn tổng thể đồ tên người sử dụng, diện tích đo bao chung với diện tích cao su… Năm 2019 thân tự nghiên cứu học hỏi phần mềm Microstation SE nhận biết cá nhân tên sử dụng diện tích sử dụng … để kiểm tra, quản lý diện tích cơng ty để quản lý chặt chẽ cách khoa học Giải pháp tăng cường công tác quản lý đất đai 2019 Thanh công cụ Diện tích tính Trước Uỷ ban nhân dân tỉnh Tây Ninh thuê Xí nghiệp trắc địa đồ 305 Công ty tài nguyên môi trường miền Nam đo đạc diện tích Cơng ty khơng Giải pháp tăng cường công tác quản lý đất đai 2019 tách diện tích riêng biệt mà đo bao cho CB - CNV mượn đất trồng hoa màu đất lấn chiếm Nơng trường Suối Ngơ chung diện tích lớn Sau tự nghiên cứu học hỏi phần mềm Micro Station SE chia cắt riêng biệt để đo vẽ lại tính diện quản lý cá nhân mượn đất sơ đồ nêu Cách đo vẽ sau: Bước 1: Mở phần mềm Micro Station SE – Room + bên trái hình có cơng cụ Bước 1: Bước 3: vẽ vị trí đất cá nhân sử dụng Thanh số từ xuống bên trái hình Bước 4: Khi kích vào số lên Method Element chọn Flool bên phải hình kích chuột lần đưa vào vị trí cần tính diện tích phần cá nhân sử dụng phần hình diện tích Bước 5: Ghi tên cá nhân sử dụng vào vị trí đo vẽ cơng cụ A bên trái hình cột 2, dòng thứ - Trường hợp đất lấn chiếm, tranh chấp: Đã rà sốt xem xét hồn chỉnh diện tích đất lấn chiếm theo diện tích đo đạc phần mểm Micro Station SE, thiết lập hồ sơ trình lãnh đạo cấp xem xét để có hướng thu hồi đất lấn chiếm để Cơng ty thực việc chuyển đổi quy hoạch sử dụng đất giai đoạn năm 2020 – 2025 giai đoạn 2020- 2030 Đẩy mạnh công tác quản lý đất đai sử dụng phần mềm nhằm đưa công tác quản lý đất đai vào nề nếp, diện tích hiệu cao Giải pháp tăng cường công tác quản lý đất đai 2019 2.2 Việc quản lý hộ nhận khoán đến hạn kết thúc hợp đồng theo vườn sau: Để phần mầm cập nhật tự động ta sử dụng cấu trúc lệnh sau: Sub taocanhbao(): Lệnh tạo cảnh báo Dim i As Long, Lastrow As Long, a As Integer Khai báo biến, chuỗi số gán cho số As Lastrow = Sheets("CanhbaohetHD").Cells(Rows.Count, 2).End(xlUp).Row a = 30 Tìm sheets cảnh báo hết hạn HĐ Tìm giá trị đếm số hàng, nhập vào giá trị cột Giải pháp tăng cường công tác quản lý đất đai 2019 For i = To Lastrow Cho i đếm từ hàng đến hàng cuối Cells(i, 8).Value = Cells(i, 7) – a Chọn từ vị trí hàng 8, cột H=7-a (30 ngày) trước hết hạn If Cells(i, 8) - Date