Phân tích định lượng phí tổn phát sinh khi dự án bị chậm trễ trong điều kiện việt nam

ĐẠI HỌC QUỐC GIA TP.HCM TRƯỜNG ĐẠI HỌC BÁCH KHOA TRỊNH MINH TÂM PHÂN TÍCH ĐỊNH LƯỢNG PHÍ TỔN PHÁT SINH KHI DỰ ÁN BỊ CHẬM TRỄ TRONG ĐIỀU KIỆN VIỆT NAM Chuyên ngành: CÔNG NGHỆ VÀ QUẢN LÝ XÂY DỰNG Mã số ngành: 60.58.90 LUẬN VĂN THẠC SĨ TP.HỒ CHÍ MINH, Tháng 12 năm 2008 LỜI CẢM ƠN Khơng tự bước đến thành cơng ! Đó suy nghĩ tác giả suốt trình học tập phấn đấu Từ ngày đầu cắp sách đến trường đến hoàn thành luận văn này, nhận học quý từ thầy cô cha mẹ Tôi xin chân thành cảm ơn Thầy Tiến sĩ Lương Đức Long, người tận tình hướng dẫn, vạch đường lối, đóng góp ý tưởng cho từ bắt đầu thực đề cương đến kết thúc luận văn Tôi xin cảm ơn tất thầy cô Khoa Kỹ thuật Xây dựng Đại học Bách Khoa Tp HCM truyền đạt kiến thức kinh nghiệm quý báu cho chúng tơi cịn ngồi Giảng đường đại học Tơi xin cảm ơn tất thầy cô Bộ môn Thi công cho nhận thấy chân trời mới, kiến thức mới, công nghệ phương pháp lĩnh vực Quản lý dự án xây dựng hai năm học cao học Con xin cảm ơn cha mẹ, xin cảm ơn bạn bè đồng nghiệp động viên giúp đỡ tơi lúc khó khăn Xin chân thành cảm ơn ! Trịnh Minh Tâm ĐẠI HỌC QUỐC GIA TP HCM TRƯỜNG ĐẠI HỌC BÁCH KHOA CỘNG HOÀ XÃ HỘI CHỦ NGHIÃ VIỆT NAM Độc Lập - Tự Do - Hạnh Phúc -oOo Tp HCM, ngày tháng năm NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: TRỊNH MINH TÂM Giới tính : Nam / Nữ Ngày, tháng, năm sinh : 12/9/1983 Nơi sinh : Long An Chuyên ngành : CÔNG NGHỆ & QUẢN LÝ XÂY DỰNG Khoá (Năm trúng tuyển) : 2006 1- TÊN ĐỀ TÀI: PHÂN TÍCH ĐỊNH LƯỢNG PHÍ TỔN PHÁT SINH KHI DỰ ÁN BỊ CHẬM TRỄ TRONG ĐIỀU KIỆN VIỆT NAM 2- NHIỆM VỤ LUẬN VĂN: - Phân tích nguyên nhân gây chi phí nhà thầu dự án bị trì hỗn thi cơng, đánh giá điều kiện Việt Nam - Đề xuất phương án định lượng phí tổn cơng trường phí tổn văn phòng phát sinh, xây dựng hệ thống giải khiếu nại đền bù nhà thầu, xác định sở phương pháp Xây dựng cơng cụ phân tích tác động trì hỗn đến tiến độ tổng thể dự án - Áp dụng cho dự án cụ thể Việt Nam 3- NGÀY GIAO ĐỀ TÀI : 30/6/2008 4- NGÀY HOÀN THÀNH ĐỀ TÀI : 30/11/2008 5- HỌ VÀ TÊN CÁN BỘ HƯỚNG DẪN: Tiến sĩ LƯƠNG ĐỨC LONG Nội dung đề cương Luận văn thạc sĩ Hội Đồng Chuyên Ngành thông qua CÁN BỘ HƯỚNG DẪN (Họ tên chữ ký) CHỦ NHIỆM BỘ MÔN QUẢN LÝ CHUYÊN NGÀNH (Họ tên chữ ký) CƠNG TRÌNH ĐƯỢC HỒN THÀNH TẠI TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH Cán hướng dẫn: TS LƯƠNG ĐỨC LONG Cán chấm nhận xét : Cán chấm nhận xét : Luận văn thạc sĩ bảo vệ HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THẠC SĨ TRƯỜNG ĐẠI HỌC BÁCH KHOA, ngày tháng năm LUẬN VĂN THẠC SĨ GVHD: TS LƯƠNG ĐỨC LONG TĨM TẮT LUẬN VĂN Q trình thi cơng dự án xây dựng ln có khó khăn Tranh chấp bất đồng thường xuyên xảy xung quanh khoản chi phí phát sinh kéo dài trì hỗn gây ảnh hưởng đến tiến độ chung dự án Phần lớn trường hợp, chi phí nhà thầu phải gánh chịu lúc lỗi thuộc phía họ Nghiên cứu phân tích loại phí tổn phát sinh cho nhà thầu q trình thi cơng bị gián đoạn chủ đầu tư gây ra, bao gồm phí tổn cơng trường phí tổn văn phịng, phương án định lượng chi phí Nhiều bảng câu hỏi gửi để thu thập ý kiến trách nhiệm chủ đầu tư phí tổn phát sinh điều kiện Việt Nam Một ứng ựng bảng tính xây dựng để phân tích trì hỗn xảy q trình thi cơng Sau cùng, dự án thi cơng nhỏ sử dụng để áp dụng tính tốn khoản chi phí đền bù cho nhà thấu ABSTRACT Construction building processes always have difficulties Disputes and divergences usually occur about overhead costs arising from expansions and delays which effect to project’s schedule In most cases, contractors must pay for these costs although they not make any misstake This research analyses contractors overhead damages cause by noncontractor-delays, contains field overhead damages and home office overhead costs, and their determination Questionnaires were sent for ideas collection about the owner’s responsibilities of these costs in Viet Nam A spreadsheet application is built to analyse delays that happended in construction process Finally, a small construction project was put into practice to quantify compensable overheadcosts for contractor HVTH: Ks TRỊNH MINH TÂM MSHV: 00806748 LUẬN VĂN THẠC SĨ GVHD: TS LƯƠNG ĐỨC LONG MỤC LỤC Lời cảm ơn i Nhiệm vụ luận văn ii Nhận xét iii Tóm tắt luận văn iv Chương I: MỞ ĐẦU 1.1 Đặt vấn đề 1.1.1 Sơ lược tình hình kinh tế Việt Nam 1.1.2 Sơ lược tình hình chậm trễ tiến độ thiệt hại TP.HCM 1.1.3 Tổn thất dự án bị chậm trễ tiến độ thi công 1.2 Các khái niệm 1.2.1 Chi phí cho dự án giai đoạn khác 1.2.2 Chi phí xây dựng- Chi phí trực tiếp 1.2.3 Chi phí xây dựng- Các loại chi phí khác 1.2.4 Mối quan hệ Chi phí- Tiến độ Chương II: TỔNG QUAN 2.1 Thuật ngữ định nghĩa 2.1.1 Chậm trễ nguyên nhân gây chậm trễ 9 2.1.2 Chậm trễ đồng thời 11 2.1.3 Các loại hình chậm trễ theo ứng xử bên liên quan 12 2.1.4 Chi phí điều hành phát sinh 12 2.2 Lược khảo vấn đề nghiên cứu 13 2.2.1 Phí tổn phát sinh cơng trường 13 2.2.2 Phí tổn điều hành phát sinh văn phòng 14 HVTH: Ks TRỊNH MINH TÂM MSHV: 00806748 LUẬN VĂN THẠC SĨ GVHD: TS LƯƠNG ĐỨC LONG 2.3 Mục tiêu nghiên cứu 16 2.4 Tầm quan trọng nghiên cứu 17 2.5 Phạm vi nghiên cứu 18 Chương III: NỘI DUNG NGHIÊN CỨU 19 3.1 Phương án phân tích tiến độ 19 3.1.1 Phương pháp phân tích cửa sổ cải tiến 19 3.1.2 Ứng dụng Spreadsheet để phân tích tiến độ 23 3.2 Khảo sát thống kê bảng câu hỏi 28 3.2.1 Nền tảng khảo sát 28 3.2.2 Mục tiêu đối tượng bảng câu hỏi 32 3.2.3 Nội dung bảng câu hỏi 33 3.2.4 Kết thu thập số liệu 33 3.3 Phí tổ phát sinh gián đoạn cơng trường 35 3.3.1 Nguyên nhân phát sinh 35 3.3.2 Phân tích kết khảo sát từ bảng câu hỏi 36 3.3.3 Ngun tắc tính tốn phí tổn phát sinh cơng trường 44 3.3.4 Công thức sử dụng 46 3.3.5 Một số lưu ý ứng dụng 47 3.4 Phí tổn văn phịng phát sinh gián đoạn thi cơng: 48 3.4.1 Chi phí chung khơng thể khấu trừ 48 3.4.2 Phân tích kết khảo sát bảng câu hỏi 50 3.4.3 Công thức thực nghiệm đề xuất 52 3.5 Hệ thống xử lý yêu cầu đền bù phí tổn phát sinh HVTH: Ks TRỊNH MINH TÂM MSHV: 00806748 54 LUẬN VĂN THẠC SĨ GVHD: TS LƯƠNG ĐỨC LONG 3.5.1 Tầm quan trọng hệ thống 54 3.5.2 Các điểm lưu ý quy trình đề xuất 56 Chương IV: ÁP DỤNG THỰC TẾ 57 4.1 Ứng dụng Spreadsheet thực tế 57 4.1.1 Hiệu chỉnh tiến độ thi công thực tế 57 4.1.2 Sử dụng bảng tính 59 4.2 Giới thiệu dự án áp dụng 57 4.2.1 Sơ lược dự án 64 4.2.2 Giới thiệu nhà thầu 65 4.2.3 Gói thầu thi công cọc khoan nhồi 66 4.3 Sự kiện gây trì hỗn cơng trường 69 4.2.1 Mặt thi cơng chưa bàn giao hồn tồn 69 4.2.2 Chủ đầu tư chậm tốn tiền khối lượng thi cơng 69 4.4 Nhận xét-Phân tích 71 4.4.1 Các điểm đáng ý hợp đồng 71 4.4.2 Phân tích hai kiện gây chậm trễ tiến độ gói thầu 71 4.5 Kết thương lượng bồi hồn phí tổn 78 4.5.1 Lý lẽ bên trình thương lượng 78 4.5.2 Kết thương lượng 79 Chương V: KẾT LUẬN VÀ KIẾN NGHỊ 80 5.1 Nhận xét từ kết khảo sát 80 5.2 Kết luận 81 5.3 Kiến nghị 82 5.3.1 Về nội dung đề tài 82 5.3.2 Hướng phát triển đề tài 83 HVTH: Ks TRỊNH MINH TÂM MSHV: 00806748 LUẬN VĂN THẠC SĨ GVHD: TS LƯƠNG ĐỨC LONG TÀI LIỆU THAM KHẢO 84 PHỤ LỤC 85 HVTH: Ks TRỊNH MINH TÂM MSHV: 00806748 LUẬN VĂN THẠC SĨ GVHD: TS LƯƠNG ĐỨC LONG DANH MỤC HÌNH ẢNH Hình 1.1 Các nhân tố ảnh hưởng đến thành cơng dự án Hình 1.2 Phí tổn phát sinh dự án bị chậm trễ Hình 1.3 Mối quan hệ Chi phí-Thời gian thực dự án Hình 2.1 Ví dụ thời gian dự trữ chậm trễ 11 Hình 3.1 Các bước PP phân tích tiến độ theo cửa sổ ngày 21 Hình 3.2 Mơ hình phân tích tiến độ theo ngày 22 Hình 3.3 As-built Bar Chart Sheet – Bảng tiến độ dự kiến 25 Hình 3.4 As-built Bar Chart Sheet – Bảng tiến độ thực tế 26 Hình 3.5 Analysis Sheet – Bảng phân tích tiến độ 27 Hình 3.6 Nhận diện phí tổn phát sinh 35 Hình 3.7 Ví dụ chi phí điều hành chung dự kiến thực tế có dự án bị tạm dừng kéo dài 49 Hình 3.8 Quy trình xử lý bồi hồn thi cơng xây dựng 55 Hình 4.1 Tiến độ thi cơng hiệu chỉnh 58 Hình 4.2 Nhập liệu bảng tiến độ dự kiến 60 Hình 4.3 Nhập liệu bảng tiến độ thực tế 61 Hình 4.4 Kết phân tích ví dụ minh họa 62 Hình 4.5 Tiến độ thi cơng dự kiến nhà thầu Tam Đạt 68 Hình 4.6 Tiến độ thi cơng thực tế nhà thầu Tam Đạt 70 Hình 4.7 Sơ đồ mặt cơng trường 73 Hình 4.8 Gói thầu thi cơng cọc nhồi-Kết phân tích 74 Hình 4.9 Thực trạng trạm điện mặt cơng trường 75 HVTH: Ks TRỊNH MINH TÂM MSHV: 00806748 COÂNG TY CP CƠ KHÍ – ĐIỆN LỮ GIA HP ĐỒNG KINH TẾ vật liệu, thi cơng không phù hợp với vẽ & điều kiện kỹ thuật, không theo dẫn Chủ đầu tư, giám sát) phải sửa chữa hồn chỉnh chi phí nhà thầu Đối với khuyết tật gây tay nghề, vật liệu cung cấp thầu phụ, nhà thầu cũng có trách nhiệm tương tự trường hợp Nhà thầu Nếu Nhà thầu khơng sửa chữa, Chủ đầu tư tự sửa chữa, chi phí thiệt hại Chủ đầu tư khẫu trừ vào số tiền bảo hành giữ lại Chứng bảo hành khơng giải phóng Nhà thầu khỏi trách nhiệm có gian dối khuyết tật, mà gian dối phát sau thời hạn bảo hành thức kết thúc 7.3 Chứng bảo hành: Nhà thầu xem hồn thành cơng việc, chứng bảo hành Chủ đầu tư ký phát hành, có ghi ngày nhà thầu hồn thành trách nhiệm mình, kể trách nhiệm sửa chữa tất sai sót hư hỏng thời gian bảo hành Chứng bảo hành cấp vòng 15 ngày, sau hết thời hạn bảo hành Việc phát hành chứng bảo hành điều kiện tiên để tốn cho Nhà thầu phần cịn lại số tiền bảo hành Điều 8: CÔNG TÁC BẢO HIỂM 8.1 Chủ đầu tư mua bảo hiểm công trình 8.2 Nhà thầu mua bảo hiểm cho vật tư, thiết bị, nhà xưởng phục vụ thi công, bảo hiểm người lao động, bảo hiểm dân người thứ ba Toàn bảo hiểm phải đệ trình chậm la 07 ngày kể từ ngày ký hợp đồng 8.3 Toàn hoạt động thi cơng hồn thành cơng trình phải thực cho không gây trở ngại, hư hỏng, tổn thất cho cơng trình lân cận Chủ đầu tư cơng trình khác xung quanh khu vực xây dựng Mọi cố gây Nhà thầu phải tự xử láy không ảnh hưởng đến tiến độ thi cơng, khơng có tham gia Chủ đầu tư Điều 9: BẢN VẼ THI CÔNG VÀ CÁC CƠNG TÁC KHÁC CĨ LIÊN QUAN 9.1 Căn hồ sơ thiết kế, Nhà thầu phải lập vẽ biện pháp kỹ thuật thi cơng chi tiết trình Tư vấn giám sát, Ban Quản lý dự án duyệt trước thi cơng khơng tính chi phí phát sinh Trang 7/10 CÔNG TY CP CƠ KHÍ – ĐIỆN LỮ GIA HP ĐỒNG KINH TẾ 9.2 giá hợp đồng bao gồm tất công việc phụ cần thiết phục vụ thi cơng: chi phí biện pháp hạ thấp mực nước ngầm, chống sạt lở, an toàn lao động, vệ sinh mơi trường… q trình thi công Điều 10: TRÁCH NHIỆM CỦA CÁC BÊN 10.1 Trách nhiệm bên A: a Bên A bàn giao mặt theo trạng, hạn cho bên B để đảm bảo tiến độ thi cơng cơng trình Riêng cơng trình ngầm cơng trình cơng cộng, CĐT phải giải phóng để đảm bảo tiến độ thi cơng bên B Nếu ảnh hưởng đến tiến độ thi công bên B bên B cộng thêm tiến độ kéo dài tương ứng chi phí (nếu có) b Bên A giao cho bên B toàn hồ sơ thiết kế kỹ thuật giấy tờ thủ tục, pháp lý có liên quan đến việc xây dựng cơng trình c Cử cán tư vấn kiểm tra giám sát thi cơng, thường xun có mặt trường để giám sát chất lượng cơng trình, xác nhận khối lượng công tác thực giải kịp thời vấn đề phát sinh có d Thanh tốn kinh phí theo điều e Tổ chức nghiệm thu giai đoạn thực hạng mục cơng tình tổng nghiệm thu cơng trình f Tổ chức thực tốn cơng trình sau nhận đầy đủ hồ sơ toán hợp lệ vẽ hồn cơng bên B, thời gian khơng q 20 ngày g Cung cấp tồn thép thi công (gồm thép thanh, thép cuộn, thép H300mm) theo yêu cầu Bên B chủng loại tiến độ cung cấp Bên A chịu chi phí thí nghiệm thép 10.2 Trách nhiệm bên B a Thực công việc nêu điều theo quy trình, quy phạm kỹ thuật quy định Tổ chức thi cơng cơng trình đảm bảo chất lượng, kỹ thuật tiến độ Chịu giám sát thi công GSKTCĐT Chủ đầu tư b Vật tư, nhân lực, thiết bị, xe máy thi công cung cấp cho công trường phải theo điều kiện hồ sơ mời chào giá, hồ sơ dự Trang 8/10 COÂNG TY CP CƠ KHÍ – ĐIỆN LỮ GIA HP ĐỒNG KINH TEÁ chào giá số lượng quy cách Nhà thầu muốn thay đổi phải đồng ý Chủ đầu tư GSKTCĐT Nếu nhà thầu tự ý thay đổi không đồng ý Chủ đầu tư GSKTCĐT Chủ đầu tư có quyền từ chối tốn hợp đồng có quyền ngưng hợp đồng c Bên B phải chịu trách nhiệm với quan quản lý Nhà nước an toàn lao động, phòng cháy chữa cháy bỏa vệ mơi trường suốt q trình thi cơng Trường hợp bên B vi phạm,mà không nộp phạt, bên A nộp khẫu trừ vào trị giá hợp đồng d Cung cấp vật tư chủng loại theo thiết kế, điều kiện sách cơng trình bảng kê chủng loại vật tư đính kèm e Tự lo nguồn điện, nước phục vụ thi công Nếu dùng nguồn điện nước bên A, phải tốn theo giá hành f Lập sổ nhật ký công trường, nhật ký bảo dưỡng cấu kiện BTCT, ghi chép đầy đủ diễn biến xảy q trình thi cơng theo quy định xác nhận GSKTCĐT hàng ngày g Có trách nhiệm xúc tiến hồn tất đầy đủ thủ tục có liên quan để nghiệm thu, đưa cơng trình vào sử dụng theo tiến độ hợp đồng tốn lệ phí (nếu có) h Lập hồ sơ hồn cơng theo quy định sau nghiệm thu bàn giao cơng trình, thời gian không qua 20 ngày i Chịu trách nhiệm thực tự đài thọ chi phí bảo hiểm liên quan đến việc thi cơng cơng trình, theo quy định sau nghiệm thu bàn giao cơng trình, theo quy định Nhà nước đơn vị thi công j chịu trách nhiệm nộp đầy đủ thuế với nhà nước k giao trả lại tồn thể mặt cơng trường, dời tồn máy móc thiết bị khỏi công trường, sau hết thời hạn thi công ngày ( quy định điều trừ trường hợp có định khác Chủ đầu tư l Trong trường hợp xảy cố cho cơng trình lân cận xác định lỗi bên B, Bên B phải bồi thường tất chi phí, thiệt hại liên quan đến cố Trang 9/10 CÔNG TY CP CƠ KHÍ – ĐIỆN LỮ GIA HP ĐỒNG KINH TẾ m Nếu Bên A chứng minh Bên B không tuân thủ điều khoản an toàn lao động vệ sinh mơi trường Bên B phải trả cho bên A khoản tiền phạt 500.000 VNĐ ( năm trăm ngàn đồng ) cho lần vi phạm n Trong q trình thi cơng, có hạng mục không đảm bảo chất lượng Nhà thầu phải chịu trách nhiệm thực lại theo yêu cầu tư vấn thiết kế, kể cơng tác bổ sung Nhà thầu chịu hồn tồn chi phí (kể chi phí thi cơng, vật liệu, thiết kế) bồi thường phần tiến độ chậm trễ Thời gian điều chỉnh thiết kế (nếu có) dự kiến tối đa 07 ngày làm việc o Trong trường hợp bên B người chịu trách nhiệm chất lượng cơng trình phần việc Bên B nhận thầu thi công trừ quan chức xác định lỗi bên B p Bên B phải có trách nhiệm bảo quản, bảo vệ đảm bảo số lượng, chất lượng vật tư sau tiếp nhận vật tư Chủ đầu tư cung cấp Điều 11: TRƯỜNG HỢP BẤT KHẢ KHÁNG Là kiện xảy mang tính khách quan nằm ngồi tầm kiểm sốt bên động đất, bõa, lũ, lụt, sóng thần, lở đất, hỏa hoạn, chiến tranh… thảm họa khác chưa lường hết được, thay đổi sách ngăn cấm quan có thẩm quyền Việt Nam Việc bên khơng hồn thành nghĩa vụ kiện bất khả kháng sở để bên chấm dứt hợp đồng Tùy thuộc tình hình thực tế, hai bên có giải pháp thích hợp Điều 12: ĐIỀU KHOẢN CHUNG Hợp đồng ny có hiệu lực hai bên A B ký tên, đống dấu bên B thực trách nhiệm bảo đảm thực hợp đồng Hai bên cam kết thực điều khoản ghi hợp đồng Trong trình thực hiện, có khó khăn vướng mắc hai bên phải gặp bàn bạc thống giải quyết, không bên tự sửa đổi điều khoản ghi hợp đồng Bên vi phạm điều ghi hợp đồng phải hoàn toàn chịu trách nhiệm trước pháp luật hành Trong trường hợp có tranh chấp, Tòa Kinh Tế Tòa án nhân dân nơi để khởi kiện bên thua kiện phải chịu chi phí Tịa án Trang 10/10 CÔNG TY CP CƠ KHÍ – ĐIỆN LỮ GIA HP ĐỒNG KINH TẾ Hợp đồng bao gồm tài liệu đính kèm thoe hợp đồng quy định điều 1.2 có hiệu lực hai bên tiến hành lý hợp đồng Các tài liệu đính kèm hợp đồng này: Bảng dự tốn giao nhận thầu, bảng tính khối lượng thép Hợp đồng lập thành tám (08) bản, bên giữ bốn (04) có giá trị ngang ĐẠI DIỆN BIÊN B CƠNG TY TNHH XD NỀN MĨNG TAM ĐẠT GIÁM ĐỐC (đã ký) ĐẠI DIỆN BÊN A CÔNG TY CP CƠ KHÍ – ĐIỆN LỮ GIA TỔNG GIÁM ĐỐC (đã ký) PHẠM VĂN CƯỜNG CAO TẤN KHƯƠNG Trang 11/10 CÔNG TY CP CƠ KHÍ – ĐIỆN LỮ GIA HP ĐỒNG KINH TẾ BẢNG DỰ TỐN TRÚNG THẦU DỰ ÁN: KHU CHUNG CƯ – THƯƠNG MẠI – DỊCH VỤ LUGIACO GĨI THẦU: CỌC KHỐN NHỒI ĐẠI TRÀ Đơn vị tính Khối lượng Vật liệu Khốn 1.00 80,000,000 Khoan vào đất cạn, đường kính lỗ khoan 1000mm (202 cọc) Khoan vào đất cạn, đường kính lỗ khoan 600mm (61 cọc) M STT TÊN CÔNG VIỆC A PHAN NHÂN CÔNG, THIẾT BỊ, VẬT LIỆU PHỤ Vận chuyển thiết bị, chuẩn bị công trường Đơn giá (VNĐ – VAT) Nhân công Đơn giá tổng hợp Máy thi công Giá trị (VNĐ) Ghi 20,000,000 200,000,000 300,000,000 300,000,000 VAT 10% 8,282.00 50,000 500,000 550,000 4,555,100,000 VAT 10% M 2,501.00 40,000 400,000 440,000 1,100,440,000 VAT 10% Bơm dung dịch betonite lỗ khoan cạn M3 7,212.00 5,000 20,000 165,000 1,189,980,000 VAT 10% Bê tông cọc nhồi cạn, D1000mm, đá 1x2, M350 M3 5,347.00 20,000 100,000 120,000 641,640,000 VAT 10% Bê tông cọc nhồi cạn, D600mm, đá 1x2, M350 M3 599.00 Gia công lắp đặt thép cọc khoan nhồi cạn Tấn 454.14 Vận chuyển đất thải M3 Ống PVC D60mmx4mm 10 Ống PVC D114mmx7mm 11 140,000 25,000 120,000 145,000 86,855,000 VAT 10% 300,000 400,000 1,000,000 454,140,000 VAT 10% 7,212.00 10,000 120,000 130,000 937,560,000 VAT 10% M 22,092.00 5,000 5,000 110,460,000 VAT 10% M 8,484.00 8,000 8,000 67,872,000 VAT 10% Thí nghiệm siêu âm Cọc 66.00 2,000,000 2,000,000 132,000,000 VAT 10% 12 Thí nghiệm khoan lõi Cọc 5.00 8,000,000 8,000,000 40,000,000 VAT 10% B PHẦN VẬT TƯ CUNG CẤP Bê tông cọc nhồi đá 1x2, M350 M3 5,946.00 1,200,000 1,200,000 7,135,200,000 VAT 5% Ống PVC D60mmx4mm M 22,092.00 42,000 42,000 927,864,000 VAT 5% Ống PVC D114mmx7mm M 8,484.00 142,000 142,000 1,204,728,000 VAT 5% 300,000 Tổng cộng 18,883,839,000 (Bằng chữ: Mười tám tỷ, tám trăm tám mươi ba triệu, tám trăm ba mươi chín ngàn đồng) Tp Hồ Chí Minh, ngày 08 tháng 05 năm 2008 Chủ đầu tư Duyệt Đại diện nhà thầu (đã ký) (đã ký) Cao Tấn Khương Phạm Văn Cường Trang 12/10 PHỤ LỤC CODE VBA ỨNG DỤNG SPREADSHEET Option Explicit Public allactivitys As Integer Public alldays As Integer Public i As Integer Public j As Integer Public projectDu As Long Public proOdelay As Long Public proCdelay As Long Public proNdelay As Long Public Cdelay As Long Public Odelay As Long Public Ndelay As Long -Sub window() Application.Calculation = xlAutomatic 'Calculate allactivitys = Worksheets("Asplanned").Range("Delaydata").Rows.Count - alldays = Worksheets("Asbuilt").Range("C9") Range("W11").Select ActiveCell.Formula = "=IF(AND(W$10>=$Q11+1,(($C11+$D11)-(W$10-$Q11-1))>=1),1/$C11,0)" Selection.Copy Range(Cells(11, 23), Cells(11 + allactivitys, 255)).Select ActiveSheet.Paste Application.CutCopyMode = False 'Range(Cells(12 + allactivitys, 23), Cells(15 + allactivitys, 255)).ClearContents Range(Cells(11, 4), Cells(10 + allactivitys, 4)).ClearContents If Worksheets("Asplanned").Range("Delaydata").Rows.Count projectDu Then Odelay = 0: Cdelay = 0: Ndelay = For i = To allactivitys If Application.WorksheetFunction.IsNonText(Worksheets("Windows").Cells(11 + i, 22 + j)) = False _ And Worksheets("Windows").Cells(11 + i, 21).Value = Then Worksheets("Windows").Cells(11 + i, 22 + j).Select With Selection.Interior ColorIndex = Pattern = xlSolid PatternColorIndex = xlAutomatic End With If Worksheets("Windows").Cells(11 + i, 22 + j).Value = "O" Or Worksheets("Windows").Cells(11 + i, 22 + j).Value = "o" Then Odelay = Odelay + ElseIf Worksheets("Windows").Cells(11 + i, 22 + j).Value = "C" Or Worksheets("Windows").Cells(11 + i, 22 + j).Value = "c" Then Cdelay = Cdelay + Else Ndelay = Ndelay + End If End If Next i If Odelay >= And Cdelay = And Ndelay = Then proOdelay = proOdelay + 'Worksheets("windows").Cells(10 + allactivitys + 2, 22 + j) = ElseIf Cdelay >= And Odelay = And Ndelay = Then proCdelay = proCdelay + 'Worksheets("windows").Cells(10 + allactivitys + 3, 22 + j) = ElseIf Ndelay >= Then proNdelay = proNdelay + 'Worksheets("windows").Cells(10 + allactivitys + 4, 22 + j) = End If End If Next j Range("A11").Select MsgBox ("Ket qua phan tich: " & vbCr & "Do chu dau tu (O): " & proOdelay & vbCr & "Do nha thau (C): " & proCdelay & vbCr & "Co the tha thu (N): " & proNdelay) End Sub -Sub Clearall() allactivitys = Worksheets("Asplanned").Range("Delaydata").Rows.Count - alldays = Worksheets("Asbuilt").Range("C9") Worksheets("Asplanned").Range(Cells(12, 2), Cells(11 + allactivitys, 10)).ClearContents Worksheets("Asbuilt").Select Worksheets("Asbuilt").Range(Cells(12, 23), Cells(11 + allactivitys, 255)).ClearContents Worksheets("Windows").Select Worksheets("windows").Range(Cells(12, 23), Cells(11 + allactivitys, 255)).ClearContents Worksheets("windows").Range(Cells(12, 4), Cells(11 + allactivitys, 4)).ClearContents Range("W11").Select ActiveCell.Formula = "=IF(AND(W$10>=$Q11+1,(($C11+$D11)-(W$10-$Q11-1))>=1),1/$C11,0)" Selection.Copy Range(Cells(12, 23), Cells(11 + allactivitys, 255)).Select ActiveSheet.Paste Application.CutCopyMode = False Worksheets("Asplanned").Select End Sub Sub Addtask() allactivitys = Worksheets("Asplanned").Range("Delaydata").Rows.Count - alldays = Worksheets("Asbuilt").Range("C9") 'asplanned sheet Dim r As Integer Dim AddedRow As Integer AddedRow = ActiveCell.Row - 10 r = Selection.Rows.Count If ActiveCell.Row >= 12 And ActiveCell.Row = AddedRow Then Cells(10 + M, + n).Value = Cells(10 + M, + n).Value + r End If Next n Next M Range(Cells(10 + AddedRow - 1, 11), Cells(10 + AddedRow - 1, 255)).Select Selection.Copy Range(Cells(10 + AddedRow - 1, 11), Cells(10 + AddedRow + r - 1, 255)).Select ActiveSheet.Paste Application.CutCopyMode = False Cells(10 + AddedRow - 1, 1).Select Selection.Copy Range(Cells(10 + AddedRow - 1, 1), Cells(10 + AddedRow + r - 1, 1)).Select ActiveSheet.Paste Application.CutCopyMode = False 'asbuilt sheet Worksheets("Asbuilt").Select Range(Cells(10 + AddedRow, 1), Cells(10 + AddedRow + r - 1, 255)).Select Selection.EntireRow.Insert Range(Cells(10 + AddedRow, 4), Cells(10 + AddedRow + r - 1, 255)).Select Selection.ClearContents Range(Cells(10 + AddedRow - 1, 1), Cells(10 + AddedRow - 1, 3)).Select Selection.Copy Range(Cells(10 + AddedRow - 1, 1), Cells(10 + AddedRow + r - 1, 3)).Select ActiveSheet.Paste Application.CutCopyMode = False 'Windows sheet Worksheets("Windows").Select Range(Cells(10 + AddedRow, 1), Cells(10 + AddedRow + r - 1, 255)).Select Selection.EntireRow.Insert Range(Cells(10 + AddedRow - 1, 1), Cells(10 + AddedRow - 1, 3)).Select Selection.Copy Range(Cells(10 + AddedRow - 1, 1), Cells(10 + AddedRow + r - 1, 3)).Select ActiveSheet.Paste Application.CutCopyMode = False Range(Cells(10 + AddedRow - 1, 5), Cells(10 + AddedRow - 1, 22)).Select Selection.Copy Range(Cells(10 + AddedRow - 1, 5), Cells(10 + AddedRow + r - 1, 22)).Select ActiveSheet.Paste Application.CutCopyMode = False Cells(11, 255).Select Selection.Copy Range(Cells(10 + AddedRow, 23), Cells(10 + AddedRow + r - 1, 255)).Select ActiveSheet.Paste Application.CutCopyMode = False Worksheets("Asplanned").Select Else MsgBox ("Must select row(s)") End If End Sub Sub DeleteTask() Dim DeletedRow As Integer Dim M As Integer Dim n As Integer Dim t As Integer allactivitys = Worksheets("Asplanned").Range("Delaydata").Rows.Count - DeletedRow = ActiveCell.Row - 10 'If Selection.Rows.Count > Then t = Selection.Rows.Count 'Else 't=1 'End If If ActiveCell.Row > 11 And ActiveCell.Row = DeletedRow And Cells(10 + M, + n).Value DeletedRow Then Cells(10 + M, + n).Value = Cells(10 + M, + n).Value - t End If Next n Next M Worksheets("Asbuilt").Select Range(Cells(10 + DeletedRow, 1), Cells(10 + DeletedRow + t - 1, 1)).Select Selection.EntireRow.Delete Worksheets("Windows").Select Range(Cells(10 + DeletedRow, 1), Cells(10 + DeletedRow + t - 1, 1)).Select Selection.EntireRow.Delete Worksheets("Asplanned").Select Else MsgBox ("Must select row(s)") End If End Sub -Function countif3(VUNG As Range, DK3 As Variant, DK4 As Variant, FUNC As String, v As Byte) As Double Dim Dem1 As Long, allactivitys As Integer, i As Integer allactivitys = VUNG.Rows.Count Select Case FUNC Case "L" Dem1 = For i = To allactivitys If Cells(11 + i, VUNG.Column) = DK3 And Left(Cells(11 + i, VUNG.Column + 1), v) = DK4 Then Dem1 = Dem1 + End If Next i Case "R" Dem1 = For i = To allactivitys If Cells(11 + i, VUNG.Column) = DK3 And Right(Cells(11 + i, VUNG.Column + 1), v) = DK4 Then Dem1 = Dem1 + End If Next i End Select countif3 = Dem1 End Function Sub TotalSlack() Dim VUNG1 As Range Dim VUNG2 As Range Dim cell As Range Dim chuoiMIN As String Dim val1 As Integer Dim val2 As Integer On Error Resume Next Application.Calculation = xlAutomatic Set VUNG1 = Worksheets("Asplanned").Range("data1") Set VUNG2 = Worksheets("Asplanned").Range("data2") ActiveSheet.Range(Cells(12, 15), Cells(11 + VUNG1.Rows.Count, 16)).ClearContents For Each cell In Range(Cells(12, 1), Cells(11 + VUNG1.Rows.Count, 1)) If Application.WorksheetFunction.CountIf(VUNG2.Resize(, 1), cell.Value) = Then '''Truong hop cong tac khong nam o Pre2 If Application.WorksheetFunction.CountIf(VUNG1.Resize(, 1), cell.Value) = Then ''''Cong tac ko nam o Pre1 cell.Offset(, 15).Formula = "=$c$9" cell.Offset(, 14).Value = cell.Offset(, 15).Value - cell.Offset(, 2).Value - cell.Offset(, 3).Value ElseIf countif3(VUNG1, cell.Value, "F", "L", 1) = _ And countif3(VUNG1, cell.Value, "S", "L", 1) > Then ''''Cong tac chi nam o Pre1 - Tinh LS cell.Offset(, 14).Formula = "=MIN(minlookup(data1," & cell.Address & ",""SS"",11),minlookup(data1," & cell.Address & ",""SF"",12),c9-" & cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address & ")" cell.Offset(, 15).Formula = "=" & cell.Offset(, 14).Address & "+" & cell.Offset(, 2).Address & "+" & cell.Offset(, 3).Address ElseIf countif3(VUNG1, cell.Value, "F", "L", 1) > _ And countif3(VUNG1, cell.Value, "S", "L", 1) = Then ''''Cong tac chi nam o Pre1 - Tinh LF cell.Offset(, 15).Formula = "=MIN(minlookup(data1," & cell.Address & ",""FS"",11)," & _ "minlookup(data1," & cell.Address & ",""FF"",12))" cell.Offset(, 14).Formula = "=" & cell.Offset(, 15).Address & "-" & cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address Else ''''Cong tac chi nam o Pre1 - So sanh phuong an val1 = Evaluate("=MIN(minlookup(data1," & cell.Address & ",""SS"",11),minlookup(data1," & cell.Address & ",""SF"",12),c9-" & _ cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address & ")") '''''Tinh LS cho cong tac val2 = Evaluate("=MIN(minlookup(data1," & cell.Address & ",""FS"",11),minlookup(data1," & cell.Address & ",""FF"",12))") '''''Tinh LF cho cong tac If val2 _ And countif3(VUNG2, cell.Value, "S", "L", 1) = Then '''''Tinh LF cell.Offset(, 15).Formula = "=MIN(minlookup(data2," & cell.Address & ",""FS"",8)," & _ "minlookup(data2," & cell.Address & ",""FF"",9))" cell.Offset(, 14).Formula = "=" & cell.Offset(, 15).Address & "-" & cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address Else val1 = Evaluate("=MIN(minlookup(data2," & cell.Address & ",""SS"",8),minlookup(data2," & cell.Address & ",""SF"",9),c9-" & _ cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address & ")") '''''Tinh LS val2 = Evaluate("=MIN(minlookup(data2," & cell.Address & ",""FS"",8),minlookup(data2," & cell.Address & ",""FF"",9))") ''''Tinh LF cho cong tac If val2 Then ''''Cong tac nam o Pre1 va Pre2 - Tinh LS cell.Offset(, 14).Formula = "=MIN(minlookup(data1," & cell.Address & ",""SS"",11)," & _ "minlookup(data1," & cell.Address & ",""SF"",12)," & _ "minlookup(data2," & cell.Address & ",""SS"",8)," & _ "minlookup(data2," & cell.Address & ",""SF"",9),c9-" & _ cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address & ")" cell.Offset(, 15).Formula = "=" & cell.Offset(, 14).Address & "+" & cell.Offset(, 2).Address & "+" & cell.Offset(, 3).Address ElseIf (countif3(VUNG1, cell.Value, "F", "L", 1) + countif3(VUNG2, cell.Value, "F", "L", 1)) > _ And (countif3(VUNG1, cell.Value, "S", "L", 1) + countif3(VUNG2, cell.Value, "S", "L", 1)) = Then ''''Cong tac nam o Pre1 va Pre2 - Tinh LF cell.Offset(, 15).Formula = "=MIN(minlookup(data1," & cell.Address & ",""FS"",11)," & _ "minlookup(data1," & cell.Address & ",""FF"",12)," & _ "minlookup(data2," & cell.Address & ",""FS"",8)," & _ "minlookup(data2," & cell.Address & ",""FF"",9))" cell.Offset(, 14).Formula = "=" & cell.Offset(, 15).Address & "-" & cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address Else ''''Cong tac nam o Pre1 va Pre2 - So sanh phuong an val1 = Evaluate("=MIN(minlookup(data1," & cell.Address & ",""SS"",11)," & _ "minlookup(data1," & cell.Address & ",""SF"",12)," & _ "minlookup(data2," & cell.Address & ",""SS"",8)," & _ "minlookup(data2," & cell.Address & ",""SF"",9),c9-" & _ cell.Offset(, 2).Address & "-" & cell.Offset(, 3).Address & ")") val2 = Evaluate("=MIN(minlookup(data1," & cell.Address & ",""FS"",11)," & _ "minlookup(data1," & cell.Address & ",""FF"",12)," & _ "minlookup(data2," & cell.Address & ",""FS"",8)," & _ "minlookup(data2," & cell.Address & ",""FF"",9))") If val2 Then '''''Tinh LS cell2.Offset(, 14).Formula = "=MIN(minlookup(data4," & cell2.Address & ",""SS"",8),minlookup(data4," & cell2.Address & ",""SF"",9),c9-" & cell2.Offset(, 2).Address & "-" & cell2.Offset(, 3).Address & ")" cell2.Offset(, 15).Formula = "=" & cell2.Offset(, 14).Address & "+" & cell2.Offset(, 2).Address & "+" & cell2.Offset(, 3).Address ElseIf countif3(VUNG4, cell2.Value, "F", "L", 1) > _ And countif3(VUNG4, cell2.Value, "S", "L", 1) = Then '''''Tinh LF cell2.Offset(, 15).Formula = "=MIN(minlookup(data4," & cell2.Address & ",""FS"",8)," & _ "minlookup(data4," & cell2.Address & ",""FF"",9))" cell2.Offset(, 14).Formula = "=" & cell2.Offset(, 15).Address & "-" & cell2.Offset(, 2).Address & "-" & cell2.Offset(, 3).Address Else val3 = Evaluate("=MIN(minlookup(data4," & cell2.Address & ",""SS"",8),minlookup(data4," & cell2.Address & ",""SF"",9),c9-" & _ cell2.Offset(, 2).Address & "-" & cell2.Offset(, 3).Address & ")") '''''Tinh LS val4 = Evaluate("=MIN(minlookup(data2," & cell2.Address & ",""FS"",8),minlookup(data4," & cell2.Address & ",""FF"",9))") ''''Tinh LF cho cong tac If val4 Then ''''Cong tac nam o Pre1 va Pre2 - Tinh LS cell2.Offset(, 14).Formula = "=MIN(minlookup(data3," & cell2.Address & ",""SS"",11)," & _ "minlookup(data3," & cell2.Address & ",""SF"",12)," & _ "minlookup(data4," & cell2.Address & ",""SS"",8)," & _ "minlookup(data4," & cell2.Address & ",""SF"",9),c9-" & _ cell2.Offset(, 2).Address & "-" & cell2.Offset(, 3).Address & ")" cell2.Offset(, 15).Formula = "=" & cell2.Offset(, 14).Address & "+" & cell2.Offset(, 2).Address & "+" & cell2.Offset(, 3).Address ElseIf (countif3(VUNG3, cell2.Value, "F", "L", 1) + countif3(VUNG4, cell2.Value, "F", "L", 1)) > _ And (countif3(VUNG3, cell2.Value, "S", "L", 1) + countif3(VUNG4, cell2.Value, "S", "L", 1)) = Then ''''Cong tac nam o Pre1 va Pre2 - Tinh LF cell2.Offset(, 15).Formula = "=MIN(minlookup(data3," & cell2.Address & ",""FS"",11)," & _ "minlookup(data3," & cell2.Address & ",""FF"",12)," & _ "minlookup(data4," & cell2.Address & ",""FS"",8)," & _ "minlookup(data4," & cell2.Address & ",""FF"",9))" cell2.Offset(, 14).Formula = "=" & cell2.Offset(, 15).Address & "-" & cell2.Offset(, 2).Address & "-" & cell2.Offset(, 3).Address Else ''''Cong tac nam o Pre1 va Pre2 - So sanh phuong an val3 = Evaluate("=MIN(minlookup(data3," & cell2.Address & ",""SS"",11)," & _ "minlookup(data3," & cell2.Address & ",""SF"",12)," & _ "minlookup(data4," & cell2.Address & ",""SS"",8)," & _ "minlookup(data4," & cell2.Address & ",""SF"",9),c9-" & _ cell2.Offset(, 2).Address & "-" & cell2.Offset(, 3).Address & ")") val4 = Evaluate("=MIN(minlookup(data3," & cell2.Address & ",""FS"",11)," & _ "minlookup(data3," & cell2.Address & ",""FF"",12)," & _ "minlookup(data4," & cell2.Address & ",""FS"",8)," & _ "minlookup(data4," & cell2.Address & ",""FF"",9))") If val4