Wawancara dengan Manajer Senior Pengadaan Secara Elektronik. Pertanyaan 1 : Untuk pembuatan program prakualifikasi ini, aturan - aturan apa

L2

Wawancara dengan Manajer Senior Pengadaan Secara Elektronik Pertanyaan 1 : Untuk pembuatan program prakualifikasi ini, aturan - aturan apa sajakah yang dipakai sebagai acuan ? Jawaban 1 : Proses pembuatan atau penyusunan program harus didasarkan pada keputusan direksi nomor 305 tahun 2010 beserta revisi-revisinya. Pertanyaan 2 : Apa yang bapak inginkan dari program yang akan kami buat berbasis aturan 305 tersebut ? Jawaban 2 : Saya menginginkan proses prakualifikasi dapat dilaksanakan dengan cepat, tanpa melanggar peraturan yang ada, yang kedua,saya ingin mendapatkan data-data rinci dari peserta prakualifikasi baik yang ikut sekarang maupun yang dahulu. Selain itu, saya menginginkan proses pengisian data-data prakualifikasi dapat dilakukan dengan mudah dan cepat dengan cara updating data. Ketiga, proses ini bisa dilakukan dengan berbasis web tanpa membebani komputer pengguna. Selain itu, saya ingin menggunakan ORACLE yang telah terpasang di kantor sebagai dasar database didalam program ini.

L3

L4

SK DIR No.:305.K/DIR/2010, Tgl.03 Juli 2010

L5

LAMPIRAN KEPUTUSAN DIREKSI PT PLN (PERSERO) NOMOR : 305.K/DIR/2010 Tanggal: 03 Juli 2010 TENTANG PEDOMAN PENGADAAN BARANG/JASA APLN PT PLN (PERSERO)


L6

DAFTAR ISI Halaman PENGANTAR .................................................................................................................................................... i DAFTAR ISI .....................................................................................................................................................ii

BAB I KETENTUAN UMUM .......................................................................................................................... 1 1.1

Pengertian /Istilah .................................................................................................................................... 1

1.2

Maksud dan Tujuan .................................................................................................................................. 4

1.3

Ruang Lingkup ......................................................................................................................................... 5

1.4

Prinsip Dasar ............................................................................................................................................ 5

1.5

Kebijakan Umum Pengadaan Barang/Jasa ............................................................................................... 5

1.6

Pengguna Barang/Jasa .............................................................................................................................. 6

1.7

1.6.1

Pengguna Barang/Jasa di Kantor Pusat. ..................................................................................... 6

1.6.2

Pengguna Barang/Jasa di Unit Bisnis. ....................................................................................... 6

1.6.3

Tugas Pokok Pengguna Barang/ Jasa ........................................................................................ 6

Etika Pengadaan ....................................................................................................................................... 7

BAB II KETENTUAN PENGADAAN BARANG/JASA ................................................................................ 8 2.1

2.2

2.3

Persiapan Pengadaan Barang/Jasa ............................................................................................................ 8 2.1.1

Rencana Pengadaan ................................................................................................................... 8

2.1.2

Ijin Prinsip ................................................................................................................................. 8

2.1.3

Pembentukan Panitia/Pejabat Pengadaan ................................................................................... 8

2.1.4

Jangka Waktu Pengadaan Barang/Jasa. .................................................................................. 10

2.1.5

Jangka Waktu Pembelian langsung.......................................................................................... 11

2.1.6

Pengumuman Pengadaan Barang/Jasa ..................................................................................... 11

Kualifikasi Penyedia Barang/Jasa .......................................................................................................... 11 2.2.1

Ketentuan Prakualifikasi. ......................................................................................................... 12

2.2.2

Ketentuan Pascakualifikasi ...................................................................................................... 12

2.2.3

Dokumen Kualifikasi ............................................................................................................... 13

2.2.4

Persyaratan Kualifikasi ............................................................................................................ 13

Dokumen Pengadaan/Rencana kerja dan Syarat-Syarat (RKS) ............................................................. 15 2.3.1

Dokumen Pengadaan Barang/Jasa Konstruksi/Jasa Lainnya ................................................... 15

2.3.2

Dokumen Pengadaan Jasa konsultansi ..................................................................................... 15

2.4

Dokumen Penawaran .............................................................................................................................. 16

2.5

Jaminan Pengadaan ................................................................................................................................ 17

2.6

Harga Perkiraan Sendiri (HPS) .............................................................................................................. 20 2.6.1

Fungsi dan Penerapan HPS Dalam Evaluasi Harga ................................................................ 20


L7

2.6.2

Penyusunan dan Kegunaan HPS ............................................................................................. 21

2.6.3

Data/Referensi Penyusunan HPS ............................................................................................ 21

2.6.4

Tata Cara Penyusunan HPS .................................................................................................... 21

2.7 Metoda Pengadaan Barang/Jasa Konstruksi/Jasa Lainnya ...................................................................... 23

2.8

2.7.1

Pelelangan ............................................................................................................................... 23

2.7.2

Pemilihan Langsung ................................................................................................................ 23

2.7.3

Penunjukan Langsung .............................................................................................................. 24

2.7.4

Pembelian Langsung ................................................................................................................ 26

Metoda Pengadaan Jasa Konsultansi ...................................................................................................... 26 2.8.1

Seleksi Umum Pengadaan Jasa Konsultansi ............................................................................ 26

2.8.2

Seleksi Langsung Pengadaan Jasa Konsultansi ....................................................................... 26

2.8.3

Penunjukan Langsung Jasa Konsultansi .................................................................................. 27

2.8.4

Pengadaan Jasa Konsultansi Perorangan ................................................................................. 28

2.9 Metoda Penyampaian Dokumen Penawaran ........................................................................................... 29 2.9.1

Satu Sampul ............................................................................................................................. 29

2.9.2

Dua Sampul ............................................................................................................................. 31

2.9.3

Dua Tahap ................................................................................................................................ 33

2.10 Pemilihan Sistem Evaluasi Penawaran .................................................................................................. 36 2.10.1

Kriteria dan Tata Cara Evaluasi ............................................................................................... 36

2.10.2

Evaluasi Penawaran Pengadaan Barang/Jasa Konstruksi ........................................................ 37

2.10.3

Evaluasi Penawaran Pengadaan Jasa Konsultansi ................................................................... 39

2.11 Penetapan Pemenang Pengadaan ........................................................................................................... 43 2.12 Sanggahan .............................................................................................................................................. 43 2.12.1

Tata Cara Sanggahan ............................................................................................................... 43

2.12.2

Jawaban atas Sanggahan .......................................................................................................... 43

2.13 Pengadaan Gagal dan Pengadaan Ulang ................................................................................................ 44 2.13.1

Pengadaan Gagal ..................................................................................................................... 44

2.13.2

Pengadaan Ulang ..................................................................................................................... 46

BAB III PROSES PELAKSANAAN PENGADAAN BARANG/JASA ........................................................ 48 3.1

3.2

Pelaksanaan Pengadaan Barang/Jasa Konstruksi/Jasa Lainnya ............................................................. 48 3.1.1

Pelelangan dengan Prakualifikasi ............................................................................................ 48

3.1.2

Pelelangan dengan Pascakualifikasi......................................................................................... 49

3.1.3

Pemilihan Langsung ................................................................................................................. 58

3.1.4

Penunjukan Langsung .............................................................................................................. 61

3.1.5

Pembelian Langsung ................................................................................................................ 62

Pelaksanaan Pengadaan Jasa Konsultansi .............................................................................................. 63 3.2.1

Seleksi Umum .......................................................................................................................... 63


L8

3.2.2

Seleksi Langsung ..................................................................................................................... 75

3.2.3

Penunjukan Langsung ............................................................................................................. 75

3.3

Pelaksanaan Pengadaan Jasa Lainnya ................................................................................................... 76

3.4

Pelaksanaan Joint Procurement ............................................................................................................. 76

3.5

Pelaksanaan Pengadaan Barang/Jasa untuk Pekerjaan Penanggulangan Bencana Alam dan Bantuan Korban Bencana Alam .......................................................................................................................... 77

BAB IV PENGADAAN KHUSUS ................................................................................................................. 78 4.1

Pengadaan Energi Primer ....................................................................................................................... 78

4.2

Pembelian Tenaga Listrik ...................................................................................................................... 80

4.3

Sewa Menyewa/Sewa Beli ..................................................................................................................... 81

4.4

Sewa Guna Usaha (Leasing) .................................................................................................................. 81

4.5

Outsourcing............................................................................................................................................ 82

4.6

Pengadaan Asuransi ............................................................................................................................... 83

BAB V PENGADAAN BARANG/JASA MELALUI MEDIA ELEKTRONIK ............................................ 88 5.1

Maksud dan Tujuan ................................................................................................................................ 88

5.2

Ketentuan Umum e-Procurement PLN .................................................................................................. 88

5.3

Ketentuan Pelaksanaan e-Procurement PLN ......................................................................................... 88

BAB VI PENDAYAGUNAAN PRODUKSI DALAM NEGERI ................................................................... 90 6.1

Pengertian Produksi Dalam Negeri ........................................................................................................ 90

6.2

Penggunaan Hasil Produksi Dalam Negeri ............................................................................................ 90

6.3

Keikutsertaan Perusahaan Asing ............................................................................................................ 90

6.4

Pernyataan Penggunaan Produksi Dalam Negeri ................................................................................... 90

BAB VII PERJANJIAN/KONTRAK .............................................................................................................. 92 7.1

Jenis Kontak Pengadaan Barang/Jasa .................................................................................................... 92

7.2

Dokumen Kontrak ................................................................................................................................. 94

7.3

Penyusunan Kontrak .............................................................................................................................. 95

BAB VIII PELAKSANAAN KONTRAK .................................................................................................... 109 8.1

Direksi Pekerjaan, Panitia Penerima Pekerjaan dan Wakil Penyedia Barang/Jasa .............................. 109

8.2

Hak dan Kewajiban Para Pihak ............................................................................................................ 109

8.3

Asuransi ............................................................................................................................................... 110

8.4

Perpajakan ............................................................................................................................................ 110

8.5

Pembayaran .......................................................................................................................................... 110

8.6

Pemeriksaan Lapangan Bersama .......................................................................................................... 111

8.6

Pekerjaan Tambah Kurang ................................................................................................................... 112


L9

8.8

Denda Keterlambatan ........................................................................................................................... 112

8.9

Penyesuaian Harga ............................................................................................................................... 112

8.10 Addendum/Amandemen/Memorandum Kontrak ................................................................................. 114 8.11 Mobilisasi ............................................................................................................................................. 114 8.12 Perpanjangan Waktu Pelaksanaan ........................................................................................................ 115 8.13 Kerjasama antara penyedia barang/jasa dan sub kontraktor ................................................................. 115 8.14 Serah Terima Pekerjaan ....................................................................................................................... 115

BAB IX PEMBINAAN DAN PENGAWASAN ........................................................................................... 117 9.1

Pembinaan ............................................................................................................................................ 117

9.2

Pengawasan .......................................................................................................................................... 117

Lampiran-Lampiran .......................................................................................................................... 119


L10

BAB I KETENTUAN UMUM 1.1.

Pengertian / Istilah Dalam Keputusan ini, yang dimaksud dengan: 1.1.1.

APLN adalah Anggaran PLN yang ditetapkan dalam Rencana Kerja dan Anggaran Perusahaan (RKAP) dan telah disahkan oleh RUPS, termasuk anggaran untuk pekerjaan mendesak atau Keadaan Darurat (emergency) yang belum ditetapkan di dalam RKAP;

1.1.2.

Anak Perusahaan adalah anak perusahaan PLN yang sahamnya minimum 90% dimiliki oleh PLN

1.1.3.

Barang adalah benda dalam berbagai bentuk dan uraian, meliputi antara lain bahan baku, barang setengah jadi, barang jadi/peralatan, yang spesifikasinya ditetapkan oleh Pengguna Barang/Jasa;

1.1.4.

Berita Acara Serah Terima Pertama adalah berita acara yang dibuat setelah fisik pekerjaan mencapai 100% (seratus persen);

1.1.5.

Berita Acara Serah Terima Kedua adalah berita acara yang dibuat setelah masa pemeliharaan selesai;

1.1.6.

Bidding Room adalah ruangan yang disediakan oleh Panitia Pengadaan e-Procurement PLN guna menyampaikan harga penawaran baik melalui e-Bidding maupun e-Auction;

1.1.7.

Dokumen Kualifikasi adalah dokumen yang disiapkan oleh Panitia/Pejabat Pengadaan sebagai pedoman dalam Penilaian Kualifikasi Penyedia Barang/Jasa yang digunakan pada prakualifikasi maupun pascakualifikasi;

1.1.8.

Dokumen Pengadaan adalah dokumen yang disiapkan oleh Panitia/Pejabat Pengadaan sebagai pedoman dalam proses pembuatan dan penyampaian penawaran oleh Calon Penyedia Barang/Jasa serta pedoman evaluasi penawaran oleh Panita/Pejabat Pengadaan;

1.1.9.

Dokumen Penawaran adalah surat penawaran beserta seluruh dokumen lampirannya yang disiapkan oleh Penyedia Barang/Jasa;

1.1.10. Direksi adalah organ PLN yang terdiri dari anggota Direksi yang bertanggungjawab penuh atas pengurusan PLN untuk kepentingan, tujuan dan mewakili kepentingan PLN; 1.1.11. DEKOM adalah Dewan Komisaris PT PLN (Persero) yang merupakan organ perseroan yang bertugas melakukan pengawasan serta memberi nasehat kepada Direksi; 1.1.12. Direksi Pekerjaan adalah wakil Pengguna Barang/Jasa, untuk mengendalikan pelaksanaan pekerjaan; 1.1.13. Direksi Teknis adalah wakil Pengguna Barang/Jasa untuk membantu Direksi Pekerjaan dalam pengawasan pekerjaan (misalnya dengan Unit Jasa Sertifikasi, Unit Jasa Enjiniring, dan Unit Jasa Manajemen Konstruksi); 1.1.14. e-Procurement PLN adalah sarana Pengadaan Barang/Jasa yang diproses secara elektronik; yang diakses melalui internet pada alamat http://eproc.pln.co.id;


L11

1.1.15. e-Auction adalah teknik penyampaian penawaran harga oleh Calon Penyedia Barang/Jasa melalui e-Procurement PLN dimana harga yang disampaikan dikompetisikan di antara Calon Penyedia Barang/Jasa selama selang waktu tawar menawar yang ditentukan; 1.1.16. e-Bidding adalah teknik penyampaian penawaran harga oleh Calon Penyedia Barang/Jasa melalui e-Procurement PLN dimana harga disampaikan dalam jangka waktu yang ditentukan dan bersifat final; 1.1.17. General Manager (GM)/Kepala adalah Pejabat yang memiliki kewenangan dan membawahi suatu Unit Bisnis (Wilayah, Distribusi, Pembangkitan, Penyaluran dan Pusat Pengaturan Beban (P3B), Proyek Induk Pembangkit dan Jaringan ) atau Unit Penunjang atau Unit Bisnis tertentu berdasarkan Keputusan Direksi; 1.1.18. Harga Perkiraan Sendiri / HPS (Owner’s Estimate / OE) adalah perhitungan perkiraan biaya pekerjaan yang dihitung secara profesional oleh Panitia/Pejabat Pengadaan yang disahkan oleh Pengguna Barang/Jasa; 1.1.19. International Reinsurance Broker adalah Perusahaan Broker Asuransi Internasional yang lulus seleksi dalam proses seleksi dan dipilih dari 10 (sepuluh) besar dunia yang bertugas mencari back up dalam penempatan risiko PLN kepada Perusahaan Reasuransi Dunia; 1.1.20. Jasa Konstruksi adalah layanan pelaksanaan pekerjaan atau wujud fisik lainnya yang perencanaan teknis dan spesifikasinya ditetapkan Pengguna Barang/Jasa serta proses dan pelaksanaannya diawasi oleh Pengguna Barang/Jasa; 1.1.21. Jasa Konsultansi adalah layanan jasa keahlian profesional dalam berbagai bidang yang meliputi antara lain jasa perencanaan, jasa pengawasan, dan jasa pelayanan profesi lainnya; 1.1.22. Jasa Lainnya meliputi segala pekerjaan dan/atau penyediaan jasa selain Jasa Konstruksi dan jasa konsultansi, antara lain tetapi tidak terbatas pada jasa pengoperasian, pemeliharaan, pengujian, rekondisi, pencatatan meter, jasa teknik (pemutusan dan penyambungan), cleaning service dan komisioning; 1.1.23. Jadwal Pengadaan adalah rincian waktu proses Pengadaan Barang/Jasa yang dimulai dari pengumuman sampai dengan penandatanganan Kontrak; 1.1.24. Joint Procurement adalah Pelelangan yang diselenggarakan oleh satu Pengguna barang/jasa yang mewakili beberapa pengguna barang/jasa lainnya; 1.1.25. Kantor Pusat adalah induk organisasi PLN yang membawahi Unit Bisnis/Unit Penunjang; 1.1.26. Kualifikasi adalah bagian kegiatan untuk menetapkan tingkat/kedalaman kompetensi dan kemampuan usaha Penyedia Barang/Jasa; 1.1.27. Klarifikasi adalah kegiatan meminta penjelasan oleh Panitia/Pejabat Pengadaan kepada Penyedia Barang/Jasa atas substansi penawaran yang kurang jelas dalam rangka evaluasi penawaran; 1.1.28. Kontrak adalah perikatan dalam bentuk perjanjian tertulis antara Pengguna Barang/Jasa dengan Penyedia Barang/Jasa; 1.1.29. Leader Consorsium/Pemimpin Konsorsium/Penanggung Utama Jasa Asuransi adalah peserta seleksi umum yang ditunjuk oleh PLN melalui mekanisme pengadaan yang akan mewakili dan bersama-sama PLN melaksanakan seleksi International Reinsurance Broker, serta


L12

menjadi pemimpin diantara Member Consorsium dalam penempatan risiko yang akan diasuransikan melalui mekanisme yang telah ditentukan; 1.1.30. Masa Pelaksanaan Kontrak adalah masa sejak ditandatanganinya kontrak sampai dengan berakhirnya jangka waktu yang ditentukan dalam kontrak; 1.1.31. Member Consorsium/Anggota Konsorsium/Penanggung Peserta Jasa Asuransi adalah peserta seleksi umum yang telah dinyatakan lulus sebagai anggota konsorsium dan diikutsertakan dalam penutupan asuransi di PLN; 1.1.32. Negosiasi adalah kegiatan untuk pembahasan aspek teknis, harga dan waktu pelaksanaan antara Panitia/Pejabat Pengadaan dengan Penyedia Jasa; 1.1.33. PLN adalah PT PLN (Persero); 1.1.34. Pengadaan Barang/Jasa adalah kegiatan: pengadaan barang, pengadaan Jasa Konstruksi termasuk pengadaan barang dan pemasangan (supply & erect), pengadaan jasa konsultansi, pengadaan khusus dan pengadaan jasa lainnya di PLN yang dibiayai dengan APLN atau yang dibiayai dengan sumber dana dari pinjaman/hibah luar negeri dan/atau pinjaman dalam negeri (Non APLN), sepanjang tidak diatur dalam naskah pemberi pinjaman (guide lines); 1.1.35. Proses Pengadaan Barang/Jasa adalah kegiatan Pengadaan Barang/Jasa mencakup sejak tahap proses memilih penyedia jasa dan sampai dengan tahap penyelesaian pelaksanaan pekerjaan; 1.1.36. Pengguna Barang/Jasa adalah Direksi atau Pejabat satu tingkat di bawah Direksi atau GM/KEPALA atau Pejabat yang diberi kuasa yang bertanggung jawab atas pelaksanaan Pengadaan Barang/Jasa dalam lingkungan kerja PLN; 1.1.37. Panitia Pengadaan adalah beberapa orang pegawai PLN yang diangkat oleh Pengguna Barang/Jasa untuk melaksanakan proses pengadaan; 1.1.38. Pejabat Pengadaan adalah seseorang pegawai PLN yang diangkat oleh Pengguna Barang/Jasa untuk melaksanakan pembelian langsung atau penunjukan langsung ; 1.1.39. Penyedia Barang/Jasa adalah badan usaha yang berbentuk Perseroan Terbatas (PT), Badan Usaha Milik Negara (BUMN), Badan Hukum Milik Negara (BHMN), Badan Usaha Milik Daerah (BUMD), konsorsium, joint operation (JO), Koperasi, Firma, Commanditaire Vennotschap (CV), persekutuan perdata (Maatschap), badan usaha luar negeri dan/atau perorangan yang kegiatan usahanya menyediakan Barang/Jasa; 1.1.40. Pengadaan Khusus meliputi segala pekerjaan dan/atau penyediaan jasa selain Jasa Konstruksi, Jasa Konsultansi dan Jasa Lainnya, antara lain pengadaan energi primer, pembelian tenaga listrik, sewa-menyewa/sewa beli, sewa guna usaha (leasing), outsourcing dan pengadaan asuransi; 1.1.41. Pakta Integritas adalah surat pernyataan yang ditandatangani oleh Pengguna Barang/Jasa, Panitia/Pejabat Pengadaan dan Penyedia Barang/Jasa yang berisi ikrar untuk mencegah dan tidak melakukan persekongkolan baik vertikal, horizontal maupun penyelewengan hukum lainnya dalam pelaksanaan Pengadaan Barang/Jasa; 1.1.42. Prakualifikasi adalah proses penilaian kompetensi dan kemampuan usaha serta pemenuhan persyaratan tertentu lainnya dari Penyedia Barang/Jasa sebelum memasukkan penawaran; 1.1.43. Pascakualifikasi adalah proses penilaian kompetensi dan kemampuan usaha serta pemenuhan persyaratan tertentu lainnya dari Penyedia Barang/Jasa setelah memasukkan penawaran;


L13

1.1.44. Penilaian Kualifikasi adalah kegiatan yang dilakukan Panitia/Pejabat Pengadaan untuk menilai kompetensi dan kemampuan usaha Penyedia Barang/Jasa pada saat mengikuti Pengadaan Barang/Jasa; 1.1.45. Pekerjaan Keadaan Darurat (emergency) adalah pekerjaan yang kebutuhannya sangat mendesak dan tidak dapat ditunda-tunda lagi berhubung terjadinya gangguan pada pembangkitan dan/atau transmisi dan/atau distribusi, untuk menghindarkan terjadinya peristiwa yang dapat mengancam jiwa manusia dan/atau kerugian PLN yang lebih besar dan/atau dapat merusak citra perusahaan. Keadaan/kondisi seperti ini harus dinyatakan secara tertulis oleh Direksi atau General Manager,atau Manajer Unit; 1.1.46. Pekerjaan Kompleks adalah pekerjaan yang menurut Pengguna Barang/Jasa diperlukan teknologi tinggi dan/atau dinilai mempunyai resiko tinggi dan/atau dinilai memerlukan peralatan dengan spesifikasi khusus; 1.1.47. Pekerjaan Tidak Kompleks adalah pekerjaan yang menurut penilaian Pengguna Barang/Jasa dianggap tidak memerlukan teknologi tinggi dan/atau mempunyai risiko rendah dan/atau dinilai tidak memerlukan peralatan dengan spesifikasi khusus; 1.1.48. Perusahaan Asuransi Kerugian adalah suatu Badan Usaha yang bergerak dalam bidang Asuransi Kerugian Umum (bukan Asuransi Jiwa) antara lain asuransi property, asuransi kerusakan mesin, asuransi gangguan usaha, asuransi mobil, asuransi kebakaran, asuransi pengangkutan yang ijin usahanya adalah dalam bidang asuransi kerugian yang dikeluarkan oleh Departemen Keuangan; 1.1.49. RUPS adalah Rapat Umum Pemegang Saham PT PLN (Persero) yang merupakan organ perseroan dan mempunyai wewenang yang tidak dimiliki Direksi dan DEKOM; 1.1.50. Reinsurance Company adalah Perusahaan Asuransi Dunia yang akan menerima risiko PLN dan dipilih berdasarkan Rating dari Lembaga Rating Dunia yang diyakini dapat menjamin keamanan risiko PLN apabila terjadi kerugian pada pertanggungan berjalan. 1.1.51. Sertifikasi Keahlian Pengadaan Barang/Jasa adalah tanda bukti pengakuan atas kompetensi dan kemampuan profesi di bidang Pengadaan Barang/Jasa yang diperoleh melalui ujian sertifikasi keahlian Pengadaan Barang/Jasa; 1.1.52. Tenaga Ahli adalah orang yang dianggap ahli untuk melaksanakan pekerjaan Jasa Konsultansi baik selaku Konsultan Perorangan maupun konsultan yang bekerja pada suatu badan atau organisasi; 1.1.53. Tahun Anggaran adalah kurun waktu 1 (satu) takwin terhitung sejak tanggal 1 (satu) Januari sampai dengan tanggal 31 (tiga puluh satu) Desember; 1.1.54. Unit Bisnis/Unit Penunjang adalah unit organisasi satu tingkat dibawah Kantor Pusat yang melaksanakan kegiatan usaha tertentu sesuai dengan tujuan dan lapangan usaha Perseroan; 1.2.

Maksud dan Tujuan 1.2.1.

Maksud diberlakukannya Pedoman Pengadaan Barang/Jasa ini adalah untuk mengatur pelaksanaan Pengadaan Barang/Jasa yang dibiayai dari APLN.

1.2.2.

Pedoman Pengadaan Barang/Jasa ini bertujuan agar pelaksanaan Pengadaan Barang/Jasa dilakukan secara efisien, efektif, terbuka dan bersaing, transparan, adil/tidak diskriminatif dan


L14

akuntabel, sehingga dapat diperoleh hasil Pengadaan yang tepat mutu, tepat waktu, dan tepat biaya. 1.2.3.

Meningkatkan sinergi antar BUMN dan atau/ Anak Perusahaan dengan tetap mengedepankan penciptaan nilai tambah bagi PLN.

1.3.

Ruang Lingkup Pedoman Pengadaan Barang/Jasa ini berlaku untuk keperluan PLN dalam hal: 1.3.1.

Pengadaan Barang/Jasa dengan sumber dana dari APLN;

1.3.2.

Pengadaan Barang/Jasa dengan sumber dana dari pinjaman/hibah luar negeri dan/atau pinjaman dalam negeri (Non APLN), sepanjang tidak diatur dalam naskah pemberi pinjaman (guide lines) dan/atau peraturan perundang-undangan yang berlaku.

1.4.

Prinsip Dasar Pengadaan Barang/Jasa di lingkungan PLN wajib menerapkan prinsip-prinsip: 1.4.1.

Efisiensi berarti Pengadaan Barang/Jasa harus diusahakan dengan menggunakan dana dan daya yang terbatas untuk mencapai sasaran yang ditetapkan dalam waktu sesingkat-singkatnya dan hasil yang dicapai dapat dipertanggung-jawabkan;

1.4.2.

Efektif berarti Pengadaan Barang/Jasa harus sesuai dengan kebutuhan yang telah ditetapkan dan dapat memberikan manfaat yang sebesar-besarnya sesuai dengan sasaran yang ditetapkan;

1.4.3.

Terbuka dan bersaing berarti Pengadaan Barang/Jasa harus terbuka bagi Penyedia Barang/Jasa yang memenuhi persyaratan dan dilakukan melalui persaingan yang sehat di antara Penyedia Barang/Jasa yang setara dan memenuhi syarat/kriteria tertentu berdasarkan ketentuan dan prosedur yang jelas dan transparan sesuai dengan prinsip-prinsip Good Corporate Governance;

1.4.4.

Transparan berarti semua ketentuan dan informasi mengenai Pengadaan Barang/Jasa, termasuk syarat administrasi dan teknis Pengadaan, tata cara evaluasi, hasil evaluasi, penetapan calon Penyedia Barang/Jasa, sifatnya terbuka bagi calon Penyedia Barang/Jasa Penyedia Barang/Jasa yang berminat serta bagi masyarakat luas pada umumnya;

1.4.5.

Adil/tidak diskriminatif berarti memberikan perlakuan yang sama bagi semua calon Penyedia Barang/Jasa dan tidak mengarah untuk memberikan perbedaan perlakuan kepada pihak tertentu;

1.4.6.

Akuntabel berarti harus mencapai sasaran baik fisik, keuangan maupun azas manfaat sesuai dengan prinsip-prinsip serta ketentuan yang berlaku dalam Pengadaan Barang/Jasa.

1.5.

Kebijakan Umum Pengadaan Barang/Jasa 1.5.1.

Meningkatkan transparansi, persaingan usaha yang sehat dan kompetitif dengan melakukan pengadaan secara terbuka.

1.5.2.

Dalam hal sarana e-Procurement PLN telah tersedia, Pelaksanaan Pengadaan Barang/Jasa dilaksanakan melalui e-Procurement PLN. Pengadaan Barang/Jasa yang diproses tidak melalui e-Procurement PLN, hasil proses pengadaan yang telah dilakukan harus dilaporkan ke dalam eProcurement PLN.

1.5.3.

Menyederhanakan ketentuan tata cara pengadaan untuk meningkatkan profesionalisme, kemandirian dan tanggung jawab Pengguna dan Panitia/Pejabat Pengadaan Barang/Jasa.

1.5.4.

Mendelegasikan kewenangan kepada Unit-Unit Bisnis/Unit Penunjang dalam melaksanakan Pengadaan Barang/Jasa sesuai dengan prosedur dan tata cara yang ditetapkan.


L15

1.6.

Pengguna Barang/Jasa 1.6.1.

Pengguna Barang/Jasa di Kantor Pusat. 1.6.1.1.

Pengguna Barang/Jasa untuk Pengadaan Barang/Jasa di Kantor Pusat adalah Direksi, atau Pejabat satu tingkat dibawah Direksi sesuai kewenangan atau Pejabat yang diberi kuasa.

1.6.1.2.

Pengguna Barang/Jasa memiliki kewenangan untuk melakukan Pengadaan Barang/Jasa yang alokasi anggarannya telah tercantum di dalam Rencana Kerja Anggaran Perusahaan (RKAP), kecuali Direksi menganggap perlu untuk menentukan lain karena alasan mendesak atau keadaan darurat.

1.6.2.

Pengguna Barang/Jasa di Unit Bisnis/Unit Penunjang. 1.6.2.1.

General Manager / Kepala sebagai Pengguna Barang/Jasa di Unit Bisnis/Unit Penunjang

1.6.2.2.

General Manager/ Kepala dapat melimpahkan kewenangannya kepada Pejabat dibawahnya sebagai Pengguna Barang/Jasa untuk melakukan Pengadaan Barang/Jasa.

1.6.2.3.

Pengguna

Barang/Jasa

memiliki

kewenangan

untuk

melakukan

Pengadaan

Barang/Jasa yang alokasi anggarannya telah tercantum didalam Rencana Kerja Anggaran Perusahaan (RKAP), kecuali Direksi menganggap perlu untuk menentukan lain karena alasan mendesak atau keadaan darurat. 1.6.3.

Tugas Pokok Pengguna Barang/Jasa Pengguna Barang/Jasa bertugas dan wajib untuk : 1.6.3.1.

Menetapkan paket-paket Pengadaan Barang/Jasa;

1.6.3.2.

Menetapkan Metode Pengadaan Barang/Jasa yang akan dilaksanakan;

1.6.3.3.

Mengangkat Panitia Pengadaan Barang/Jasa atau Pejabat Pengadaan yang dituangkan dalam surat keputusan;

1.6.3.4.

Menyetujui Perencanaan dan Jadual Pengadaan Barang/Jasa berdasarkan kegiatan yang tercantum dalam Rencana Kerja dan Anggaran Perusahaan (RKAP);

1.6.3.5.

Menetapkan spesifikasi teknis untuk pengadaan barang atau Jasa Konstruksi atau Jasa Lainnya, menetapkan Kerangka Acuan Kerja (KAK) untuk pengadaan Jasa Konsultansi;

1.6.3.6.

Menetapkan dan/atau mengesahkan: a. Jenis pekerjaan (kompleks atau tidak kompleks); b. c.

Dokumen Kualifikasi; Dokumen Pengadaan (Rencana Kerja dan Syarat-syarat) ;

d. e.

Harga Perkiraan Sendiri (HPS); Pemenang Penyedia Barang/Jasa ;

f.

Penunjukan Penyedia Barang/Jasa;

1.6.3.7.

Menyediakan biaya-biaya yang diperlukan untuk kegiatan Pengadaan Barang/Jasa, antara lain pengumuman di surat kabar dan penggandaan Dokumen;

1.6.3.8.

Menyiapkan, menandatangani dan melaksanakan perjanjian/kontrak beserta seluruh perubahannya dengan Penyedia Barang/Jasa;


L16

1.6.3.9.

Jika dianggap perlu dapat mengangkat Direksi pekerjaan dan Pengawas pekerjaan;

1.6.3.10. Mempertanggungjawabkan segi administrasi, fisik, keuangan, dan fungsional atas Pengadaan yang dilaksanakan.

1.7.

Etika Pengadaan Pengguna Barang/Jasa, Penyedia Barang/Jasa dan para pihak yang terkait dalam pelaksanaan Pengadaan Barang/Jasa harus mematuhi etika sebagai berikut : 1.7.1.

Melaksanakan tugas secara tertib, disertai rasa tanggung-jawab untuk mencapai sasaran kelancaran dan ketepatan tercapainya tujuan Pengadaan Barang/Jasa;

1.7.2.

Bekerja secara profesional dan mandiri atas dasar kejujuran, serta menjaga kerahasiaan Dokumen Pengadaan Barang/Jasa yang seharusnya dirahasiakan untuk mencegah terjadinya penyimpangan dalam proses Pengadaan Barang/Jasa;

1.7.3.

Tidak saling mempengaruhi baik langsung maupun tidak langsung untuk mencegah dan menghindari terjadinya persaingan tidak sehat;

1.7.4.

Menerima dan bertanggungjawab atas segala keputusan yang ditetapkan sesuai dengan kesepakatan para pihak;

1.7.5.

Menghindari dan mencegah terjadinya pertentangan kepentingan (conflict of interest) para pihak yang terkait dalam proses Pengadaan Barang/Jasa, baik langsung maupun tidak langsung, yang merugikan kepentingan Pengguna Barang/Jasa;

1.7.6.

Menghindari dan mencegah terjadinya pemborosan dan kebocoran keuangan Perusahaan dalam Pengadaan Barang/Jasa;

1.7.7.

Menghindari dan mencegah penyalahgunaan wewenang dan/atau kolusi dengan tujuan untuk keuntungan pribadi, golongan atau pihak lain yang secara langsung atau tidak langsung merugikan Perusahaan;

1.7.8.

Tidak menerima, tidak menawarkan atau tidak menjanjikan untuk memberi atau menerima hadiah, imbalan berupa apa saja kepada siapapun yang diketahui atau patut dapat diduga berkaitan dengan Pengadaan Barang/Jasa.


L17

BAB II KETENTUAN PENGADAAN BARANG/JASA

2.1.

Persiapan Pengadaan Barang/Jasa 2.1.1.

Rencana Pengadaan Pengguna Barang/Jasa menetapkan rencana Pengadaan Barang/Jasa berdasarkan kegiatan pekerjaan yang tercantum dalam Rencana Kerja dan Anggaran Perusahaan (RKAP) dengan menyesuaikan waktu pelaksanaan kegiatan dengan nilai disbursement dari masing-masing kegiatan pekerjaan. Dalam hal untuk tujuan efisiensi , Pengguna dapat menetapkan rencana Pengadaan Barang/Jasa yang jangka waktu pelaksanaannya lebih dari satu (1) tahun anggaran dengan kontrak multiyears.

2.1.2.

Ijin Prinsip Sebelum Pengadaan dilaksanakan, General Manager/Kepala wajib terlebih dahulu meminta Ijin Prinsip dari Direksi dalam hal melaksanakan Pengadaan Barang/Jasa dibawah ini : 2.1.2.1. Pengadaan Barang/Jasa yang mempunyai kekhususan dan menggunakan teknologi baru

2.1.2.2.

yang belum pernah digunakan PLN; atau Pengadaan Barang/Jasa yang bernilai di atas Rp. 50.000.000.000 (lima puluh milyar rupiah); atau

2.1.2.3.

2.1.3.

Pengadaan Barang/Jasa yang pembayarannya menggunakan valuta asing kecuali ditentukan lain oleh Direksi.

Pembentukan Panitia/Pejabat Pengadaan 2.1.3.1.

Pengguna Barang/Jasa wajib membentuk Panitia Pengadaan untuk melakukan Pengadaan dengan Metode Pelelangan/Seleksi Umum, Pemilihan Langsung/Seleksi Langsung dan Penunjukan Langsung.

2.1.3.2.

Pengguna Barang/Jasa wajib mengangkat Pejabat Pengadaan untuk melakukan Pengadaan barang sampai dengan Rp. 300.000.000,- (tiga ratus juta rupiah) melalui metode Pembelian Langsung.

2.1.3.3.

Pengguna Barang/Jasa dapat mengangkat Pejabat Pengadaan untuk melakukan Pengadaan Jasa konstruksi/ Jasa Konsultansi / Jasa lainnya sampai dengan Rp. 50.000.000,- (lima puluh juta rupiah) melalui metode Penunjukan Langsung.

2.1.3.4.

Panitia Pengadaan berjumlah ganjil/gasal, beranggotakan sekurang-kurangnya 3 (tiga) orang yang memahami tata cara Pengadaan, substansi pekerjaan/kegiatan yang bersangkutan dan hukum perjanjian/kontrak.

2.1.3.5.

Persyaratan Keanggotaan Panitia/Pejabat Pengadaan : a.

Memiliki integritas moral, disiplin dan tanggung jawab dalam melaksanakan tugas;

b.

Memahami keseluruhan pekerjaan yang akan diadakan, memahami isi dokumen pengadaan/metoda dan prosedur pengadaan berdasarkan ketentuan yang berlaku;


L18

2.1.3.6.

2.1.3.7.

c.

Memiliki Sertifikat Keahlian Pengadaan Barang/Jasa;

d.

Tidak boleh merangkap sebagai Pemeriksa Barang dan/atau Penerima Barang.

Larangan Menjadi Panitia/Pejabat Pengadaan: a.

Pengguna Barang/Jasa;

b.

Pejabat dan staf di bidang Pengawasan;

c.

Pejabat yang karena sifat pekerjaannya menimbulkan benturan kepentingan.

Masa Kerja Panitia/Pejabat Pengadaan. Masa kerja Panitia/Pejabat Pengadaan adalah sejak diterima surat penugasan sebagai Panitia/Pejabat pengadaan sampai diterbitkannya surat penunjukan Penyedia Barang/Jasa oleh Pengguna atau sesuai dengan masa penugasannya.

2.1.3.8.

Tugas Pokok Panitia Pengadaan Barang/Jasa. Panitia Barang/Jasa bertugas sebagai berikut: a.

Melakukan analisis yang mendalam terhadap lingkup pengadaan barang/jasa yang akan dilakukan.

b.

Menyusun jadwal pelaksanaan Pengadaan Barang/Jasa;

c.

Menyusun Dokumen Pengadaan untuk diusulkan penetapannya oleh Pengguna Barang/Jasa;

d.

Menyusun Harga Perkiraan Sendiri (HPS) untuk diusulkan penetapannya oleh Pengguna Barang/Jasa;

e.

Menandatangani Pakta Integritas I (ke-satu) sebelum pelaksanaan Pengadaan Barang/Jasa dimulai sesuai dengan Lampiran 1 Keputusan ini;

f.

Mengumumkan

Pengadaan

Barang/Jasa

melalui

media

elektronik

Procurement PLN) dan papan pengumuman dan/atau mengumumkan melalui surat kabar; g.

Memastikan suatu Badan Usaha yang akan diundang tidak termasuk dalam Daftar Hitam (black list) PLN;

h.

Menilai kualifikasi Penyedia Barang/Jasa melalui prakualifikasi atau pascakualifikasi ;

i.

Memberikan penjelasan pengadaan (Aanwijzing);

j.

Melakukan evaluasi terhadap Dokumen Penawaran;

k.

Melakukan klarifikasi kepada Penyedia Barang/Jasa, jika ada data atau hal-hal yang kurang jelas atau meragukan;

l.

Melakukan negosiasi untuk Pengadaan Barang/Jasa dengan metoda Pemilihan Langsung atau Penunjukan Langsung;

m.

Mengusulkan calon pemenang (Penyedia Barang/Jasa) kepada Pengguna Barang/Jasa dengan melampirkan Pakta Integritas II (ke-dua) setelah proses pengadaan sesuai dengan Lampiran 4 Keputusan ini;

n.

Mengumumkan pemenang;


(e-

L19

o.

Mendokumentasikan proses Pengadaan Barang/Jasa dengan tertib dan menyerahkan dokumen tersebut kepada Pengguna Barang/Jasa;

2.1.3.9.

Tugas Pokok Pejabat Pengadaan. Pejabat Pengadaan bertugas dan wajib untuk : a.

Melakukan analisis yang mendalam terhadap lingkup pengadaan barang/jasa yang akan dilaksanakan;

b.

Menyusun Harga Perkiraan Sendiri (HPS) untuk diusulkan penetapannya oleh Pengguna Barang/Jasa;

c.

Memastikan suatu Badan Usaha yang akan diundang tidak termasuk dalam Daftar Hitam (black list) PLN;

d.

Memberikan penjelasan kepada Penyedia Barang/Jasa jika diperlukan;

e.

Melakukan negosiasi kepada Penyedia Barang/Jasa;

f.

Mendokumentasikan proses Pembelian Barang atau Penunjukan Langsung Jasa konstruksi dengan tertib dan menyerahkan dokumen tersebut kepada Pengguna Barang/Jasa;

2.1.4.

Jangka Waktu Pengadaan Barang/Jasa. 2.1.4.1.

Pengumuman Pengadaan minimal selama 3 (tiga) hari kerja di papan pengumuman dan e-Procurement PLN, sedangkan pengumuman pengadaan yang dilaksanakan melalui surat kabar minimal dilakukan 1 (satu) kali;

2.1.4.2.

Pemasukan Dokumen Kualifikasi selambat-lambatnya 7 (tujuh) hari kerja setelah tanggal pengambilan dokumen berakhir.

2.1.4.3.

Evaluasi kualifikasi sampai Usulan Hasil Prakualifikasi selambat-lambatnya 7 (tujuh) hari kerja atau disesuaikan dengan kompleksitas pekerjaan;

2.1.4.4.

Pengumuman Pengambilan Dokumen Pengadaan sampai Pemasukan Dokumen Pengadaan sekurang-kurangnya 7 (tujuh) hari kerja.

2.1.4.5.

Pemasukan Dokumen Penawaran sampai Usulan Calon Pemenang dalam waktu 30 (tiga puluh) hari kerja.

2.1.4.6.

Masa

Sanggah

diberikan

selama

3

(tiga)

hari

kerja

Pengumuman/pemberitahuan pemenang. 2.1.4.7.

Jawaban atas sanggahan selambat-lambatnya 14 (empat belas) hari kerja sejak diterimanya sanggahan.

2.1.4.8.

Penandatanganan kontrak selambat-lambatnya 14 (empat belas) hari kerja sejak diterbitkan Surat Penunjukan Pemenang atau dapat diperpanjang dengan alasan tertentu oleh Pengguna Barang/Jasa.

2.1.4.9.

Pengaturan jangka waktu pengadaan untuk Pemilihan / seleksi Langsung diserahkan sepenuhnya kepada Panitia Pengadaan Barang/Jasa;


setelah

L20

2.1.4.10. Pengaturan jangka waktu pengadaan untuk Penunjukan Langsung diserahkan sepenuhnya kepada Panitia Pengadaan Barang/Jasa atau Pejabat Pengadaan; 2.1.4.11. Dalam hal Pengadaan Khusus yang menurut sifat dan/atau jenis pekerjaan diperlukan pengaturan jadual tersendiri, maka ketentuan pembatasan tenggang waktu pelaksanaan pengadaan terhitung mulai dari hari pengumuman sampai dengan penunjukan Calon Pemenang diserahkan sepenuhnya kepada Pengguna dan Panitia Pengadaan Barang/Jasa.

2.1.5.

Jangka Waktu Pembelian langsung. Pengaturan jangka waktu dalam proses Pembelian langsung diserahkan sepenuhnya kepada Pejabat Pengadaan.

2.1.6.

Pengumuman Pengadaan Barang/Jasa. 2.1.6.1.

Pelelangan/Seleksi Umum diumumkan di papan pengumuman dan e-Procurement PLN dan/atau di surat kabar. Apabila melalui surat kabar minimal dilakukan 1 (satu) kali;

2.1.6.2.

Ketentuan Pengumuman Pengadaan Barang/Jasa adalah sebagai berikut: a.

Pengumuman diumumkan di papan pengumuman dan e-Procurement PLN atau di 1 (satu) surat kabar dengan jangkauan propinsi untuk nilai pekerjaan Pengadaan Barang/Jasa lebih besar Rp. 300.000.000 (tiga ratus juta rupiah) sampai Rp. 5.000.000.000 (lima milyar rupiah) ;

b.

Pengumuman di papan pengumuman dan e-Procurement PLN dan di 1 (satu) surat kabar dengan jangkauan nasional untuk nilai pekerjaan Pengadaan Barang/Jasa lebih besar dari Rp. 5.000.000.000 (lima milyar rupiah).

c.

Pengadaan

Barang/Jasa

yang

pemasukan

penawarannya

e-Procurement PLN (e-Bidding atau e-Auction), dapat diumumkan melalui eProcurement PLN.

2.1.6.3.

Isi Pengumuman memuat antara lain: a.

Nama dan alamat Pengguna Barang/Jasa;

b.

Nama dan lokasi pekerjaan, serta paket pekerjaan Pengadaan Barang/Jasa;

c.

Uraian singkat pekerjaan;

d.

Syarat-syarat calon Penyedia Barang/Jasa;

e.

Tempat, tanggal, hari, dan waktu pengambilan dokumen;

f.

Perkiraan nilai pekerjaan.


melalui

L21

2.2.

Kualifikasi Penyedia Barang/Jasa Kualifikasi Penyedia Barang/Jasa dilakukan dengan cara prakualifikasi atau pascakualifikasi. Secara umum Proses Pengadaan Barang/Jasa dilakukan melalui pascakualifikasi. 2.2.1.

Ketentuan Prakualifikasi. 2.2.1.1.

Prakualifikasi dapat dilaksanakan untuk Pengadaan Jasa konstruksi yang bersifat kompleks, antara lain tetapi tidak terbatas pada Pekerjaan Pembangunan Pembangkit.

2.2.1.2.

Pengadaan Jasa Konsultansi harus dilaksanakan melalui Prakualifikasi.

2.2.1.3.

Dalam proses prakualifikasi, Panitia Pengadaan dilarang menambah persyaratan prakualifikasi di luar dokumen kualifikasi yang telah ditetapkan oleh Pengguna Barang/Jasa.

2.2.1.4.

Dalam proses Prakualifikasi Penyedia Barang/Jasa cukup mengisi formulir isian kualifikasi yang akan dibuktikan kebenarannya sebelum diusulkan sebagai calon pemenang.

2.2.1.5.

Penyedia Barang/Jasa wajib menandatangani surat pernyataan yang dibubuhi materai tentang kebenaran seluruh data yang disampaikan bahwa semua informasi yang disampaikan dalam formulir isian kualifikasi adalah benar, dan apabila ditemukan penipuan/pemalsuan atas informasi yang disampaikan, yang bersangkutan bersedia dikenakan sanksi pembatalan sebagai Calon Penyedia Barang/Jasa dan sanksi administrasi yaitu dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Barang/Jasa di PLN untuk 2 (dua) tahun berikutnya serta sanksi sesuai ketentuan Peraturan Perundang-undangan yang berlaku.

2.2.1.6.

Prakualifikasi secara massal tidak boleh dilakukan untuk Pengadaan Barang/Jasa dalam kurun waktu tertentu.

2.2.2.

Ketentuan Pascakualifikasi 2.2.2.1.

Pascakualifikasi dapat dilaksanakan untuk Pengadaan Barang/Jasa yang kompleks.

2.2.2.2.

Dalam proses pascakualifikasi, Panitia Pengadaan dilarang menambah persyaratan prakualifikasi di luar dokumen kualifikasi yang telah ditetapkan oleh Pengguna Barang/Jasa.

2.2.2.3.

Dalam proses Pascakualifikasi Penyedia Barang/Jasa cukup mengisi formulir isian kualifikasi yang akan dibuktikan kebenarannya setelah ditunjuk sebagai calon pemenang yang diusulkan.

2.2.2.4.

Penyedia Barang/Jasa harus menandatangani surat pernyataan yang dibubuhi materai tentang kebenaran seluruh data yang disampaikan bahwa semua informasi yang disampaikan dalam formulir isian kualifikasi adalah benar, dan apabila ditemukan penipuan/pemalsuan atas informasi yang disampaikan, yang bersangkutan bersedia dikenakan sanksi pembatalan sebagai Calon Penyedia Barang/Jasa dan sanksi administrasi yaitu dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Barang/Jasa di PLN untuk 2 (dua) tahun


tidak

L22

berikutnya serta sanksi sesuai ketentuan Peraturan Perundang-undangan yang berlaku. 2.2.3.

Dokumen Kualifikasi. Panitia Pengadaan menyusun Dokumen Kualifikasi yang disahkan oleh Pengguna Barang/Jasa. Dokumen Kualifikasi berisi: 2.2.3.1.

Penjelasan singkat mengenai lingkup pekerjaan yang akan dilaksanakan (scope of works), perkiraan nilai paket pekerjaan, sumber dana, dan jadual proses Pengadaan.

2.2.3.2.

Formulir isian kualifikasi Penyedia Barang/Jasa konstruksi/Jasa lainnya. Sebagai referensi dicontohkan sebagaimana pada Lampiran 2 dan 3 Keputusan Direksi ini yang terdiri dari:

2.2.3.3.

a.

Surat Pernyataan Minat Untuk Mengikuti Pengadaan;

b.

Formulir Isian Penilaian Kualifikasi.

Formulir pengisian kualifikasi Penyedia Jasa Konsultansi. Sebagai referensi dicontohkan sebagaimana pada Lampiran 2 dan 3 Keputusan Direksi ini yang terdiri dari:

2.2.4.

a.

Surat Pernyataan Minat Untuk Mengikuti Pengadaan;

b.

Formulir Isian Penilaian Kualifikasi.

Persyaratan Kualifikasi. 2.2.4.1 Penyedia Barang/Jasa wajib memenuhi persyaratan kualifikasi sebagai berikut: 1) Memiliki ijin usaha sesuai dengan bidang usahanya 2) Secara hukum mempunyai kapasitas menandatangani kontrak; 3) Tidak dalam pengawasan pengadilan, tidak bangkrut, kegiatan usahanya tidak sedang dihentikan dan/atau Direksi yang bertindak untuk dan atas nama perusahaan tidak sedang dalam menjalani sanksi pidana; 4) Dalam hal Penyedia Barang/Jasa berbentuk persekutuan usaha (partnership), wajib mempunyai perjanjian kerjasama operasi/kemitraan yang memuat representasi persekutuan dan pihak yang mewakili persekutuan; 5) Telah memenuhi kewajiban perpajakan tahun terakhir, dibuktikan dengan melampirkan fotokopi bukti tanda terima penyampaian Surat Pajak Tahunan (SPT) Pajak Penghasilan (PPh) tahun terakhir, dan fotokopi Surat Setoran Pajak (SSP) PPh Pasal 29 atau Pajak Pertambahan Nilai (PPN) sekurang-kurangnya 3 (tiga) bulan terakhir; 2.2.4.2

Selain persyaratan wajib, Penyedia Barang/Jasa dapat memiliki persyaratan kualifikasi antara lain sebagai berikut: 1)

Memiliki tenaga ahli yang berpengalaman untuk pelaksanakan pekerjaan.;

2)

Mempunyai kemampuan menyediakan fasilitas dan peralatan serta personil yang diperlukan untuk pelaksanaan pekerjaan;

3)

Menyampaikan daftar pekerjaan yang sedang dilaksanakan;


L23

4)

Untuk

pekerjaan

khusus/spesifik/teknologi

tinggi

dapat

ditambahkan

persyaratan lain seperti peralatan khusus, tenaga ahli spesialis yang diperlukan atau pengalaman tertentu; 5)

Untuk nilai pekerjaan Pengadaan Barang/Jasa lebih besar dari Rp. 300.000.000 (tiga ratus juta rupiah) harus memiliki surat keterangan dukungan keuangan dari Bank sekurang-kurangnya 10% (sepuluh persen) dari nilai pekerjaan untuk Jasa konstruksi dan 5% (lima persen) dari nilai pekerjaan untuk pengadaan barang/jasa lainnya.

6)

Memiliki kemampuan pada bidang dan sub bidang pekerjaan yang sejenis: a. Untuk Jasa konstruksi memenuhi Kemampuan Dasar (KD) = 2 kali Nilai Pengalaman Tertinggi (NPT) pada sub bidang pekerjaan yang sesuai dalam kurung waktu 7 (tujuh) tahun terakhir. b. Untuk Barang/Jasa Lainnya memenuhi Kemampuan Dasar (KD) = 5 kali Nilai Pengalaman Tertinggi (NPT) pada sub bidang pekerjaan yang sesuai dalam kurung waktu 7 (tujuh) tahun terakhir. c. Untuk Jasa Konsultansi memenuhi Kemampuan Dasar (KD) = 3 kali Nilai Pengalaman Tertinggi (NPT) pada sub bidang pekerjaan yang sesuai dalam kurung waktu 7 (tujuh) tahun terakhir.

7)

Untuk pekerjaan Jasa konstruksi memiliki Sisa Kemampuan Keuangan (SKK) dan Sisa Kemampuan Paket (SKP) yang cukup, dengan ketentuan sebagai berikut : SKK

=

KK – (NK – Prestasi), dimana :

NK

=

Nilai Kontrak dalam pelaksanaan;

Prestasi

=

Nilai Pekerjaan yang sudah dilaksanakan;

KK

=

Kemampuan Keuangan yang dihitung berdasarkan:

KK

=

Fp x Modal Kerja (MK), dimana :

Fp

=

Faktor Perputaran Modal (6 sampai 8);

MK

=

FL x Kekayaan Bersih (KB), dimana :

FL

=

Faktor Likuiditas (0,3 sampai 0,8);

KB

=

(Aktiva lancar + Aktiva tetap + Aktiva lainnya) – (Hutang Jangka Pendek + Hutang Jangka Panjang);

Kriteria Penilaian : SKK

> ( 0,2 sampai 0,8 ) x Nilai Paket Pekerjaan.

SKP

=

KP – Jumlah Paket yang sedang dikerjakan, dimana:

KP

=

Kemampuan Paket (3 sampai 8)

Kriteria Penilaian :

SKP

≥1

Untuk Pekerjaan yang nilainya kecil dari Rp.300 000.000 tidak diperlukan penilaian Sisa Kemampuan Keuangan (SKK) dan Sisa Kemampuan Paket (SKP)


L24

8) Untuk perusahaan asing yang bergerak dibidang Jasa Konstruksi wajib mempunyai izin perwakilan Jasa Konstruksi asing di Indonesia.

2.3.

Dokumen Pengadaan/Rencana Kerja dan Syarat-syarat (RKS) 2.3.1.

Dokumen Pengadaan Barang/Jasa konstruksi/Jasa Lainnya Dokumen Pengadaan Barang/Jasa konstruksi/Jasa Lainnya antara lain terdiri dari: 1) Instruksi kepada calon Penyedia Barang/Jasa terdiri dari : a.

Persyaratan administrasi yang harus dipenuhi;

b.

Hal-hal yang dapat menggugurkan penawaran pada saat evaluasi administrasi;

c.

Kerangka penyusunan penawaran teknis berikut uraian singkat tiap butir dalam kerangka tersebut;

d.

Kerangka dan format penyusunan penawaran biaya berikut hal-hal yang dapat atau tidak dapat dibiayai;

e.

Tata cara penilaian administrasi, penawaran teknis dan penawaran biaya;

f.

Kriteria, batasan nilai dan formula dari penilaian teknis dan/atau penawaran biaya;

g.

Jadwal Pengadaan.

2) Data Pengadaan (bila diperlukan); 3) Surat Penawaran; 4) Jenis Kontrak; 5) Syarat-syarat umum kontrak; 6) Syarat-syarat khusus kontrak; 7) Spesifikasi teknis; 8) Gambar-gambar (bila diperlukan); 9) Daftar kuantitas volume pekerjaan (BoQ); 10) Metode Pelaksanaan; 11) Jaminan Penawaran, Jaminan Pelaksanaan. 2.3.2.

Dokumen Pengadaan Jasa konsultansi Dokumen Pengadaan Jasa konsultansi antara lain terdiri dari :

1) Instruksi kepada Calon Penyedia Barang/Jasa: a.

Persyaratan administrasi yang harus dipenuhi;

b.

Hal-hal yang dapat menggugurkan penawaran pada saat evaluasi administrasi dan Teknis;

c.

Kerangka penyusunan penawaran teknis berikut uraian singkat tiap butir dalam kerangka tersebut;


L25

d.

Kerangka dan format penyusunan penawaran biaya berikut hal-hal yang dapat atau tidak dapat dibiayai;

e.

Tata cara penilaian administrasi, penawaran teknis dan penawaran biaya;

f.

Kriteria, batasan nilai dan formula dari penilaian teknis dan/atau penawaran biaya;

g.

Jadual Pengadaan.

2) Data Pendukung (bila diperlukan); 3) Surat Penawaran; 4) Syarat-syarat umum kontrak; 5) Syarat-syarat khusus kontrak; 6) Kerangka Acuan Kerja (KAK), yang memuat antara lain: a.

Uraian pendahuluan berupa gambaran secara garis besar mengenai pekerjaan yang akan dilaksanakan, antara lain latar belakang, maksud dan tujuan, lokasi, asal sumber pendanaan, nama dan organisasi Pengguna Barang/Jasa;

b.

Data penunjang berupa data yang berkaitan dengan pelaksanaan pekerjaan, antara lain data dasar, standar teknis, studi-studi terdahulu yang pernah dilaksanakan, dan peraturan perundang-undangan yang harus digunakan;

c.

Lingkup pekerjaan yang memberikan gambaran mengenai tujuan yang ingin dicapai, keluaran yang akan dihasilkan, peralatan dan material yang disediakan oleh Pengguna Barang/Jasa serta peralatan dan material yang harus disediakan oleh Penyedia Barang/Jasa, lingkup kewenangan yang dilimpahkan kepada Penyedia Barang/Jasa, perkiraan jangka waktu penyelesaian pekerjaan, kualifikasi dan jumlah tenaga ahli yang harus disediakan oleh Penyedia Barang/Jasa, perkiraan keseluruhan tenaga ahli/tenaga pendukung yang diperlukan dan jadual setiap tahapan pelaksanaan pekerjaan;

d.

Jenis dan jumlah laporan yang disyaratkan (antara lain laporan pendahuluan, laporan bulanan dan laporan akhir).

7) Gambar-gambar (bila diperlukan).

2.4.

Dokumen Penawaran 2.4.1.

Dokumen Penawaran untuk Pengadaan Barang/Jasa konstruksi/Jasa lainnya sekurang-kurangnya terdiri dari : 1) Surat Penawaran harus bermaterai cukup, bertanggal, ditandatangani oleh yang berhak dan dicap. 2) Lampiran Surat Penawaran antara lain : a.

Jaminan Penawaran asli;

b.

Daftar Kuantitas dan Harga;

c.

Surat Kuasa (bila diperlukan);

d.

Metode Pelaksanaan (bila dipersyaratkan);


L26

2.4.2.

e.

Jadual waktu pelaksanaan;

f.

Daftar peralatan (bila dipersyaratkan);

g.

Daftar personil (bila dipersyaratkan);

h.

Analisis harga satuan (bila dipersyaratkan)

i.

Lampiran lain yang ditentukan dalam Dokumen Pengadaan.

j.

Addendum/amandemen/ perubahan Dokumen Pengadaan (bila ada).

Dokumen Penawaran untuk Pengadaan Jasa Konsultansi sekurang-kurangnya terdiri dari : 1) Surat Penawaran harus bermaterai cukup, bertanggal, ditandatangani oleh yang berhak dan dicap. 2) Lampiran Surat Penawaran antara lain : a.

Surat Kuasa (bila diperlukan);

b.

Metode Pelaksanaan;

c.

Jadual waktu pelaksanaan;

d.

Daftar personil dan pengalamannya;

e.

Daftar Biaya Langsung Personil (Remunerasi) dan Biaya langsung non personil (Direct Cost);

2.5.

f.

Analisis harga satuan (bila dipersyaratkan);

g.

Lampiran lain yang ditentukan dalam Dokumen Pengadaan;

h.

Addendum/perubahan dokumen Pengadaan (bila ada).

Jaminan Pengadaan 2.5.1.

Jaminan Pengadaan Barang/Jasa terdiri dari : 1) Jaminan Penawaran;

2) Jaminan Pelaksanaan; 3) Jaminan Uang Muka; 4) Jaminan Pemeliharaan 5) Jaminan Sanggah.

2.5.2.

Penetapan bentuk, besaran nilai dan masa berlaku dari masing-masing Jaminan ditetapkan dalam Dokumen Pengadaan, dengan ketentuan sebagai berikut: 1)

Jaminan Penawaran. a.

Nilai Jaminan Penawaran ditetapkan nominal minimum sebesar 1% (satu persen) dari Nilai HPS yang ditetapkan oleh Panitia Pengadaan, kecuali untuk Pengadaan pembelian tenaga listrik dari Independent Power Producer (IPP) adalah sebesar 1% (satu persen) dari perkiraan nilai transaksi penjualan kWh selama 1 (satu) tahun.


L27

b.

Dalam hal harga satuan yang menjadi HPS, maka besar nilai nominal Jaminan Penawaran minimum 1% (satu persen) dari hasil perkalian antara harga satuan dengan perkiraan volume yang dibutuhkan untuk jangka waktu maksimum 1 (satu) tahun. Masa berlaku Jaminan Penawaran tidak kurang dari masa berlaku penawaran dengan batas akhir waktu pengajuan tuntutan pencairan sekurang-kurangnya 28 (dua puluh delapan) hari kalender setelah masa berlaku penawaran.

c.

Jaminan Penawaran diserahkan Calon Penyedia Barang/Jasa pada saat penyampaian Dokumen Penawaran.

d.

Jaminan Penawaran akan dikembalikan kepada Calon Penyedia Barang/Jasa setelah dikeluarkan Surat Penunjukan Pemenang, kecuali : (1) Untuk Pemenang Pengadaan ditukar dengan Surat Jaminan Pelaksanaan pada saat akan menandatangani kontrak; (2) Untuk Calon Pemenang urutan kedua dan ketiga akan dikembalikan setelah kontrak ditandatangani oleh Penyedia Barang/Jasa yang ditunjuk.

e.

Jaminan Penawaran tidak dipersyaratkan untuk : (1) Pengadaan Jasa Konsultansi; atau (2) Pengadaan Jasa Asuransi; atau (3) Pengadaan dengan metoda Penunjukan Langsung; atau (4) Nilai Pekerjaan sampai dengan Rp. 300.000.000 (tiga ratus juta rupiah).

2)

Jaminan Pelaksanaan a.

Jaminan Pelaksanaan minimal 5% (lima persen) dari Nilai Kontrak, kecuali untuk Pembelian Tenaga Listrik dari IPP adalah: (1) Minimal 2% (dua persen) dari nilai transaksi penjualan kWh selama 1 (satu) tahun sejak penandatanganan Power Purchase Agreement (PPA) sampai financial closing; dan (2) Minimal 5% (lima persen) dari nilai transaksi penjualan kWh selama 1 (satu) tahun sejak financial closing sampai Commercial Operation Date (COD).

b.

Masa

berlakunya

Jaminan

Pelaksanaan

sekurang-kurangnya

sejak

penandatanganan kontrak sampai dengan 14 (empat belas) hari kalender setelah masa pelaksanaan kontrak berakhir (Serah Terima Pekerjaan atau Taking Over Certificate atau masa Financial Closing atau Commercial Operation Date). c.

Jaminan Pelaksanaan diserahkan sebelum Kontrak ditandatangani dan dapat dikembalikan setelah Berita Acara Serah Terima Pekerjaan atau Taking Over Certificate atau Financial Closing atau Commercial Operation Date ditandatangani.

d.

Jaminan Pelaksanaan tidak dipersyaratkan untuk : (1)

Jasa Konsultansi; atau

(2) (3)

Pengadaan Jasa Asuransi; atau Pembelian excess power; atau

(4) (5)

Pekerjaan cleaning services; atau Pekerjaan Satuan Pengamanan (Satpam); atau


tanggal

L28

3)

(6)

Penunjukan Langsung kepada Anak Perusahaan;atau

(7)

Nilai Kontrak Pekerjaan sampai dengan Rp. 300.000.000 (tiga ratus juta rupiah).

Jaminan Uang Muka. a.

Jaminan Uang Muka (jika ada) harus sama dengan nilai uang muka yang diberikan kepada Penyedia Barang/Jasa;

b.

Masa berlaku jaminan sampai dengan masa waktu pelunasan uang muka tersebut.

c.

Jaminan uang muka diberikan apabila sangat dibutuhkan demi kelancaran pekerjaan dan keuangan Perusahaan memungkinkan.

4)

Jaminan Pemeliharaan a.

Jaminan Pemeliharaan sebesar 5% (lima persen) dari Nilai Kontrak.

b.

Masa berlaku Jaminan Pemeliharaan sekurang-kurangnya sejak Berita Acara Serah Terima Pekerjaan atau Taking Over Certificate atau Commercial Operation Date sampai dengan 14 (empat belas) hari kalender setelah masa pemeliharaan berakhir, untuk pekerjaan yang memerlukan masa pemeliharaan.

c.

Jaminan Pemeliharaan diserahkan ke Pengguna Barang/Jasa untuk menjamin kualitas dari Jasa konstruksi yang diserahkan dan dalam hal penyerahan Jasa konstruksi dibayarkan 100%.

5)

Jaminan Sanggah Jaminan sanggah dapat diberlakukan apabila dianggap perlu dengan pertimbangan sebagai berikut : a.

Nilai jaminan sanggah sebesar nilai jaminan penawaran (bid bond) atau pencairan jaminan penawaran (bid bond).

b.

Uang jaminan sanggah tersebut dikembalikan kepada penyanggah apabila sanggahannya terbukti benar secara hukum dan menjadi hak PLN apabila sanggahannya terbukti tidak benar secara hukum.

2.5.3.

Ketentuan Surat Jaminan harus memenuhi hal-hal sebagai berikut : 1)

Diterbitkan oleh Bank Umum (tidak termasuk Bank Perkreditan Rakyat) atau Bank asing yang beroperasi di Indonesia atau Perusahaan Asuransi yang mempunyai program asuransi kerugian (surety bond) yang mendapatkan dukungan perusahaan reasuransi yang memiliki rating A yang diterbitkan oleh lembaga pemeringkat internasional, kecuali yang didukung oleh perusahaan reasuransi dalam negeri/lokal diutamakan memiliki pemeringkat dari lembaga Pemeringkat Efek Indonesia (Pefindo).

2)

Khusus untuk Jaminan Uang Muka harus dalam bentuk Bank Garansi yang diterbitkan oleh Bank Umum (tidak termasuk Bank Perkreditan Rakyat) atau Bank asing yang mempunyai kantor perwakilan di Indonesia;

3)

Masa berlakunya jaminan tidak kurang dari jangka waktu yang ditetapkan dalam Dokumen Pengadaan;

4)

Besarnya nilai jaminan dicantumkan dalam angka dan huruf;


L29

5)

Tercantum nama Pengguna Barang/Jasa yang menerima jaminan;

6)

Dalam hal masa berlaku Jaminan Penawaran diperkirakan berakhir sebelum penandatanganan Kontrak, maka paling lambat 7 (tujuh) hari kerja sebelum berakhirnya masa berlaku Jaminan Penawaran tersebut, Panitia dapat meminta Calon Penyedia Barang/Jasa untuk memperpanjang Jaminan Penawaran. Dalam hal Calon Penyedia Barang/Jasa tidak bersedia memperpanjang Jaminan Penawaran setelah diminta Panitia Pengadaan, maka Calon Penyedia Barang/Jasa dianggap mengundurkan diri dan Jaminan Penawaran dikembalikan

7)

Dalam hal Calon Penyedia Barang/Jasa telah ditunjuk sebagai Penyedia Barang/Jasa dan tidak bersedia memperpanjang Jaminan Penawaran sampai dengan penandatanganan kontrak maka Penyedia Barang/Jasa tersebut dianggap mengundurkan diri dan Jaminan Penawaran dicairkan oleh PLN.

8)

Dalam hal calon Penyedia Barang/Jasa yang telah ditunjuk sebagai Penyedia Barang/jasa menyatakan mengundurkan diri sebelum penandatanganan Kontrak, maka Jaminan Penawaran menjadi milik PLN dan Jaminan Penawaran dicairkan oleh PLN.

9)

Jaminan Pelaksanaan harus diserahkan ke Pengguna Barang/Jasa pada saat sebelum penandatanganan kontrak, dan dalam hal Calon Penyedia Barang/Jasa tidak bersedia menyerahkan Jaminan Pelaksanaan pada saat sebelum penandatanganan kontrak maka Calon Penyedia Barang/Jasa dianggap mengundurkan diri maka Jaminan Penawaran menjadi milik PLN.

2.6.

Harga Perkiraan Sendiri (HPS) 2.6.1.

Fungsi dan Penerapan HPS: 1)

HPS dapat difungsikan sebagai batas kewajaran (passing grade) dalam melakukan proses pengadaan Barang/Jasa apabila perkiraan harga penawaran yang dapat dipertanggungjawabkan berada pada kisaran nilai HPS. Total nilai HPS sebagai batas kewajaran (passing grade) bersifat rahasia, ;

2)

HPS dapat difungsikan sebagai batas atas (ceiling price) dalam melakukan proses pengadaan Barang/Jasa apabila perkiraan harga penawaran yang dapat dipertanggungjawabkan tidak akan melebihi HPS. Penawaran dinyatakan gugur apabila harga penawarannya melebihi HPS. Total nilai HPS sebagai batas atas (ceiling price) bersifat terbuka;

3)

Dalam hal harga penawaran lebih kecil 80% dari HPS maka Penyedia Barang/Jasa wajib menyertakan rincian unsur biaya.

4)

Pada Pengadaan yang menggunakan HPS sebagai batas kewajaran (passing grade), penawaran dinyatakan gugur apabila setelah dievaluasi nilainya melebihi 10% (sepuluh persen) dari HPS;

5)

Nilai total HPS harus diumumkan pada saat penjelasan Dokumen Pengadaan kecuali HPS untuk pengadaan yang dilakukan melalui e-Auction dan Pengadaan yang menggunakan HPS sebagai batas kewajaran (passing grade);


L30

2.6.2.

Penyusunan dan Kegunaan HPS : 1)

HPS wajib disusun oleh Panitia/Pejabat Pengadaan dan disahkan oleh Pengguna Barang/Jasa.

2)

HPS dikalkulasikan secara keahlian berdasarkan data yang dapat dipertanggungjawabkan.

3)

HPS digunakan sebagai alat untuk menetapkan besaran jaminan penawaran;

2.6.3. Data/Referensi Penyusunan HPS : 1)

HPS dibuat dan disusun secara cermat dengan menggunakan data/referensi dasar dan pertimbangan antara lain, namun tidak terbatas pada: a.

Dokumen

Pengadaan

(Spesifikasi

/

Rencana

Kerja

dan

Syarat-syarat

(RKS)/Kerangka Acuan Kerja atau Term Of Reference (KAK atau TOR)/Syarat Penawar /Syarat Kontrak); b.

Harga pasar setempat pada waktu penyusunan HPS;

c.

Harga kontrak untuk barang atau pekerjaan sejenis yang sedang atau telah dilaksanakan;

d.

Analisa harga satuan pekerjaan;

e.

Daftar harga dan tarif dari instansi yang berwenang;

f.

Informasi yang dipublikasikan secara resmi oleh Biro Pusat Statistik (BPS) atau media cetak dan elektronik lainnya atau instansi yang berwenang;

g.

Perkiraan Perhitungan biaya oleh konsultan / Engineer’s Estimate (EE);

h.

Daftar harga/tarif Barang/Jasa yang dikeluarkan oleh asosiasi pabrikan/agen tunggal atau instansi lain yang berwenang, baik pusat maupun daerah;

i.

Untuk barang yang mengandung unsur komponen impor diperhitungkan antara lain fluktuasi nilai tukar mata uang asing dari negara asal terhadap Rupiah dan/atau LME (London Metal Exchange) rate dan/atau Harga Minyak Dunia serta bea masuk yang berlaku.

2)

HPS yang disusun wajib memperhitungkan : a.

Pajak Pertambahan Nilai (PPN) dan bea masuk sesuai dengan peraturan perundangundangan yang berlaku.

b.

Risiko, Overhead Cost dan Keuntungan (ROK) yang wajar bagi Rekanan sesuai dengan tingkat kesulitan pekerjaan yang dilakukan, dan maksimum besarnya 10% (sepuluh persen).

3)

HPS tersebut tidak boleh memasukkan biaya tak terduga (contingency), biaya lain-lain dan Pajak Penghasilan (PPh).

2.6.4.

Tata Cara Penyusunan HPS : 1)

Dalam menyusun HPS untuk Pekerjaan Pengadaan Barang/Jasa konstruksi/Jasa Lainnya, Panitia/Pejabat Pengadaan wajib:


L31

a.

Mempelajari dengan cermat dokumen pengadaan, antara lain syarat-syarat kontrak, spesifikasi teknis dan gambar-gambar;

b.

Meneliti kondisi lapangan dan dibandingkan dengan perkiraan perhitungan biaya;

c.

Meneliti harga satuan dasar upah tenaga kerja, bahan/material dan peralatan;

d.

Memilih alternatif dan menetapkan metode kerja;

e.

Melaksanakan analisa teknis perhitungan komponen tenaga kerja, bahan dan peralatan yang diperlukan untuk melaksanakan suatu jenis pekerjaan dan spesifikasi teknis yang ditentukan;

2)

f.

Menghitung harga satuan dan membandingkan dengan harga pasar, harga-harga kontrak yang sedang / telah dilaksanakan yang sejenis;

g.

Menghitung harga total pekerjaan termasuk PPN sesuai dengan ketentuan yang berlaku;

Dalam menyusun HPS untuk Pekerjaan Jasa Konsultansi, Panitia Pengadaan wajib : a.

Mempelajari dan memahami Kerangka Acuan Kerja (KAK) atau Terms of Reference (TOR) termasuk syarat kontrak;

b.

Mempelajari dan mengumpulkan informasi/data-data mengenai kondisi lapangan;

c.

Mempelajari program dan jadwal pelaksanaan pekerjaan;

d.

Menetapkan jumlah kualifikasi tenaga ahli, tenaga teknis serta tenaga pendukung lainnya termasuk jadwal penugasan masing-masing personil, fasilitas/peralatan yang diperlukan dan lain-lain;

e.

Mempelajari dan mempertimbangkan ketentuan-ketentuan yang dikeluarkan oleh Instansi yang berwenang;

f.

Menghitung Biaya Langsung Personil (remuneration) dan Biaya Langsung Non Personil (direct cost) : (1) Biaya Langsung Personil meliputi pembayaran tenaga ahli, teknisi dan tenaga penunjang. Biaya langsung personil bagi masing-masing tenaga ahli dihitung berdasarkan satuan waktu tertentu (bulan, minggu, hari, jam) dikaitkan dengan rate yang berdasarkan harga pasar dan/atau berdasarkan gaji dasar dan/atau kontrak-kontrak yang lalu/sedang berjalan sesuai dengan tahun pengalaman profesional yang ditetapkan dalam KAK, dan (2) Biaya Langsung Non Personil meliputi segala biaya yang langsung berkaitan menunjang pelaksanaan tugas konsultan, antara lain pengadaan/sewa kantor, sewa kendaraan, sewa rumah, biaya perjalanan dinas, biaya pelaporan, biaya komunikasi dan lain-lain, dengan mengacu kepada rate/tarif harga pasar setempat dan/atau tarif/harga satuan kontrak yang lalu/sedang berjalan;

g.

Menghitung harga total pekerjaan termasuk PPN sesuai dengan ketentuan yang berlaku.

3)

Dalam menyusun HPS untuk Pengadaan Barang/Jasa konstruksi/Jasa lainnya, Panitia Pengadaan wajib :


L32

a.

Mempelajari dengan cermat dokumen pengadaan, antara lain syarat-syarat kontrak, spesifikasi teknis dan gambar-gambar;

b.

Meneliti harga-harga pasar dari barang yang dapat memenuhi spesifikasi teknis sesuai dengan ketentuan di dalam Dokumen Pengadaan;

c.

Meneliti tarif biaya angkutan dan biaya asuransi;

d.

Mempelajari dan mempertimbangkan ketentuan-ketentuan yang dikeluarkan oleh instansi yang berwenang;

b.

Menghitung harga satuan barang dengan mengacu harga pasar, harga kontrak sejenis sebelumnya, biaya angkutan, dan biaya asuransi;

c.

Menghitung seluruh harga barang yang akan diadakan termasuk PPN sesuai dengan ketentuan yang berlaku.

2.7.

Metoda Pengadaan Barang/Jasa konstruksi/Jasa Lainnya 2.7.1.

Pelelangan Pengadaan Barang/Jasa konstruksi/Jasa lainnya Pada prinsipnya Pengadaan Barang/Jasa konstruksi/jasa lainnya dilakukan melalui metoda pelelangan, yang dilakukan secara terbuka dan diumumkan secara luas melalui papan pengumuman dan media elektronik (e-Procurement PLN) serta dapat melalui surat kabar.

2.7.2.

Pemilihan Langsung Pengadaan Barang/Jasa konstruksi/Jasa lainnya Pemilihan langsung dapat dilakukan dalam hal : 1)

Pengadaan Barang/Jasa konstruksi/Jasa lainnya dibutuhkan mendesak untuk operasional PLN sehingga apabila tidak segera dilakukan akan berakibat terganggunya operasional PLN; atau

2)

Calon Penyedia Barang/Jasa konstruksi/Jasa lainnya yang memasukkan penawaran harga dalam Metoda Pelelangan untuk Dua Tahap hanya 2 (dua); atau

3)

Setelah dilakukan Pengadaan Ulang dalam Metoda Pelelangan ternyata hanya 2 (dua) Calon Penyedia Barang/Jasa konstruksi/Jasa lainnya yang : a.

Mendaftar; atau

b.

Lulus Prakualifikasi; atau

c.

Memasukkan Penawaran dalam Metoda Satu sampul dan Metoda Dua sampul; atau

d. 4)

Memasukkan Penawaran administrasi dan Teknis dalam Metoda Dua Tahap.

Proses Pengadaan Barang/Jasa konstruksi / Jasa lainnya dilakukan dengan cara : a.

Dalam hal seperti angka 2.7.2.1 di atas, Panitia Pengadaan mengundang sekurang-kurangnya 2 (dua) Penyedia Barang/Jasa dan membandingkan penawaran dari Penyedia Barang/Jasa yang telah lulus prakualifikasi.

b.

Dalam hal seperti angka 2.7.2.2 dan 2.7.2.3 di atas, Panitia Pengadaan melakukan Klarifikasi dan Negosiasi baik dari segi teknis maupun biaya


L33

sehingga

diperoleh

harga

yang

wajar

dan

secara

teknis

dipertanggungjawabkan. 2.7.3.

Penunjukan Langsung Pengadaan Barang/Jasa konstruksi/Jasa lainnya 1) Penunjukan langsung dapat dilakukan dalam hal: a.

Barang/Jasa konstruksi/Jasa Lainnya yang akan diadakan bersifat spesifik hanya dapat dilaksanakan dengan penggunaan teknologi khusus/pemegang Hak atas Kekayaan Intelektual (HAKI) dan/atau hanya ada satu Penyedia Barang/Jasa (agen tunggal) yang mampu melaksanakan dan/atau mengaplikasikannya; atau

b.

Pengadaan barang spesifik yang tak dapat digantikan oleh produk lain atau tidak kompatibel. Pengadaan barang spesifik harus memenuhi syarat sebagai berikut : Penyedia Barang/Jasa harus merupakan pabrikan (engine maker dan/atau primary manufacture) atau Agen tunggal dengan penawaran dari pabrikan; atau

c.

Pekerjaan Keadaan Darurat (emergency); atau

d.

Pemeliharaan unit pembangkit dalam bentuk jangka panjang/LTSA (Long Term Service Agreement) termasuk pengadaan suku cadang khusus dan spesifik Pabrikan atau Agen Tunggal/Original Equipment Manufacture (OEM) serta Perusahaan yang menjadi Agen Tunggal Pemegang Merek; atau

e.

Dalam metode 2 tahap, Calon Penyedia Barang/Jasa yang lulus evaluasi Tahap I sebanyak ≥ 3 peserta namun yang memasukkan penawaran harga (Tahap II) hanya 1 (satu) dan peserta yang tidak memasukkan penawaran harga maka jaminan penawarannya dicairkan; atau

f.

Setelah dilakukan Pengadaan Ulang dalam Metoda Pelelangan ternyata hanya 1 (satu) Penyedia Barang/Jasa yang :

g.

(1)

Mendaftar; atau

(2)


(3)

Memasukkan Penawaran dalam Metoda Satu sampul atau Dua sampul; atau

(4)

Memasukkan Penawaran administrasi dan Teknis dalam Metoda Dua Tahap; atau

Barang/Jasa konstruksi/Jasa lainnya lanjutan yang secara teknis merupakan satu kesatuan yang sifatnya tidak dapat dipecah-pecah dari pekerjaan yang sudah dilaksanakan sebelumnya; atau

h.

Penunjukan berulang (repeat order) dilakukan dalam hal : (1)

Terhadap Barang yang secara terus menerus dibutuhkan sepanjang harga yang ditawarkan menguntungkan dengan tidak mengorbankan kualitas barang; atau

(2)

Terhadap Jasa Lainnya yang secara terus menerus dibutuhkan perusahaan sepanjang harga yang ditawarkan menguntungkan dengan tidak mengorbankan kualitas jasa.

hanya dapat dilakukan sebanyak 3 kali berturut-turut kepada

Penyedia Barang/Jasa yang telah memenangkan pelelangan sebelumnya. (3)

Penyedia Jasa Lainnya yang telah memenangkan pelelangan dan dikontrak multiyears, dapat dilakukan Penunjukan Berulang (repeat order) maksimal 1 kali jangka waktu multiyears kontrak sebelumnya.


dapat

L34

i.

Penyedia Barang/Jasa adalah Anak Perusahaan yang memiliki kekhususan bidang usaha dengan tujuan sebagai berikut: (1)

Untuk mengamankan pasokan suplay bahan bakar maksimum 20 % dari total kebutuhan;atau

(2)

Untuk menjaga kehandalan sistem operasi pemeliharaan pembangkit ; atau

(3)

Untuk pengamanan penyediaan ketenagalistrikan;atau

(4)

Untuk mengoptimalkan pemanfaatan aset ketenagalistrikan untuk kepentingan telekomunikasi, multimedia dan informasi;atau

(5)

Untuk pengamanan layanan jasa engineering untuk optimalisasi investasi dan operasi sistem ketenagalistrikan dengan batas maksimum 50% dari total kebutuhan dalam 1 (satu) tahun anggaran.

j.

Pengadaan Barang/Jasa konstruksi/Jasa Lainnya dengan nilai Pengadaan : (1)

Di Kantor Pusat sampai dengan Rp. 500.000.000 (lima ratus juta rupiah)

(2)

Di Unit Bisnis sampai dengan Rp. 50.000.000 ( lima puluh juta rupiah )

2) Apabila terdapat kriteria Penunjukan Langsung yang belum diatur pada angka 2.7.3.1 diatas harus melalui persetujuan direksi terlebih dahulu. 3) Proses Penunjukan Langsung dilakukan dengan cara : a.

Dalam hal terjadi sesuai angka 2.7.3.1 huruf a sampai d di atas, dilakukan dengan mengundang Calon Penyedia Barang/Jasa yang ditunjuk untuk memasukkan penawaran.

b.

Pengadaan barang spesifik sesuai angka 2.7.3.1 huruf b diatas dapat dilaksanakan sepanjang dilakukan kepada penyedia barang tunggal yang merupakan pabrikan/kantor cabang/unit usaha/agen tunggal/agen/distributor yang berstatus agen, dengan syarat dibuktikan dengan perjanjian keagenan atau surat penunjukan dari pabrikan atau pihak yang diberi kewenangan oleh pabrikan, dan sesuai ketentuan yang berlaku.

c.

Dalam hal terjadi sesuai angka 2.7.3.1 huruf e dan 2.7.3.1 huruf f angka 1, 2, 4 di atas, dilakukan dengan mengundang Calon Penyedia Barang/Jasa yang ditunjuk untuk memasukkan Penawaran .

d.

Dalam hal terjadi sesuai angka 2.7.3.1 huruf f angka 3 di atas, dilakukan evaluasi Penawaran harga.

e.

Dalam hal terjadi sesuai angka 2.7.3.1 huruf g diatas, Pengguna Barang/Jasa menerbitkan Surat Perintah Kerja atau Kontrak kepada Penyedia Barang/Jasa yang telah mempunyai ikatan kerja sebelumnya.

f.

Dalam hal terjadi sesuai angka 2.7.3.1 huruf h di atas, Pengguna Barang/Jasa menerbitkan Surat Perintah Kerja atau Kontrak kepada Penyedia Barang/Jasa dengan terlebih dahulu melakukan evaluasi penawaran yang diajukan.

g.

Dalam hal terjadi sesuai angka 2.7.3.1 huruf i di atas, dilakukan dengan mengundang Anak Perusahaan yang ditunjuk untuk memasukan Penawaran.


L35

h.

Dalam hal terjadi sesuai angka 2.7.3.1 huruf j di atas, dilakukan dengan mengundang Calon Penyedia Barang/Jasa (yang mampu dan mempunyai reputasi baik) untuk memasukan Penawaran dan dilakukan evaluasi Penawaran.

i.

Dalam evaluasi penawaran dapat dilakukan Klarifikasi dan Negosiasi baik dari segi teknis maupun biaya sehingga diperoleh harga yang wajar dan secara teknis dapat dipertanggungjawabkan.

2.7.4.

Pembelian Langsung 1) Pembelian langsung, yaitu pembelian terhadap barang yang terdapat di pasar yang diyakini bahwa harga tersebut merupakan hasil persaingan di pasar dan dengan nilai maksimal Rp 300.000.000 (tiga ratus juta rupiah); 2) Pembelian langsung untuk barang yang bernilai sampai dengan Rp. 50.000.000 (lima puluh juta rupiah) dapat dilakukan dengan bukti kuitansi tanpa SPK; 3) Proses Pembelian langsung dilakukan oleh Pejabat Pengadaan; 4) Dalam menetapkan Penyedia Barang/Jasa, Pejabat Pengadaan telah mempunyai data pembanding, baik teknis maupun harga.

2.8.

Metoda Pengadaan Jasa Konsultansi 2.8.1.

Seleksi Umum Pengadaan Jasa Konsultansi Pada prinsipnya Pengadaan Jasa Konsultansi dilakukan melalui Seleksi Umum, yang dilakukan secara terbuka dan diumumkan secara luas melalui media elektronik (e-Procurement PLN) dan papan pengumuman dan/atau melalui surat kabar dengan menetapkan daftar pendek Calon Penyedia Jasa Konsultansi hasil kualifikasi antara 3 (tiga) sampai dengan 7 (tujuh) Calon Penyedia Jasa Konsultansi.

2.8.2.

Seleksi Langsung Pengadaan Jasa Konsultansi Seleksi Langsung dapat dilakukan dalam hal : 1)

Pengadaan Jasa Konsultansi yang dibutuhkan mendesak untuk memenuhi kebutuhan perusahaan, sehingga apabila tidak segera dilakukan akan berakibat terganggunya operasional PLN; atau

2)

Setelah dilakukan Pengadaan Ulang dalam Metoda Seleksi Umum ternyata hanya 2 (dua) Calon Penyedia Barang/Jasa yang :

3)

a.

Mendaftar; atau

b.


c.

Memasukkan Penawaran dalam Metoda Dua sampul.

Proses Seleksi Langsung dilakukan dengan cara: a.

Melakukan Prakualifikasi untuk menyusun daftar pendek.

b.

Dalam hal terjadi sesuai angka 2.8.2.1 diatas, Panitia Pengadaan mengundang sekurang-kurangnya 2 (dua) Calon Penyedia Jasa Konsultansi.


L36

c.

Dalam hal terjadi sesuai angka 2.8.2.2 huruf a dan b diatas, dilakukan dengan mengundang Calon Penyedia Jasa Konsultansi yang ditunjuk untuk memasukkan Penawaran.

d.

Dalam hal seperti angka 2.8.2.2 huruf c diatas, Panitia Pengadaan melakukan Klarifikasi dan Negosiasi baik dari segi teknis maupun biaya sehingga diperoleh harga yang wajar dan secara teknis dapat dipertanggungjawabkan.

2.8.3.

Penunjukan Langsung Jasa Konsultansi 1)

Penunjukan langsung dapat dilakukan dalam hal : a.

Jasa yang akan diadakan bersifat spesifik hanya dapat dilaksanakan dengan penggunaan teknologi khusus/pemegang Hak atas Kekayaan Intelektual (HAKI) dan/atau hanya ada 1 (satu) Calon Penyedia Jasa Konsultansi yang mampu mengaplikasikannya; atau

b.

Pekerjaan Keadaan Darurat (emergency); atau

c.

Dalam hal terjadi dugaan tindak pidana yang dilakukan oleh Direksi, Dekom atau Karyawan yang menurut pertimbangan Direksi perlu didampingi oleh Konsultan Hukum selama pemeriksaan yang dilakukan oleh instansi yang berwenang; atau

d.

Pekerjaan penelitian/studi/pemrosesan data yang dilakukan oleh Perguruan Tinggi Negeri, Lembaga Afiliasi Perguruan Tinggi Negeri dan Lembaga Ilmiah Pemerintah; atau

e.

Penasehat ahli Direksi yang melakukan suatu bidang pekerjaan yang bersifat khusus seperti penasehat hukum corporat, accounting, pajak atau bidang khusus lainnya yang ditentukan oleh Direksi; atau

f.

g.

Setelah dilakukan Pengadaan Ulang dalam Metoda Seleksi Umum ternyata hanya 1 (satu) Penyedia Jasa Konsultan yang: (1)

Mendaftar; atau

(2)


(3)

Memasukkan Penawaran; atau

Penunjukan berulang (repeat order) terhadap penyedia jasa konsultansi non konstruksi sepanjang harga yang ditawarkan menguntungkan dengan tidak mengorbankan kualitas jasa; atau

h.

Jasa lanjutan yang secara teknis merupakan satu kesatuan yang sifatnya tidak dapat dipecah-pecah dari pekerjaan yang sudah dilaksanakan sebelumnya; atau

i.

Penyedia Jasa adalah Anak Perusahaan yang memiliki kekhususan bidang usaha dengan tujuan untuk pengamanan layanan jasa engineering untuk optimalisasi investasi dan operasi sistem ketenagalistrikan dengan batas maksimum 50% dari total kebutuhan dalam 1 (satu) tahun anggaran;


L37

j.

k.

Pengadaan Jasa Konsultansi dengan nilai Pengadaan : (1)

Di Kantor Pusat sampai dengan Rp. 500.000.000 (lima ratus juta rupiah)

(2)

Di Unit Bisnis sampai dengan Rp. 50.000.000 (lima puluh juta rupiah).

Pengadaan Jasa Hukum juta rupiah)

dengan nilai sampai dengan Rp. 500.000.000 (lima ratus

2)

Apabila terdapat kondisi yang belum diatur pada angka 2.8.3.1 diatas harus melalui persetujuan direksi terlebih dahulu.

3)

Proses Penunjukan Langsung dilakukan dengan cara: a.

Dalam hal terjadi sesuai angka 2.8.3.1 huruf a sampai e di atas, dilakukan dengan mengundang Calon Penyedia Jasa Konsultansi yang ditunjuk untuk memasukkan penawaran.

b.

Dalam hal terjadi sesuai angka 2.8.3.1 huruf f angka 1, 2 di atas, dilakukan dengan mengundang Calon Penyedia Jasa Konsultansi yang ditunjuk untuk memasukkan Penawaran.

c.

Dalam hal sesuai angka 2.8.3.1 huruf f angka 3 di atas, dilakukan evaluasi Penawaran harga.

d.

Dalam hal terjadi sesuai angka 2.8.3.1 huruf g diatas, Pengguna Barang/Jasa menerbitkan Surat Perintah Kerja atau Kontrak kepada Penyedia Jasa Konsultansi yang telah mempunyai ikatan kerja sebelumnya.

e.

Dalam hal terjadi sesuai angka 2.8.3.1 huruf h di atas, Pengguna Barang/Jasa menerbitkan Surat Perintah Kerja atau Kontrak kepada Penyedia Jasa Konsultansi yang telah mempunyai ikatan kerja sebelumnya di lokasi yang sama dengan terlebih dahulu melakukan evaluasi penawaran.

f.

Dalam hal terjadi sesuai angka 2.8.3.1 huruf i di atas, dilakukan dengan mengundang Anak Perusahaan yang ditunjuk untuk memasukan Penawaran.

g.

Dalam hal terjadi sesuai angka 2.8.3.1 huruf j di atas, dilakukan dengan mengundang Calon Penyedia Jasa Konsultansi (yang mampu dan mempunyai reputasi baik) untuk memasukan Penawaran dan dilakukan evaluasi Penawaran.

h.

Dalam hal terjadi sesuai angka 2.8.3.1 huruf k di atas, dilakukan dengan mengundang Calon Penyedia Jasa Konsultansi (yang mampu dan mempunyai reputasi baik) untuk memasukan Penawaran dan dilakukan evaluasi Penawaran.

i.

Dalam evaluasi penawaran dilakukan Klarifikasi dan Negosiasi baik dari segi teknis maupun biaya sehingga diperoleh harga yang wajar dan secara teknis dapat dipertanggungjawabkan.

2.8.4.

Pengadaan Jasa Konsultansi Perorangan Dilakukan dengan ketentuan sebagai berikut : 1)

Jasa Konsultansi Perorangan dapat digunakan untuk melaksanakan pekerjaan yang memenuhi persyaratan sebagai berikut : a.

Pekerjaan yang tidak memerlukan kerja kelompok (team work);


L38

b.

Pekerjaan yang secara utuh berdiri sendiri;

c.

Pekerjaan hanya dimungkinkan dilakukan oleh seorang bidangnya/pemegang Hak atas Kekayaan Intelektual (HAKI);

d.

Pekerjaan yang berkaitan masukan/nasehat.

dengan

tugas-tugas

yang

khusus

yang

2)

Pihak yang memberikan jasa konsultansi tidak boleh terlibat menjadi pelaksana dari pekerjaan yang menjadi obyek konsultansi.

3)

Yang dapat mengikuti Pengadaan Jasa Konsultansi Perorangan adalah Penyedia Jasa

ahli

memerlukan

Konsultansi perorangan yang memiliki keahlian di bidangnya. Keahlian tersebut dibuktikan dengan tingkat pendidikan dan pengalaman pada bidang pekerjaan yang dipersyaratkan. 4)

Konsultan perorangan yang berasal dari Dosen/Pegawai Negeri Sipil (PNS) wajib mengajukan cuti atau mendapat ijin tertulis dari atasan yang bersangkutan.

5)

Proses Pengadaan Jasa Konsultansi Perorangan diproses melalui Seleksi Langsung atau Penunjukan Langsung.

2.9.

Metoda Penyampaian Dokumen Penawaran 2.9.1.

Satu Sampul Yaitu penyampaian dokumen penawaran yang terdiri dari persyaratan administrasi, teknis, dan penawaran harga yang dimasukan ke dalam 1 (satu) sampul tertutup. Metoda Satu Sampul digunakan dalam hal Pengadaan Barang/Jasa bersifat sederhana dan spesifikasi teknisnya jelas atau Pengadaan Barang/Jasa yang spesifikasi teknisnya atau volumenya dapat dinyatakan secara jelas dalam Dokumen Pengadaan. 1)

Cara penyampaian Penawaran dengan Metoda Satu Sampul adalah sebagai berikut: a.

Calon Penyedia Barang/Jasa mengajukan Penawaran yang dimasukkan ke dalam satu sampul, dengan ketentuan sebagai berikut: (1)

Penawaran sebagaimana diminta dalam Dokumen Pengadaan mencakup Surat Penawaran yang dilengkapi dengan persyaratan administrasi, teknis, dan perhitungan harga yang ditandatangani oleh Penyedia Barang/Jasa;

(2)

Pada sampul hanya dicantumkan alamat Panitia Pengadaan Barang/Jasa (yang mencantumkan jenis pekerjaan, tempat, hari, tanggal, bulan, tahun, jam pemasukan penawaran);

(3)

Harga penawaran dalam Dokumen Penawaran dicantumkan dengan jelas dalam angka dan huruf. Dalam hal terjadi perbedaan antara penulisan harga dalam angka dan huruf, maka nilai penawaran yang diakui adalah nilai dalam penulisan huruf;

(4)

Penawaran bersifat rahasia dan dikirim ke alamat Panitia Pengadaan Barang/Jasa (dilarang dikirim kepada anggota Panitia Pengadaan atau perseorangan).


di

L39

b.

Jika disampaikan secara langsung, maka penawaran harus dimasukkan oleh Calon Penyedia Barang/Jasa yang bersangkutan ke dalam tempat yang telah disediakan oleh Panitia Pengadaan;

c.

Apabila Dokumen Penawaran disampaikan melalui pos atau jasa pengiriman, sampul sebagaimana dimaksud huruf a. angka 2) diatas dimasukkan ke dalam sampul luar yang hanya mencantumkan alamat Panitia Pengadaan Barang/Jasa serta tempat, hari, tanggal, bulan, tahun;

d.

Jika Dokumen Penawaran disampaikan melalui pos atau jasa pengiriman, Panitia Pengadaan mencatat tanggal dan jam penerimaannya.

e.

Dokumen Penawaran yang diterima setelah batas waktu pemasukan penawaran tidak diikutsertakan.

2)

Cara pembukaan Penawaran dengan metode satu sampul adalah sebagai berikut: a)

Panitia Pengadaan meneliti isi kotak / tempat pemasukan Dokumen Penawaran dan menghitung jumlah sampul penawaran yang masuk sedangkan Surat pengunduran diri tidak dihitung sebagai penawaran yang masuk.

b)

Dalam hal Penawaran dari Calon Penyedia Barang/Jasa yang masuk berjumlah 3 (tiga) atau lebih, Panitia Pengadaan melakukan langkah-langkah sebagai berikut: (1)

Membuka sampul penawaran di hadapan para Calon Penyedia Barang/Jasa pada waktu yang telah ditetapkan disaksikan oleh 2 (dua) orang saksi dari wakil Calon Penyedia Barang/Jasa;

(2)

Dalam hal saksi dari wakil Calon Penyedia Barang/Jasa tidak ada, Panitia Pengadaan dapat menunjuk saksi diluar dari Panitia Pengadaan.

(3)

c)

Panitia Pengadaan memeriksa, menunjukkan dan membacakan kelengkapan penawaran di hadapan para Calon Penyedia Barang/Jasa, yang terdiri dari : (a)

Nama Calon Penyedia Barang/Jasa;

(b)

Surat Penawaran yang mencantumkan masa berlaku penawaran;

(c)

Jaminan Penawaran asli;

(d)

Daftar Kuantitas dan Harga;

(e)

Dokumen lain yang dipersyaratkan dalam dokumen pengadaan.

Pada saat pembukaan penawaran Panitia Pengadaan hanya mencatat semua kejadian pada saat acara pembukaan penawaran, tidak dilakukan evaluasi atau pengguguran penawaran kecuali untuk penawaran yang terlambat. Setelah dilakukan pembukaan penawaran, Panitia Pengadaan melakukan hal-hal sebagai berikut : (1)

Membuat Berita Acara Pembukaan Penawaran (BAPP), yang berisikan hal-hal dan data-data pokok yang penting termasuk informasi yang diperoleh pada saat pembukaan penawaran, sebagai berikut: (a) Nama-nama Calon Penyedia Barang/Jasa, nilai penawarannya, termasuk penawaran alternatif (bila ada), ada tidaknya jaminan penawaran;


L40

(b) Alasan bila terjadi penundaan pembukaan penawaran; (c) Keberatan dari Calon Penyedia Barang/Jasa (bila ada); (d) Hal-hal lain yang dianggap perlu oleh Panitia Pengadaan. (2) d)

Menandatangani BAPP bersama 2 (dua) orang saksi yang hadir.

Dalam hal penawaran yang masuk kurang dari 3 (tiga) Calon Penyedia Barang/Jasa dalam proses pelelangan, maka proses pengadaan tidak dapat dilanjutkan dan harus diulang dengan ketentuan: (1)

Dokumen Penawaran yang masuk dikembalikan kepada Calon Penyedia Barang/Jasa yang bersangkutan;

(2)

Panitia

Pengadaan

membuat

Berita

Acara

Pengadaan

Gagal

ditandatangani oleh semua anggota Panitia Pengadaan. e)

Dalam hal setelah dilakukan pengadaan ulang, ternyata tidak ada yang memasukkan Dokumen Penawaran, maka Panitia Pengadaan menyatakan Pengadaan gagal dan melaporkan kegagalan tersebut beserta alasannya kepada Pengguna Barang/Jasa.

2.9.2.

Dua Sampul Yaitu penyampaian Dokumen Penawaran dimana persyaratan administrasi dan teknis dimasukkan dalam sampul tertutup I, sedangkan harga penawaran dimasukkan dalam sampul tertutup II, selanjutnya sampul I dan sampul II dimasukkan ke dalam 1 (satu) sampul (disebut “Sampul Penutup”). Metoda Dua Sampul digunakan dalam hal diperlukan evaluasi teknis yang lebih mendalam untuk menjaga agar evaluasi teknis tidak dipengaruhi oleh besarnya harga penawaran. 1)

Cara penyampaian Penawaran dengan Metoda Dua Sampul adalah sebagai berikut: a.

Calon Penyedia Barang/Jasa mengajukan penawaran yang dimasukkan ke dalam dua sampul, dengan ketentuan sebagai berikut: (1) Sampul pertama berisi kelengkapan data administrasi dan teknis serta Jaminan Penawaran asli yang disyaratkan, dan pada sampulnya ditulis “Data Administrasi dan Teknis“; (2) Sampul kedua berisi data perhitungan harga penawaran dan pada sampulnya ditulis “Harga Penawaran”; (3) Sampul pertama dan kedua sebagaimana dimaksud angka 2.9.2.1 huruf a. angka 1) dan 2.9.2.1 huruf a. angka 2) diatas dimasukkan ke dalam satu Sampul Penutup; (4) Sampul Penutup mencantumkan alamat Pengguna Barang/Jasa yang mengadakan Pengadaan Barang/Jasa, jenis pekerjaan, tempat, hari, tanggal, bulan, tahun, dan jam pemasukan penawaran.

b.

Harga penawaran dalam Dokumen Penawaran dicantumkan dengan jelas dalam angka dan huruf. Dalam hal terjadi perbedaan antara penulisan harga dalam angka dan huruf, maka nilai penawaran yang diakui adalah nilai dalam penulisan huruf;


yang

L41

c.

Penawaran bersifat rahasia dan dilarang dikirim kepada anggota Panitia Pengadaan atau perseorangan, melainkan dimasukkan oleh Calon Penyedia Barang/Jasa yang bersangkutan ke dalam tempat yang telah disediakan oleh Panitia Pengadaan;

d.

Dokumen Penawaran wajib disampaikan pada waktu yang telah ditentukan;

e.

Dalam hal Dokumen Penawaran disampaikan melalui pos atau jasa pengiriman, Sampul Penutup yang berisi sampul pertama dan sampul kedua, dimasukkan dalam satu sampul (disebut “Sampul Luar”). Sampul Luar hanya mencantumkan alamat Panitia Pengadaan Barang/Jasa serta tempat, hari, tanggal, bulan dan tahun.

f.

Dalam hal Dokumen Penawaran diterima melalui pos atau jasa pengiriman, pada Sampul luarnya diberi catatan tanggal dan jam penerimaan oleh Panitia Pengadaan.

g.

Dokumen Penawaran yang diterima setelah batas akhir pemasukan, tidak diikutsertakan dan diberitahukan kepada Calon Penyedia Barang/Jasa untuk diambil kembali.

2)

Cara pembukaan Penawaran dengan Metoda Dua Sampul adalah sebagai berikut: a.

Panitia Pengadaan meneliti isi kotak / tempat pemasukan dokumen penawaran dan menghitung jumlah sampul penawaran yang masuk, kecuali Surat Pengunduran Diri.

b.

Dalam hal Penawaran dari Calon Penyedia Barang/Jasa yang masuk berjumlah 3 (tiga) atau lebih, Panitia Pengadaan melakukan urutan langkah-langkah sebagai berikut: (1) Panitia Pengadaan membuka Sampul I di hadapan Calon Penyedia Barang/Jasa disaksikan 2 (dua) orang saksi dari wakil Calon Penyedia Barang/Jasa. (2) Dalam hal saksi dari wakil Calon Penyedia Barang/Jasa tidak ada, Panitia Pengadaan dapat menunjuk saksi diluar dari Panitia Pengadaan. (3) Sampul I yang berisi data administrasi dan teknis dibuka, dan dijadikan lampiran berita acara pembukaan penawaran Sampul I. (4) Sampul II yang berisi data penawaran harga tidak boleh dibuka. (5) Dalam hal

Calon Penyedia

Barang/Jasa

yang lulus persyaratan

Administrasi dan Teknis kurang dari 3 (tiga) Calon Penyedia Barang/Jasa atau sekurang-kurangnya 1 (satu) Calon Penyedia Barang/Jasa, maka pembukaan Sampul II tetap dilanjutkan. (6) Sampul II dari Calon Penyedia Barang/Jasa yang lulus persyaratan teknis dan administrasi dapat dibuka dihadapan Calon Penyedia Barang/Jasa disaksikan 2 (dua) orang saksi dari wakil Calon Penyedia Barang/Jasa. Dalam hal saksi dari wakil Calon Penyedia Barang/Jasa tidak ada, Panitia Pengadaan dapat menunjuk saksi diluar dari Panitia Pengadaan.


L42

c.

Dalam hal penawaran yang masuk kurang dari 3 (tiga) Calon Penyedia Barang/Jasa dalam proses pelelangan, maka proses Pengadaan tidak dapat dilanjutkan dan harus diulang dengan ketentuan: (1) Penawaran yang masuk dikembalikan kepada Calon Penyedia Barang/Jasa yang bersangkutan; (2) Panitia Pengadaan membuat Berita Acara Pengadaan Gagal yang ditandatangani oleh semua anggota Panitia Pengadaan. (3) Panitia Pengadaan mengumumkan untuk mendapatkan Calon Penyedia Barang/Jasa yang baru dan mengundang seluruh Calon Penyedia Barang/Jasa yang telah memasukkan penawaran administrasi dan teknis sebelumnya untuk memasukkan penawaran kembali.

d.

Dalam hal setelah dilakukan pengadaan ulang, ternyata tidak ada yang memasukkan Dokumen Penawaran, maka Panitia Pengadaan menyatakan Pengadaan gagal dan melaporkan kegagalan tersebut beserta alasannya kepada Pengguna Barang/Jasa.

2.9.3.

Dua Tahap Yaitu penyampaian Dokumen Penawaran yang persyaratan administrasi dan teknis dimasukkan dalam sampul tertutup Tahap I, sedangkan harga penawaran dimasukkan dalam sampul tertutup Tahap II. Penyampaiannya dilakukan dalam dua tahap secara terpisah dan dalam waktu yang berbeda. Metoda Dua Tahap digunakan dalam hal diperlukan penyesuaian kriteria teknis untuk menyetarakan spesifikasi teknis barang/jasa yang ditawarkan diantara Calon Penyedia Barang/Jasa seperti yang dipersyaratkan pada Dokumen Pengadaan sebelum Calon Penyedia Barang/Jasa memasukkan penawaran harga. Cara penyampaian Penawaran dengan Metoda Dua Tahap adalah sebagai berikut: 1)

Tahap Pertama (I) a.

Pemasukan Dokumen Penawaran Administrasi dan Teknis: (1)

Penyedia Barang/Jasa menyampaikan Dokumen Penawaran administrasi dan teknis serta Jaminan Penawaran asli, dengan ketentuan sebagai berikut : (a)

Pada Sampul Penawaran hanya dicantumkan alamat Pengguna Barang/Jasa dan kata-kata “Dokumen Penawaran Pengadaan Barang/Jasa Tahap I”.

(b)

Dalam hal Dokumen Penawaran disampaikan melalui pos atau jasa pengiriman, sampul Penawaran dimasukkan dalam satu sampul (disebut “Sampul luar”). Sampul luar hanya memuat alamat Panitia Pengadaan Barang/Jasa serta tempat, hari, tanggal, bulan dan tahun.

(c)

Dalam hal Dokumen Penawaran diterima melalui pos atau jasa pengiriman, Panitia Pengadaan Barang/Jasa memberi catatan tanggal dan jam penerimaan pada Sampul luarnya.


L43

(2)

Dokumen Penawaran yang diterima setelah batas akhir pemasukan, tidak diikutsertakan dan diberitahukan kepada Calon Penyedia Barang/Jasa untuk diambil kembali.

b.

Pembukaan Dokumen Penawaran Administrasi dan Teknis: (1)

Panitia Pengadaan meneliti isi kotak/tempat pemasukan Dokumen Penawaran administrasi dan teknis dan menghitung jumlah sampul penawaran yang masuk, kecuali Surat pengunduran diri, dengan ketentuan sebagai berikut: a)

Dalam hal Dokumen Penawaran dari Calon Penyedia Barang/Jasa yang masuk 3 (tiga) atau lebih, Panitia Pengadaan melakukan langkah-langkah sebagai berikut: (1) Panitia Pengadaan melakukan pembukaan sampul di hadapan Calon Penyedia Barang/Jasa disaksikan 2 (dua) orang saksi dari wakil Calon Penyedia Barang/Jasa. (2) Dalam hal saksi dari wakil Calon Penyedia Barang/Jasa tidak ada, Panitia Pengadaan dapat menunjuk saksi diluar dari Panitia Pengadaan. Sampul yang berisi data administrasi dan teknis dibuka satu persatu, dibacakan serta dicatat dan dijadikan lampiran Berita Acara Pembukaan Penawaran Tahap I.

b)

Dalam hal Dokumen Penawaran yang masuk kurang dari 3 (tiga) Calon Penyedia Barang/Jasa, proses Pengadaan tidak dapat dilanjutkan dan dinyatakan gagal dengan ketentuan: (1) Dokumen Penawaran yang masuk dikembalikan kepada Calon Penyedia Barang/Jasa yang bersangkutan; (2) Panitia Pengadaan membuat Berita Acara Pengadaan Gagal. (3) Panitia Pengadaan mengumumkan untuk mendapatkan Calon Penyedia Barang/Jasa baru dan mengundang seluruh Calon Penyedia Barang/Jasa yang telah memasukkan penawaran administrasi dan teknis.

c)

Dalam hal setelah dilakukan Pelelangan ulang, ternyata tidak ada yang memasukkan Dokumen Penawaran, maka Panitia Pengadaan menyatakan Pengadaan gagal dan melaporkan kegagalan tersebut beserta alasannya kepada Pengguna Barang/Jasa.

d)

Dalam hal yang lulus Tahap I (administrasi dan teknis) kurang dari 3 (tiga) Calon Penyedia Barang/Jasa, maka proses pengadaan tidak dapat dilanjutkan dan harus diulang dengan ketentuan sebagai berikut: (1) Panitia membuat Berita Acara Pengadaan Gagal yang ditandatangani oleh semua anggota Panitia Pengadaan.


L44

(2) Calon Penyedia Barang/Jasa yang lulus tetap diikutkan untuk memasukkan harga penawaran (tahap II). 2)

Tahap Kedua (II) a.

Pemasukan Dokumen Penawaran Harga 1)

Calon Penyedia Barang/Jasa yang telah lulus evaluasi Tahap I memasukkan surat penawaran harga dengan ketentuan sebagai berikut a) Surat Penawaran harga dimasukan ke dalam sampul tertutup. b) c)

Surat Penawaran harga tersebut dilampiri rincian analisis biaya, dan syarat lainnya. Harga penawaran dicantumkan dengan jelas dalam angka dan huruf. Dalam hal terjadi perbedaan antara penulisan harga dalam angka dan huruf, maka nilai penawaran yang diakui adalah nilai dalam penulisan huruf.

2)

Penawaran bersifat rahasia dan dilarang dikirim kepada anggota Panitia Pengadaan atau perseorangan, melainkan dimasukkan oleh calon Penyedia Barang/Jasa yang bersangkutan ke dalam tempat yang telah disediakan oleh Panitia Pengadaan.

3)

Dokumen Penawaran wajib disampaikan pada waktu yang telah ditentukan dan dimasukkan ke dalam kotak tertutup yang disediakan oleh Panitia Pengadaan.

4)

Dokumen Penawaran yang diterima setelah batas akhir pemasukan, tidak diikutsertakan dan diberitahukan kepada calon Penyedia Barang/Jasa yang bersangkutan untuk mengambil kembali Dokumen Penawarannya.

5)

Dalam hal Calon Penyedia Barang/Jasa yang telah lulus Tahap I tidak memasukkan Dokumen Penawaran harga (Tahap II) atau terlambat memasukkan Dokumen Penawaran harga (Tahap II) pada waktu yang telah ditentukan, maka Barang/Jasa.

6)

Jaminan

Penawaran

dicairkan

oleh

Pengguna

Dalam hal Dokumen Penawaran disampaikan melalui pos atau jasa pengiriman, sampul Penawaran dimasukkan dalam satu sampul (disebut „Sampul Luar”). Sampul Luar hanya memuat alamat Panitia Pengadaan Barang/Jasa serta tempat, hari, tanggal, bulan dan tahun.

b.

Pembukaan Dokumen Penawaran Harga Panitia Pengadaan meneliti isi kotak / tempat pemasukan dokumen penawaran harga dan menghitung jumlah sampul penawaran yang masuk, kecuali Surat pengunduran diri, dengan ketentuan sebagai berikut: (1) Dalam hal Dokumen Penawaran dari Calon Penyedia Barang/Jasa yang masuk 3 (tiga) atau lebih, Panitia Pengadaan melakukan langkah-langkah sebagai berikut: a)

Panitia Pengadaan melakukan pembukaan sampul di hadapan Calon Penyedia Barang/Jasa disaksikan 2 (dua) orang saksi dari wakil Calon Penyedia Barang/Jasa.


L45

b)

Dalam hal saksi dari wakil Calon Penyedia Barang/Jasa tidak ada, Panitia Pengadaan dapat menunjuk saksi diluar dari Panitia Pengadaan. Sampul yang berisi data harga dibuka satu persatu, dibacakan serta dicatat dan dijadikan lampiran Berita Acara Pembukaan Penawaran Tahap II.

(2) Dalam hal Dokumen Penawaran dari Calon Penyedia Barang/Jasa yang masuk kurang dari 3 (tiga) atau sekurang-kurangnya 1 (satu), maka proses Pengadaan dilanjutkan dengan ketentuan: a)

Dalam hal Dokumen Penawaran dari Calon Penyedia Barang/Jasa yang masuk 2 (dua) maka diproses seperti halnya proses Pemilihan Langsung.

b)

Dalam hal Dokumen Penawaran dari Calon Penyedia Barang/Jasa yang masuk 1 (satu) maka diproses seperti halnya proses Penunjukan Langsung.

(3) Dalam hal tidak ada Calon Penyedia Barang/Jasa yang memasukkan Dokumen Penawaran maka Pengadaan tidak dapat dilanjutkan dan dinyatakan gagal.

2.10. Sistem Evaluasi Penawaran 2.10.1. Kriteria dan Tata Cara Evaluasi 1)

Kriteria dan tata cara evaluasi harus ditetapkan dalam dokumen pengadaan dan dijelaskan pada waktu pemberian penjelasan. Dalam hal terjadi perubahan kriteria dan tata cara evaluasi setelah pemberian penjelasan agar disampaikan secara tertulis kepada seluruh Calon Penyedia Barang/Jasa sebelum pemasukan penawaran.

2)

Dalam mengevaluasi penawaran, Panitia/Pejabat Pengadaan berpedoman pada kriteria dan tata cara evaluasi yang ditetapkan dalam dokumen pengadaan dan penjelasan sebelumnya. Bila terdapat hal-hal yang kurang jelas dalam suatu penawaran, Panitia/Pejabat Pengadaan dapat meminta klarifikasi dari Calon Penyedia Barang/Jasa. Dalam klarifikasi, Calon Penyedia Barang/Jasa diminta untuk menjelaskan hal-hal yang menurut Panitia/Pejabat Pengadaan kurang jelas, namun tidak diperkenankan mengubah substansi penawaran. Demikian juga Calon Penyedia Barang/Jasa tidak diperbolehkan menambah atau mengurangi atau mengubah penawarannya setelah penawaran harga dibuka (post bidding).

3)

Untuk hal-hal tertentu, Calon Penyedia Barang/Jasa dapat diminta untuk memperpanjang masa berlakunya surat jaminan penawaran yang akan habis masa berlakunya.

4)

Dalam Pelelangan Panitia pengadaan dilarang melakukan negosiasi dalam bentuk dan cara apapun, kecuali negosiasi teknis pada Tahap Pertama terhadap Calon Penyedia Barang/Jasa dalam Sistem Dua Tahap;

5)

Dalam penelitian/evaluasi atas penawaran harga, perlu diperhatikan:


L46

a.

Untuk pekerjaan tidak kompleks, HPS merupakan batas atas (ceiling price) dan dijadikan dasar untuk menggugurkan penawaran. Sedangkan untuk pekerjaan kompleks, HPS dijadikan dasar mengevaluasi penawaran;

b.

Apabila dalam dokumen pengadaan mengatur kemungkinan Calon Penyedia Barang/Jasa menyampaikan penawaran alternatif, maka penawaran alternatif yang ternyata baik dari segi teknis maupun harga lebih menguntungkan bagi PLN, dapat diusulkan sebagai calon pemenang pengadaan dengan ketentuan penawaran alternatif yang dievaluasi hanya penawaran alternatif dari Calon Penyedia Barang/Jasa yang penawaran utamanya merupakan penawaran terendah dan responsif.

2.10.2. Evaluasi Penawaran Pengadaan Barang/Jasa konstruksi/Jasa Lainnya. 1)

Sistem Gugur Adalah evaluasi penawaran dengan cara memeriksa pemenuhan persyaratan yang telah ditetapkan dalam Dokumen Pengadaan Barang/Jasa dengan urutan proses evaluasi dimulai dari penilaian persyaratan administrasi, persyaratan teknis dan kewajaran harga. Terhadap Calon Penyedia Barang/Jasa yang tidak lulus penilaian pada setiap tahapan dinyatakan gugur. Urutan tahapan proses penilaian sebagai berikut : a.

Evaluasi Administrasi (1) Evaluasi administrasi dilakukan terhadap penawaran yang memenuhi syarat pada pembukaan penawaran; (2) Evaluasi administrasi dilakukan terhadap dokumen penawaran yang masuk dan dievaluasi kelengkapan dan keabsahan syarat administrasi. Unsurunsur yang dievaluasi pada tahap ini harus berdasarkan ketentuanketentuan yang tercantum dalam dokumen pengadaan (tidak dikurangi atau ditambah); (3) Evaluasi administrasi menghasilkan dua kesimpulan, yaitu memenuhi syarat administrasi/lulus atau tidak memenuhi syarat administrasi/gugur.

b.

Evaluasi Teknis (1) Evaluasi teknis dilakukan terhadap penawaran yang dinyatakan memenuhi syarat administrasi/lulus. (2) Faktor-faktor yang dievaluasi pada tahap ini harus sesuai dengan kriteria yang ditetapkan dalam dokumen pengadaan (tidak dikurangi atau ditambah). (3) Hasil evaluasi teknis adalah: memenuhi syarat teknis/lulus atau tidak memenuhi syarat teknis/gugur.

c.

Evaluasi Harga (1) Evaluasi harga hanya dilakukan terhadap penawaran yang dinyatakan lulus/memenuhi persyaratan administrasi dan teknis;


L47

(2) Berdasarkan hasil evaluasi harga, panitia membuat daftar urutan penawaran yang dimulai dari urutan harga penawaran terendah dan mengusulkan penawar terendah sebagai calon pemenang. 2)

Sistem Nilai Adalah evaluasi penawaran dengan cara memberikan nilai angka tertentu pada setiap unsur yang dinilai berdasarkan kriteria yang ditetapkan dalam dokumen Pengadaan Barang/Jasa, kemudian membandingkan jumlah nilai dari setiap penawaran Calon Penyedia Barang/Jasa dengan penawaran Calon Penyedia Barang/Jasa lainnya. Evaluasi penawaran dengan sistem nilai digunakan untuk Pengadaan Barang/Jasa yang memperhitungkan keunggulan teknis setara dengan harganya, karena penawaran harga sangat dipengaruhi oleh kualitas teknis. Urutan tahapan proses penilaian sebagai berikut : a.

Evaluasi Administrasi (1) Evaluasi administrasi dilakukan terhadap penawaran yang memenuhi syarat pada pembukaan penawaran; (2) Unsur-unsur yang dievaluasi pada tahap ini harus berdasarkan ketentuanketentuan yang tercantum dalam Dokumen Pengadaan; (3) Evaluasi administrasi menghasilkan dua kesimpulan, yaitu memenuhi syarat administrasi/lulus atau tidak memenuhi syarat administrasi/gugur.

b.

Evaluasi Teknis dan Harga (1) Evaluasi teknis dan harga dilakukan terhadap penawaran-penawaran yang dinyatakan memenuhi persyaratan administrasi, dengan memberikan penilaian (skor) terhadap unsur-unsur teknis dan/atau harga penawaran; (2) Melakukan penilaian dengan menggunakan pendekatan/metode kuantitatif, yaitu dengan memberikan nilai angka terhadap unsur-unsur teknis dan harga yang dinilai sesuai dengan kriteria yang ditetapkan dalam Dokumen Pengadaan; (3) Berdasarkan hasil evaluasi tersebut, Panitia Pengadaan membuat daftar urutan penawaran, yang dimulai dari urutan penawaran yang memiliki nilai tertinggi; (4) Bila menggunakan nilai ambang batas lulus (passing grade) untuk penilaian teknis, hal ini harus dicantumkan dalam Dokumen Pengadaan. Panitia membuat daftar urutan yang dimulai dari nilai tertinggi untuk semua penawaran yang memperoleh nilai di atas atau sama dengan nilai ambang batas lulus.

3)

Sistem Penilaian Selama Umur Ekonomis/economic life cycle cost System. Digunakan untuk mengevaluasi Pengadaan Barang/Jasa konstruksi yang memperhitungkan faktor-faktor Umur Ekonomis; Harga dan Biaya Operasi dan Pemeliharaan dalam jangka waktu operasi tertentu.


L48

Sistem economic life cycle cost digunakan khusus untuk mengevaluasi Pengadaan Barang/Jasa yang kompleks dengan memperhitungkan perkiraan biaya operasi dan pemeliharaan serta nilai sisa selama umur ekonomis barang tersebut; Urutan proses penilaian dengan sistem ini adalah sebagai berikut: a.


b.

Evaluasi Teknis dan Harga (1) Evaluasi teknis dan harga dilakukan terhadap penawaran-penawaran yang dinyatakan memenuhi persyaratan administrasi, dengan memberikan penilaian (skor) terhadap unsur-unsur teknis dan/atau harga penawaran; (2) Unsur harga tersebut dikonversikan ke dalam mata uang tunggal berdasarkan nilai tukar (kurs tengah) yang dikeluarkan oleh Bank Indonesia pada saat pembukaan penawaran; (3) Berdasarkan hasil evaluasi tersebut, Panitia Pengadaan membuat daftar urutan yang dimulai dari urutan nilai evaluasi tertinggi; (4) Biaya-biaya yang dihitung dalam evaluasi, kecuali harga penawaran yang terkoreksi, tidak dimasukkan dalam harga kontrak (hanya berfungsi sebagai alat evaluasi saja).

2.10.3. Evaluasi Penawaran Pengadaan Jasa Konsultansi 1)

Evaluasi Kualitas Seleksi

Jasa

Konsultansi

dengan

menggunakan

metoda

evaluasi

dipergunakan untuk pekerjaan yang kompleks. Panitia Pengadaan hanya membuka penawaran harga terhadap Calon Penyedia Jasa Konsultansi dengan peringkat teknis terbaik dilanjutkan dengan negosiasi teknis dan biaya. Urutan proses penilaian dengan sistem ini adalah sebagai berikut: a.



kualitas

L49

b.

Evaluasi Teknis. (1) Evaluasi teknis dilakukan terhadap penawaran teknis yang dinyatakan memenuhi persyaratan administrasi, dengan memberikan penilaian (skor) terhadap unsur-unsur teknis; (2) Berdasarkan hasil evaluasi teknis, Panitia Pengadaan membuat daftar urutan yang dimulai dari urutan teknis terbaik.

c.

Klarifikasi dan Negosiasi Panitia pengadaan memberikan kesempatan pertama kepada Calon Penyedia Jasa Konsultansi dengan nilai teknis terbaik untuk melakukan klarifikasi dan negosasi, apabila tidak tercapai kesepakatan dalam negosiasi dapat diberikan kepada Calon Penyedia Jasa Konsultansi dengan nilai teknis terbaik kedua dan seterusnya.

2)

Evaluasi Kualitas dan Biaya Seleksi jasa konsultansi dengan menggunakan Metoda Evaluasi Kualitas dan Biaya dipergunakan untuk pekerjaan tidak kompleks yang dilakukan berdasarkan nilai kombinasi terbaik penawaran teknis dan biaya terkoreksi dilanjutkan dengan klarifikasi dan negosiasi teknis serta biaya. Urutan proses penilaian dengan sistem ini adalah sebagai berikut: a.

Evaluasi Administrasi : (1) Evaluasi administrasi dilakukan terhadap penawaran yang memenuhi syarat pada pembukaan penawaran; (2) Unsur-unsur yang dievaluasi pada tahap ini harus berdasarkan ketentuanketentuan yang tercantum dalam Dokumen Pengadaan; (3) Evaluasi administrasi menghasilkan dua kesimpulan, yaitu memenuhi syarat administrasi/lulus atau tidak memenuhi syarat administrasi/gugur;

b.

Evaluasi Teknis (1) Evaluasi teknis dilakukan terhadap penawaran teknis yang dinyatakan memenuhi persyaratan administrasi, dengan memberikan penilaian (skor) terhadap unsur-unsur teknis; (2) Berdasarkan hasil evaluasi teknis, Panitia Pengadaan membuat daftar urutan yang dimulai dari urutan teknis terbaik dengan nilai memenuhi ambang batas; (3) Mengundang Calon Penyedia Jasa Konsultansi yang nilai teknis memenuhi ambang batas untuk melanjutkan ke tahap pembukaan penawaran harga; (4) Kepada Calon Penyedia Jasa Konsultansi yang tidak memenuhi ambang batas atau tidak memenuhi persyaratan administrasi, dokumen penawaran biaya dikembalikan kepada yang bersangkutan dalam keadaan masih tertutup.


L50

c.

Evaluasi Biaya (1) Panitia Pengadaan membuka penawaran biaya di hadapan seluruh Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis, membacakan dan menulis biaya penawaran dari setiap Calon Penyedia Jasa Konsultansi dan membuat berita acara pembukaan penawaran harga dan penawaran biaya terkoreksi yang ditandatangani oleh semua anggota Panitia Pengadaan dan 2 (dua) wakil Calon Penyedia Jasa Konsultansi; (2) Penawaran biaya dengan biaya terendah diberikan nilai tertinggi dengan rumusan : Penawaran Biaya Terendah (Rp) NPB =

x 100% Penawaran Biaya(Rp)

dimana : NPB = Nilai Penawaran Biaya(%)

d.

Evaluasi Akhir (1)

Evaluasi akhir adalah gabungan/kombinasi nilai penawaran teknis dan nilai penawaran biaya.

(2)

Berdasarkan hasil evaluasi akhir, Panitia Pengadaan membuat daftar urutan yang dimulai dari urutan Nilai Akhir (NA) terbaik.

e.

Klarifikasi dan Negosiasi Panitia pengadaan memberikan kesempatan pertama kepada Calon Penyedia Jasa Konsultansi dengan nilai akhir terbaik untuk melakukan klarifikasi dan negosasi, apabila tidak tercapai kesepakatan dalam negosiasi dapat diberikan kepada Calon Penyedia Jasa Konsultansi dengan nilai akhir kedua dan seterusnya.

3)

Evaluasi Biaya Terendah Seleksi Jasa Konsultansi dengan metoda evaluasi biaya terendah dipergunakan untuk pekerjaan yang sederhana dan standar yang dilakukan berdasarkan penawaran biaya terkoreksinya terendah dari konsultan yang nilai penawaran teknisnya di atas ambang batas persyaratan teknis yang telah ditentukan, dilanjutkan dengan klarifikasi dan negosiasi teknis serta biaya. Urutan proses penilaian dengan sistem ini adalah sebagai berikut: a.

Evaluasi Administrasi (1) Evaluasi administrasi dilakukan terhadap penawaran yang memenuhi syarat pada pembukaan penawaran; (2) Unsur-unsur yang dievaluasi pada tahap ini harus berdasarkan ketentuanketentuan yang tercantum dalam Dokumen Pengadaan;


L51

(3) Evaluasi administrasi menghasilkan dua kesimpulan, yaitu memenuhi syarat administrasi/lulus atau tidak memenuhi syarat administrasi/gugur; b.

Evaluasi Teknis (1) Evaluasi teknis dilakukan terhadap penawaran teknis yang dinyatakan memenuhi persyaratan administrasi, dengan memberikan penilaian (skor) terhadap unsur-unsur teknis; (2) Berdasarkan hasil evaluasi teknis, Panitia Pengadaan membuat daftar urutan yang dimulai dari urutan teknis terbaik dengan nilai memenuhi ambang batas; (3) Mengundang Calon Penyedia Jasa Konsultansi yang nilai teknis memenuhi ambang batas untuk melanjutkan ke tahap pembukaan penawaran harga; (4) Kepada Calon Penyedia Jasa Konsultansi yang tidak memenuhi ambang batas atau tidak memenuhi persyaratan administrasi, dokumen penawaran biaya dikembalikan kepada yang bersangkutan dalam keadaan masih tertutup.

c.

Evaluasi Biaya (1) Panitia Pengadaan membuka penawaran biaya di hadapan seluruh Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis, membacakan dan menulis biaya penawaran dari setiap Calon Penyedia Jasa Konsultansi dan membuat berita acara pembukaan penawaran harga dan penawaran biaya terkoreksi yang ditandatangani oleh semua anggota Panitia Pengadaan dan 2 (dua) wakil Calon Penyedia Jasa Konsultansi; (2) Penawaran biaya dengan biaya terendah ditetapkan sebagai pemenang.

d.

Klarifikasi dan/atau negosiasi Panitia pengadaan memberikan kesempatan pertama kepada Calon Penyedia Jasa Konsultansi dengan penawaran terendah untuk melakukan klarifikasi dan/atau negosasi, apabila tidak tercapai kesepakatan dalam negosiasi dapat diberikan kepada penyedia jasa konsultansi dengan penawaran terendah kedua dan seterusnya.

4)

Evaluasi Penunjukan Langsung Penunjukan Langsung untuk Calon Penyedia Jasa Konsultansi sesuai dengan kriteria sebagaimana dimaksud dalam angka 2.8.3 diatas dievaluasi berdasarkan kualitas teknis dan biaya, dan dilanjutkan dengan klarifikasi dan negosiasi. Urutan proses adalah sebagai berikut : a.

Pembukaan penawaran teknis dan penawaran harga dibuka sekaligus;

b.

Penilaian kualitas penawaran teknis;

b.

Klarifikasi dan negosiasi penawaran teknis;


L52

c.

Klarifikasi dan negosiasi penawaran harga meliputi biaya langsung personil, biaya langsung non-personil dan komposisi biaya langsung personil dan atau biaya langsung non-personil.

2.11. Penetapan Pemenang Pengadaan 2.11.1. Calon Penyedia Barang/Jasa dengan harga evaluasi terendah yang diusulkan sebagai pemenang Pengadaan Barang/Jasa yang nilainya sampai dengan Rp. 50.000.000.000,00 (lima puluh milyar rupiah), ditetapkan sebagai pemenang pengadaan oleh General Manager/Kepala tanpa harus mendapatkan persetujuan dari Direksi. 2.11.2. Calon Penyedia Barang/Jasa dengan harga evaluasi terendah yang diusulkan sebagai pemenang Pengadaan Barang/Jasa yang nilainya diatas Rp. 50.000.000.000,00 (lima puluh milyar rupiah), sebelum ditetapkan sebagai pemenang pengadaan oleh General Manager/Kepala harus mendapatkan persetujuan terlebih dahulu dari Direksi. 2.11.3. Dalam hal Direksi atau General Manager/Kepala tidak sependapat dengan usulan Panitia Pengadaan, maka Direksi atau General Manager/Kepala membahas hal tersebut dengan Panitia Pengadaan untuk mengambil keputusan sebagai berikut : 1)

Menyetujui usulan Panitia Pengadaan; atau

2)

Menetapkan keputusan yang disepakati bersama untuk melakukan evaluasi ulang atau pengadaan ulang atau menetapkan pemenang pengadaan dan dituangkan dalam berita acara yang memuat keberatan dan kesepakatan masing-masing pihak.

2.12. Sanggahan 2.12.1. Tata Cara Sanggahan 2.12.1.1 Calon Penyedia Barang/Jasa yang berkeberatan atas penetapan pemenang, diberikan kesempatan untuk mengajukan sanggahan secara tertulis. 2.12.1.2 Sanggahan disampaikan kepada Pengguna Barang/Jasa disertai bukti-bukti terjadinya penyimpangan terhadap ketentuan-ketentuan pengadaan. 2.12.1.3 Apabila dipersyaratkan, Penyedia Barang/Jasa yang mengajukan sanggahan menyampaikan jaminan sanggahan sebesar 1% dari nilai penawaran. 2.12.1.4 Calon Penyedia Barang/Jasa dapat menyampaikan sanggahan dalam hal terjadi penyimpangan terhadap hal-hal sebagai berikut: a. Panitia Pengadaan dan/atau Pengguna Barang/Jasa menyalahgunakan wewenang; dan/atau b. Terdapat rekayasa pihak-pihak tertentu yang mengakibatkan pengadaan tidak adil, tidak transparan dan tidak terjadi persaingan yang sehat; dan/atau c. Pelaksanaan pengadaan menyimpang dari ketentuan yang telah ditetapkan dalam Dokumen Pengadaan. 2.12.2. Jawaban atas Sanggahan Pengguna Barang/Jasa setelah menerima masukan dari Panitia Pengadaan memberikan jawaban tertulis dalam waktu 14 (empat belas) hari kerja setelah diterima sanggahan dari Calon Penyedia Barang/Jasa. Sanggahan dapat diterima dengan ketentuan sebagai berikut :


wajib

L53

1)

Apabila terbukti terjadi rekayasa antara Pengguna Barang/Jasa, Panitia Pengadaan dan Calon Penyedia Barang/Jasa yang merugikan Calon Penyedia Barang/Jasa lainnya, maka diambil tindakan sesuai dengan peraturan perusahaan yang berlaku terhadap Pengguna Barang/Jasa dan/atau Panita Pengadaan Barang/Jasa yang terlibat dan menggugurkan penawaran Calon Penyedia Barang/Jasa yang terlibat dalam rekayasa tersebut;

2)

Apabila pelaksanaan evaluasi tidak sesuai dengan ketentuan yang ditetapkan dalam Dokumen Pengadaan karena kesalahan atau kelalaian Panitia Pengadaan, maka Pengguna Barang/Jasa memerintahkan Panitia Pengadaan melakukan evaluasi ulang;

3)

Apabila pelaksanaan pengadaan tidak sesuai dengan prosedur yang ditetapkan dalam dokumen pengadaan Barang/Jasa, maka dilakukan pengadaan ulang dimulai dari pengumuman kembali oleh Panitia Pengadaan.

2.12.3. Proses Pengadaan Barang/Jasa dapat dilanjutkan setelah terbitnya jawaban atas sanggahan. 2.12.4. Apabila ternyata sanggahan atau protes yang diajukan tidak sesuai dengan ketentuan pada angka 2.12.2 di atas serta tidak disertai dengan bukti-bukti dan/atau materi sanggahan tidak dapat dibuktikan kebenarannya oleh penyanggah, maka penyanggah/ pemrotes dapat dikenakan sanksi pencairan jaminan sanggahan. 2.12.5. Jawaban sanggahan dari Pengguna Barang/Jasa bersifat final.

2.13. Pengadaan Gagal dan Pengadaan Ulang 2.13.1. Pengadaan Gagal 1)

Pelelangan dinyatakan gagal oleh Panitia Pengadaan dengan menerbitkan Berita Acara yang ditandatangani oleh semua anggota Panitia Pengadaan dan dilaporkan kepada Pengguna Barang/Jasa dalam hal: a.

Jumlah Calon Penyedia Barang/Jasa yang tercantum dalam daftar Calon Penyedia Barang/Jasa pengadaan kurang dari 3 (tiga); atau

b.

Jumlah Calon Penyedia Barang/Jasa yang lulus prakualifikasi kurang dari 3 (tiga); atau

c.

Jumlah Calon Penyedia Barang/Jasa yang memasukkan penawaran kurang dari 3 (tiga) ; atau

d.

Tidak ada penawaran yang memenuhi persyaratan administrasi dan teknis; atau

e.

Pada Pengadaan yang menggunakan HPS sebagai batas atas(ceiling price), pada saat pembukaan surat penawaran harga, apabila harga penawaran terendah lebih tinggi dari HPS.

f.

2)

Pada Pengadaan yang menggunakan HPS sebagai batas kewajaran (passing grade), harga penawaran terendah setelah dievaluasi lebih besar 10% dari HPS.

Seleksi Umum dinyatakan gagal oleh Panitia Pengadaan dengan menerbitkan Berita Acara yang ditandatangani oleh semua anggota Panitia Pengadaan dan dilaporkan kepada Pengguna Barang/Jasa dalam hal : a.

Jumlah Calon Penyedia Jasa Konsultansi yang tercantum dalam daftar pengadaan kurang dari 3 (tiga); atau


L54

b.

Jumlah Calon Penyedia Jasa Konsultansi yang lulus prakualifikasi kurang dari 3 (tiga) ; atau

c.

Jumlah Calon Penyedia Jasa Konsultansi yang memasukkan penawaran kurang dari 3 (tiga) ; atau

d.


e.

Pada Pengadaan yang menggunakan HPS sebagai batas atas(ceiling price), negosiasi atas harga penawaran gagal karena tidak ada kesepakatan untuk mencapai harga penawaran lebih kecil atau sama dengan HPS.

f.

Pada Pengadaan yang menggunakan HPS sebagai batas kewajaran (passing grade ), negosiasi atas harga penawaran gagal karena tidak ada kesepakatan untuk mencapai harga penawaran lebih kecil atau tidak melebihi 10% dari HPS.

3)

Pemilihan/Seleksi Langsung dan Penunjukan Langsung dinyatakan gagal dalam hal : a.


b.

Pada Pengadaan yang menggunakan HPS sebagai batas atas (ceiling price), negosiasi atas harga penawaran gagal karena tidak ada kesepakatan untuk mencapai harga penawaran lebih kecil atau sama dengan HPS.

c.

Pada Pengadaan yang menggunakan HPS sebagai batas kewajaran (passing grade), negosiasi atas harga penawaran gagal karena tidak ada kesepakatan untuk mencapai harga penawaran lebih kecil atau tidak melebihi 10% dari HPS.

4)

Panitia Pengadaan wajib menyampaikan pemberitahuan Pengadaan Gagal kepada para Calon Penyedia Barang/Jasa.

5)

Pengadaan Barang/Jasa dinyatakan gagal oleh Pengguna Barang/Jasa apabila : a.

Sanggahan dari Calon Penyedia Barang/Jasa ternyata benar;

b.

Pelaksanaan Pengadaan tidak sesuai atau menyimpang dari Dokumen Pengadaan.

6)

Setelah Pengguna Barang/Jasa menetapkan pengadaan gagal, maka Pengguna Barang/Jasa: a.

Menugaskan Panitia Pengadaan melakukan pengadaan ulang tanpa harus merevisi dokumen pengadaan;atau

7)

b.

Menugaskan Panitia Pengadaan melakukan pengadaan ulang dengan memperbaiki dokumen pengadaan dan disahkan oleh Pengguna Barang/Jasa;atau

c.

Membatalkan Pengadaan apabila salah satu kondisi berikut terpenuhi: (1) Terjadi perubahan rencana kerja dan mengakibatkan perubahan kebutuhan barang/jasa; (2) Anggaran tidak tersedia/tidak mencukupi; (3) Akibat adanya penetapan pengadilan; (4) Adanya indikasi kuat terjadi persaingan usaha yang tidak sehat. (5) Adanya indikasi terjadinya KKN.

Pengguna Barang/Jasa tidak memberikan ganti rugi kepada Calon Penyedia Barang/Jasa bila penawarannya ditolak atau pengadaan dinyatakan gagal.


L55

2.13.2. Pengadaan Ulang 1)

Apabila Pelelangan/Seleksi Umum dinyatakan gagal karena jumlah Calon Penyedia Barang/Jasa yang tercantum dalam daftar Calon Penyedia Barang/Jasa atau jumlah Calon Penyedia Barang/Jasa yang lulus prakualifikasi kurang dari 3 (tiga), setelah mendapatkan persetujuan dari Pengguna Barang/Jasa maka Panitia Pengadaan segera melakukan: a.

Mengumumkan kembali untuk mendapatkan Calon Penyedia Barang/Jasa baru untuk mengikuti prakualifikasi.

b.

Calon Penyedia Barang/Jasa baru yang lulus prakualifikasi ulang dan Calon Penyedia Barang/Jasa yang telah lulus prakualifikasi sebelumnya diundang untuk mengambil Dokumen Pengadaan.

c.

Dalam hal setelah dilakukan prakualifikasi ulang jumlah Calon Penyedia Barang/Jasa yang lulus (termasuk yang telah lulus pada prakualifikasi awal) kurang dari 3 (tiga), maka dalam hal Calon Penyedia Barang/Jasa yang lulus hanya 2 (dua), proses Pengadaan dilanjutkan seperti pada proses Pemilihan Langsung. Dalam hal Calon Penyedia Barang/Jasa yang lulus hanya 1 (satu), maka proses Pengadaan dilanjutkan seperti pada proses Penunjukan Langsung.

2)

Apabila Pelelangan/Seleksi Umum dinyatakan gagal karena yang memasukkan penawaran kurang dari 3 (tiga) Calon Penyedia Barang/Jasa, setelah mendapatkan persetujuan dari Pengguna Barang/Jasa maka Panitia Pengadaan segera melakukan: a.

Mengumumkan kembali untuk mendapatkan Calon Penyedia Barang/Jasa baru untuk mengikuti prakualifikasi.

b.

Calon Penyedia Barang/Jasa baru yang lulus prakualifikasi ulang diundang untuk mengambil Dokumen Pengadaan dan mengikuti penjelasan.

c.

Calon Penyedia Barang/Jasa baru yang lulus prakualifikasi ulang dan Calon Penyedia Barang/Jasa yang telah memasukkan penawaran sebelumnya diundang untuk memasukkan penawaran.

3)

Apabila Pengadaan Barang/Jasa dinyatakan gagal karena tidak ada penawaran yang memenuhi persyaratan administrasi dan teknis, setelah mendapatkan persetujuan dari Pengguna Barang/Jasa maka Panitia Pengadaan segera melakukan: a.

Mengumumkan kembali untuk mendapatkan Calon Penyedia Barang/Jasa baru.

b.

Melakukan proses sesuai tahapan Pengadaan.

c.

Dalam hal setelah dilakukan pengadaan ulang masih tetap tidak ada penawaran yang memenuhi persyaratan administrasi dan teknis, maka Panitia Pengadaan melaporkan kepada Pengguna Barang/Jasa bahwa pelelangan gagal.

d.

Pengguna Barang/Jasa memutuskan proses Pengadaan dihentikan atau tetap dilanjutkan dengan merubah persyaratan administrasi dan teknis.

4)

Apabila Pengadaan Barang/Jasa dinyatakan gagal karena Harga Penawaran terendah setelah pembukaan melebihi HPS untuk Pengadaan yang menggunakan HPS sebagai batas atas (ceiling price) atau apabila Pengadaan Barang/Jasa dinyatakan gagal karena Harga Penawaran terendah setelah dievaluasi melebihi 10 % dari HPS untuk


L56

Pengadaan yang menggunakan HPS sebagai batas kewajaran (passing grade), setelah mendapatkan persetujuan dari Pengguna Barang/Jasa maka Panitia Pengadaan segera melakukan: a.

Meninjau ulang isi Dokumen Pengadaan dan/atau Perhitungan HPS. Dalam hal terjadi perubahan pada isi Dokumen Pengadaan dan/atau Perhitungan HPS, maka Panitia Pengadaan berkewajiban meminta Barang/Jasa sebelum Pengadaan Ulang.

b.

pengesahan

dari

Pengguna

Mengundang ulang Calon Penyedia Barang/Jasa yang telah memasukkan Penawaran Harga. Bilamana dianggap perlu Panitia Pengadaan dapat juga mengundang Calon Penyedia Barang/Jasa yang baru.

c.

Menyampaikan ulang isi Dokumen dalam hal terjadi perubahan pada isi Dokumen Pengadaan kepada Calon Penyedia Barang/Jasa yang telah memasukkan Penawaran Harga.

d.

Dalam hal

HPS sebagai batas atas (ceiling price), Panitia Pengadaan

menyampaikan ulang Nilai Total HPS apabila terjadi perubahan pada Nilai Total HPS kepada Calon Penyedia Barang/Jasa yang telah memasukkan Penawaran Harga. e.

Setelah dilakukan Pengadaan Ulang, ternyata Harga terendah yang ditawarkan tetap lebih tinggi dari batas atas yang telah ditentukan maka Panitia Pengadaan dapat mengusulkan kepada Pengguna Barang/Jasa untuk melakukan Penunjukan langsung kepada Calon Penyedia Barang/Jasa yang menyampaikan penawaran harga terendah.

5)

Apabila Seleksi dinyatakan gagal karena Negosiasi atas harga penawaran tidak ada kesepakatan harga dan telah mendapatkan persetujuan dari Pengguna Barang/Jasa maka Panitia Pengadaan segera melakukan: a.

Meninjau ulang isi Dokumen Pengadaan dan/atau Perhitungan HPS. Dalam hal terjadi perubahan pada isi Dokumen Pengadaan dan/atau Perhitungan HPS, maka Panitia Pengadaan berkewajiban meminta pengesahan dari Pengguna Barang/Jasa sebelum Pengadaan Ulang.

b.

Mengundang ulang Calon Penyedia Jasa Konsultansi yang telah memasukkan Penawaran Harga. Bilamana dianggap perlu Panitia Pengadaan dapat juga mengundang Calon Penyedia Jasa Konsultansi yang baru.

c.

Menyampaikan ulang isi Dokumen dalam hal terjadi perubahan pada isi Dokumen Pengadaan kepada Calon Penyedia Jasa Konsultansi yang telah memasukkan Penawaran Harga.

d.

Dalam hal HPS sebagai batas atas (ceiling price), menyampaikan ulang Nilai Total HPS apabila terjadi perubahan pada Nilai Total HPS kepada Calon Penyedia Jasa Konsultansi yang telah memasukkan Penawaran Harga.

b.

Dalam hal setelah dilakukan Pengadaan Ulang dan masih tetap tidak tercapai kesepakatan harga, maka Panitia Pengadaan dapat mengusulkan kepada Pengguna Barang/Jasa untuk melakukan Penunjukan langsung kepada Calon Penyedia Barang/Jasa yang menyampaikan penawaran harga terendah


L57

BAB III PROSES PELAKSANAAN PENGADAAN BARANG/JASA 3.1.

Pelaksanaan Pengadaan Barang/Jasa Konstruksi/Jasa Lainnya 3.1.1.

Proses Pelelangan dengan Prakualifikasi 3.1.1.1.

Pengumuman Pelelangan dengan Prakualifikasi Panitia Pengadaan harus mengumumkan secara luas tentang adanya Pelelangan dengan Prakualifikasi melalui media elektronik (e-Procurement PLN) dan papan pengumuman dan/atau surat kabar;

3.1.1.2.

Pendaftaran dan Pengambilan Dokumen Kualifikasi Calon Penyedia Barang/Jasa yang berminat melakukan pendaftaran dan mengambil Dokumen Kualifikasi; Apabila Calon Penyedia Barang/Jasa yang mendaftar kurang dari 3 (tiga), maka dinyatakan gagal.

3.1.1.3.

Penyampaian Dokumen Kualifikasi Fomulir isian kualifikasi Calon Penyedia Barang/Jasa yang memuat ringkasan informasi dari persyaratan kualifikasi disertai pernyataan Calon Penyedia Barang/Jasa yang ditandatangani di atas materai; Formulir isian tersebut sebagai pengganti dokumen yang dipersyaratkan.

3.1.1.4.

Evaluasi Dokumen Kualifikasi Panitia Pengadaan melakukan evaluasi atas Dokumen Kualifikasi Calon Penyedia Barang/Jasa sesuai dengan kriteria kualifikasi yang dipersyaratkan.

3.1.1.5.

Penetapan Hasil Prakualifikasi Panitia Pengadaan mengusulkan hasil evaluasi kualifikasi Calon Penyedia Barang/Jasa kepada Pengguna Barang/Jasa untuk mendapatkan penetapan; Apabila Penyedia Barang/Jasa yang lulus prakualifikasi kurang dari 3 (tiga) maka dinyatakan gagal.

3.1.1.6.

Hasil Prakualifikasi Calon Penyedia Barang/Jasa Menyampaikan hasil Prakualifikasi kepada para Calon Penyedia Barang/Jasa. Apabila diperlukan Panitia Pengadaan dapat mengumumkan hasil kualifikasi Calon Penyedia Barang/Jasa melalui papan pengumuman.

3.1.1.7.

Mengundang para Calon Penyedia Barang/Jasa yang lulus kualifikasi untuk mengambil Dokumen Pengadaan. Proses selanjutnya mengikuti tahapan Pengambilan Dokumen Pengadaan sampai dengan Penandatanganan kontrak.


L58

3.1.2. Proses Pelelangan dengan Pascakualifikasi 3.1.2.1. Pengumuman Pelelangan dengan Pascakualifikasi Panitia Pengadaan harus mengumumkan secara luas tentang adanya Pelelangan dengan pascakualifikasi melalui media elektronik (e-Procurement PLN) dan papan pengumuman dan/atau surat kabar. 3.1.2.2.

Pendaftaran, Pengambilan Dokumen Pengadaan dan Dokumen Kualifikasi Penyedia Barang/Jasa dilakukan pada saat yang bersamaan. Dalam hal Calon Penyedia Barang/Jasa yang mendaftar kurang dari 3 (tiga), maka Pengadaan dinyatakan gagal.

3.1.2.3. Penjelasan (Aanwijzing) a.

Penjelasan dokumen Pengadaan dilakukan di tempat dan waktu yang ditentukan, dihadiri oleh Calon Penyedia Barang/Jasa yang terdaftar dalam daftar Calon Penyedia Barang/Jasa.

b.

Ketidakhadiran Calon Penyedia Barang/Jasa pada saat penjelasan pengadaan tidak dapat dijadikan dasar untuk menggugurkan penawaran.

c.

Dalam acara penjelasan pengadaan dijelaskan kepada Calon Penyedia Barang/Jasa antara lain mengenai : 1)

Metode pengadaan;

2)

Cara penyampaian dan pembukaan dokumen penawaran (satu sampul atau dua sampul atau dua tahap);

3)

Dokumen yang harus dilampirkan dalam dokumen penawaran;

4)

Metode evaluasi;

5)

Hal-hal yang menggugurkan penawaran;

6)

Jenis kontrak yang akan digunakan;

7)

Nilai Jaminan, masa berlaku dan penjamin yang dapat mengeluarkan jaminan pengadaan.

d.

Bila dipandang perlu, Panitia Pengadaan dapat memberikan penjelasan lanjutan dengan cara melakukan peninjauan lapangan;

e.

Pemberian penjelasan mengenai pasal-pasal dokumen pengadaan, pertanyaan dari Calon Penyedia Barang/Jasa dan jawaban dari Panitia Pengadaan serta keterangan lain termasuk perubahannya dan peninjauan lapangan, harus dituangkan dalam Berita Acara Penjelasan (BAP) yang ditandatangani semua anggota Panitia Pengadaan dan minimal 1 (satu) wakil dari Calon Penyedia Barang/Jasa yang hadir. BAP ini merupakan bagian yang tak terpisahkan dari dokumen pengadaan dan harus disampaikan secara tertulis kepada Calon Penyedia Barang/Jasa.

3.1.2.4.

Penyampaian dan Pembukaan Dokumen Penawaran


L59

a.

Calon Penyedia Barang/Jasa menyampaikan Dokumen Penawaran dalam Jumlah 2 (dua) rangkap ;

b.

Penyampaian dan cara pembukaan dokumen penawaran harus mengikuti ketentuan yang dipersyaratkan dalam dokumen Pengadaan Barang/Jasa;

c.

Panitia Pengadaan mencatat waktu dan tanggal dokumen penawaran yang diterima melalui pos atau jasa pengiriman pada sampul luar penawaran dan memasukkan ke dalam kotak/tempat dokumen penawaran;

d.

Panitia

Pengadaan

membuka

rapat

pembukaan

dokumen

penawaran,

menyatakan dihadapan para Calon Penyedia Barang/Jasa bahwa saat pemasukan dokumen penawaran telah ditutup sesuai waktu yang dipersyaratkan. Panitia Pengadaan menolak Dokumen penawaran yang terlambat dan/atau tambahan dokumen. Dilanjutkan dengan membuka dokumen penawaran yang masuk; e.

Bagi penawaran yang disampaikan melalui pos atau jasa pengiriman dan diterima terlambat, Panitia Pengadaan membuka sampul luar dokumen penawaran untuk mengetahui alamat Calon Penyedia Barang/Jasa. Panitia Pengadaan segera memberitahukan kepada Penyedia Barang/Jasa yang bersangkutan untuk mengambil kembali seluruh dokumen penawaran. Pengembalian dokumen penawaran disertai dengan bukti serah terima;

f.

Tidak diperkenankan mengubah waktu penutupan penyampaian penawaran untuk hal-hal yang tidak terpaksa. Apabila terpaksa dilakukan perubahan waktu penutupan penyampaian penawaran maka perubahan tersebut harus dituangkan di dalam adendum dokumen pengadaan dan disampaikan pada seluruh Calon Penyedia Barang/Jasa;

g.

Pembukaan dokumen penawaran yang masuk dilaksanakan sebagai berikut: 1)

Panitia Pengadaan meminta kesediaan 2 (dua) wakil dari Calon Penyedia Barang/Jasa yang hadir sebagai saksi. Apabila tidak terdapat saksi dari Calon Penyedia Barang/Jasa pengadaan yang hadir, Panitia pengadaan menunda pembukaan kotak/tempat pemasukan dokumen penawaran sampai dengan waktu tertentu yang ditentukan Panitia Pengadaan. Setelah sampai batas waktu yang telah ditentukan, wakil Calon Penyedia Barang/Jasa pengadaan tetap tidak ada yang hadir, acara pembukaan kotak/tempat pemasukan dokumen penawaran dilakukan dengan disaksikan oleh 2 (dua) orang saksi di luar Panitia Pengadaan yang ditunjuk secara tertulis oleh Panitia Pengadaan.

2)

Panitia Pengadaan meneliti isi kotak/tempat pemasukan dokumen penawaran dan menghitung jumlah sampul penawaran yang masuk (tidak dihitung surat pengunduran diri) dan bila penawaran yang masuk kurang dari 3 (tiga), pengadaan tidak dapat dilanjutkan dan dinyatakan gagal.

h.

Pembukaan dokumen penawaran untuk setiap sistem dilakukan sebagai berikut: 1)

Untuk Sistem Satu Sampul, Panitia Pengadaan membuka kotak dan sampul dokumen penawaran di hadapan para Calon Penyedia Barang/Jasa.


L60

2)

Untuk Sistem Dua Sampul, Panitia Pengadaan membuka sampul I di hadapan Calon Penyedia Barang/Jasa. Sampul I yang berisi data administrasi dan teknis dibuka, dan dijadikan lampiran berita acara pembukaan dokumen penawaran sampul I. Sampul II yang berisi data harga tidak boleh dibuka dan sampulnya dituliskan identitas perusahaan dan diparaf oleh Panitia pengadaan dan 2 (dua) orang wakil Calon Penyedia Barang/Jasa sebelum disimpan oleh Panitia Pengadaan.

3)

Untuk Sistem Dua Tahap, Panitia Pengadaan membuka sampul penawaran yang berisi data administrasi dan teknis di hadapan Calon Penyedia Barang/Jasa. Hasil pembukaan penawaran dijadikan lampiran berita acara pembukaan dokumen penawaran tahap I. Penawaran yang berisi data harga (tahap II) disampaikan setelah Calon Penyedia Barang/Jasa dinyatakan lulus persyaratan teknis dan administrasi dalam tahap I.

i.

Panitia Pengadaan memeriksa, menunjukkan dan membacakan di hadapan para Calon Penyedia Barang/Jasa mengenai kelengkapan dokumen penawaran: 1)

Untuk satu sampul, terdiri atas : a)

Surat penawaran yang di dalamnya tercantum masa berlaku penawaran;

2)

b)

Jaminan penawaran asli;

c)

Harga penawaran yang dilengkapi dengan materai, tanggal dan tandatangan.

Untuk dua sampul, terdiri atas: a)

Sampul Pertama (1) Surat penawaran yang di dalamnya tercantum masa berlaku penawaran tanpa mencantumkan harga penawaran; (2) Jaminan penawaran asli; (3) Dokumen penawaran teknis dan dokumen pendukung lainnya yang disyaratkan dalam dokumen pengadaan.

b)

Sampul Kedua Harga penawaran yang dilengkapi dengan materai, tanggal dan tandatangan.

3)

Untuk dua tahap, terdiri atas : a)

Tahap Pertama (1) Surat penawaran yang di dalamnya tercantum masa berlaku penawaran tanpa mencantumkan harga penawaran; (2) Jaminan penawaran asli; (3) Dokumen penawaran teknis dan dokumen pendukung lainnya yang disyaratkan dalam dokumen pengadaan.


L61

b)

Tahap Kedua Harga penawaran yang dilengkapi dengan materai, tanggal dan tandatangan.

j.

Panitia Pengadaan tidak perlu mempersyaratkan kembali syarat-syarat administrasi pada dokumen pengadaan yang telah menjadi persyaratan kualifikasi Penyedia Barang/Jasa;

k.

Panitia Pengadaan tidak boleh menggugurkan penawaran Calon Penyedia Barang/Jasa pada saat pembukaan penawaran, kecuali penawaran dari Calon Penyedia Barang/Jasa yang terlambat memasukkan penawaran;

l.

Panitia Pengadaan segera membuat berita acara pembukaan dokumen penawaran terhadap semua penawaran yang masuk;

m.

Setelah dibacakan dengan jelas, berita acara ditandatangani semua anggota Panitia Pengadaan dan 2 (dua) wakil dari Calon Penyedia Barang/Jasa yang hadir;

n.

Dalam hal terjadi penundaan waktu pembukaan penawaran, maka penyebab penundaan tersebut harus dimuat dengan jelas di dalam berita acara pembukaan penawaran (BAPP).

3.1.2.5.

Evaluasi Penawaran a.

Pelaksanaan evaluasi penawaran dilakukan oleh Panitia Pengadaan terhadap semua penawaran yang masuk. Evaluasi tersebut meliputi evaluasi administrasi, teknis, dan harga berdasarkan kriteria, metoda, dan tatacara evaluasi yang telah ditetapkan dalam dokumen pengadaan.

b.

Pada tahap awal, Panitia Pengadaan dapat melakukan koreksi aritmatik terhadap semua penawaran yang masuk dan melakukan evaluasi sekurang-kurangnya 3 (tiga) penawaran terendah setelah koreksi aritmatik.

c.

Penawaran yang memenuhi syarat adalah penawaran yang sesuai dengan ketentuan, syarat-syarat, dan spesifikasi yang ditetapkan dalam dokumen pengadaan, tanpa ada penyimpangan yang bersifat penting/pokok atau penawaran bersyarat.

d.

Penyimpangan yang bersifat penting/pokok atau penawaran bersyarat adalah: 1)

Jenis penyimpangan yang berpengaruh terhadap hal-hal yang sangat substantif dan akan mempengaruhi hasil/kinerja/performance pekerjaan;

lingkup,

2)

Substansi kegiatan tidak konsisten dengan dokumen pengadaan;

3)

Adanya penawaran dari Penyedia Barang/Jasa dengan persyaratan

kualitas,

tambahan di luar ketentuan dokumen pengadaan yang akan menimbulkan persaingan tidak sehat dan/atau tidak adil di antara Calon Penyedia Barang/Jasa yang memenuhi syarat.


dan

L62

e.

Penawaran dinyatakan memenuhi persyaratan administrasi, apabila: 1)

Syarat-syarat yang diminta berdasarkan dokumen pengadaan dipenuhi/dilengkapi dan isi setiap dokumen benar serta dapat dipastikan bahwa dokumen penawaran ditanda-tangani oleh orang yang berwenang;

2)

Surat jaminan penawaran memenuhi persyaratan sesuai ketentuan dokumen pengadaan. Apabila ada hal-hal yang kurang jelas dan/atau meragukan dalam surat jaminan penawaran perlu diklarifikasi dengan pihak yang terkait tanpa mengubah substansi dari jaminan penawaran;

3)

Mencantumkan masa berlakunya penawaran sesuai yang diminta dalam dokumen pengadaan.

f.

Panitia Pengadaan melakukan evaluasi teknis terhadap semua penawaran yang memenuhi persyaratan administrasi.

g.

Untuk pengadaan Jasa Konstruksi, persyaratan teknis, apabila: 1)

penawaran

dinyatakan

memenuhi

Metode pelaksanaan pekerjaan yang ditawarkan memenuhi persyaratan substantif yang ditetapkan dalam dokumen pengadaan;

2)

Jadual waktu pelaksanaan pekerjaan yang ditawarkan tidak melampaui batas waktu yang ditetapkan dalam dokumen pengadaan;

3)

Jenis, kapasitas, komposisi, dan jumlah peralatan minimal yang disediakan sesuai dengan dokumen pengadaan;

4)

Spesifikasi teknis memenuhi persyaratan yang ditetapkan dalam dokumen pengadaan;

5)

Personil inti yang akan ditempatkan secara penuh sesuai dengan persyaratan yang ditentukan dalam dokumen pengadaan serta posisinya dalam manajemen pelaksanaan pekerjaan sesuai dengan organisasi pelaksanaan yang diajukan;

6)

Bagian pekerjaan yang akan disubkontrakkan sesuai dengan persyaratan yang dicantumkan dalam dokumen pengadaan;

7)

Memenuhi syarat teknis lainnya yang ditetapkan dalam dokumen pengadaan.

h.

Untuk Pengadaan Barang, penawaran dinyatakan memenuhi persyaratan teknis, apabila: 1)

Memenuhi spesifikasi teknis barang yang ditawarkan berdasarkan contoh, brosur, dan gambar-gambar yang ditetapkan dalam dokumen pengadaan;

2)

Jadual waktu penyerahan barang tidak melampaui batas waktu yang ditetapkan dalam dokumen pengadaan;

3)

Identitas barang yang ditawarkan tercantum dengan lengkap dan jelas;

4)

Jumlah barang yang ditawarkan tidak kurang dari yang ditetapkan dalam dokumen pengadaan;


L63

5)

Memenuhi syarat teknis lainnya yang ditetapkan dalam dokumen pengadaan.

i.

Unsur-unsur yang perlu diteliti dan dinilai dalam evaluasi kewajaran harga adalah hal-hal yang pokok atau penting, meliputi: 1)

Total harga penawaran terhadap HPS : a)

Untuk HPS yang difungsikan sebagai batas kewajaran (passing grade), apabila harga penawaran di atas 10% HPS maka penawaran dinyatakan gugur, dan apabila semua harga penawaran di atas 10% HPS maka pengadaan dinyatakan gagal;

b)

Untuk HPS yang difungsikan sebagai batas atas (ceiling price), total harga penawaran diatas HPS dinyatakan gugur dan apabila semua harga penawaran di atas HPS maka pengadaan dinyatakan gagal;

2)

Dalam hal terjadi harga satuan timpang yaitu nilainya lebih besar dari 10% (sepuluh persen) diatas HPS maka perlu diklarifikasi. Apabila setelah dilakukan klarifikasi ternyata harga satuan tersebut tidak berubah, maka harga satuan timpang hanya berlaku untuk volume yang ditawarkan sesuai dengan dokumen pengadaan, tambahan volume selebihnya menggunakan harga satuan pada HPS;

3)

Untuk kontrak Lumpsum, mata pembayaran yang harga satuannya nol atau tidak ditulis, dilakukan klarifikasi dan kegiatan tersebut harus tetap dilaksanakan, dianggap termasuk dalam harga satuan pekerjaan lainnya;

4)

Untuk kontrak lumpsum atau kontrak harga satuan yang harga satuannya ditulis dalam angka dan huruf, apabila terdapat perbedaan antara penulisan nilai dalam angka dan huruf maka nilai penawaran yang diakui adalah nilai dalam tulisan huruf;

5)

Koreksi aritmatik dilakukan sebagai berikut : a)

Volume pekerjaan yang tercantum dalam dokumen penawaran disesuaikan dengan yang tercantum dalam dokumen pengadaan;

b)

Apabila terjadi kesalahan hasil perkalian antara volume dengan harga satuan pekerjaan, maka dilakukan pembetulan, dengan ketentuan harga satuan pekerjaan yang ditawarkan tidak boleh diubah;

c)

Jenis pekerjaan yang tidak diberi harga satuan dianggap sudah termasuk dalam harga satuan pekerjaan yang lain, dan harga satuan pada surat penawaran tetap dibiarkan kosong;

d)

Hasil koreksi aritmatik dapat mengubah nilai atau urutan penawaran menjadi lebih tinggi atau lebih rendah terhadap urutan penawaran semula.

6)

Dalam mengevaluasi kewajaran harga penawaran dapat dilakukan klarifikasi kewajaran harga apabila harga penawaran dinilai terlalu rendah yaitu dibawah 80 % HPS, maka Calon Penyedia Barang/Jasa pengadaan tersebut harus bersedia untuk menaikkan jaminan pelaksanaannya menjadi


L64

sekurang-kurangnya 5% (lima persen) dari nilai HPS bilamana ditunjuk sebagai pemenang pengadaan. Dalam hal Calon Penyedia Barang/Jasa pengadaan yang bersangkutan tidak bersedia menambah nilai jaminan pelaksanaannya, maka penawarannya dapat digugurkan dan jaminan penawarannya dicairkan, sedangkan Penyedia Barang/Jasa itu sendiri, di dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Barang/Jasa di PLN untuk dalam jangka waktu 2 (dua) tahun. 3.1.2.6.

Pembuktian Kualifikasi Terhadap Calon Penyedia Barang/Jasa yang akan diusulkan sebagai pemenang dan pemenang cadangan, dilakukan verifikasi terhadap semua data dan informasi yang ada dalam formulir isian kualifikasi dengan meminta rekaman atau asli dokumen yang sah.

3.1.2.7.

Pembuatan Berita Acara Hasil Proses Pengadaan a.

Panitia Pengadaan membuat kesimpulan dari hasil evaluasi administrasi, teknis, dan harga dituangkan dalam Berita Acara Hasil Pengadaan (BAHP). BAHP memuat hasil pelaksanaan pengadaan, termasuk cara penilaian, rumus-rumus yang digunakan, sampai dengan penetapan urutan pemenangnya berupa daftar Calon Penyedia Barang/Jasa yang dimulai dari harga penawaran terendah. BAHP ditandatangani oleh semua anggota Panitia Pengadaan.

b.

BAHP bersifat rahasia sampai dengan saat penandatanganan kontrak.

c.

BAHP memuat hal-hal sebagai berikut : 1)

Nama semua Calon Penyedia Barang/Jasa dan harga penawaran dan/atau harga penawaran terkoreksi, dari masing-masing Calon Penyedia Barang/Jasa;

2)

Metoda evaluasi yang digunakan;

3)

Unsur-unsur yang dievaluasi;

4)

Rumus yang dipergunakan ;

5)

Keterangan-keterangan lain yang dianggap perlu mengenai hal ikhwal pelaksanaan pengadaan;

6)

Tanggal dibuatnya berita acara serta jumlah Calon Penyedia Barang/Jasa yang lulus dan tidak lulus pada setiap tahapan evaluasi;

7)

Penetapan urutan dari 1 (satu) calon pemenang dan 2 (dua) cadangan. Apabila tidak ada penawaran yang memenuhi syarat, BAHP harus mencantumkan pernyataan bahwa pengadaan dinyatakan gagal. Apabila Calon Penyedia Barang/Jasa pengadaan yang memenuhi syarat kurang dari 3 (tiga), maka terhadap Calon Penyedia Barang/Jasa yang memenuhi syarat tetap diusulkan sebagai calon pemenang pengadaan.


L65

3.1.2.8.

Usulan Penetapan Pemenang Pengadaan a.

b.

Panitia Pengadaan mengusulkan calon menguntungkan bagi PLN dalam arti :

pemenang

pengadaan

1)

Penawaran memenuhi syarat administratif dan teknis yang ditentukan dalam dokumen pengadaan;

2)

Perhitungan harga yang ditawarkan adalah terendah yang responsif;

Dalam hal terdapat 2 (dua) Calon Penyedia Barang/Jasa mempunyai harga penawaran hasil evaluasi yang sama, maka Panitia Pengadaan meneliti kembali data kualifikasi Calon Penyedia Barang/Jasa yang bersangkutan, dan memilih Calon Penyedia Barang/Jasa yang menurut pertimbangannya mempunyai kemampuan yang lebih besar, dan hal ini dicatat dalam berita acara.

c.

Panitia Pengadaan membuat dan menyampaikan laporan kepada Pengguna Barang/Jasa untuk menetapkan pemenang pengadaan. Laporan tersebut disertai usulan calon pemenang dan penjelasan atau keterangan lain yang dianggap perlu sebagai bahan pertimbangan untuk mengambil keputusan.

d.

e.

Usulan penetapan pemenang pengadaan disusun sesuai dengan urutannya dan harus memuat : 1) 2)

Nama dan alamat Penyedia Barang/Jasa; Harga penawaran setelah dikoreksi aritmatik;

3)

Nomor Pokok Wajib Pajak (NPWP).

Pemenang pengadaan ditetapkan oleh Pengguna Barang/Jasa berdasarkan usulan Panitia Pengadaan. Pengguna Barang/Jasa segera menetapkan pemenang pengadaan dan mengeluarkan Surat Penetapan Penyedia Barang/Jasa (SPPBJ) kepada Panitia Pengadaan.

f.

Data pendukung yang diperlukan untuk menetapkan pemenang pengadaan adalah : 1) Dokumen pengadaan beserta addendum (bila ada); 2) Berita acara pembukaan penawaran (BAPP); 3) Berita acara hasil proses pengadaan (BAHP); 4) Dokumen penawaran dari calon pemenang pengadaan dan cadangan calon pemenang; 5) Apabila terjadi keterlambatan dalam menetapkan pemenang pengadaan dan mengakibatkan penawaran/jaminan penawaran habis masa berlakunya, maka diminta kepada seluruh Calon Penyedia Barang/Jasa pengadaan untuk memperpanjang surat penawaran dan jaminan penawaran.

3.1.2.9.

Pengumuman Pemenang Pengadaan Pemenang pengadaan diumumkan dan diberitahukan oleh panitia pengadaan kepada para Calon Penyedia Barang/Jasa setelah diterimanya Surat Penetapan Penyedia Barang/Jasa dari Pengguna Barang/Jasa.


yang

L66

3.1.2.10. Sanggahan Calon Penyedia Barang/Jasa yang berkeberatan atas penetapan pemenang, diberikan kesempatan untuk mengajukan sanggahan secara tertulis kepada Pengguna Barang/Jasa. 3.1.2.11. Penerbitan Surat Penunjukan Penyedia Barang/Jasa a.

Pengguna Barang/Jasa mengeluarkan Surat Penunjukan Penyedia Barang/Jasa (SPPBJ) kepada Penyedia Barang/Jasa sebagai pelaksana pekerjaan yang diadakan, dengan ketentuan: 1)

Tidak ada sanggahan dari Calon Penyedia Barang/Jasa; atau

2)

Sanggahan yang diterima Pengguna Barang/Jasa dalam masa sanggah ternyata tidak benar, atau sanggahan diterima melewati waktu masa sanggah.

b.

Calon Penyedia Barang/Jasa yang ditunjuk sebagai Penyedia Barang/Jasa wajib menerima keputusan tersebut. Apabila yang bersangkutan mengundurkan diri maka jaminan penawaran Calon Penyedia Barang/Jasa yang bersangkutan dicairkan dan disetorkan kepada Kas PLN. Disamping jaminan penawaran yang bersangkutan dicairkan dan disetorkan kepada Kas PLN, Penyedia Barang/Jasa tersebut dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Barang/Jasa di PLN dalam jangka waktu 2 (dua) tahun kecuali alasan pengunduran diri tersebut dapat diterima secara objektif oleh Pengguna Barang/Jasa.

c.

Apabila calon pemenang pengadaan urutan pertama yang ditunjuk sebagai Penyedia Barang/Jasa mengundurkan diri, maka penunjukan Penyedia Barang/Jasa dapat dilakukan kepada Calon Penyedia Barang/jasa urutan kedua (jika ada) sesuai dengan harga penawarannya, dengan ketentuan : 1)

Penetapan pemenang pengadaan urutan kedua tersebut harus terlebih dahulu mendapat persetujuan/penetapan dari Pengguna Barang/Jasa;

2)

Masa penawaran calon pemenang pengadaan urutan kedua masih berlaku atau sudah diperpanjang masa berlakunya;

3)

d.

Bila calon pemenang pertama mengundurkan diri, maka berlaku sanksi sebagaimana dimaksud pada angka 3.1.2.11 huruf b di atas.

Apabila calon pemenang pengadaan urutan kedua juga mengundurkan diri, maka penetapan Penyedia Barang/Jasa dapat dilakukan kepada calon pemenang urutan ketiga (jika ada) sesuai dengan harga penawarannya dengan ketentuan : 1)

Penetapan pemenang pengadaan tersebut harus terlebih dahulu mendapat persetujuan/penetapan dari Pengguna Barang/Jasa;

2)

Masa berlakunya penawaran calon pemenang pengadaan urutan ketiga masih berlaku atau sudah diperpanjang;

3)

Bila calon pemenang kedua mengundurkan diri, maka berlaku sanksi sebagaimana dimaksud pada angka 3.1.2.11 huruf b di atas.


L67

e.

Apabila calon pemenang ketiga mengundurkan diri, maka berlaku sanksi sebagaimana dimaksud pada angka 3.1.2.11 huruf b di atas dan Pengadaan dinyatakan batal oleh Pengguna Barang/Jasa. ( kriteria dimasukkan dalam pengadaan batal)

f.

SPPBJ dibuat setelah masa sanggah dilewati dan segera disampaikan kepada Penyedia Barang/Jasa yang ditunjuk.

3.1.2.12. Penandatanganan Kontrak Setelah SPPBJ diterbitkan, Pengguna Barang/Jasa menyiapkan dan menandatangani kontrak pelaksanaan pekerjaan apabila dananya telah tersedia, dengan ketentuan sebagai berikut : a.

Penandatanganan kontrak dilakukan setelah Penyedia Barang/Jasa menyerahkan jaminan pelaksanaan;

b.

Apabila Penyedia Barang/Jasa yang ditunjuk menolak/ mengundurkan diri atau gagal untuk menandatangani kontrak, maka Pengguna Barang/Jasa membatalkan SPPBJ, jaminan penawaran Calon Penyedia Barang/Jasa yang bersangkutan dicairkan dan disetorkan kepada Kas PLN. Disamping jaminan penawaran yang bersangkutan dicairkan dan disetorkan kepada Kas PLN, Penyedia Barang/Jasa tersebut dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Barang/Jasa di PLN dalam jangka waktu 2 (dua) tahun kecuali alasan pengunduran diri tersebut dapat diterima secara objektif oleh Pengguna Barang/Jasa.

c.

Pengguna dan Penyedia Barang/Jasa tidak diperkenankan mengubah dokumen pengadaan setelah pembukaan penawaran sampai dengan penandatanganan kontrak. Perubahan dokumen pengadaan sebelum pembukaan penawaran oleh Pengguna dan diberitahukan secara tertulis kepada Penyedia Barang/Jasa.

d.

Pengguna dan Penyedia Barang/Jasa wajib memeriksa konsep kontrak meliputi substansi, bahasa/redaksional, angka, dan huruf serta membubuhkan paraf pada lembar demi lembar dokumen kontrak;

e.

Banyaknya rangkap kontrak dibuat sesuai kebutuhan, yaitu : 1)

Sekurang-kurangnya 2 (dua) kontrak asli, kontrak asli pertama untuk Pengguna Barang/Jasa dibubuhi materai pada bagian yang ditandatangani oleh Penyedia Barang/Jasa, dan kontrak asli kedua untuk Penyedia Barang/Jasa dibubuhi materai pada bagian yang ditandatangani oleh Pengguna Barang/Jasa;

2) 3.1.3.

Rangkap kontrak asli lainnya tanpa dibubuhi materai.

Pemilihan Langsung Pada dasarnya Pemilihan Langsung dapat dilakukan melalui Prakualifikasi atau melalui Pascakualifikasi. 3.1.3.1

Pemilihan Langsung melalui Prakualifikasi 3.1.3.1.1. Undangan Prakualifikasi kepada Penyedia Barang/Jasa


L68

Panitia Pengadaan mengundang sekurang-sekurangnya 2 (dua) Calon Penyedia Barang/Jasa yang diyakini mampu untuk melaksanakan pengadaan Barang/Jasa yang diperlukan. Undangan disampaikan beserta dokumen kualifikasi serta jadual penyampaian dokumen kualifikasi. 3.1.3.1.2. Penyampaian Dokumen PraKualifikasi Formulir isian kualifikasi Calon Penyedia Barang/Jasa yang memuat ringkasan informasi dari persyaratan kualifikasi disertai pernyataan Calon Penyedia Barang/Jasa yang ditandatangani di atas meterai. 3.1.3.1.3. Evaluasi Dokumen PraKualifikasi Panitia Pengadaan melakukan evaluasi atas Dokumen PraKualifikasi Calon Penyedia Barang/Jasa sesuai dengan kriteria kualifikasi yang dipersyaratkan. 3.1.3.1.4. Penetapan hasil Prakualifikasi Apabila melalui Prakualifikasi maka Panitia Pengadaan mengusulkan hasil evaluasi kualifikasi Calon Penyedia Barang/Jasa kepada Pengguna Barang/Jasa untuk mendapatkan penetapan. Apabila Calon Penyedia Barang/Jasa yang lulus prakualifikasi hanya 1 (satu) maka Pengadaan dilakukan seperti halnya proses Penunjukan Langsung. 3.1.3.1.5. Hasil Prakualifikasi Calon Penyedia Barang/Jasa Panitia Pengadaan menyampaikan hasil Prakualifikasi kepada para Calon Penyedia Barang/Jasa; 3.1.3.1.6. Mengundang para Calon Penyedia Barang/Jasa yang lulus prakualifikasi untuk mengambil Dokumen Pengadaan; 3.1.3.2. Proses Pemilihan Langsung dengan Pascakualifikasi 3.1.3.2.1. Undangan kepada Penyedia Barang/Jasa Panitia Pengadaan mengundang sekurang-sekurangnya 2 (dua) Calon Penyedia Barang/Jasa yang diyakini mampu untuk melaksanakan pengadaan Barang/Jasa yang diperlukan. Pendaftaran, Pengambilan Dokumen Pengadaan dan Dokumen Kualifikasi Penyedia Barang/Jasa dilakukan pada saat yang bersamaan. 3.1.3.2.2. Penjelasan Dokumen pengadaan (Aanwijzing) 3.1.3.2.3. Penyampaian Dokumen Penawaran

3.1.3.2.4. Evaluasi penawaran Untuk Pemilihan langsung melalui prakualifikasi dilakukan Evaluasi administrasi, teknis, dan harga terhadap semua penawaran yang masuk serta menyusun urutan penawaran sebagai dasar untuk melakukan klarifikasi dan negosiasi selanjutnya. Untuk Pemilihan langsung melalui pascakualifikasi dilakukan evaluasi kualifikasi, administrasi, teknis, dan harga terhadap semua penawaran yang


L69

masuk serta menyusun urutan penawaran sebagai dasar untuk melakukan klarifikasi dan negosiasi selanjutnya. 3.1.3.2.5. Klarifikasi dan negosiasi dilaksanakan sebagai berikut : a. Sebelum klarifikasi dan negosiasi dilakukan, Panitia Pengadaan membuat pedoman klarifikasi dan negosiasi teknis serta harga. Dalam pedoman klarifikasi dan negosiasi teknis serta harga dicantumkan hal-hal teknis dan item pekerjaan yang akan diklarifikasi dan dinegosiasi. b. Klarifikasi dan negosiasi dilakukan kepada Calon Penyedia Barang/Jasa yang menawarkan harga terendah setelah dievaluasi, sampai terjadi kesepakatan. Klarifikasi dan negosiasi tidak boleh dihadiri oleh Calon Penyedia Barang/Jasa lainnya. c. Klarifikasi dan negosiasi teknis dilakukan untuk mendapatkan Barang/Jasa yang sesuai dengan spesifikasi yang tercantum dalam dokumen pengadaan atau spesifikasi yang lebih baik. d. Bagi Pengadaan Barang/Jasa berdasarkan kontrak harga satuan, Panitia Pengadaan melakukan klarifikasi dan negosiasi terutama terhadap harga satuan item-item pekerjaan yang harga satuan penawarannya lebih tinggi dari harga satuan yang tercantum dalam HPS. e. Bagi Pengadaan Barang/Jasa berdasarkan kontrak lumpsum, Panitia Pengadaan melakukan negosiasi hanya pada harga total saja. f. Setelah klarifikasi dan negosiasi, Panitia Pengadaan meminta kepada Calon Penyedia Barang/Jasa untuk menandatangani berita acara hasil klarifikasi dan negosiasi. Apabila tidak terjadi kesepakatan dengan urutan pertama, maka klarifikasi dan negosiasi dilakukan kepada urutan penawar terendah hasil evaluasi berikutnya. g. Berdasarkan berita acara tersebut, Panitia Pengadaan membuat surat usulan penetapan Penyedia Barang/Jasa kepada Pengguna Barang/Jasa untuk menetapkan pemenang pengadaan. 3.1.3.2.6. Penetapan pemenang a.

Berdasarkan usulan dari Panitia Pengadaan, Pengguna Barang/Jasa menetapkan pemenang pengadaan;

b.

Hasil penetapan pemenang disampaikan kepada seluruh Calon Penyedia Barang/Jasa sebagai pengganti pengumuman hasil pemilihan langsung.

3.1.3.2.7. Sanggahan Mekanisme dan prosedur sanggahan mengikuti ketentuan seperti yang ditetapkan pada angka 2.12 di atas. 3.1.3.2.8. Penunjukan pemenang Pengguna Barang/Jasa menerbitkan Surat Penunjukan Penyedia Barang/Jasa (SPPBJ) kepada Penyedia Barang/Jasa.


L70

3.1.3.2.9. Penandatanganan kontrak Pengguna Barang/Jasa menyiapkan dan menandatangani kontrak pelaksanaan pekerjaan mengikuti ketentuan sebagaimana diatur pada angka 3.1.2.12 di atas. 3.1.4.

Penunjukan Langsung Untuk penunjukan langsung kepada Pabrikan/Agen Tunggal/Pemegang HAKI tidak dilakukan proses kualifikasi. Penunjukan langsung pada prinsipnya melalui proses Prakualifikasi kecuali untuk Penunjukan Langsung Pekerjaan Darurat dilakukan dengan Pascakualifikasi. 3.1.4.1.

Penunjukan Langsung dengan Prakualifikasi 1) Undangan kepada Calon Penyedia Barang/Jasa Panitia Pengadaan mengundang 1 (satu) Calon Penyedia Barang/Jasa yang diyakini mampu untuk melaksanakan Pengadaan Barang/Jasa yang diperlukan. Undangan disampaikan beserta dokumen kualifikasi serta jadual penyampaian dokumen kualifikasi. 2) Penyampaian Dokumen dan Evaluasi Kualifikasi Penyedia Barang/Jasa yang menyampaikan Dokumen Kualifikasi sesuai yang dipersyaratkan disertai pernyataan Penyedia Barang/Jasa yang ditandatangani di atas materai. Panitia Pengadaan melakukan evaluasi atas Dokumen Kualifikasi. Apabila Calon Penyedia Barang/Jasa tidak lulus prakualifikasi, maka Panitia mengundang Calon Penyedia Barang/Jasa lainnya yang diyakini mampu untuk melaksanakan Pengadaan Barang/Jasa. 3) Penetapan Hasil Prakualifikasi Panitia Pengadaan menyampaikan hasil evaluasi kualifikasi Calon Penyedia Barang/Jasa kepada Pengguna Barang/Jasa untuk mendapatkan penetapan. 4) Pengambilan Dokumen Pengadaan Calon Penyedia Barang/Jasa yang telah lulus prakualifikasi diundang untuk mengambil Dokumen Pengadaan; 5) Penjelasan Dokumen pengadaan (bila diperlukan) 6) Penyampaian Dokumen Penawaran 7) Evaluasi penawaran dan Negosiasi Panitia pengadaan melakukan evaluasi, klarifikasi dan negosiasi teknis dan harga. 8) Penetapan Penyedia Barang/Jasa Panitia pengadaan menyampaikan hasil evaluasi, klarifikasi, dan hasil negosiasi serta usulan penetapan Penyedia Barang/Jasa kepada Pengguna Barang/Jasa. 9) Penunjukan Penyedia Barang/Jasa Berdasarkan surat penetapan dari Pengguna Barang/Jasa, Panitia pengadaan mengumumkan atas penetapan Penyedia Barang/Jasa yang ditunjuk untuk pekerjaan dimaksud dan kemudian Pengguna Barang/Jasa menerbitkan surat


L71

penunjukan Penyedia Barang/Jasa (SPPBJ) kepada Penyedia Barang/Jasa yang ditunjuk. 10) Penandatanganan kontrak Pengguna Barang/Jasa menyiapkan dan menandatangani kontrak pelaksanaan pekerjaan mengikuti ketentuan sebagaimana diatur pada angka 3.1.2.12 di atas.

3.1.4.2 Penunjukan Langsung dengan Pascakualifikasi Penunjukan Langsung Pekerjaan Darurat dilakukan dengan Pascakualifikasi dengan cara mengundang kepada Calon Penyedia Barang/Jasa yang sedang melaksanakan kontrak pekerjaan sejenis terdekat yang dinilai mempunyai kemampuan, peralatan, tenaga yang cukup serta kinerja baik dan diyakini dapat melaksanakan pekerjaan dengan tahapan sebagai berikut : a.

Pengguna Barang/Jasa dapat menerbitkan Surat Perintah Mulai Kerja (SPMK), setelah ada pernyataan keadaan darurat dari Manajer/GM/Direksi;

b.

Opname pekerjaan di lapangan dilakukan bersama antara Pengguna dan Penyedia Barang/Jasa, sementara proses dan administrasi pengadaan dapat dilakukan secara simultan;

c.

Perhitungan biaya kontrak berdasarkan harga satuan sejenis dari kontrak yang ada dan perkiraan volume dari pekerjaan yang akan dilaksanakan setelah melalui proses Negosiasi;

d.

Pengguna Barang/Jasa menyiapkan dan menandatangani kontrak pelaksanaan pekerjaan mengikuti ketentuan sebagaimana diatur pada angka 3.1.2.12 di atas.

3.1.5.

Pembelian Langsung Pengadaan barang yang dilakukan melalui pembelian langsung dapat menggunakan SPK atau tanpa SPK. 3.1.5.1.

3.1.5.2.

Proses Pembelian Langsung Tanpa SPK a.

Pejabat Pengadaan mendeskripsikan tipe, jenis, spesifikasi dari barang yang akan dibeli.

b.

Pejabat Pengadaan meyakini bahwa anggaran pembelian langsung telah tersedia.

c.

Pejabat Pengadaan menetapkan Penyedia Barang yang diyakini harga barangnya kompetitif

Proses Pembelian Langsung dengan SPK a. Mendeskripsikan antara lain tipe, jenis, spesifikasi dan jumlah dari barang yang akan dibeli. b. Meyakini bahwa anggaran yang diperlukan untuk pembelian langsung telah tersedia. c. Menetapkan Penyedia Barang yang diyakini harga barangnya kompetitif. d. Pejabat Pengadaan mengusulkan kepada Pengguna Barang untuk menerbitkan SPK sesuai dengan ketentuan huruf a,b,c di atas;


L72

3.2.

Pelaksanaan Pengadaan Jasa Konsultansi 3.2.1.

Seleksi Umum Pengadaan Jasa Konsultansi dengan Seleksi Umum dapat dilakukan dengan tahapan sebagai berikut : 3.2.1.1.

Pengumuman Seleksi Umum Panitia Pengadaan harus mengumumkan secara luas tentang adanya Seleksi Umum melalui media elektronik (e-Procurement PLN) dan papan pengumuman dan/atau surat kabar.

3.2.1.2.

Pendaftaran dan Pengambilan Dokumen Kualifikasi Calon Penyedia Jasa Konsultansi melakukan pendaftaran dan mengambil Dokumen Kualifikasi; Apabila Calon Penyedia Jasa Konsultansi yang mendaftar kurang dari 3 (tiga), maka pengadaan tidak dapat dilanjutkan dan dinyatakan gagal.

3.2.1.3.

Penyampaian Dokumen Kualifikasi Fomulir isian kualifikasi Calon Penyedia Jasa Konsultansi yang memuat ringkasan informasi dari persyaratan kualifikasi disertai pernyataan Calon Penyedia Jasa Konsultansi yang ditandatangani di atas materai, disampaikan kepada Panitia Pengadaan Jasa Konsultansi.

3.2.1.4.

Evaluasi Dokumen Kualifikasi Panitia Pengadaan melakukan evaluasi atas Dokumen Kualifikasi Calon Penyedia Jasa Konsultansi sesuai dengan kriteria kualifikasi yang dipersyaratkan.

3.2.1.5.

Penetapan hasil Prakualifikasi Panitia Pengadaan menyampaikan hasil evaluasi kualifikasi Calon Penyedia Jasa Konsultansi serta Barang/Jasa.

usulan

penetapan

hasil prakualifikasi

kepada

Pengguna

Calon Penyedia Jasa Konsultansi yang lulus prakualifikasi dimasukkan dalam daftar pendek sekurang-kurangnya 3 (tiga) Calon Penyedia Jasa Konsultansi dan sebanyakbanyaknya 7 (tujuh) Calon Penyedia Jasa Konsultansi dengan ketentuan sebagai berikut : a.

Apabila Calon Penyedia Jasa Konsultansi yang lulus prakualifikasi lebih dari 7 (tujuh), maka yang dimasukkan dalam daftar pendek adalah 7 (tujuh) Calon Penyedia Jasa Konsultansi dengan peringkat terbaik;

b.

Apabila Calon Penyedia Jasa Konsultansi yang lulus prakualifikasi kurang dari 7 (tujuh) dan lebih besar atau sama dengan 3 (tiga), maka yang dimasukkan dalam daftar pendek adalah sesuai hasil yang lulus prakualifikasi dengan peringkat terbaik;

c.

Apabila Calon Penyedia Jasa Konsultansi yang lulus prakualifikasi kurang dari 3 (tiga), maka pengadaan tidak dapat dilanjutkan dan dinyatakan gagal.


L73

3.2.1.6.

Pengumuman Hasil Prakualifikasi Hasil prakualifikasi setelah ditetapkan oleh Pengguna Barang/jasa disampaikan kepada seluruh Calon Penyedia Jasa Konsultansi.

3.2.1.7.

Undangan kepada Calon Penyedia Jasa Konsultansi yang masuk Daftar Pendek. Calon Penyedia Jasa Konsultansi yang masuk dalam daftar pendek diundang untuk mengambil dokumen seleksi umum.

3.2.1.8.

Penjelasan (Aanwijzing) a.

Panitia pengadaan menjelaskan isi dokumen pengadaan, menampung pertanyaan Calon Penyedia Jasa Konsultansi, dan memberikan jawaban atas hal-hal yang kurang jelas yang terdapat dalam dokumen seleksi umum;

b.

Panitia pengadaan membuat Berita Acara Penjelasan (Aanwijzing) yang ditandatangani oleh semua anggota Panitia Pengadaan dan 1 (satu) wakil Calon Penyedia Jasa Konsultansi yang hadir;

c.

Berita acara memuat segala keterangan dan perubahan yang dianggap perlu, serta risalah tanya jawab. Apabila terjadi perubahan atau tambahan ketentuan dan persyaratan yang tercantum dalam dokumen seleksi umum harus dituangkan dalam adendum. Berita acara dan adendum ini merupakan bagian yang tidak terpisahkan dari dokumen seleksi umum;

d.

Berita acara dan adendum dokumen seleksi umum wajib disampaikan kepada para Calon Penyedia Jasa Konsutansi dalam waktu yang sama;

e.

Ketidakhadiran Calon Penyedia Jasa Konsultansi dalam rapat penjelasan dan kunjungan lapangan tidak menggugurkan keikutsertaan Calon Penyedia Jasa Konsultansi.

3.2.1.9.

Penyampaian dan Pembukaan Dokumen Penawaran a.

Calon Penyedia Jasa Konsultansi menyampaikan Dokumen Penawaran dalam Jumlah 2 (dua) rangkap.

b.

Penyampaian dan cara pembukaan dokumen penawaran harus mengikuti ketentuan yang dipersyaratkan dalam dokumen Pengadaan Jasa Konsultansi.

c.

Panitia Pengadaan mencatat waktu dan tanggal dokumen penawaran yang diterima melalui pos atau jasa pengiriman pada sampul luar penawaran dan memasukkan ke dalam kotak/tempat pengadaan.

d.

Panitia Pengadaan membuka rapat pembukaan dokumen penawaran, menyatakan dihadapan para Calon Penyedia Jasa Konsultansi bahwa saat pemasukan dokumen penawaran telah ditutup sesuai waktu yang dipersyaratkan. Panitia Pengadaan menolak Dokumen penawaran yang terlambat dan/atau tambahan dokumen dilanjutkan dengan membuka dokumen penawaran yang masuk.

e.

Bagi penawaran yang disampaikan melalui pos atau jasa pengiriman dan diterima terlambat, Panitia Pengadaan membuka sampul luar dokumen penawaran untuk mengetahui alamat Calon Penyedia Barang/Jasa. Panitia


L74

Pengadaan segera memberitahukan kepada Penyedia Jasa Konsultansi yang bersangkutan untuk mengambil kembali seluruh dokumen penawaran. Pengembalian dokumen penawaran disertai dengan bukti serah terima. f.

Tidak diperkenankan mengubah waktu penutupan penyampaian penawaran untuk hal-hal yang tidak penting. Apabila terpaksa dilakukan perubahan waktu penutupan penyampaian penawaran maka perubahan tersebut harus dituangkan di dalam adendum dokumen pengadaan dan disampaikan pada seluruh Calon Penyedia Jasa Konsultansi.

g.

Pembukaan dokumen penawaran yang masuk dilaksanakan sebagai berikut 1) Panitia Pengadaan meminta kesediaan 2 (dua) wakil dari Calon Penyedia Jasa Konsultansi yang hadir sebagai saksi. Apabila tidak terdapat saksi dari Calon Penyedia Jasa Konsultansi yang hadir, Panitia pengadaan menunda pembukaan kotak/tempat pemasukan dokumen penawaran sampai dengan waktu tertentu yang ditentukan Panitia Pengadaan. Setelah sampai batas waktu yang telah ditentukan, wakil Calon Penyedia Jasa Konsultansi tetap tidak ada yang hadir, acara pembukaan kotak/tempat pemasukan dokumen penawaran dilakukan dengan disaksikan oleh 2 (dua) orang saksi di luar Panitia Pengadaan yang ditunjuk secara tertulis oleh Panitia Pengadaan. 2) Panitia Pengadaan meneliti isi kotak/tempat pemasukan dokumen penawaran dan menghitung jumlah sampul penawaran yang masuk (tidak dihitung surat pengunduran diri) dan bila penawaran yang masuk kurang dari 3 (tiga), pengadaan tidak dapat dilanjutkan dan dinyatakan gagal.

h.

Pembukaan dokumen penawaran untuk setiap sistem dilakukan sebagai berikut : 1)

Untuk Sistem Satu Sampul, Panitia Pengadaan membuka sampul dokumen penawaran di hadapan Penyedia Jasa Konsultansi.

2)

Untuk Sistem Dua Sampul, Panitia Pengadaan membuka sampul I di hadapan para Calon Penyedia Jasa Konsultansi. Sampul I yang berisi data administrasi dan teknis dibuka, dan dijadikan lampiran berita acara pembukaan dokumen penawaran sampul I. Sampul II yang berisi data harga tidak boleh dibuka dan sampulnya dituliskan identitas perusahaan dan diparaf oleh Panitia pengadaan dan 2 (dua) orang wakil Calon Penyedia Jasa Konsultansi sebelum disimpan oleh Panitia Pengadaan.

3)

Untuk Sistem Dua Tahap, Panitia Pengadaan membuka sampul penawaran yang berisi data administrasi dan teknis di hadapan Calon Penyedia Jasa Konsultansi. Hasil pembukaan penawaran dijadikan lampiran berita acara pembukaan dokumen penawaran tahap I. Penawaran yang berisi data harga (tahap II) disampaikan Calon Penyedia Jasa Konsultansi yang mempunyai peringkat teknis terbaik.

i.

Panitia Pengadaan memeriksa, menunjukkan dan membacakan di hadapan para Calon Penyedia Jasa Konsultansi mengenai kelengkapan dokumen penawaran:


L75

1)

2)

Untuk satu sampul, terdiri atas : a)

Surat penawaran yang di dalamnya tercantum masa berlaku penawaran;

b)

Harga penawaran yang dilengkapi dengan materai, tanggal dan tandatangan.

Untuk dua sampul, terdiri atas: a)

Sampul Pertama (1) Surat penawaran yang di dalamnya tercantum masa berlaku penawaran tanpa mencantumkan harga penawaran; (2) Dokumen penawaran teknis dan dokumen pendukung lainnya yang disyaratkan dalam dokumen pengadaan.

b)

Sampul Kedua

Harga penawaran yang dilengkapi dengan materai, tanggal dan tandatangan. 3)

Untuk dua tahap, terdiri atas : a)

Tahap Pertama (1) Surat penawaran yang di dalamnya tercantum masa berlaku penawaran tanpa mencantumkan harga penawaran; (2) Dokumen penawaran teknis dan dokumen pendukung lainnya yang disyaratkan dalam dokumen pengadaan.

b)

Tahap Kedua Harga penawaran yang dilengkapi dengan materai, tanggal dan tandatangan. a.

Panitia Pengadaan tidak perlu mempersyaratkan kembali syaratsyarat administrasi pada dokumen pengadaan yang telah menjadi persyaratan kualifikasi Penyedia Jasa Konsultansi;

b.

Panitia Pengadaan tidak boleh menggugurkan penawaran Calon Penyedia Jasa Konsultansi pada saat pembukaan penawaran, kecuali penawaran dari Calon Penyedia Jasa Konsultansi yang terlambat memasukkan penawaran;

c.

Panitia Pengadaan segera membuat berita acara pembukaan dokumen penawaran terhadap semua penawaran yang masuk;

d.

Setelah dibacakan dengan jelas, berita acara ditandatangani oleh semua anggota Panitia Pengadaan dan 2 (dua) wakil dari Calon Penyedia Jasa Konsultansi yang hadir;

e.

Dalam hal terjadi penundaan waktu pembukaan penawaran, maka penyebab penundaan tersebut harus dimuat dengan jelas di dalam berita acara pembukaan penawaran (BAPP).


L76

3.2.1.10. Evaluasi Penawaran sampul I (Metoda 2 sampul) Evaluasi Penawaran sampul I meliputi evaluasi administrasi dan teknis berdasarkan kriteria, metoda, dan tata cara evaluasi yang telah ditetapkan dalam dokumen pengadaan. a.

Evaluasi Administrasi 1)

Penilaian terhadap data administrasi hanya dilakukan terhadap hal-hal yang tidak dilakukan penilaian pada saat prakualifikasi;

2)

Penawaran dinyatakan memenuhi persyaratan administrasi, apabila: a)

Syarat-syarat yang diminta berdasarkan dokumen pengadaan dipenuhi/dilengkapi dan isi setiap dokumen benar serta dapat dipastikan bahwa dokumen penawaran ditandatangani oleh orang yang berwenang;

b)

Mencantumkan masa berlakunya penawaran sesuai yang diminta dalam dokumen pengadaan.

3)

Penawaran yang lulus administrasi dilanjutkan dengan evaluasi teknis.

4)

Dokumen penawaran teknis dan penawaran biaya bagi penawaran yang dinyatakan gugur administrasi dapat diambil kembali oleh Calon Penyedia Jasa Konsultansi yang bersangkutan.

b.

Evaluasi Teknis 1)

Penilaian penawaran teknis dilakukan dengan cara memberikan nilai angka terhadap unsur penawaran teknis dengan memperhatikan bobot yang diberikan pada unsur-unsur yang dinilai.

2)

Unsur-unsur pokok yang dinilai adalah pengalaman Calon Penyedia Jasa Konsultansi, pendekatan dan metodologi, serta kualifikasi tenaga ahli.

3)

Penilaian dilakukan sesuai pembobotan dari masing-masing unsur yang telah ditentukan dalam dokumen seleksi umum. Pada saat menyusun dokumen seleksi umum, acuan yang digunakan untuk pembobotan sesuai dengan rentang sebagai berikut : Unsur

Bobot (%)

•

Pengalaman Perusahaan

10 - 20

•

Pendekatan dan Metodologi

20 - 40

•

Kualifikasi Tenaga Ahli

50 - 70

Jumlah

100

4)

Penetapan bobot yang digunakan untuk masing-masing unsur, dalam rentang tersebut di atas didasarkan pada jenis pekerjaan jasa yang akan dilaksanakan.

5)

Untuk jasa studi analisis perlu diberikan penekanan kepada pengalaman perusahaan Jasa Konsultansi dan pendekatan metodologi, sedangkan untuk jasa supervisi dan perencanaan teknis, penekanan lebih diberikan kepada kualifikasi tenaga ahli.


L77

6)

Pengalaman Perusahaan Jasa Konsultansi : a)

Penilaian dilakukan atas pengalaman perusahaan jasa konsultansi dalam melaksanakan pekerjaan sejenis dengan pekerjaan yang dipersyaratkan dalam KAK untuk 7 (tujuh) tahun terakhir. Pengalaman kerja di Indonesia dan atau di lokasi proyek mendapat tambahan nilai. Pengalaman tersebut diuraikan secara jelas dengan mencantumkan informasi nama pekerjaan yang dilaksanakan, lingkup dan data pekerjaan yang dilaksanakan secara singkat, lokasi, pemberi tugas, nilai, dan waktu pelaksanaan (menyebutkan bulan dan tahun).

b)

Pengalaman Perusahaan Jasa konsultansi harus dilengkapi dengan referensi dari Pengguna Barang/Jasa, yang menunjukkan kinerja Penyedia Jasa Konsultansi yang bersangkutan selama 7 (tujuh) tahun terakhir. Sub unsur yang dinilai, antara lain: (1) Pengalaman melaksanakan proyek/ kegiatan sejenis; (2) Pengalaman melaksanakan proyek/ kegiatan di Indonesia dan atau di lokasi proyek/kegiatan; (3) Pengalaman manajerial dan fasilitas utama; (4) Kapasitas perusahaan dengan memperhatikan jumlah tenaga ahli tetap.

7)

Pendekatan dan Metodologi: a)

Untuk menilai pemahaman konsultan atas lingkup pekerjaan/jasa layanan yang diminta dalam KAK, pemahaman atas sasaran/tujuan, kualitas metodologi, dan hasil kerja, subunsur yang dinilai antara lain: (1) Pemahaman atas jasa layanan yang tercantum dalam KAK, penilaian terutama meliputi pengertian terhadap tujuan proyek/kegiatan, lingkup serta jasa konsultansi yang diperlukan (aspek-aspek utama yang diindikasikan dalam KAK), dan pengenalan lapangan; (2) Kualitas metodologi, penilaian terutama meliputi ketepatan menganalisa masalah dan langkah pemecahan yang diusulkan dengan tetap mengacu kepada persyaratan KAK, konsistensi antara metodologi dengan rencana kerja, apresiasi terhadap inovasi, tanggapan terhadap KAK khususnya mengenai data yang tersedia, orang bulan (person-month) tenaga ahli, uraian tugas, jangka waktu pelaksanaan laporan-laporan yang disyaratkan, jenis keahlian serta jumlah tenaga ahli yang diperlukan, program kerja, jadual pekerjaan, jadual penugasan, organisasi, kebutuhan jumlah orang bulan, dan kebutuhan fasilitas penunjang; (3) Hasil kerja (deliverable), penilaian meliputi antara lain : analisis, gambar-gambar kerja, spesifikasi teknis, perhitungan teknis, dan laporan-laporan;


L78

(4) Fasilitas pendukung dalam melaksanakan pekerjaan yang diminta dalam KAK. b)

Konsultan yang mengajukan gagasan baru yang meningkatkan kualitas keluaran yang diinginkan dalam KAK diberikan nilai lebih.

8)

Kualifikasi Tenaga Ahli a)

Penilaian dilakukan atas tenaga ahli yang diusulkan untuk melaksanakan pekerjaan dengan memperhatikan jenis keahlian, persyaratan, serta jumlah tenaga yang telah diindikasikan di dalam KAK. Sub unsur yang dinilai, antara lain: (1) Tingkat pendidikan, yaitu lulusan perguruan tinggi negeri atau perguruan tinggi swasta yang telah lulus ujian negara atau yang telah diakreditasi, atau perguruan tinggi luar negeri yang telah diakreditasi, dibuktikan dengan salinan ijazah; (2) Pengalaman kerja profesional seperti yang disyaratkan dalam KAK, didukung dengan referensi dari pengguna jasa. Bagi tenaga ahli yang diusulkan sebagai pemimpin/wakil pemimpin pelaksana pekerjaan (Team Leader/Co Team Leader) dinilai pula pengalaman sebagai pemimpin/wakil pemimpin tim; (3) Lain-lain : penguasaan bahasa Inggris, bahasa Indonesia (bagi konsultan Asing), bahasa setempat, aspek pengenalan (familiarity) atas tata-cara, aturan, situasi, dan kondisi (custom) setempat. Personil yang menguasai/memahami aspek-aspek tersebut di atas diberikan nilai lebih tinggi.

b)

Kualifikasi dari tenaga ahli yang melebihi kualifikasi dari persyaratan KAK tidak memperoleh tambahan nilai.

c)

Penetapan Peringkat Teknis (1) Berdasarkan evaluasi penawaran teknis, Panitia Pengadaan menetapkan urutan Penyedia Jasa Konsultansi yang dituangkan dalam berita acara evaluasi penawaran teknis; (2) Panitia Pengadaan melaporkan hasil penilaian teknis kepada Pengguna Barang/Jasa untuk dimintakan persetujuan.

d)

Pengumuman Peringkat Hasil evaluasi teknis setelah ditetapkan oleh Pengguna Barang/Jasa disampaikan kepada seluruh Calon Penyedia Jasa Konsultansi.

3.2.1.11. Pembukaan Penawaran Harga (sampul II/tahap II) Peringkat Teknis Terbaik. a.

Dalam hal menggunakan metoda evaluasi kualitas, maka Panitia Pengadaan hanya membuka sampul II Calon Penyedia Jasa Konsultansi peringkat teknis terbaik, sedangkan untuk metoda 2 tahap hanya Calon Penyedia Jasa Konsultansi peringkat teknis terbaik yang memasukkan penawaran harga.


L79

b.

Dalam hal menggunakan metoda evaluasi kualitas teknis dan biaya, maka Panitia Pengadaan mengundang Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis untuk menghadiri acara pembukaan penawaran sampul II sebagai berikut: 1)

Panitia Pengadaan menyebutkan Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis;

2)

Panitia Pengadaan menyebutkan ketentuan pembobotan nilai kombinasi evaluasi penawaran teknis dan nilai evaluasi penawaran biaya sebagaimana tercantum dalam dokumen pengadaan;

3)

Panitia Pengadaan membuka sampul II dari seluruh Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis;

4)

Panitia Pengadaan membacakan dan menulis biaya penawaran dari tiap Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis;

5)

Panitia Pengadaan melakukan evaluasi gabungan teknis dan biaya sebagai berikut: a)

Melakukan koreksi aritmatik;

b)

Menghitung nilai kombinasi antara nilai penawaran teknis dan nilai penawaran biaya dengan cara perhitungan sebagai berikut: Nilai Akhir = [Nilai (score) Penawaran Teknis x Bobot Penawaran] + [Nilai (score) Penawaran Biaya x Bobot Penawaran Biaya] Catatan : Pembobotan nilai (score) teknis dan biaya sesuai dengan bobot yang telah ditentukan dalam dokumen seleksi umum. Pada saat menyusun dokumen seleksi umum, acuan yang digunakan untuk pembobotan sesuai dengan rentang sebagai berikut : Bobot penawaran teknis antara 0,50 sampai 0,80 Bobot penawaran biaya antara 0,20 sampai 0,50 Nilai penawaran biaya terendah diberikan nilai (score) penawaran biaya tertinggi

c)

Hasil dari peringkat gabungan tersebut akan dijadikan dasar untuk penetapan peringkat Calon Penyedia Jasa Konsultansi.

6)

Panitia Pengadaan membuat berita acara pembukaan penawaran biaya, yang mencantumkan penawaran biaya, penawaran biaya terkoreksi, nilai (score) penawaran teknis, nilai (score) penawaran biaya, dan nilai gabungan penawaran teknis dan penawaran biaya. Berita acara ditandatangani oleh semua anggota Panitia Pengadaan dan 2 (dua) wakil Calon Penyedia Jasa Konsultansi.


L80

c.

Dalam hal menggunakan metoda evaluasi biaya terendah, maka Panitia pengadaan mengundang Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis untuk menghadiri acara pembukaan penawaran sampul II sebagai berikut: 1)

Panitia Pengadaan membuka sampul II dari seluruh Calon Penyedia Jasa Konsultansi yang lulus evaluasi teknis;

2)

Panitia Pengadaan membacakan dan menulis biaya penawaran dari tiap Calon Penyedia Jasa Konsultansi;

3)

Panitia Pengadaan melakukan evaluasi sebagai berikut: a)

Melakukan koreksi aritmatik;

b)

Untuk pekerjaan tidak kompleks, menetapkan pemenang yang harga penawaran terkoreksinya terendah dan tidak melampaui HPS. Sedangkan untuk pekerjaan kompleks, menetapkan pemenang yang harga penawaran terkoreksinya terendah dan tidak melampaui 10 % diatas HPS.

4)

Panitia Pengadaan membuat berita acara pembukaan penawaran biaya, yang mencantumkan penawaran biaya, penawaran biaya terkoreksi, dan nilai penawaran teknis. Berita acara ditandatangani oleh semua anggota Panitia Pengadaan dan 2 (dua) wakil Calon Penyedia Jasa Konsultansi.

3.2.1.12. Klarifikasi dan Negosiasi Panitia Pengadaan melakukan klarifikasi dan negosiasi kepada calon pemenang seleksi umum dengan ketentuan sebagai berikut: a.

Klarifikasi

dan

negosiasi

dilakukan

oleh

Panitia

Pengadaan

Pemimpin/Direktur utama perusahaan Penyedia jasa Konsultansi atau wakil yang memperoleh kuasa penuh dari Pemimpin/Direktur utama perusahaan (dinyatakan dengan surat kuasa); b.

Dalam hal penilaian menggunakan metoda evaluasi kualitas, klarifikasi dan negosiasi dilakukan untuk memperoleh kejelasan teknis dan biaya dengan memperhatikan kesesuaian antara bobot pekerjaan dan tenaga ahli yang ditugaskan dengan mempertimbangkan pula kebutuhan perangkat/fasilitas pendukung yang proporsional guna pencapaian hasil kerja yang optimal.

c.

Aspek-aspek teknis yang perlu diklarifikasi dan dinegosiasi terutama: 1)

Lingkup dan sasaran jasa konsultansi;

2)

Cara penanganan pekerjaan dan rencana kerja;

3)

Kualifikasi tenaga ahli;

4)

Organisasi pelaksanaan;

5)

Program alih pengetahuan;

6)

Jadual pelaksanaan pekerjaan;

7)

Jadual penugasan personil;

8)

Fasilitas penunjang.


dengan

L81

d.

Klarifikasi dan/atau negosiasi dilakukan untuk memperoleh kesepakatan biaya yang efisien dan efektif dengan tetap mempertahankan hasil yang ingin dicapai sesuai dengan penawaran teknis yang diajukan konsultan.

e.

Aspek - aspek biaya yang perlu diklarifikasi dan/atau dinegosiasi terutama : 1)

Kesesuaian rencana kerja dengan jenis pengeluaran biaya;

2)

Volume kegiatan dan jenis pengeluaran;

3)

Biaya

satuan

dibandingkan

dengan

biaya

yang

berlaku

di

pasaran/kewajaran biaya. f.

Klarifikasi dan/atau negosiasi terhadap unit biaya personil dilakukan berdasarkan daftar gaji yang telah diaudit atau bukti setor pajak penghasilan tenaga ahli konsultan yang bersangkutan atau kontrak pekerjaan sejenis yang lalu/sedang berjalan atau standard rate instansi/lembaga terkait atau corporate rate atau dokumen lain yang dapat dipertanggungjawabkan keabsahannya.

g.

Unit biaya personil dihitung berdasarkan satuan waktu dengan ketentuan sebagai berikut : 1) 1 (satu) bulan dihitung minimal 22 (dua puluh dua) hari kerja; 2) 1 (satu) hari kerja dihitung minimal 8 (delapan) jam kerja.

h.

Apabila klarifikasi dan negosiasi dengan Calon Penyedia Jasa Konsultansi peringkat pertama tidak menghasilkan kesepakatan, maka Panitia Pengadaan melanjutkan klarifikasi dan negosiasi kepada Calon Penyedia Jasa Konsultansi peringkat kedua, dan demikian seterusnya dari Calon Penyedia Jasa Konsultansi yang lulus atau di atas nilai ambang batas sampai tercapai kesepakatan.

i.

Panitia Pengadaan membuat berita acara hasil klarifikasi dan negosiasi dilampiri pernyataan Calon Penyedia Jasa Konsultansi tentang telah/tidak tercapainya kesepakatan klarifikasi dan negosiasi.

j.

Panitia Pengadaan menyusun risalah dan Berita Acara hasil klarifikasi dan negosiasi serta melaporkan hasilnya kepada Pengguna Barang/Jasa untuk ditetapkan.

3.2.1.13. Usulan Penetapan Pemenang Pengadaan a.

Panitia Pengadaan mengusulkan menguntungkan bagi PLN.

calon

pemenang

pengadaan

b.

Dalam hal terdapat 2 (dua) Calon Penyedia Jasa Konsultansi mempunyai harga penawaran hasil evaluasi yang sama, maka Panitia Pengadaan meneliti kembali data kualifikasi Calon Penyedia Jasa Konsultansi yang bersangkutan, dan memilih Calon Penyedia Jasa Konsultansi yang menurut pertimbangannya mempunyai kemampuan yang lebih besar, dan hal ini dicatat dalam berita acara.

c.

Panitia Pengadaan membuat dan menyampaikan laporan kepada Pengguna Barang/Jasa untuk menetapkan pemenang pengadaan. Laporan tersebut disertai usulan calon pemenang dan penjelasan atau keterangan lain yang dianggap perlu sebagai bahan pertimbangan untuk mengambil keputusan.


yang

L82

d.

Usulan penetapan pemenang pengadaan disusun sesuai dengan urutannya dan harus memuat :

e.

1)

Nama dan alamat Penyedia Barang/Jasa;

2)

Harga penawaran setelah dikoreksi aritmatik;

3)

Nomor Pokok Wajib Pajak (NPWP).

Pemenang pengadaan ditetapkan oleh Pengguna Barang/Jasa berdasarkan usulan Panitia Pengadaan. Pengguna Barang/Jasa segera menetapkan pemenang pengadaan dan mengeluarkan Surat Penetapan Penyedia Jasa Konsultansi (SPPJK) kepada Panitia Pengadaan.

f.

Data pendukung yang diperlukan untuk menetapkan pemenang pengadaan adalah : 1)

Dokumen pengadaan beserta addendum (bila ada);

2)

Berita acara pembukaan penawaran (BAPP);

3)

Berita acara hasil proses pengadaan (BAHP);

4)

Dokumen penawaran dari calon pemenang pengadaan dan cadangan calon pemenang.

3.2.1.14. Pengumuman Pemenang Pengadaan Pemenang pengadaan diumumkan dan diberitahukan oleh panitia pengadaan kepada para Calon Penyedia Jasa Konsultansi setelah diterimanya Surat Penetapan Penyedia Jasa Konsultansi dari Pengguna Barang/Jasa 3.2.1.15. Sanggahan Calon Penyedia Jasa Konsultansi yang berkeberatan atas penetapan pemenang, diberikan kesempatan untuk mengajukan sanggahan secara tertulis kepada Pengguna Barang/Jasa 3.2.1.16. Penerbitan Surat Penunjukan Penyedia Jasa Konsultansi a.

Pengguna Barang/Jasa mengeluarkan Surat Penunjukan Penyedia Jasa Konsultansi kepada Penyedia Jasa Konsultansi sebagai pelaksana pekerjaan yang diadakan, dengan ketentuan:

b.

1)

Tidak ada sanggahan dari Calon Penyedia Jasa Konsultansi; atau

2)

Sanggahan yang diterima Pengguna Barang/Jasa dalam masa sanggah ternyata tidak benar, atau sanggahan diterima melewati masa sanggah

Calon Penyedia Jasa Konsultansi yang ditunjuk sebagai Penyedia Jasa Konsultansi wajib menerima keputusan tersebut. Apabila yang bersangkutan mengundurkan diri maka Penyedia Jasa Konsultansi tersebut dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Jasa Konsultansi di PLN untuk jangka waktu 2 (dua) tahun kecuali alasan pengunduran diri tersebut dapat diterima secara objektif oleh Pengguna Barang/Jasa


L83

c.

Apabila calon pemenang pengadaan urutan pertama yang ditunjuk sebagai Penyedia Jasa Konsultansi mengundurkan diri, maka penunjukan Penyedia Jasa Konsultansi dapat dilakukan kepada Calon Penyedia Jasa Konsultansi urutan kedua (jika ada) sesuai dengan harga penawarannya, dengan ketentuan: 1)

Penetapan pemenang pengadaan urutan kedua tersebut harus terlebih dahulu mendapat persetujuan/penetapan dari Pengguna Barang/Jasa;

2)

Masa penawaran calon pemenang pengadaan urutan kedua masih berlaku atau sudah diperpanjang masa berlakunya;

3)

d.

Bila calon pemenang pertama mengundurkan diri, maka berlaku sanksi sebagaimana dimaksud pada angka 3.2.1.16 huruf b di atas.

Apabila calon pemenang pengadaan urutan kedua juga mengundurkan diri, maka penetapan Penyedia Jasa Konsultansi dapat dilakukan kepada calon pemenang urutan ketiga (jika ada) sesuai dengan harga penawarannya, dengan ketentuan: 1)

Penetapan pemenang pengadaan tersebut harus terlebih dahulu mendapat persetujuan/penetapan dari Pengguna Barang/Jasa;

2)

Masa berlakunya penawaran calon pemenang pengadaan urutan ketiga masih berlaku atau sudah diperpanjang;

3)

Bila calon pemenang kedua mengundurkan diri, maka berlaku sanksi sebagaimana dimaksud pada angka 3.2.1.16 huruf b di atas.

e. Apabila calon pemenang ketiga mengundurkan diri, maka berlaku sanksi sebagaimana dimaksud pada angka 3.2.1.16 huruf b di atas dan pengadaan dinyatakan batal. f. Surat Penunjukan Penyedia Jasa Konsultansi dibuat setelah masa sanggah dilewati dan segera disampaikan kepada Penyedia Jasa Konsultansi yang ditunjuk. 3.2.1.17. Penandatangan Kontrak Setelah Surat Penunjukan Penyedia Jasa Konsultansi diterbitkan, Pengguna Barang/Jasa menyiapkan dan menandatangani kontrak pelaksanaan pekerjaan apabila dananya telah tersedia, dengan ketentuan sebagai berikut: a.

Apabila Penyedia Jasa Konsultansi yang ditunjuk menolak/mengundurkan diri atau gagal untuk menandatangani kontrak, maka Pengguna Barang/Jasa membatalkan Surat Penunjukan Penyedia Jasa Konsultansi, Penyedia Jasa Konsultansi tersebut dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Jasa Konsultansi di PLN untuk jangka waktu 2 (dua) tahun kecuali alasan pengunduran diri tersebut dapat diterima secara objektif oleh Pengguna Barang/Jasa;

b.

Pengguna dan Penyedia Jasa Konsultansi tidak diperkenankan mengubah dokumen pengadaan setelah pembukaan penawaran sampai dengan penandatanganan kontrak. Perubahan dokumen pengadaan sebelum pembukaan penawaran dapat dilakukan dengan pemberitahuan secara tertulis dari Pengguna kepada Penyedia Jasa Konsultansi;


L84

c.

Pengguna dan Penyedia Jasa Konsultansi wajib memeriksa konsep kontrak meliputi substansi, bahasa/redaksional, angka, dan huruf serta membubuhkan paraf pada lembar demi lembar dokumen kontrak;

d.

Banyaknya rangkap kontrak dibuat sesuai kebutuhan, yaitu: 1)

Sekurang-kurangnya 2 (dua) kontrak asli, kontrak asli pertama untuk Pengguna Barang/Jasa dibubuhi materai pada bagian yang ditandatangani oleh Penyedia Jasa Konsultansi, dan kontrak asli kedua untuk Penyedia Jasa Konsultansi dibubuhi materai pada bagian yang ditandatangani oleh Pengguna Barang/Jasa;

2) 3.2.2.

Rangkap kontrak asli lainnya tanpa dibubuhi materai.

Seleksi Langsung Tata cara seleksi langsung pada prinsipnya sama dengan tata cara seleksi umum, dengan mengirimkan undangan kepada Calon Penyedia Jasa Konsultansi yang lulus prakualifikasi yang dimasukkan dalam daftar pendek sekurang-kurangnya 2 (dua) Calon Penyedia Jasa Konsultansi dan sebanyak-banyaknya 5 (lima) Calon Penyedia Jasa Konsultansi .

3.2.3.

Penunjukan Langsung Proses penunjukan langsung dilakukan sebagai berikut : 3.2.3.1.

3.2.3.2.

Undangan a.

Panitia Pengadaan mengundang 1 (satu) Calon Penyedia Jasa Konsultansi yang diyakini mampu untuk melaksanakan Jasa yang diperlukan.

b.

Dalam dokumen pengadaan ditetapkan jadual untuk rapat penjelasan dan pemasukan dokumen penawaran.

Pemasukan dan evaluasi Dokumen Kualifikasi serta penjelasan a.

Panitia pengadaan menerima Dokumen Kualifikasi dan melakukan penilaian kualifikasi;

b.

Apabila dari hasil penilaian, ternyata Calon Penyedia Jasa Konsultansi tidak memenuhi kualifikasi, maka diundang Calon Penyedia Jasa Konsultansi yang lain;

c.

Panitia pengadaan memberikan penjelasan dokumen pengadaan kepada Calon Penyedia Jasa Konsultansi yang memenuhi kualifikasi.

3.2.3.3.

Pemasukan penawaran Calon Penyedia Jasa Konsultansi memasukkan penawaran pada waktu dan tempat yang telah ditetapkan.

3.2.3.4.

Pembukaan dan evaluasi penawaran Penawaran teknis dan harga dibuka sekaligus: a.

Evaluasi penawaran teknis dan penawaran harga dilakukan bersamaan sebelum dilakukan klarifikasi dan negosiasi penawaran teknis dan penawaran harga.


L85

b.

Unsur-unsur pokok yang dinilai adalah : pengalaman Calon Penyedia Jasa Konsultansi, pendekatan dan metodologi, serta kualifikasi tenaga ahli. Evaluasi dilakukan dalam rangka mencari kesesuaian antara usulan teknis dan biaya dengan kebutuhan jasa konsultansi yang dituangkan dalam KAK.

3.2.3.5.

Klarifikasi dan negosiasi teknis dan biaya a.

Panitia pengadaan melakukan klarifikasi dan negosiasi teknis dan harga kepada Calon Penyedia Jasa Konsultansi yang akan ditunjuk sebagaimana pada pengadaan jasa konsultansi metoda seleksi umum.

b.

Panitia pengadaan membuat berita acara klarifikasi dan negosiasi yang ditandatangani Panitia pengadaan dan Calon Penyedia Jasa Konsultansi serta membuat laporan hasil klarifikasi dan negosiasi kepada Pengguna Barang/Jasa.

3.2.3.6.

Penunjukan Penyedia Jasa Konsultansi Pengguna Barang/jasa menunjuk Penyedia Jasa Konsultansi berdasarkan hasil klarifikasi dan negosiasi.

3.2.3.7. 3.3.

Penandatanganan kontrak

Pelaksanaan Pengadaan Jasa Lainnya Proses Pengadaan Jasa lainnya dapat diproses seperti halnya proses Pengadaan Barang.

3.4.

Pelaksanaan Joint Procurement 3.4.1

Joint Procurement dilakukan dengan metoda Pelelangan melalui e-auction untuk mendapatkan kontrak Kesepakatan Harga Satuan (KHS).

3.4.2

Joint Procurement digunakan untuk pengadaan barang-barang yang sering digunakan PLN dalam jumlah besar, misal : Material Distribusi Utama (MDU) atau barang-barang sejenis.

3.4.3

Pelelangan dapat dilaksanakan oleh satu Pengguna Barang/Jasa yang mewakili beberapa Pengguna Barang/Jasa lainnya.

3.4.4

Proses Pelaksanaan Joint Procurement, dengan ketentuan sebagai berikut 3.4.4.1

Beberapa Pengguna Barang/Jasa menunjuk salah satu pengguna untuk mewakili pengguna barang/jasa lainnya dalam melaksanakan proses Joint Procurement;

3.4.4.2

Pengguna

yang

mewakili

tersebut

mengangkat

Panitia

Pengadaan

melaksanakan proses joint procurement; 3.4.4.3

Panitia melaksanakan Joint Procurement dengan metoda Pelelangan sesuai dengan Pelaksanaan Pelelangan yang diatur dalam Keputusan Direksi ini.

3.4.4.4

Pengguna yang mewakili menerbitkan surat penunjukan pemenang KHS.

3.4.4.5

Pengguna yang mewakili menyampaikan hasil KHS berupa RKS, Berita Acara Aanwizing, Surat Penawaran Harga kepada Pengguna lainnya yang terwakili untuk selanjutnya ditindaklanjuti dengan pembuatan kontrak dengan Penyedia Barang/Jasa pemenang KHS.

3.4.4.6

Pengguna lainnya yang terwakili dapat mendelegasikan pembuatan kontrak ke Pejabat yang diberi kuasa.


untuk

L86

3.5.

Pelaksanaan Pengadaan Barang/Jasa untuk Pekerjaan Penanggulangan Bencana Alam dan Bantuan Korban Bencana Alam 3.5.1.

Bencana Alam adalah bencana yang diakibatkan oleh peristiwa atau serangkaian peristiwa yang disebabkan oleh alam antara lain berupa gempa bumi, tsunami, gunung meletus, banjir, kekeringan, angin topan, dan tanah longsor yang mengakibatkan terputusnya pelayanan kepada pelanggan PLN.

3.5.2.

Pekerjaan Kondisi darurat untuk keperluan penanggulangan bencana dapat dilaksanakan dengan menggunakan konstruksi darurat dengan ketentuan sebagai berikut : 3.5.2.1.

Konstruksi darurat harus diselesaikan dalam waktu yang sesingkat-singkatnya untuk menghindari kerugian PLN;

3.5.2.2.

Konstruksi darurat harus dapat mengatasi kelangsungan pelayanan listrik kepada pelanggan dan harus tetap memenuhi persyaratan teknis sebagai jenis pekerjaan darurat walaupun kemampuan konstruksinya dapat lebih rendah, dan pengamatan atas kestabilan konstruksi/ perawatannya harus diawasi secara terus menerus.

3.5.3.

Proses Pengadaan Barang/Jasa untuk pekerjaan penanggulangan Bencana Alam. 3.5.3.1.

Pengadaan Barang/Jasa dilakukan dengan Penunjukan langsung kepada Penyedia Barang/Jasa yang sedang melaksanakan kontrak pekerjaan sejenis terdekat yang dinilai mempunyai kemampuan, peralatan, tenaga yang cukup serta kinerja baik dan diyakini dapat melaksanakan pekerjaan dengan tahapan sebagai berikut : a.

Pengguna Barang/Jasa dapat menerbitkan Surat Perintah Mulai Kerja (SPMK), setelah ada pernyataan bencana alam dari Presiden/ Gubernur/ Bupati/ Walikota;

b.

Opname pekerjaan di lapangan dilakukan bersama antara Pengguna dan Penyedia Barang/Jasa, sementara proses dan administrasi pengadaan dapat dilakukan secara simultan;

c.

3.5.3.2.

Perhitungan biaya kontrak berdasarkan harga satuan sejenis dari kontrak yang ada dan perkiraan volume dari pekerjaan yang akan dilaksanakan.

Dalam hal Penyedia Barang/Jasa yang sedang melaksanakan kontrak pekerjaan sejenis terdekat tidak tersedia, maka proses pengadaan Barang/Jasa dapat dilaksanakan dengan tahapan sebagaimana diatur pada angka 3.1.4 dan 3.2.3.

3.5.4.

Pengadaan Barang/Jasa untuk bantuan korban bencana alam dapat dilakukan melalui Penunjukan Langsung dan/atau Pembelian Langsung.


L87

BAB IV PENGADAAN KHUSUS

4.1.

Pengadaan Energi Primer Energi Primer terdiri dari Energi Terbarukan (ET) dan Energi Tidak Terbarukan (ETT). Proses pengadaan Energi Primer mengikuti Keputusan ini, kecuali ditentukan lain oleh Peraturan Perundang-undangan yang berlaku dan atau Keputusan Direksi yang mengatur khusus pengadaan energi primer. 4.1.1.

Energi Terbarukan Energi Terbarukan mencakup antara lain : aliran & terjunan air, panas bumi, angin, sinar matahari, gerakan & perbedaan suhu lapisan laut dan bioenergi.

4.1.2.

Energi Tidak Terbarukan Energi tidak terbarukan mencakup antara lain: Minyak Bumi, Gas Bumi /LNG/CNG/Gas Bumi lainnya, Batubara, Gambut dan serpihan bitumen. 4.1.2.1.

Pengadaan Minyak Bumi/BBM dapat dilakukan dengan metoda Pelelangan atau Penunjukan langsung sesuai kriteria pemilihan metoda pada angka 2.7.1 dan 2.7.3 yang pesertanya terdiri dari: a.

Penyedia BBM dalam negeri yang memiliki Ijin Usaha Niaga BBM dari Departemen Energi dan Sumber Daya Mineral (ESDM);dan/atau

b. 4.1.2.2.

Penyedia BBM luar negeri.

Pengadaan Gas Bumi dapat dilakukan dengan metoda: a.

Pelelangan sesuai kriteria pemilihan metoda pada angka 2.7.1 yang pesertanya terdiri dari : 1)

Penyedia Gas Bumi di sisi hulu termasuk production sharing contract (KPS); atau

2) b.

Penyedia Gas Bumi di sisi hilir yang memiliki Ijin Usaha Niaga.

Penunjukkan langsung kepada: 1)

Production sharing contract (KPS) yang memiliku letter of appointment dari BP Migas; atau

2)

Penyedia Gas Bumi di sisi hilir yang memiliki Ijin Usaha Niaga; yang memenuhi kriteria Penunjukan langsung sesuai angka 2.7.3 atau

3)

Penyedia Gas Bumi luar negeri yang memenuhi kriteria Penunjukan langsung sesuai angka 2.7.3

4.1.2.3.

Pengadaan LNG, CNG dan Gas lainnya dilakukan dengan metoda Pelelangan atau Penunjukan langsung sesuai kriteria pemilihan metoda pada angka 2.7.1 dan 2.7.3


L88

4.1.2.4.

Pengadaan Batubara dapat dilakukan dengan metoda Pelelangan atau Penunjukan Langsung mengikuti kriteria pemilihan metoda pada angka 2.7.1 dan 2.7.3 dan/atau kriteria dibawah ini : a.

Pelelangan Pelelangan dilakukan untuk memenuhi kebutuhan batubara Pembangkit yang dipasok oleh Perusahaan tambang batubara atau konsorsium dari Perusahaan tambang batubara dengan kualitas yang sesuai batasan desain batubara untuk pembangkit.

b.

Penunjukan langsung Penunjukan langsung dilakukan dalam hal : 1)

Pengadaan batubara untuk memenuhi kebutuhan Pembangkit yang dibangun didekat tambang batubara dan didesain sesuai jenis batubara tambang batubara tersebut;atau

2)

Kontrak spot untuk mengatasi kondisi emergency,

3)

Persediaan batubara di stock pile pembangkit dalam kondisi emergency akan ditetapkan oleh Direksi.

4)

Melalui Kerjasama operasi (KSO) antara Pengguna Barang/Jasa dengan Perusahaan tambang batubara pemegang Kuasa Penambangan (KP) atau Pemegang Perjanjian Karya Pengusahaan dan Penambangan Batubara (PKP2B) untuk memasok batubara. Pengelolaan tambang batubara dilakukan dengan pola bagi hasil minimal dalam jangka waktu 20 (dua puluh) tahun. Pelaksanaan jangka waktu pasokan batubara diatur sebagai berikut: a)

Kontrak jangka panjang dilakukan untuk menjamin kelangsungan operasi dan memberikan nilai tambah bagi Pembangkit dalam kurun waktu 5 (lima) sampai dengan 20 (dua puluh) tahun, dan dilakukan oleh beberapa pemasok dengan syarat : (1) Kualitas

batubaranya

sesuai

batasan

desain

batubara

Pembangkit; (2) Harga batubara terdiri dari harga dasar dan formula yang merupakan fungsi komponen-komponen yang sangat berpengaruh terhadap perubahan harga. b)

Kontrak jangka menengah digunakan untuk memenuhi kebutuhan pembangkit dalam kurun waktu 1 (satu) sampai dengan 5 (lima) tahun dan dilakukan oleh beberapa pemasok batubara dengan syarat: (1) Kualitas batubaranya sesuai batasan desain batubara untuk pembangkit ; (2) Harga batubara terdiri dari harga dasar dan formula yang merupakan fungsi komponen-komponen berpengaruh terhadap perubahan harga.


yang

sangat

L89

c.

Kontrak jangka pendek digunakan untuk menjaga stabilitas pasokan dan mengendalikan harga batubara dalam kurun waktu kurang dari 1 (satu) tahun, dengan syarat :

4.2.

1)

Kualitas batubaranya sesuai batasan desain batubara untuk pembangkit;

2)

Harga batubara tetap selama masa kontrak.

Pembelian Tenaga Listrik Proses Pembelian Tenaga Listrik mengikuti Keputusan Direksi ini, kecuali ditentukan lain oleh peraturan perundang-undangan yang berlaku. Dalam Pembelian Tenaga Listrik, Pengguna Barang/Jasa wajib memperhatikan Rencana Usaha Penyediaan Tenaga Listrik (RUPTL), Kajian Kelayakan Operasional (KKO), Kajian Kelayakan Finansial (KKF) dan Analisis Risiko. 4.2.1.

Pembelian Excess Power Proses pengadaan dilakukan melalui Penunjukan Langsung dengan melakukan negosiasi besarnya daya dan kualitas tenaga listrik yang akan diperjualbelikan, pola konsumsi dan harga yang wajar dan menguntungkan Perusahaan dengan jangka waktu sampai 1 (satu) tahun atau lebih dan dapat diperpanjang sesuai kebutuhan atas kesepakatan bersama.

4.2.2.

Pembelian Tenaga Listrik dari Independent Power Producer (IPP) Kontrak pembelian tenaga listrik dilakukan dengan jangka waktu minimal 15 (lima belas) tahun dan dapat diperpanjang sesuai kebutuhan atas kesepakatan bersama. 4.2.2.1.

Persyaratan kualifikasi Pengembang/Developer, meliputi : a.

Pengembang yang berminat, baik perusahaan lokal maupun asing, dapat berbentuk satu badan usaha atau gabungan badan usaha/konsorsium;

b.

Dalam hal konsorsium, salah satu anggota harus mempunyai pengalaman dalam pembangunan pembangkit tenaga listrik yang dipersyaratkan;

4.2.2.2.

c.

Mempunyai kemampuan keuangan sesuai yang dipersyaratkan;

d.

Mempunyai kemampuan untuk memiliki konsensi atau jaminan suplai/pasokan energi primer yang dibutuhkan.

Aspek penting yang perlu diperhatikan dalam kontrak pembelian tenaga listrik, antara lain : a.

Harga pembelian tenaga listrik menggunakan mata uang Rupiah dan/atau US Dollar.

b.

Ketentuan tentang Sanksi harus seimbang dan adil.

c.

Pengembang berkewajiban melakukan Studi Kelayakan dan Studi Dampak Lingkungan (AMDAL).

d.

Investor berkewajiban mengurus semua perijinan sesuai dengan peraturan perundang-undangan yang berlaku.

e.

Escrow account.


L90

4.3.

Sewa Menyewa/Sewa Beli 4.3.1.

Sewa-menyewa adalah aktivitas Pengguna Barang/Jasa yang saling mengikatkan diri dengan Penyedia Barang/Jasa untuk menggunakan suatu barang, baik barang bergerak dan/atau tidak bergerak, selama waktu tertentu dengan pembayaran yang disepakati.

4.3.2.

Sewa beli adalah aktivitas Pengguna Barang/Jasa yang saling mengikatkan diri dengan Penyedia Barang/Jasa untuk menggunakan suatu barang, baik barang bergerak dan/atau tidak bergerak. Selama pembayaran yang disepakati belum diselesaikan seluruhnya, kepemilikan barang tetap ada pada Penyedia Barang/Jasa dan pada akhir masa kontrak atau pembayaran yang disepakati telah diselesaikan seluruhnya, Penyedia Barang/Jasa menyerahkan dokumen yang diperlukan dan hak kepemilikan beralih kepada Pengguna Barang/Jasa. 4.3.2.1.

Barang yang dapat disewa / sewa beli antara lain : a.

Barang yang diperlukan untuk keperluan rutin/operasional PLN dan memerlukan biaya operasional dan pemeliharaan (Operation and Maintenance), seperti tetapi tidak terbatas pada :

b.

1)

Komputer (PC, laptop, notebook), LCD Projector;

2)

Mesin Fotokopi (photocopier);

3)

Kendaraan bermotor (mobil, motor, truk, alat-alat berat);

4)

Gedung dan/atau tanah.

5)

Mesin pembangkit tenaga listrik.

Barang yang dapat membebani Neraca Pembukuan PLN karena memerlukan investasi dan memiliki susut nilai barang (depresiasi harga Barang).

Khusus untuk benda tidak bergerak seperti gedung dan /atau tanah, Sewa/sewa beli dapat dilakukan dengan Penunjukan Langsung. Pengguna Barang/Jasa wajib melakukan analisa bisnis (commercial analysis) dalam hal menentukan Barang yang dapat disewa/sewa beli. 4.3.3.

Proses Pelaksanaan sewa menyewa/sewa beli dilakukan mengikuti Keputusan Direksi ini kecuali ditentukan lain oleh Perundang-undangan yang berlaku.

4.4.

Sewa Guna Usaha (Leasing) 4.4.1.

Sewa Guna Usaha (Leasing) adalah suatu transaksi pembiayaan untuk penyediaan barang modal secara sewa guna dengan hak opsi memiliki (Financial Lease) maupun sewa guna tanpa hak opsi memiliki (Operating Lease) antara pihak penyedia pembiayaan atau barang (Lessor) untuk digunakan oleh pihak yang membutuhkan pembiayaan atau barang (Lessee) selama jangka waktu tertentu dengan pembayaran secara berkala/bertahap. Sewa Guna Usaha terdiri dari : 4.4.1.1.

Financial Lease Penyewa guna (Lessee) pada akhir masa kontrak mempunyai hak opsi untuk membeli obyek sewa guna dari pihak yang menyewa gunakan (Lessor) berdasarkan nilai sisa (residual value) yang disepakati bersama.


L91

a.

Kriteria terdiri dari : 1)

Jumlah pembayaran selama masa finance lease ditambah nilai sisa barang modal harus dapat menutup perolehan barang modal dan keuntungan Lessor.

2)

Perjanjian memuat ketentuan mengenai opsi yaitu pengalihan kepemilikan barang kepada Lessee pada saat berakhirnya memperpanjang jangka waktu perjanjian.

b.

perjanjian,

Jenis Barang Pengguna Barang/Jasa wajib melakukan analisis bisnis (commercial analysis) dalam hal menentukan Barang yang dapat diadakan dengan Financial Lease, seperti tetapi tidak terbatas pada:

4.4.1.2.

1)

Pembangkit Tenaga Listrik;

2)


Operating Lease Obyek sewa guna usaha dioperasikan sendiri oleh Lessee namun kepemilikan obyek sewa guna usaha tidak beralih kepada Lessee. a.

Kriteria terdiri dari : 1)

Jumlah pembayaran selama Operating Lease tidak dapat atau tidak harus menutupi harga perolehan barang modal, ditambah dengan keuntungan oleh Lessor,

2) b.

Perjanjian Operating Lease tidak memuat ketentuan opsi bagi Lessee.

Jenis Barang Pengguna Barang/Jasa wajib melakukan analisis bisnis (commercial analysis) dalam hal menentukan Barang yang dapat diadakan dengan Operating Lease, seperti tetapi tidak terbatas pada : 1)

Kendaraan bermotor (mobil, motor, truk)

2)


4.4.2. Proses pelaksanaan sewa guna usaha (leasing) dilakukan mengikuti Keputusan Direksi ini kecuali ditentukan lain oleh Perundang-undangan yang berlaku. 4.4.3.

4.5.

Jangka waktu kontrak Pengadaan melalui sewa guna usaha (leasing) dilakukan sesuai dengan kemampuan project cash flow.

Outsourcing 4.5.1.

Outsourcing adalah penyerahan sebagian pelaksanaan pekerjaan kepada perusahaan lain melalui perjanjian pemborongan pekerjaan ataupun penyediaan jasa tenaga kerja yang dibuat secara tertulis.

4.5.2.

Kontrak Outsourcing diadakan dengan Perjanjian Penyediaan Jasa Tenaga Kerja atau Perjanjian Pemborongan Pekerjaan.


atau

L92

4.5.3.

Kriteria pekerjaan yang dapat di outsourcing adalah : 4.5.4.1 Pekerjaan yang secara terus-menerus perlu dikerjakan tetapi pekerjaan tersebut tidak memerlukan keahlian khusus yang dapat dikerjakan oleh setiap orang tanpa kualifikasi tertentu. 4.5.4.2 Pekerjaan yang kompetensinya tidak diperlihara atau dipertahankan. 4.5.4.3 Hanya diperlukan pada waktu tertentu. 4.5.4.4 Menuntut keahlian yang sangat khusus dan langka tetapi tidak tersedia di PLN. 4.5.4.5 Mempunyai kandungan pelayanan sosial atau pembinaan usaha kecil dan tidak mempunyai nilai ekonomi bagi PLN.

4.5.4.

Proses pelaksanaan Outsourcing dilakukan seperti halnya proses pengadaan jasa lainnya, kecuali ditentukan lain oleh Perundang-undangan yang berlaku atau Keputsan Direksi khusus mengatur pengadaan outsourcing.

4.6.

Pengadaan Asuransi Dalam Rangka Pengadaan Penyedia Jasa Asuransi, Pengguna Barang/jasa dapat menggunakan Jasa Pialang Asuransi dan Konsultan Asuransi. 4.6.1.

Jenis Asuransi yang digunakan : 4.6.1.1.

Asuransi Pembangunan Proyek Adalah asuransi yang menjamin segala macam risiko kerugian yang mungkin timbul di lingkungan proyek pembangunan selama masa pelaksanaan pembangunan. Jenis asuransinya meliputi : a.

Asuransi Contractor All Risk/Erections All Risk dan Third Party Liability (CAR/EAR + TPL)

b.

Asuransi Contractor Plant and Machinary Equipment/Heavy Equipment

c.

Marine Cargo Insurance (Asuransi Pengangkutan Darat, Laut, Udara)

d.

Workmen Compensation Insurance

e.

Comprehensive General Liability

f.

Automobile Liability

g.

Personal Accident

Pada umumnya Asuransi Proyek dilaksanakan melekat dengan kontrak Pengadaan Barang/Jasa/Proyeknya. 4.6.1.2.

Asuransi Pada Masa Operasi Yang dimaksud asuransi pada masa operasional adalah asuransi yang menjamin segala macam risiko kerugian yang mungkin timbul atas harta benda atau asset milik perusahaan pada masa operasi dan dimulai sejak proyek diserahterimakan Taking Over Certificate (TOC) atau proyek dioperasikan secara komersial.


L93

Jenis Asuransinya meliputi : a.

Asuransi Kebakaran (Property All Risk/PAR/Fire)

b.

Asuransi Machinary Break Down (MB)

c.

Bussines Interuption Insurance

d.

Third Party Liability

e.

Marine Cargo Insurance (Asuransi Pengangkutan Darat, Laut, Udara)

f.

Money Insurance (Cash In Save, Cash In Transit, Cash In Cashier Box, Fidelity Guarantee)

g.

Asuransi Kendaraan Bermotor

h.

Asuransi Jiwa/Jaminan Hari Tua

Penutupan asuransi pada masa operasional dilaksanakan sesuai dengan prioritas kebutuhan dengan mempertimbangkan tingkat risiko yang dihadapi dan kondisi keuangan perusahaan. 4.6.2.

Ketentuan Pelaksanaan Pengadaan Penyedia Jasa Asuransi, antara lain : 4.6.2.1.

Penyedia Jasa Asuransi dapat berupa perusahaan tunggal atau co-insurance dengan satu pemimpin (leader) bekerja sama secara co-insurance dengan perusahaan asuransi lainnya (member);

4.6.2.2.

Pengguna Barang/Jasa menetapkan bentuk Penyedia Jasa Asuransi yang digunakan / dibutuhkan dapat berupa Penyedia Jasa Asuransi Tunggal atau co-insurance dengan Penyedia Jasa Asuransi Lainnya;

4.6.2.3.

Dalam hal co-insurance dengan Perusahaan Asuransi Lainnya, maka Pengguna Barang/Jasa menetapkan jumlah maksimum anggota yang akan mendampingi Penyedia Jasa Asuransi yang bertindak sebagai Pemimpin/leader;

4.6.2.4.

Pengguna Barang/Jasa menetapkan kriteria Penyedia Jasa Asuransi yang dapat bertindak sebagai anggota/member;

4.6.2.5.

pemimpin/leader

dan

yang

dapat

bertindak

Dalam Dokumen Pengadaan ditetapkan jumlah Peserta yang menjadi leader dan Jumlah Peserta yang menjadi member berdasarkan pada kriteria yang telah ditetapkan pada saat prakualifikasi. (Disesuaikan dengan perkembangan pasar asuransi saat itu);

4.6.2.6.

Pemenang Pengadaan secara otomatis akan menjadi leader dan bekerja sama secara co-insurance dengan Penyedia Jasa Asuransi lainnya dan mempersiapkan Polis Asuransi, Kontrak Asuransi dan Prosedur Klaim, apabila proses pengadaannya dilaksanakan oleh Pengguna Jasa;

4.6.2.7.

Peserta Pengadaan yang menjadi anggota akan mengikuti harga penawaran dari pemenang Pengadaan (leader) dengan ketentuan harus mengikuti persyaratan seperti yang dipersyaratkan dalam dokumen pengadaan;

4.6.2.8.

Untuk Pelaksanaan Penutupan Asuransi Proyek yang pengadaannya melekat pada kontrak Proyeknya, maka Pengguna Barang/Jasa berhak mengevaluasi term and conditions Polis Asuransi, Premi dan Perusahaan Asuransi yang digunakan serta


sebagai

L94

memberikan approval sesuai persyaratan kontrak yang harus dipenuhi oleh Penyedia Jasa. 4.6.3.

Ketentuan Pelaksanaan Pengadaan Jasa Asuransi Masa Operasi untuk asset Pembangkit, Transmisi, Distribusi dan Gardu Induk dan peralatan penunjangnya dapat dilakukan dengan ketentuan sebagai berikut : 4.6.3.1.

Pengadaan Jasa Asuransi untuk Asset Operasi Pembangkit, Transmisi, Distribusi dan Gardu Induk dan peralatan penunjangnya yang dinilai strategis dalam menunjang sistem ketenagalistrikan dilakukan secara terpusat di PLN Kantor Pusat;

4.6.3.2.

Pengadaan Jasa Asuransi dilaksanakan dengan seleksi umum dalam 2 (tahap) yaitu tahapan Pemilihan Leader Konsorsium/Pemimpin Konsorsium Asuransi Kerugian dan Member Consorsium/Anggota Konsorsium serta Tahapan Pemilihan International Reinsurance Broker dan Reinsurance Company;

4.6.3.3.

Pengadaan Jasa Asuransi dilaksanakan dengan seleksi umum yang pesertanya diyakini dapat menanggung resiko PLN dengan kualifikasi yang ditentukan dalam dokumen pengadaan;

4.6.3.4.

Penilaian terhadap Perusahaan Calon Leader danMember Konsorsium berdasarkan kriteria minimum meliputi : Kondisi Keuangan, Pengalaman di bidang Asuransi Operasional/Industrial All Risk, Total Equity yang dimiliki, Tenaga Ahli yang dimiliki, Jaringan Kantor Cabang;

4.6.3.5.

Tata Cara Pengadaan a.

Pengadaan Tahap I : 1) Mengajukan usulan kepada Direksi untuk melakukan Proses Pengadaan Jasa Asuransi melalui Seleksi Umum Perusahaan Asuransi Kerugian; 2) Proses Pengadaan Jasa Asuransi oleh Direktorat Pengadaan Strategis dibantu oleh Panitia Pengadaan yang dibentuk sesuai dengan kebutuhan; 3) Membentuk Panitia Pengadaan Jasa Asuransi; 4) Pengadaan Jasa Asuransi pada tahap I ini untuk memilih Perusahaan Asuransi Calon Leader Consorsium/Pemimpin Konsorsium dan Member Consorsium/Anggota Konsorsium melalui seleksi Administrasi dan Teknis tanpa harga; 5) Penentuan Leader Consorsium/Pemimpin

Konsorsium

dan Member

Consorsium/Anggota Konsorsium harus memperhatikan tingkat keamanan risiko PLN yang akan diasuransikan; 6) Mengusulkan Penetapan Calon Leader Consorsium/Pemimpin Konsorsium dan Member Consorsium/Anggota Konsorsium; 7) Menetapkan Leader Consorsium/Pemimpin Konsorsium dan Member Consorsium/Anggota Konsorsium. b.

Pengadaan Tahap II : 1) LeaderConsorsium/PemimpinKonsorsiumbersama-sama melaksanakan seleksi Internasional Reinsurance Broker;


PLN

L95

2) Leader Consorsium/Pemimpin Konsorsium diwajibkan membuat dokumen seleksi International Reinsurance Broker dan merancang term and conditions Polis Asuransi yang sesuai dengan kebutuhan PLN dan merupakan bagian yang tidak terpisah dalam dokumen seleksi International Reinsurance Broker; 3) Peserta International Reinsurance Broker harus merupakan First Class International Reinsurance Broker minimal 3 (tiga) peserta; 4) Peserta International Reinsurance Broker harus

memenuhi persyaratan

Administrasi, Teknis dan Harga; 5) Peserta International Reinsurance Broker harus didukung / di back up oleh First Class Underwriter (Reinsurance Company) yang memiliki Rating Standard & Poor atau Lembaga Pemeringkat Internasional lain yang setara, dengan Rating minimum A; 6) Penentuan Rating untuk perusahaan Reasuransi yang akan memback up risiko PLN harus berlaku sama untuk semua peserta, misalnya menggunakan rating dari S & P semua dan tidak diperbolehkan berbeda dalam satu jenis penutupan asuransi; 7) Penentuan pemenang adalah Peserta yang lulus administrasi, teknis dan penawaran harga terendah; 8) Melaporkan secara lengkap hasil seleksi International Reinsurance Broker kepada Direktur Pengadaan Strategis untuk ditetapkan sebagai pemenang seleksi International Reinsurance Broker; 4.6.3.6.

Tugas Panitia Pengadaan Jasa Asuransi : a.

Menyusun jadwal pelaksanaan Pengadaan Jasa Asuransi;

b.

Menyiapkan dokumen Pengadaan Jasa Asuransi;

c.

Menyusun Harga Perkiraan Sendiri (HPS);

d.

Menyusun Kriteria Pengadaan Jasa Asuransi;

e.

Menandatangani Pakta Integritas sebelum pelaksanaan Pengadaan Jasa Asuransi dimulai;

f.

Mengumumkan Pengadaan Jasa Asuransi melalui Surat kabar dan Papan Pengumuman;

g.

Memastikan suatu Badan Usaha yang akan diundang tidak termasuk dalam daftar hitam PLN;

h.

Menilai kualifikasi Penyedia Jasa Asuransi;

i.

Melakukan klarifikasi kepada penyedia Jasa Asuransi, jika ada data atau yang kurang jelas atau meragukan;

j.

Memberikan penjelasan Pengadaan Jasa Asuransi;

k.

Melakukan evaluasi administrasi dan teknis atas disampaikan;


dokumen penawaran yang

L96

l.

Mengusulkan Calon Leader Consorsium/Pemimpin Konsorsium dan Member Consorsium/Anggota Konsorsium untuk ditetapkan sebagai Pemenang Leader Consorsium/Pemimpin Konsorsium dan Member Consorsium/Anggota Konsorsium kepada Direktur Pengadaan Strategis;

m. Mengumumkan

Pemenang

Consorsium/Pemimpin Konsorsium; n.

Pengadaan

Konsorsium

Jasa

dan

Asuransi

Member

atas

Leader

Consorsium/Anggota

Melakukan seleksi Internasional Reinsurance Broker bersama-sama Leader Consorsium/Pemimpin Konsorsium;

o.

Leader Consorsium/Pemimpin Konsorsium/Penanggung Utama bersama-sama dengan PLN membuat kriteria penilaian International Reinsurance Broker dan menyusun term and conditions Polis Asuransi yang sesuai dengan kebutuhan PLN;

p.

Leader Consorsium/Pemimpin Konsorsium/Penanggung Utama bersama-sama dengan PLN melakukan evaluasi dan negosiasi atas dokumen penawaran Administrasi, Teknis dan Harga, yang diajukan pada saat seleksi International Reinsurance Broker;

q.

Melaporkan proses dan hasil seleksi umum kepada Strategis dengan melampirkan Pakta Integritas.

r.

Mendokumentasikan proses Pengadaan Jasa Asuransi dengan tertib;

s.

Membuat

surat

penunjukan

Konsorsium/Penanggung

kepada

Utama

dan

Direktur Pengadaan

Leader

Consorsium/

Member

Pemimpin

Consorsium/Anggota

Konsorsium; t.

Leader Consorsium/Pemimpin Konsorsium/Penanggung Utama menerbitkan Polis Asuransi sesuai dengan term and conditions serta premi asuransi sesuai dengan hasil seleksi International Reinsurance Broker;

u. 4.6.3.7.

Membuat Perjanjian Jasa Asuransi dan Prosedur Klaim Asuransi.

Apabila dalam perkembangan penanganan perasuransian ternyata dibutuhkan adanya bantuan Jasa Konsultan Asuransi, maka pengadaan Jasa Konsultan Asuransi dilaksanakan secara terpisah dari pengadaan asuransinya dengan mengacu pada ketentuan Pengadaan Jasa Konsultansi.


L97

BAB V PENGADAAN BARANG/JASA MELALUI MEDIA ELEKTRONIK (e - PROCUREMENT PLN) 5.1

Maksud dan Tujuan 5.1.1

Maksud pelaksanaan e-Procurement PLN adalah : 5.1.1.1

Sarana Pengadaan Barang/Jasa secara online;

5.1.1.2

Sarana

pendokumentasian

Pengadaan

Barang/Jasa

yang

diproses

offline/manual;

5.1.2

5.1.1.3

Sarana informasi harga satuan dan persediaan material;

5.1.1.4

Sarana bursa material antar Unit PLN di lingkungan PT PLN (Persero).

Tujuan pelaksanaan e-Procurement PLN adalah untuk lebih meningkatkan integrasi antar unit PLN, transparansi, kecepatan proses, efisiensi waktu dan biaya, akuntabilitas, memudahkan pengendalian dan pengawasan, dan mengoptimalkan pemanfaatan material di gudang (baik material fast moving maupun material slow moving).

5.2

Ketentuan Umum e-Procurement PLN 5.2.1

Pada prinsipnya, pelaksanaan e-Procurement PLN dilakukan melalui penawaran harga dengan e-Auction.

5.2.2

Dalam hal dan kondisi tertentu yang menurut pertimbangan dan penilaian Panitia Pengadaan sulit dilaksanakan dengan e-Auction, Panitia Pengadaan dapat menentukan pelaksanaan eProcurement PLN melalui penawaran harga dengan e-Bidding.

5.2.3

Pengguna Barang/Jasa diwajibkan untuk menggunakan material yang telah dibursakan oleh Unit-unit PLN dalam hal material yang dibursakan tersebut sesuai dengan spesifikasi teknis yang dibutuhkan.

5.2.4

Pelaksanaan Pengadaan Barang/Jasa melalui sarana e-Procurement PLN wajib mengacu pada Keputusan Direksi ini dan Keputusan Direksi lainnya mengenai e-Procurement PLN dan/atau Terms Of Condition yang terdapat pada aplikasi e-Procurement PLN.

5.3

Ketentuan Pelaksanaan e-Procurement PLN Ketentuan pelaksanaan e-Procurement PLN meliputi : 5.3.1

Tempat pelaksanaan e-Procurement PLN dilakukan di Bidding Room yang disediakan oleh PLN dan/atau dari internet browser di luar PLN;

5.3.2

Waktu pelaksanaan e-Procurement PLN dilakukan pada tanggal, hari, dan jam yang sama sesuai dengan jadual yang telah ditetapkan oleh Panitia Pengadaan;

5.3.3

Pada saat memulai e-Procurement PLN, Panitia Pengadaan wajib menyampaikan jangka waktu pelaksanaan;


secara

L98

5.3.4

Sebelum

e-Procurement

PLN

dilakukan,

Calon

Penyedia

Barang/Jasa

diharuskan

menandatangani persyaratan / ketentuan pelaksanaan e-Procurement PLN; 5.3.5

Dalam pelaksanaan e-Procurement PLN Panitia Pengadaan bertanggung jawab dalam memandu dan mengawasi jalannya e-Procurement PLN;

5.3.6

Penawaran harga yang dilakukan dengan e-Auction adalah sebagai berikut : 5.3.6.1

Nilai Total HPS tidak harus disampaikan kepada para Calon Penyedia Barang/Jasa sebelum pemasukan penawaran;

5.3.6.2

Penawaran harga awal yang dimasukkan adalah harga sebelum PPN;

5.3.6.3

Calon Penyedia Barang/Jasa yang memasukkan harga awal dapat melampaui HPS;

5.3.6.4

Penawaran harga akhir adalah harga yang dimasukkan sebelum batas waktu akhir yang ditentukan;

5.3.6.5

Calon Penyedia Barang/Jasa yang memasukkan harga akhir melampaui HPS dinyatakan gugur dalam hal HPS sebagai ceilling price;

5.3.7

Penawaran harga yang dilakukan dengan e-Bidding adalah sebagai berikut : 5.3.7.1

Penawaran harga akhir adalah harga yang dimasukkan sebelum batas waktu akhir yang ditentukan;

5.3.7.2

Calon Penyedia Barang/Jasa yang memasukkan harga akhir melampaui HPS dinyatakan gugur;

5.3.7.3

Nilai Total HPS harus disampaikan kepada para Calon Penyedia Barang/Jasa sebelum pemasukan penawaran.

5.3.8

Pemberlakukan ketentuan e-Procurement PLN tersebut di atas disesuaikan dengan tingkat kebutuhan pada saat pelaksanaan pengadaan dan harus dituangkan ke dalam ketentuan pengadaan yang merupakan bagian dari Dokumen Pengadaan.

5.3.9

Pendokumentasian Pengadaan Barang/Jasa secara offline/manual format isian yang terdapat didalam e-Procurement PLN.


dilakukan sesuai dengan

L99

BAB VI PENDAYAGUNAAN PRODUKSI DALAM NEGERI 6.1.

Pengertian Produksi Dalam Negeri 6.1.1.

Barang yang bahan baku dan pembuatannya di Indonesia, terdiri dari: 6.1.1.1.

Barang jadi, barang setengah jadi, peralatan suku cadang, komponen utama, dan komponen pembantu;

6.1.1.2. 6.1.2.

6.2.

Bahan baku bahan pelengkap, dan bahan pembantu.

Jasa yang dilaksanakan di Indonesia oleh tenaga Indonesia meliputi jasa konstruksi, jasa konsultansi, dan jasa lainnya.

Penggunaan Hasil Produksi Dalam Negeri 6.2.1.

Dalam dokumen Pengadaan Barang/Jasa dimuat secara jelas ketentuan dan syarat penggunaan hasil produksi dalam negeri;

6.2.2.

Pengadaan barang impor dimungkinkan bilamana : 6.2.2.1.

Barang tersebut belum diproduksi di dalam negeri; dan/atau

6.2.2.2.

Spesifikasi teknis barang yang diproduksi di dalam negeri belum memenuhi persyaratan; dan/atau

6.2.2.3.

Dalam hal kuantitas barang tidak dapat dipenuhi dari Penyedia Barang/Jasa dalam negeri.

6.2.3.

Penyedia Barang/Jasa yang melaksanakan Pengadaan Barang/Jasa yang diimpor langsung diwajibkan untuk semaksimal mungkin menggunakan jasa pelayanan yang ada di dalam negeri, seperti jasa asuransi, angkutan, ekspedisi, perbankan, dan pemeliharaan.

6.3.

Keikutsertaan Perusahaan Asing 6.3.1.

6.3.2.

Perusahaan asing dapat ikut serta didalam Pengadaan Barang/Jasa dengan nilai : 6.3.1.1.

Untuk jasa konstruksi di atas Rp. 50.000.000.000 (lima puluh milyar rupiah).

6.3.1.2.

Untuk barang/jasa lainnya di atas Rp. 10.000.000.000 (sepuluh milyar rupiah).

6.3.1.3.

Untuk jasa konsultansi di atas Rp. 5.000.000.000 (lima milyar rupiah).

Perusahaan asing yang melaksanakan pekerjaan sebagaimana dimaksud pada butir 6.3.1 di atas harus melakukan kerjasama usaha dengan perusahaan nasional dalam bentuk kemitraan, sub kontrak, dan lain-lain, apabila ada perusahaan nasional yang memiliki kemampuan di bidang yang bersangkutan.

6.3.3.

6.4.

Ketentuan pada angka 6.3.1.3 di atas dapat dikecualikan untuk pengadaan jasa konsultansi perorangan.

Pernyataan Penggunaan Produksi Dalam Negeri 6.4.1.

Para Penyedia Barang/Jasa yang mengikuti Pengadaan Barang/Jasa menyatakan sendiri besarnya komponen dalam negeri barang/jasa yang ditawarkan (self assessment).


L100

6.4.2.

Para Penyedia Barang/Jasa harus dapat membuktikan kebenaran pernyataan besarnya komponen dalam negeri barang/jasa dan melampirkan rincian dan nilai bahan baku, baik dari dalam negeri maupun impor, nilai barang jadi keseluruhan serta daftar nama pemasok.

6.4.3.

Besarnya komponen dalam negeri barang/jasa yang ditawarkan oleh Penyedia Barang/Jasa dapat diklarifikasi oleh panitia pada saat evaluasi.


L101

BAB VII PERJANJIAN/KONTRAK

7.1.

Jenis Kontrak Pengadaan Barang/Jasa Jenis Kontrak Pengadaan Barang/Jasa dibedakan atas: 7.1.1.

Berdasarkan bentuknya : 7.1.1.1.

Lumpsum Adalah kontrak Pengadaan Barang/Jasa atas penyelesaian seluruh pekerjaan dalam batas waktu tertentu, dengan jumlah harga yang pasti dan tetap, dan semua resiko yang mungkin terjadi dalam proses penyelesaian pekerjaan sepenuhnya ditanggung oleh Penyedia Barang/Jasa. Sistem kontrak ini lebih tepat digunakan atas Pengadaan Barang/Jasa dengan contoh yang jelas, atau untuk jenis pekerjaan borongan yang perhitungan volumenya untuk masing-masing unsur/jenis pekerjaan sudah dapat diketahui dengan pasti berdasarkan rencana kebutuhan sesuai gambar rencana dan spesifikasi teknisnya. Harga yang mengikat dalam kontrak sistem ini adalah total penawaran harga.

7.1.1.2.

Harga Satuan (Unit Price) Adalah kontrak Pengadaan Barang/Jasa atas penyelesaian seluruh pekerjaan dalam batas waktu tertentu, berdasarkan harga satuan yang pasti dan tetap untuk setiap satuan/unsur pekerjaan dengan spesifikasi teknis tertentu, yang volume total pekerjaan masih bersifat perkiraan sementara, sedangkan pembayaran didasarkan pada hasil pengukuran bersama atas volume pekerjaan yang benar-benar telah dilaksanakan oleh Penyedia Barang/Jasa. Harga satuan, pertimbangan untuk memilih dengan cara ini adalah karena untuk keakuratan pengukuran volume pekerjaan yang tinggi diperlukan survey dan penelitian yang sangat mendalam, detail dan sampel yang banyak, waktu yang lama sehingga biaya sangat besar, padahal pengukuran juga lebih mudah dalam pelaksanaan, di pihak lain pekerjaan sangat mendesak dan harus segera dilaksanakan, sehingga untuk pekerjaan yang sifat kondisinya seperti hal tersebut tidak dapat digunakan kontrak dengan sistem Lumpsum. Kontrak bentuk ini memungkinkan pekerjaan tambah/kurang.

7.1.1.3.

Gabungan Lumpsum dan Harga Satuan Adalah kontrak yang merupakan gabungan Lumpsum dan harga satuan dalam satu pekerjaan yang diperjanjikan.

7.1.1.4.

Terima Jadi (turn key) Adalah kontrak Pengadaan Barang/Jasa Konstruksi atas penyelesaian seluruh pekerjaan dalam batas waktu tertentu dengan jumlah harga pasti dan tetap sampai seluruh bangunan/ konstruksi, peralatan dan jaringan utama maupun penunjangnya dapat berfungsi dengan baik sesuai dengan kriteria kinerja yang telah ditetapkan.


L102

Turn key, sistem ini lebih tepat digunakan untuk mengadakan suatu barang yang hanya diperlukan sekali saja, dan tidak mengutamakan kepentingan untuk alih (transfer) teknologi selanjutnya. 7.1.1.5.

Kontrak Sewa Beli Adalah kontrak Pengadaan Barang/Jasa yang pembayarannya dilakukan selama barang yang dimaksud digunakan, sedangkan kepemilikan barang tetap ada pada Penyedia Barang/Jasa. Pada masa akhir kontrak dan setelah pembayaran seluruhnya dilaksanakan, Penyedia Barang/Jasa menyerahkan barang yang dikontrakkan kepada Pengguna Barang/Jasa lengkap dengan dokumen yang diperlukan.

7.1.1.6.

Kontrak Angsuran (delay payment) adalah kontrak Pengadaan Barang/Jasa yang pembayarannya dilaksanakan secara angsuran selama waktu tertentu setelah Penyedia Barang/Jasa menyerahkan barang yang dikontrakkan kepada Pengguna Barang/Jasa lengkap dengan dokumen yang diperlukan.

7.1.1.7.

Kesepakatan Harga Satuan (KHS) Adalah suatu kesepakatan harga satuan Barang/Jasa tertentu dalam kurun waktu dan spesifikasi tertentu. Selanjutnya harga satuan yang disepakati dapat ditindak lanjuti menjadi kontrak yang prosesnya mengikuti Keputusan ini. a.

Tujuan KHS adalah untuk memperoleh Barang/Jasa secara cepat, tepat waktu, mengurangi stock barang di gudang PLN, dan mendapatkan harga satuan yang kompetitif. KHS dapat juga diberlakukan untuk jasa, dalam hal jasa tersebut sifatnya pekerjaannya rutin dan dapat distandarkan.

b.

Harga satuan Barang/Jasa dikompetisikan dengan mengikuti proses Pelelangan atau pemilihan langsung.

c.

Pemenang pengadaan adalah Calon Penyedia Barang/Jasa yang menawarkan harga satuan terendah dan hasilnya dituangkan dalam bentuk KHS yang memuat kesepakatan harga satuan antara Pengguna Barang/Jasa dan Penyedia Barang/Jasa.

d.

KHS berlaku untuk 1 (satu) Tahun.

e.

Pelaksanaan kontrak yang rinci antara Pengguna Barang/Jasa dan Penyedia Barang/Jasa dilaksanakan setelah adanya pesanan barang dari Pengguna Barang/Jasa ke Penyedia Barang/Jasa.

f.

Kriteria KHS 1) Kebutuhan Barang/Jasa diperlukan tepat waktu (just-in-time-purchasing); 2) Kebutuhan Barang/Jasa bersifat rutin; 3) Volume kebutuhan barang/jasa sifatnya perkiraan; dan 4)

g.

Spesifikasi Teknik barang/jasa standard dan tertentu.

Proses KHS 1)

Proses KHS mengacu kepada tahapan Pengadaan yaitu dapat melalui Pelelangan atau Pemilihan langsung melalui penawaran harga dengan eAuction. Setelah dilakukan evaluasi, sebagai Calon pemenangnya adalah penawar terendah;


L103

2) Pengadaan dilaksanakan untuk mendapatkan harga satuan jasa dan/atau harga satuan barang/material sampai ke lokasi-lokasi yang dituju (termasuk biaya asuransi pengiriman barang) dan ditentukan dalam batas waktu tertentu; 3) Panitia Pengadaan melakukan penilaian kualifikasi terhadap para Penyedia Barang/Jasa, yang meliputi : a)

Kemampuan Penyedia Barang/Jasa dalam produksi/suplai barang;

b)

Kemampuan waktu pengiriman barang/material;

c)

Kemampuan transportasi barang/material.

4) Dalam hal volume kebutuhan barang/material melebihi batas kemampuan penyedia barang/material dari penawar terendah, maka pengguna barang/material dapat menetapkan penyedia barang/material lebih dari satu penyedia barang/material dengan mengacu kepada harga hasil negosiasi penawar terendah. 5) Kontrak rinci mengenai pelaksanaan pekerjaan dibuat dan dilaksanakan setelah terbit purchasing order dari Pengguna Barang/Jasa. Penyedia Barang/Jasa harus menyerahkan Jaminan Pelaksanaan sebelum dilaksanakan penandatanganan kontrak. 7.1.2.

Berdasarkan jangka waktu. 7.1.2.1.

Kontrak Tahun Tunggal (Single Year Contract) Adalah kontrak pelaksanaan pekerjaan yang mengikat dana APLN untuk masa 1 (satu) Tahun Anggaran.

7.1.2.2.

Kontrak Tahun Jamak (Multiyears Contract) Adalah kontrak pelaksanaan pekerjaan yang mengikat dana APLN untuk masa lebih dari 1 (satu) Tahun Anggaran.

7.2.

Dokumen Kontrak Dokumen Kontrak harus diinterpretasikan dalam urutan kekuatan hukum, yang terdiri dari: 7.2.1. Perjanjian/Kontrak; 7.2.2.

Kesepakatan Diskusi Kontrak (Contract Discussion Agreement)

7.2.3. 7.2.4.

Surat Penunjukan Penyedia Barang/Jasa; Surat Penawaran;

7.2.5. 7.2.6.

Addendum Dokumen Pengadaan (bila ada); Syarat-syarat Khusus Kontrak;

7.2.7.

Syarat-syarat Umum Kontrak;

7.2.8. 7.2.9.

Spesifikasi teknis; Gambar-gambar;

7.2.10. Daftar kuantitas dan harga; 7.2.11. Dokumen lain yang tercantum dalam lampiran Kontrak.


L104

7.3.

Penyusunan Kontrak Suatu Kontrak terdiri dari : 7.3.1.

Surat Perjanjian Kerangka surat perjanjian Pengadaan Barang/Jasa terdiri dari : 7.3.1.1.

Pembukaan (Komparisi) Pembukaan adalah bagian dari surat perjanjian yang meliputi : a.

Judul Kontrak 1) 2)

Menjelaskan tentang judul dari kontrak yang akan ditandatangani; Menjelaskan jenis pekerjaan (pekerjaan jasa pemborongan, pengadaan barang, jasa lainnya, dan jasa konsultansi).

b.

Nomor Kontrak 1)

Menjelaskan nomor kontrak yang akan ditandatangani;

2)

Dalam hal kontrak berupa perubahan kontrak maka nomor kontrak harus berurut sesuai dengan berapa kali mengalami perubahan.

c.

Tanggal Kontrak Menjelaskan hari, tanggal, bulan, dan tahun kontrak ditandatangani oleh para pihak.

d.

Kalimat Pembuka Merupakan kalimat pembuka dalam kontrak yang menjelaskan bahwa para pihak pada hari, tanggal, bulan, dan tahun mereka membuat dan menandatangani kontrak.

e.

Penandatanganan Kontrak Kontrak ditandatangani setelah ada penunjukan Penyedia Barang/Jasa.

f.

Para Pihak Dalam Kontrak 1)

Menjelaskan identitas dari para pihak yang menandatangani kontrak. Identitas para pihak meliputi : nama, jabatan, dan alamat serta kedudukan para pihak dalam kontrak tersebut, apakah sebagai pihak pertama atau pihak kedua;

2)

Para pihak dalam kontrak terdiri dari dua pihak yaitu : a)

Pihak pertama adalah pihak Pengguna Barang/Jasa;

b)

Pihak kedua adalah pihak Penyedia Barang/Jasa yang telah ditunjuk untuk melaksanakan pekerjaan;

c)

Menjelaskan bahwa pihak-pihak tersebut bertindak untuk dan atas nama siapa dan dasar ia bertindak;


L105

d)

Penjelasan mengenai identitas para pihak harus jelas dan terinci dan menerangkan hal yang sebenarnya;

e)

Apabila pihak kedua dalam kontrak merupakan suatu konsorsium, kerjasama, joint venture, dan bentuk kerjasama lainnya, maka harus dijelaskan nama bentuk kerjasamanya, siapa saja anggotanya, dan siapa yang memimpin dan mewakili kerjasama tersebut.

7.3.1.2.

Isi Kontrak Isi kontrak terdiri dari : a.

Pernyataan bahwa para pihak telah sepakat atau setuju untuk mengadakan kontrak mengenai obyek yang dikontrakkan sesuai dengan jenis pekerjaannya;

b.

Pernyataan bahwa para pihak telah menyetujui besarnya harga kontrak. Harga kontrak harus ditulis dengan angka dan huruf, serta rincian sumber pembiayaannya;

c.

Pernyataan bahwa ungkapan-ungkapan dalam perjanjian harus mempunyai arti dan makna yang sama seperti yang tercantum dalam kontrak;

d.

Pernyataan bahwa kontrak yang dibuat ini meliputi beberapa dokumen dan merupakan satu kesatuan yang disebut kontrak;

e.

Pernyataan bahwa apabila terjadi pertentangan antara ketentuan yang ada dalam dokumen-dokumen perjanjian/kontrak maka yang dipakai adalah dokumen urutannya lebih dulu;

f.

Pernyataan mengenai persetujuan para pihak untuk melaksanakan kewajiban masing-masing, yaitu pihak pertama membayar harga kontrak dan pihak kedua melaksanakan pekerjaan yang diperjanjikan dalam kontrak;

g.

Pernyataan mengenai jangka waktu pelaksanaan pekerjaan, yaitu kapan dimulai dan diakhirinya pekerjaan tersebut;

h. 7.3.1.3.

Pernyataan mengenai efektifnya kontrak.

Penutup Penutup adalah bagian surat perjanjian yang memuat: a.

Pernyataan bahwa para pihak dalam perjanjian ini telah menyetujui untuk melaksanakan perjanjian sesuai ketentuan peraturan perundang-undangan yang berlaku di Indonesia pada hari dan tanggal penandatanganan perjanjian tersebut;

b. 7.3.2.

Tanda tangan para pihak dalam surat perjanjian dengan dibubuhi materai.

Syarat-Syarat Umum Kontrak Syarat-syarat umum kontrak antara lain meliputi : 7.3.2.1.

Ketentuan Umum Ketentuan-ketentuan umum ini berlaku untuk semua jenis kontrak. Ketentuanketentuan pokok yang dapat diterapkan pada semua jenis kontrak adalah:


L106

a.

Definisi Definisi adalah uraian atau pengertian mengenai istilah-istilah yang digunakan dalam kontrak. Istilah-istilah tersebut dijelaskan dan diberi arti atau tafsiran sehingga isi kontrak mudah dipahami oleh setiap orang yang membacanya dan tidak ditafsirkan atau diartikan lain.

b.

Penerapan Penerapan adalah ketentuan bahwa syarat-syarat umum dalam kontrak ini diterapkan secara luas tetapi tidak boleh melanggar ketentuan-ketentuan yang ada dalam kontrak.

c.

Asal Barang/Jasa Asal Barang/Jasa adalah ketentuan mengenai penjelasan dari negara mana asal Barang/Jasa yang menjadi obyek perjanjian dalam kontrak. Asal Barang adalah tempat barang diperoleh, antara lain tempat barang ditambang, tumbuh, atau diproduksi. Dalam ketentuan ini juga harus dirinci komponen dalam negeri dan komponen impornya. Asal Barang harus dibedakan dengan negara penjual. Penjelasan dan rincian komponen dalam negeri dan impor dijelaskan pada syarat-syarat khusus kontrak.

d.

Penggunaan Dokumen-Dokumen Kontrak dan Informasi Penggunaan dokumen-dokumen kontrak dan informasi adalah ketentuan mengenai penggunaan dokumen-dokumen kontrak atau dokumen lainnya yang berhubungan dengan kontrak, misalnya ketentuan-ketentuan kontrak, spesifikasi tehnik, gambar-gambar, pola, contoh serta informasi-informasi yang berkaitan dengan kontrak oleh Penyedia Barang/Jasa dengan ijin tertulis dari Pengguna Barang/Jasa.

e.

Hak Paten, Hak Cipta, dan Merek Hak paten, hak cipta, dan merek adalah ketentuan yang mengatur kewajiban Penyedia Barang/Jasa untuk melindungi Pengguna Barang/Jasa dari segala tuntutan atau klaim dari pihak ketiga atas pelanggaran hak paten, hak cipta, dan merek.

f.

Jaminan Jaminan adalah ketentuan mengenai jaminan yang harus disediakan oleh Penyedia Barang/Jasa berupa, Jaminan Pelaksanaan dan Jaminan Pemeliharaan.

g.

Asuransi Asuransi adalah ketentuan mengenai asuransi yang harus disediakan oleh pihak Penyedia Barang/Jasa dalam rangka pelaksanaan pekerjaan yaitu : 1)

Pihak Penyedia Barang/Jasa harus mengasuransikan semua barang dan peralatan-peralatan yang mempunyai resiko tinggi terjadi kecelakaan, pelaksanaan pekerjaan, serta pekerja-pekerja untuk pelaksanaan pekerjaan kontrak atas segala resiko yaitu kecelakaan, kerusakan-kerusakan, kehilangan, serta resiko lain yang tidak dapat diduga.


L107

2)

Pihak Penyedia Barang/Jasa harus mengasuransikan pihak ketiga sebagai akibat kecelakaan di tempat kerjanya. Besarnya asuransi ditentukan di dalam Dokumen Pengadaan.

h.

Pembayaran Pembayaran adalah ketentuan mengenai cara-cara dan termin pembayaran serta mata uang yang digunakan. Cara pembayaran harus disesuaikan dengan ketentuan dalam Dokumen Pengadaan.

i.

Harga Harga adalah ketentuan mengenai harga yang harus dibayarkan oleh Pengguna Barang/Jasa kepada Penyedia Barang/Jasa atas pelaksanaan pekerjaan dalam kontrak. Harga kontrak harus jelas, pasti, dan dirinci sumber pembiayaannya.

j.

Amandemen Kontrak Amandemen kontrak adalah ketentuan mengenai perubahan kontrak. Perubahan kontrak dapat terjadi apabila : 1)

Perubahan pekerjaan disebabkan oleh sesuatu hal yang dilakukan oleh para pihak dalam kontrak sehingga mengubah lingkup pekerjaan dalam kontrak;

2)

Perubahan jadual pelaksanaan pekerjaan akibat adanya perubahan pekerjaan;

3)

Perubahan harga kontrak akibat adanya perubahan pekerjaan dan perubahan pelaksanaan pekerjaan.

(5) Amandemen bisa dilaksanakan apabila disetujui oleh para pihak yang membuat kontrak tersebut. k.

Jadual Pelaksanaan Pekerjaan Jadual pelaksanaan pekerjaan adalah ketentuan mengenai:

l.

1)

Kapan kontrak mulai berlaku;

2)

Kapan pekerjaan mulai dilaksanakan;

3)

Kapan penyerahan hasil pekerjaan dari Penyedia Barang/Jasa kepada Pengguna Barang/Jasa.

Pengawasan Pengawasan adalah ketentuan tentang kewenangan Pengguna Barang/Jasa melakukan pengawasan dan pemeriksaan terhadap pelaksanaan pekerjaan yang sudah dan sedang dilaksanakan oleh pihak Penyedia Barang/Jasa. Apabila diperlukan oleh Pengguna Barang/Jasa karena Pengguna Barang/Jasa tidak dapat melakukan pemeriksaan atau pengawasan, maka Pengguna Barang/Jasa dapat memerintahkan kepada pihak ketiga untuk melakukan pengawasan dan pemeriksaan atas semua pelaksanaan pekerjaan yang sudah atau sedang dilaksanakan oleh Penyedia Barang/Jasa.


L108

m.

Keterlambatan Pelaksanaan Pekerjaan Keterlambatan pelaksanaan pekerjaan adalah ketentuan mengenai: 1)

Hal-hal yang berkaitan dengan keterlambatan dalam pelaksanaan pekerjaan oleh pihak Penyedia Barang/Jasa atau Pengguna Barang/Jasa dari jadual yang ditentukan dalam kontrak;

n.

2)

Sanksi yang diberikan kepada pihak Penyedia Barang/Jasa atau Pengguna Barang/Jasa jika terjadi keterlambatan pelaksanaan pekerjaan;

3)

Pengecualian dari ketentuan angka 2) diatas akibat keadaan kahar.

Keadaan Kahar (Force Majeure) 1)

Yang dimaksud Keadaan Kahar adalah suatu keadaan yang terjadi diluar kehendak para pihak sehingga kewajiban yang ditentukan dalam kontrak menjadi tidak dapat dipenuhi;

2)

Yang digolongkan Keadaan Kahar adalah : a)

Peperangan;

b)

Kerusuhan;

c)

Revolusi;

d)

Bencana alam : banjir, gempa bumi, badai, gunung meletus, tanah longsor, wabah penyakit, dan angin topan;

3)

e)

Pemogokan;

f)

Kebakaran;

g)

Gangguan industri lainnya.

Keadaan kahar ini tidak termasuk hal-hal yang merugikan yang disebabkan oleh perbuatan atau kelalaian para pihak;

4)

Keterlambatan pelaksanaan pekerjaan yang diakibatkan oleh karena terjadinya keadaan kahar tidak dapat dikenai sanksi;

5)

Pihak yang menanggung kerugian akibat terjadinya keadaan kahar, diserahkan pada kesepakatan para pihak;

6)

Tindakan yang diambil untuk mengatasi terjadinya keadaan kahar, diserahkan kepada kesepakatan dari para pihak.

o.

Itikad Baik (Good Faith) 1)

Para pihak bertindak berdasarkan asas kepercayaan (trust) yang disesuaikan dengan hak-hak yang terdapat dalam kontrak;

2)

Para pihak setuju untuk melaksanakan perjanjian dengan jujur tanpa menonjolkan kepentingan masing-masing pihak. Jika selama kontrak, salah satu pihak merasa dirugikan, maka diupayakan tindakan yang terbaik untuk mengatasi keadaan tersebut.


L109

p.

Pemutusan Kontrak Pemutusan Kontrak adalah ketentuan mengenai kapan kontrak dapat diputuskan, dibagi dua yaitu :

q.

1)

Pemutusan kontrak oleh pihak Penyedia Barang/Jasa;

2)

Pemutusan kontrak oleh pihak Pengguna Barang/Jasa.

Penyelesaian Perselisihan Penyelesaian perselisihan adalah ketentuan mengenai penyelesaian perselisihan atau sengketa antara para pihak dalam kontrak. Cara yang diambil dapat melalui pengadilan atau di luar pengadilan yaitu melalui musyawarah, mediasi, konsiliasi atau arbitrase di Indonesia.

r.

Bahasa dan Hukum 1)

Bahasa dan hukum adalah ketentuan mengenai bahasa dan hukum yang digunakan dalam kontrak.

2)

Bahasa kontrak harus dalam Bahasa Indonesia dan dalam hal kontrak melibatkan pihak asing, maka dapat dibuat dalam Bahasa Inggris dengan terjemahan Bahasa Indonesia atau Bahasa Indonesia dengan terjemahan Bahasa Inggris. Dalam hal terjadi perbedaan penafsiran terhadap klausula di dalam kontrak, maka bahasa yang dipakai untuk menafsirkan adalah bahasa aslinya.

3)

s.

Hukum yang digunakan adalah hukum yang berlaku di Indonesia atau pilihan hukum yang disepakati para pihak.

Perpajakan Perpajakan adalah ketentuan mengenai perpajakan sesuai dengan ketentuan perpajakan yang berlaku di Indonesia.

t.

Korespondensi Korespondensi adalah ketentuan kontrak mengenai semua korespondensi yang dapat berbentuk surat, faksimili, atau e-mail dan ditujukan kepada alamat para pihak. Dijelaskan alamat para pihak yang digunakan sebagai alamat korespondensi.

7.3.2.2.

Ketentuan Khusus Ketentuan khusus berikut ini berlaku untuk masing-masing kontrak sesuai dengan jenis pekerjaannya. a.

Ketentuan Khusus untuk Kontrak Pengadaan Barang 1)

Standar Standar adalah ketentuan mengenai barang yang disediakan oleh pihak penyedia barang harus sesuai dengan standar yang telah disebutkan dalam spesifikasi teknis.


L110

2)

Pengepakan (Packaging) Pengepakan adalah ketentuan mengenai kewajiban penjual untuk melakukan pengepakan atas barang-barang yang dikirim dari asal barang sampai ke tujuan akhir yang telah ditentukan dalam kontrak. Tujuan ketentuan pengepakan ini adalah supaya barang-barang yang dikirimkan terlindungi dari resiko kerusakan atau kehilangan pada saat pengiriman dari tempat asal barang sampai ke tujuan akhir yang telah dicantumkan dalam kontrak.

3)

Pengiriman Pengiriman adalah ketentuan mengenai pengiriman barang yang dilakukan Penyedia Barang/Jasa sesuai dengan waktu yang telah ditentukan oleh Pengguna Barang/Jasa disesuaikan dengan jadual kebutuhan.

4)

Transportasi Transportasi adalah ketentuan mengenai transportasi yang digunakan untuk pengiriman barang (melalui laut, darat atau udara). Biaya transportasi pada waktu pengiriman barang dimasukan dalam harga kontrak.

5)

Pemeriksaan dan Pengujian Pemeriksaan dan pengujian adalah ketentuan bahwa Pengguna Barang/Jasa mempunyai hak untuk melakukan pemeriksaan dan pengujian atas barang untuk memastikan kecocokannya dengan spesifikasi dan persyaratan yang telah ditentukan dalam kontrak. Pemeriksaan dan pengujian dapat dilakukan sendiri oleh Penyedia Barang/Jasa atau diwakilkan kepada pihak ketiga.

6)

Layanan Tambahan Penyedia Barang/Jasa dapat dimungkinkan untuk menyediakan beberapa atau semua layanan lanjutan, termasuk penambahan layanan, yang dituangkan dalam syarat-syarat khusus kontrak.

b.

Ketentuan Khusus untuk Kontrak Jasa Konsultansi 1)

Kewajiban Penyedia Jasa Konsultansi a)

Umum (1) Standar pelaksanaan jasa Penyedia Jasa Konsultansi akan melaksanakan perjanjian dan kewajiban-kewajiban yang dibebankan kepadanya dengan penuh tanggung-jawab, ketekunan, efisien dan ekonomis serta memenuhi kriteria teknik profesional dan melindungi secara efektif peralatan-peralatan, mesin, material yang berkaitan dengan pekerjaan dalam kontrak.


L111

(2) Hukum Penyedia Jasa Konsultansi dalam melaksanakan jasa sesuai dengan hukum yang berlaku di Indonesia. Pengguna Barang/Jasa secara tertulis akan memberitahukan kepada Penyedia Jasa Konsultansi mengenai kebiasaan-kebiasaan setempat. b)

Pertentangan Kepentingan (1) Penyedia Jasa Konsultansi tidak akan menerima keuntungan untuk mereka sendiri dari komisi usaha (trade commision), rabat (discount) atau pembayaran-pembayaran lain yang berhubungan dengan kegiatan pelaksanaan jasa. (2) Penyedia Jasa Konsultansi setuju bahwa selama pelaksanaan kontrak, Penyedia Jasa Konsultansi dinyatakan tidak berwenang untuk melaksanakan jasa maupun mengadakan barang yang tidak sesuai dengan kontrak. (3) Penyedia Jasa Konsultansi, subkonsultan, dan personil konsultan dilarang menentang secara langsung atau tidak langsung kegiatan yang akan menimbulkan pertentangan kepentingan (conflict of interest) dengan kegiatan yang merupakan tugasnya.

c)

Tanggungjawab Penyedia Jasa Konsultansi Tanggungjawab Penyedia Jasa Konsultansi sesuai dengan hukum yang berlaku di Indonesia.

d)

Tindakan Penyedia Jasa Konsultansi persetujuan Pengguna Barang/Jasa.

yang

perlu

mendapat

Ketentuan mengenai tindakan yang perlu mendapat persetujuan pengguna jasa meliputi: (1) Memobilisasi personil yang terdapat dalam daftar; (2) Membuat subkontrak dengan pengaturan : (a)

Cara seleksi, waktu, dan kualifikasi dari subkonsultan harus mendapat persetujuan tertulis sebelum pelaksanaan;

(b) Penyedia Jasa Konsultansi bertanggung-jawab penuh terhadap pelaksanaan pekerjaan yang dilakukan oleh subkonsultan dan personilnya. e)

Dokumen-dokumen yang disiapkan oleh Penyedia Jasa Konsultansi dan menjadi hak milik Pengguna Barang/Jasa. Ketentuan ini mengatur bahwa semua rancangan, gambar-gambar, spesifikasi, disain, laporan dan dokumen-dokumen lain serta software yang disiapkan oleh Penyedia Jasa Konsultansi menjadi hak milik Pengguna Barang/Jasa.


L112

Penyedia Jasa Konsultansi, segera setelah pekerjaan selesai atau berakhirnya kontrak, harus menyerahkan seluruh dokumen dan data pendukung lainnya kepada Pengguna Barang/Jasa. Penyedia Jasa Konsultansi dapat menyimpan salinan dari dokumen-dokumen tersebut. f)

Peralatan dan bahan yang disediakan oleh Pengguna Barang/Jasa. Ketentuan ini mengatur mengenai peralatan dan bahan yang disediakan oleh Pengguna Barang/Jasa untuk kebutuhan pelaksanaan pekerjaan oleh Penyedia Jasa Konsultansi. Pada saat berakhirnya kontrak, Penyedia Jasa Konsultansi harus menyerahkan peralatan dan bahan sisa sesuai dengan instruksi Pengguna Barang/Jasa.

2)

Personil Konsultan dan Subkonsultan a)

Umum Ketentuan ini mengatur mengenai pernyataan Penyedia Jasa Konsultansi akan mempekerjakan personil atau subkonsultan sesuai dengan kualifikasi dan pengalamannya.

b)

Personil Inti Personil inti adalah ketentuan yang mengatur mengenai : (1) Nama personil dan uraian pekerjaan, kualifikasi minimum, perkiraan waktu pelaksanaan; (2) Penyesuaian terhadap perkiraan waktu pekerjaan personil akan dibuat oleh Penyedia Jasa Konsultansi melalui pemberitahuan secara tertulis kepada Pengguna Barang/Jasa; (3) Jika terdapat pekerjaan tambah, maka perkiraan waktu pelaksanaan harus ditentukan secara tertulis oleh para pihak.

c)

Persetujuan Personil Persetujuan personil adalah ketentuan yang mengatur mengenai tenaga kerja inti dan subkonsultan yang telah disetujui oleh Pengguna Barang/Jasa harus memberikan data dirinya dan tertera dalam daftar personalia Penyedia Jasa Konsultansi.

3)

Waktu kerja dan lembur Waktu kerja dan lembur adalah ketentuan yang mengatur mengenai: a)

Jam kerja dan waktu cuti untuk tenaga kerja inti ditentukan dalam dokumen kontrak;

b)

Waktu kerja tenaga kerja asing yang dimobilisasi ke Indonesia dihitung sejak kedatangannya di Indonesia sesuai dengan surat perintah mobilisasi;

c)

Tenaga kerja tidak berhak untuk dibayar atas pekerjaan lembur ataupun sakit atau liburan, karena perhitungan upah sudah mencakup hal tersebut.


L113

4)

Penggantian dan Perpindahan Tenaga Kerja a)

Penggantian dan perpindahan tenaga inti hanya dapat dilaksanakan dengan persetujuan Pengguna Barang/Jasa. Jika memang terdapat halhal penting yang mengharuskan penggantian, maka atas persetujuan Pengguna Barang/Jasa, dapat dilakukan penggantian tenaga kerja dengan tenaga kerja yang setara atau lebih baik tanpa menambah biaya;

b)

Jika Pengguna Barang/Jasa menemukan tenaga kerja yang melakukan kesalahan serius atau terlibat tindak kejahatan, atau mengabaikan pekerjaan yang menjadi tugasnya, maka Pengguna Barang/Jasa dapat secara tertulis mengajukan penggantian tenaga kerja tersebut.

c.

Ketentuan Khusus Untuk Kontrak Jasa Pemborongan (1) Personil Personil Barang/Jasa

adalah

ketentuan

(employer)

dapat

mengenai menilai

pihak dan

Pengguna menyetujui

penempatan/penggantian personil atau tenaga ahli menurut kualifikasi yang dibutuhkan. (2) Penemuan-penemuan Penemuan-penemuan adalah ketentuan mengenai penemuanpenemuan benda/barang yang mempunyai nilai sejarah atau penemuan kekayaan yang menurut Undang-Undang dikuasai oleh negara di lokasi pekerjaan pada masa pelaksanaan kontrak. Pihak Penyedia Barang/Jasa wajib memberitahukan kepada pihak Pengguna Barang/Jasa dan kepada pihak yang berwenang sesuai dengan ketentuan peraturan perundang-undangan yang berlaku di Indonesia.

(3) Kompensasi Kompensasi dapat diberikan kepada Penyedia Barang/Jasa bilamana dapat dibuktikan merugikan penyedia jasa dalam hal sebagai berikut : (a)

Pihak Pengguna Barang/Jasa memodifikasi atau mengubah jadual yang dapat mempengaruhi pekerjaan penyedia jasa;

(b) Pihak Pengguna Barang/Jasa menginstruksikan kepada pihak Penyedia Barang/Jasa untuk melakukan pengujian tambahan yang setelah dilaksanakan pengujian ternyata tidak diketemukan kerusakan/kegagalan/penyimpangan. (4) Penangguhan (Suspension) Pihak Pengguna Barang/Jasa secara tertulis memberitahukan kepada Penyedia Barang/Jasa tentang penangguhan hak pembayaran sesuai dengan proporsi, jika pihak Penyedia


L114

Barang/Jasa tidak melakukan kewajiban sebagaimana mestinya, disertai alasan-alasan yang jelas mengenai penangguhan tersebut, dan diberi kesempatan kepada pihak Penyedia Barang/Jasa untuk memperbaiki dalam jangka waktu tertentu. (5) Hari Kerja (Work day) Hari kerja adalah ketentuan mengenai hal-hal sebagai berikut: (a)

Semua pekerja dibayar selama hari kerja (22 hari dalam sebulan) dan datanya disimpan oleh pihak penyedia jasa. Daftar pembayaran ditandatangani oleh masing-masing pekerja dan dapat diperiksa oleh Pengguna Barang/Jasa;

(b) Penyedia Barang/Jasa harus membayar upah hari kerja kepada tenaga kerjanya setelah formulir upah ditandatangani; (c)

Jam kerja dan waktu cuti untuk karyawan harus dilampirkan.

(6) Pedoman Pengoperasian dan Perawatan (a)

Penyedia Barang/Jasa diwajibkan memberikan petunjuk kepada pihak Pengguna Barang/Jasa tentang pengoperasian dan petunjuk perawatan, sebagaimana yang ditetapkan dalam kontrak;

(b) Jika Penyedia Barang/Jasa tidak melakukan hal tersebut huruf

a)

di

atas,

Pengguna

Barang/Jasa

memperhitungkanpembayarankepadaPenyedia Barang/Jasa sesuai dengan ketentuan dalam kontrak. 7.3.2.3.

Dokumen Lainnya Yang Merupakan Bagian Dari Kontrak Dokumen berikut ini menjadi satu kesatuan yang tidak terpisahkan dari kontrak. a.

Untuk Kontrak Jasa Pemborongan, terdiri dari : 1)

Surat penunjukan pemenang;

2)

Surat penawaran;

3)

Spesifikasi umum;

4)

Spesifikasi khusus;

5)

Gambar-gambar;

6)

Addendum dalam proses Pengadaan yang kemudian dimasukkan di masing-masing substansinya;

7)

Daftar kuantitas dan harga (untuk kontrak harga satuan);

8)

Dokumen lainnya, misalnya Jaminan pelaksanaan, Kesepakatan diskusi kontrak (Contract Discussion Agreement)


dapat

L115

b.

Untuk Pengadaan Jasa Konsultansi, terdiri dari : 1)


2)

Kerangka Acuan Kerja (Term of Reference/TOR);

3)

Hasil negosiasi;

4)

Pendekatan Metodologi (Approach of Methodology);

5)

Addendum dalam proses Pengadaan yang kemudian dimasukkan di masing-masing substansinya.

6)

Dokumen lainnya, misalnya Kesepakatan diskusi kontrak (Contract Discussion Agreement).

c.

Untuk Pengadaan Barang/Jasa Lainnya, terdiri dari : 1)


2)

Dokumen Penawaran;

3)

Spesifikasi umum;

4)

Spesifikasi khusus;

5)

Gambar-gambar (bila diperlukan);

6)

Addendum dalam proses Pengadaan yang kemudian dimasukkan di masing-masing substansinya;

7)

Daftar kuantitas dan harga;

8)

Dokumen lainnya, misalnya Jaminan pelaksanaan, Kesepakatan diskusi kontrak (Contract Discussion Agreement).

7.3.3.

Penandatanganan Kontrak Setelah penetapan Penyedia Barang/Jasa, Pengguna Barang/Jasa dan Penyedia Barang/Jasa menandatangani kontrak pelaksanaan pekerjaan, dengan ketentuan sebagai berikut : 7.3.3.1.

Apabila Penyedia Barang/Jasa yang ditunjuk menolak/mengundurkan diri dengan alasan yang tidak dapat diterima atau gagal untuk menandatangani kontrak, maka Pengguna Barang/Jasa membatalkan Surat Penunjukan Pemenang, mencairkan jaminan penawaran dan dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Barang/Jasa di PLN selama 2 (dua) tahun serta sanksi perdata dan pidana sesuai ketentuan peraturan perundang-undangan yang berlaku.

7.3.3.2.

Pengguna Barang/Jasa dan Penyedia Barang/Jasa tidak diperkenankan mengubah Dokumen Pengadaan secara sepihak setelah penyampaian Dokumen Penawaran sampai dengan penandatanganan kontrak (post-bidding).

7.3.3.3.

Penandatanganan kontrak dilakukan paling lambat 14 (empat belas) hari setelah penetapan Pemenang Pengadaan, kecuali apabila ada alasan yang dapat diterima oleh Pengguna Barang/Jasa.


L116

7.3.3.4.

7.3.3.5.

Pengguna dan Penyedia Barang/Jasa wajib : a.

Memeriksa konsep kontrak, meliputi seluruh substansi yang diatur dan disepakati, bahasa/redaksional, angka, dan huruf;

b.

Memeriksa kelengkapan dokumen Kontrak; serta

c.

Membubuhkan paraf pada lembar demi lembar Dokumen Kontrak;

Banyaknya rangkap kontrak dibuat sesuai dengan kebutuhan, yaitu: a.

Sekurang-kurangnya 2 (dua) kontrak asli, kontrak asli pertama untuk Pengguna Barang/Jasa diberi materai pada bagian yang ditandatangani Penyedia Barang/Jasa, dan kontrak asli kedua untuk Penyedia Barang/Jasa diberi materai pada bagian yang ditandatangani Pengguna Barang/Jasa;

b. 7.3.3.6.

Rangkap kontrak lainnya tidak perlu diberi materai.

Setelah penandatanganan kontrak, Pengguna Barang/Jasa segera melakukan pemeriksaan lapangan bersama-sama dengan Penyedia Barang/Jasa dan membuat berita acara keadaan lapangan/serah terima lapangan.

7.3.3.7.

Penyedia Barang/Jasa dilarang mengalihkan tanggung jawab seluruh pekerjaan utama dengan mensubkontrakkan kepada pihak lain.

7.3.3.8.

Penyedia Barang/Jasa dilarang mengalihkan tanggung jawab sebagian pekerjaan utama dengan mensubkontrakkan kepada pihak lain dengan cara dan alasan apapun, kecuali disub-kontrakkan kepada Penyedia Barang/Jasa yang memiliki kompetensi dalam bidang tersebut, dengan persetujuan Pengguna Barang/Jasa.

7.3.4.

Perubahan Kontrak 7.3.4.1.

Perubahan kontrak dapat dilakukan atas kesepakatan bersama antara Pengguna Barang/Jasa dan Penyedia Barang/Jasa, namun tidak boleh bertentangan dengan ketentuan yang telah diatur dalam Keputusan ini.

7.3.4.2.

Semua perubahan kontrak dituangkan dalam Addendum dan/atau Amandemen Kontrak atau Memorandum Kontrak, yang merupakan bagian yang tidak terpisahkan dari kontrak utama.

7.3.5.

Penghentian dan Pemutusan Kontrak. 7.3.5.1.

Penghentian kontrak (suspension of contract) dapat dilakukan dalam hal terjadi peristiwa yang berada di luar kekuasaan para pihak yang mengakibatkan para pihak tidak mungkin melaksanakan kewajiban yang ditentukan dalam kontrak yang disebabkan oleh Keadaan Kahar (Force Majeure) atau keadaan yang ditetapkan dalam kontrak.

7.3.5.2.

Pemutusan kontrak (termination of contract) dapat dilakukan dalam hal para pihak tidak memenuhi kewajiban dan tanggung jawabnya sebagaimana diatur di dalam kontrak.

7.3.5.3.

Pengguna Barang/Jasa dapat memutuskan kontrak secara sepihak, apabila denda keterlambatan pelaksanaan pekerjaan akibat kesalahan Penyedia Barang/Jasa sudah melampaui besarnya Jaminan Pelaksanaan atau maksimum denda keterlambatan, setelah memberikan peringatan ketiga atas keterlambatan pelaksanaan kontrak.


L117

7.3.5.4.

Pemutusan kontrak yang disebabkan oleh kesalahan Pengguna Barang/Jasa, dikenakan sanksi berupa kewajiban mengganti kerugian yang menimpa Penyedia Barang/Jasa sesuai yang ditetapkan dalam kontrak dan ketentuan peraturan perundang-undangan yang berlaku.

7.3.5.5.

Dalam hal terbukti adanya praktek persekongkolan, kecurangan, dan pemalsuan dalam proses pengadaan maupun pelaksanaan kontrak, Pengguna Barang/Jasa wajib membatalkan kontrak.


L118

BAB VIII PELAKSANAAN KONTRAK

8.1.

Direksi Pekerjaan, Panitia Penerima Pekerjaan dan Wakil Penyedia Barang/Jasa 8.1.1.

Dalam melaksanakan pengendalian pekerjaan, Pengguna Barang/Jasa dapat menunjuk wakil yang bertindak atas namanya sebagai Direksi Pekerjaan / Pengawas Pekerjaan / Tim Pemeriksa Barang / Tim Penerima Barang.

8.1.2.

Direksi Pekerjaan / Pengawas Pekerjaan / Tim Pemeriksa Barang / Tim Penerima Barang dimaksudkan untuk menilai hasil pekerjaan yang telah diselesaikan oleh Penyedia Barang/Jasa pada waktu penyerahan pertama pekerjaan dan penyerahan akhir pekerjaan.

8.1.3.

Direksi Pekerjaan / Pengawas Pekerjaan / Tim Pemeriksa Barang / Tim Penerima Barang berkoordinasi dengan Penyedia Barang/Jasa, selanjutnya Penyedia Barang/Jasa wajib menunjuk personil sebagai wakilnya yang berdomisili di lokasi pekerjaan, yang diberi wewenang penuh dan bertanggung jawab atas pelaksanaan pekerjaan atas namanya.

8.2.

Hak dan Kewajiban Para Pihak 8.2.1.

Hak dan kewajiban Pengguna Barang/Jasa dalam pelaksanaan kontrak: 8.2.1.1.

Mengawasi pekerjaan yang dilaksanakan oleh Penyedia Barang/Jasa;

8.2.1.2.

Meminta laporan-laporan secara periodik mengenai pelaksanaan pekerjaan yang dilakukan oleh Penyedia Barang/Jasa;

8.2.2.

8.2.1.3.

Melakukan perubahan kontrak, jika ada alasan yang sah dan disepakati oleh para pihak;

8.2.1.4.

Memberikan peringatan atas keterlambatan pekerjaan;

8.2.1.5.

Mengenakan denda keterlambatan;

8.2.1.6.

Membayar tahapan sesuai dengan progress fisik pekerjaan yang tercantum dalam Berita Acara Kesepakatan;

8.2.1.7.

Membuat Berita Acara Serah Terima lokasi pekerjaan;

8.2.1.8.

Memberikan instruksi sesuai jadual pelaksanaan pekerjaan yang telah ditetapkan dalam kontrak.

Hak dan kewajiban Penyedia Barang/Jasa dalam pelaksanaan kontrak; 8.2.2.1. Menerima pembayaran tahapan sesuai dengan progress fisik pekerjaan yang tercantum dalam Berita Acara Kesepakatan; 8.2.2.2. Melaksanakan dan menyelesaikan pekerjaan sesuai dengan jadual pelaksanaan pekerjaan yang telah ditetapkan dalam kontrak; 8.2.2.3. Melaporkan pelaksanaan pekerjaan secara periodik (laporan harian, mingguan dan bulanan) kepada Pengguna Barang/Jasa;


L119

8.2.2.4. Memberikan keterangan yang diperlukan untuk pemeriksaan pelaksanaan yang dilakukan Pengguna Barang/Jasa; 8.2.2.5. Menyerahkan hasil pekerjaan sesuai dengan jadual penyerahan pekerjaan yang telah ditetapkan dalam kontrak; 8.2.2.6. Mengambil langkah-langkah yang maksimal untuk melindungi lingkungan, baik di dalam maupun di luar lokasi pekerjaan, dan membatasi perusakan dan pengaruh/gangguan kepada masyarakat maupun miliknya sebagai akibat polusi, kebisingan dan kerusakan lain yang disebabkan kegiatan Penyedia Barang/Jasa.

8.3.

Asuransi 8.3.1.

Penyedia Barang/Jasa wajib mengasuransikan Barang/Jasa Konstruksi yang nilai kontraknya lebih dari Rp. 300.000.000 (tiga ratus juta rupiah) atau pekerjaan yang mempunyai risiko tinggi untuk kepentingan Pengguna Barang/Jasa dengan jenis asuransi antara lain Marine Cargo, Contractor All Risk (CAR), Erection All Risk (EAR), Comprehensive Liability, Asuransi Tenaga Kerja sesuai dengan kebutuhan dan ketentuan hukum yang berlaku.

8.3.2.

Ketentuan angka 8.3.1 diatas tidak diwajibkan untuk Jasa Konsultansi.

8.3.3.

Ketentuan mengenai masa berlaku, nama tertanggung, syarat dan kondisi, obyek asuransi, harga pertanggungan, dan ketentuan lainnya diatur dalam kontrak.

8.3.4.

Sebelum pekerjaan dimulai, Penyedia Barang/Jasa wajib meminta persetujuan tertulis kepada Pengguna Barang/Jasa atas usulan Calon penanggung (perusahaan asuransi) beserta konsep (draft) syarat-syarat dan kondisi pertanggungan (asuransi) yang akan dituangkan dalam polis sesuai dengan ketentuan di dalam kontrak dan Polis Asuransi wajib diserahkan kepada Pengguna Barang/Jasa selambat-lambatnya 10 (sepuluh) hari kerja setelah diberikan Persetujuan.

8.4.

Perpajakan 8.4.1.

Penyedia Barang/Jasa harus mengetahui, memahami dan patuh terhadap semua peraturan perundang-undangan tentang pajak yang berlaku di Indonesia dan sudah diperhitungkan dalam Dokumen Penawaran;

8.4.2.

Perubahan peraturan perundang-undangan tentang pajak yang terjadi setelah pembukaan penawaran harus dilakukan penyesuaian.

8.5.

Pembayaran 8.5.1.

Pembayaran uang muka (down payment) pada prinsipnya tidak diberikan kecuali apabila sangat dibutuhkan demi kelancaran pekerjaan dan keuangan Perusahaan memungkinkan. Pemberian uang muka untuk pengadaan internasional dibayarkan dalam hal tersebut merupakan persyaratan efektifnya kontrak.

8.5.2.

Pembayaran diberikan Pengguna Barang/Jasa berdasarkan Progress Fisik Pekerjaan.

8.5.3.

Sistem pembayaran progress fisik pekerjaan sesuai ketentuan dokumen kontrak (angsuran / termijn atau bulanan / monthly certificate).


L120

8.5.4.

Pembayaran dengan Sistem Sertifikat Angsuran dilaksanakan dengan ketentuan sebagai berikut: 8.5.4.1.

Setelah kemajuan hasil pekerjaan mencapai nilai prosentase tertentu sesuai dengan ketentuan dokumen kontrak, Penyedia Barang/Jasa mengajukan laporan kemajuan hasil pekerjaan kepada Direksi Pekerjaan dengan lampiran data pendukung.

8.5.4.2.

Kemajuan hasil pekerjaan tersebut harus sudah mendapat penetapan dari Direksi Pekerjaan selambat-lambatnya 10 (sepuluh) hari kerja setelah diterimanya laporan kemajuan hasil pekerjaan tersebut berikut laporan data pendukungnya.

8.5.5.

Pembayaran dengan Sistem Sertifikat Bulanan (Monthly Certificate) dilaksanakan dengan ketentuan sebagai berikut : 8.5.5.1.

Pada setiap tanggal 25 (dua puluh lima) bulan yang bersangkutan, Penyedia Barang/Jasa mengajukan sertifikat bulanan kepada Direksi Pekerjaan dengan lampiran data pendukung.

8.5.5.2.

Kemajuan hasil pekerjaan sesuai Sertifikat Bulanan tersebut harus sudah mendapat penetapan dari Direksi Pekerjaan selambat-lambatnya 10 (sepuluh) hari kerja setelah diterimanya laporan kemajuan hasil pekerjaan tersebut berikut laporan data pendukungnya.

8.5.6.

Pembayaran progress fisik pekerjaan yang disepakati dilakukan oleh Pengguna Barang/Jasa apabila Penyedia Barang/Jasa telah mengajukan tagihan disertai laporan kemajuan hasil pekerjaan yang telah disetujui oleh Direksi Pekerjaan dalam kurun waktu 10 (sepuluh) hari kerja.

8.5.7.

Pembayaran progress fisik pekerjaan hanya dapat dilakukan senilai pekerjaan yang telah terpasang, tidak termasuk bahan-bahan dan alat-alat yang ada dilapangan.

8.5.8.

Setiap pembayaran harus dipotong jaminan pemeliharaan, denda (bila ada), dan pajak.

8.5.9.

Untuk kontrak yang mempunyai subkontrak, permintaan pembayaran kepada Pengguna Barang/Jasa harus dilengkapi bukti pembayaran kepada seluruh sub kontraktor sesuai dengan kemajuan pekerjaan.

8.5.10. Pembayaran terakhir sebesar 100% (seratus persen) dari nilai kontraknya hanya dilakukan setelah pekerjaan selesai 100% (seratus persen) dari nilai kontrak dan Penyedia Barang/Jasa harus menyerahkan jaminan pemeliharaan sebesar 5% (lima persen) dari nilai kontrak setelah berita acara penyerahan pertama diterbitkan.

8.6.

Pemeriksaan Lapangan Bersama 8.6.1.

Pada tahap awal pelaksanaan kontrak, setelah Berita Acara Serah Terima Lokasi, Direksi Pekerjaan bersama-sama dengan wakil Penyedia Barang/Jasa melaksanakan pemeriksaan lapangan bersama dengan melakukan pengukuran dan pemeriksaan detail kondisi lapangan.

8.6.2.

Hasil pemeriksaan lapangan bersama dituangkan dalam berita acara. Apabila hasil pemeriksaan lapangan bersama mengakibatkan perubahan isi kontrak (spesifikasi teknis, gambar, jenis pekerjaan, kuantitas), maka perubahan tersebut harus dituangkan dalam perintah perubahan kontrak yang ditindak lanjuti dengan pembuatan amandemen kontrak.

8.6.3.

Selanjutnya pemeriksaan lapangan bersama dilaksanakan selama periode waktu pelaksanaan pekerjaan untuk menetapkan kuantitas hasil pekerjaan yang akan dibayarkan setiap bulan/angsuran.


L121

8.7.

Pekerjaan Tambah Kurang 8.7.1.

Apabila terdapat perbedaan antara kondisi lapangan pada saat pelaksanaan pekerjaan dengan spesifikasi teknis dan gambar yang ditetapkan dalam dokumen kontrak, maka Penyedia Barang/Jasa dan Pengguna Barang/Jasa dapat melakukan perubahan kontrak/amandemen yang meliputi antara lain: 8.7.1.1.

Menambah atau mengurangi volume pekerjaan yang tercantum dalam Dokumen Kontrak;

8.7.1.2.

Menambah atau mengurangi jenis pekerjaan;

8.7.1.3.

Mengubah spesifikasi teknis dan gambar pekerjaan sesuai dengan kebutuhan lapangan;

8.7.2.

Pekerjaan Tambah yang tidak dapat dielakkan dalam rangka penyelesaian pekerjaan, dengan ketentuan nilainya tidak lebih dari 10% (sepuluh persen) dari harga yang tercantum dalam kontrak awal maka pekerjaan tambah tersebut harus didasarkan pada justifikasi yang dapat dipertanggungjawabkan secara profesional oleh Direksi Pekerjaan.

8.7.3.

Dalam hal pekerjaan tambah melebihi 10% (sepuluh persen) dari harga yang tercantum dalam kontrak awal maka pekerjaan tambah tersebut harus didasarkan pada justifikasi yang dapat dipertanggungjawabkan secara profesional oleh Direksi Pekerjaan dan wajib mendapatkan persetujuan terlebih dahulu dari Pengguna Barang/Jasa sebelum pelaksanaannya.

8.7.4.

Perintah perubahan pekerjaan harus dibuat secara tertulis oleh Pengguna Barang/Jasa kepada Penyedia Barang/Jasa, ditindak lanjuti dengan negosiasi teknis dan harga dengan tetap mengacu pada ketentuan yang tercantum dalam dokumen kontrak.

8.8.

Denda Keterlambatan Besarnya denda kepada penyedia barang/jasa atas keterlambatan penyelesaian pekerjaan adalah 1 ‰ (satu per seribu) dari harga kontrak atau bagian kontrak untuk setiap hari keterlambatan dengan maksimum 5 % dari kontrak.

8.9.

Penyesuaian Harga 8.9.1.

Penyesuaian harga adalah ketentuan mengenai perubahan harga kontrak akibat adanya perubahan keadaan yang menimbulkan konsekuensi finansial yang sangat material dengan ketentuan sebagai berikut : 8.9.1.1.

Penyesuaian harga dilakukan sesuai dengan ketentuan yang tercantum dalam kontrak

8.9.1.2.

Dalam hal penyesuaian harga belum dicantumkan dalam kontrak, maka dapat dilakukan kesepakatan penyesuaian harga yang hasilnya dituangkan dalam amandemen kontrak, yang pelaksanaannya didasarkan pada justifikasi dan dapat dipertanggungjawabkan secara profesional.

8.9.1.3.

Penyesuaian harga dapat diberlakukan bagi kontrak yang masa pelaksanaannya lebih dari 12 (dua belas) bulan;

8.9.1.4.

Penyesuaian harga satuan berlaku bagi seluruh kegiatan/mata pembayaran kecuali komponen keuntungan dan overhead sebagaimana tercantum dalam penawaran;

8.9.1.5.

Penyesuaian harga satuan diberlakukan sesuai dengan jadual pelaksanaan yang tercantum dalam kontrak/addendum. Bagian kontrak atau pekerjaan yang terlambat


L122

dilaksanakan karena kesalahan Penyedia Barang/jasa, penyesuaian harga satuan dan nilai kontrak menggunakan indeks harga sesuai jadual pelaksanaan pekerjaan yang ditetapkan pada kontrak awal; 8.9.1.6.

Penyesuaian harga satuan bagi komponen pekerjaan yang berasal dari luar negeri dan dibayar dengan valuta asing menggunakan indeks penyesuaian harga dari negara asal barang tersebut;

8.9.2.

Rumusan penyesuaian harga satuan : Hn

=

Ho (a + b.Bn/Bo + c.Cn/Co + d.Dn/Do + ………)

Keterangan : Hn

= Harga satuan barang/jasa pada saat pekerjaan dilaksanakan

Ho

= Harga satuan barang/jasa pada saat penyusunan harga Penawaran (28 hari sebelum pemasukan penawaran)

a

= Koefisien tetap yang terdiri keuntungan dan overhead. Dalam hal penawaran tidak mencantumkan besaran komponen keuntungan dan overhead, maka a adalah 0,15.

b, c, d

= Koefisien komponen kontrak seperti tenaga kerja, bahan, alat kerja dsb. Penjumlahan a+b+c+d+…. dst. adalah 1,00.

Bn, Cn, Dn = Indeks harga komponen pada saat pekerjaan dilaksanakan Bo, Co, Do = Indeks harga komponen pada saat penyusunan harga penawaran (28 hari sebelum pemasukan penawaran). Catatan : a. Indeks harga yang digunakan bersumber dari penerbitan Badan Pusat Statistik (BPS). Jika indeks harga tidak dimuat dalam penerbitan BPS, maka digunakan indeks harga yang disiapkan oleh departemen teknis. b. Penetapan koefisien komponen kontrak pekerjaan dilakukan oleh Pengguna Barang/jasa. 8.9.3.

Rumusan penyesuaian nilai kontrak : Pn

= (Hn1 x V1) + (Hn2 x V2) + (Hn3 x V3) + ..... dst

Keterangan : Pn

= Nilai kontrak setelah dilakukan penyesuaian harga satuan barang/jasa

Hn

= Harga satuan baru setelah dilakukan penyesuaian harga menggunakan rumusan penyesuaian satuan harga

V1

= Volume pekerjaan yang dilaksanakan bulan.


L123

8.10. Addendum/Amandemen/Memorandum Kontrak 8.10.1. Addendum/Amandemen/Memorandum kontrak harus segera dibuat bila terjadi perubahan kontrak. 8.10.2. Perubahan kontrak dapat terjadi apabila: 8.10.2.1. Perubahan pekerjaan yang disebabkan oleh suatu hal yang dilakukan oleh para pihak dalam kontrak sehingga mengubah lingkup pekerjaan; 8.10.2.2. Perubahan jadual pelaksanaan pekerjaan akibat adanya perubahan pekerjaan; 8.10.2.3. Perubahan harga kontrak akibat adanya perubahan pekerjaan. 8.10.3. Prosedur pembuatan Addendum/Amandemen/Memorandum kontrak dilakukan sebagai berikut: 8.10.3.1. Pengguna Barang/Jasa segera memberikan perintah tertulis kepada Penyedia Barang/Jasa untuk melaksanakan perubahan kontrak, atau penyedia jasa mengusulkan perubahan kontrak; 8.10.3.2. Penyedia Barang/Jasa harus memberikan tanggapan atas perintah perubahan dari Pengguna Barang/Jasa dan mengusulkan perubahan harga (bila ada) selambatlambatnya dalam waktu 7 (tujuh) hari. Pengguna Barang/Jasa harus memberikan tanggapan atas usulan perubahan kontrak dari Penyedia Barang/Jasa selambatlambatnya dalam waktu 7 (tujuh) hari; 8.10.3.3. Atas usulan perubahan kontrak, dilakukan negosiasi teknis dan harga dan dibuat berita acara hasil negosiasi; 8.10.3.4. Berdasarkan berita acara hasil negosiasi dibuat Addendum/Amandemen/Memorandum kontrak.

8.11. Mobilisasi 8.11.1. Mobilisasi paling lambat harus sudah mulai dilaksanakan dalam waktu 30 (tiga puluh) hari sejak penandatanganan Kontrak atau serah terima lokasi pekerjaan sebagaimana ditentukan dalam Dokumen Kontrak. 8.11.2. Mobilisasi antara lain meliputi: 8.11.2.1. Mendatangkan peralatan-peralatan berat dan kendaraan-kendaraan; 8.11.2.2. Mempersiapkan fasilitas lapangan untuk Penyedia Barang/Jasa meliputi kantor, rumah, gedung laboratorium, bengkel, gudang, dan fasilitas lainnya yang telah ditentukan dalam dokumen kontrak; 8.11.2.3. Mendatangkan alat-alat laboratorium, alat-alat ukur dan peralatan lainnya; 8.11.2.4. Mendatangkan personil pelaksana. 8.11.2.5. Mobilisasi peralatan dan personil pelaksana dapat dilakukan secara bertahap sesuai dengan kebutuhan di lapangan.


L124

8.12. Perpanjangan Waktu Pelaksanaan 8.12.1. Perpanjangan waktu pelaksanaan dapat diberikan oleh pengguna barang/jasa atas pertimbangan yang layak dan wajar; 8.12.2. Yang dimaksud hal-hal yang layak dan wajar untuk perpanjangan waktu pelaksanaan adalah sebagai berikut : 8.12.2.1. Pekerjaan tambah; 8.12.2.2. Perubahan disain; 8.12.2.3. Keterlambatan yang disebabkan oleh pihak pengguna barang/jasa; 8.12.2.4. Masalah yang timbul di luar kendali penyedia barang/jasa; 8.12.2.5. Keadaan kahar (force majeur). 8.12.3. Pengguna Barang/Jasa dapat menyetujui perpanjangan waktu pelaksanaan atas kontrak setelah melakukan penelitian dan evaluasi terhadap usulan tertulis yang diajukan oleh Penyedia Barang/Jasa; Persetujuan perpanjangan waktu pelaksanaan dituangkan di dalam amandemen/memorandum kontrak.

8.13. Kerjasama antara Penyedia Barang/Jasa dengan sub kontraktor 8.13.1. Bagian pekerjaan yang disubkontrakkan tersebut harus diatur dalam kontrak dan disetujui terlebih dahulu oleh pengguna barang/jasa; 8.13.2. Penyedia barang/jasa tetap bertanggung jawab atas bagian pekerjaan yang disubkontrakkan tersebut; 8.13.3. Ketentuan-ketentuan dalam subkontrak harus mengacu kepada kontrak serta menganut prinsip kesetaraan.

8.14. Serah Terima Pekerjaan 8.14.1. Setelah pekerjaan selesai 100% (seratus persen), penyedia barang/jasa mengajukan permintaan secara tertulis kepada pengguna barang/jasa untuk penyerahan pekerjaan; 8.14.2. Pengguna barang/jasa melakukan penilaian terhadap hasil pekerjaan yang telah diselesaikan oleh penyedia barang/jasa. Bilamana terdapat kekurangan-kekurangan dan/atau cacat hasil pekerjaan, penyedia barang/jasa wajib memperbaiki/ menyelesaikannya; 8.14.3. Pengguna barang/jasa menerima penyerahan pekerjaan setelah seluruh hasil pekerjaan dilaksanakan sesuai dengan ketentuan kontrak; 8.14.4. Pembayaran dilakukan sebesar 95% (sembilan puluh lima persen) dari nilai kontrak, sedangkan yang 5% (lima persen) merupakan retensi selama masa pemeliharaan, atau pembayaran dilakukan sebesar 100% (seratus persen) dari nilai kontrak dan penyedia barang/jasa harus menyerahkan jaminan pemeliharaan sebesar 5% (lima persen) dari nilai kontrak; 8.14.5. Penyedia barang/jasa wajib memelihara hasil pekerjaan selama masa pemeliharaan sehingga kondisi tetap seperti pada saat penyerahan pertama pekerjaan;


L125

8.14.6. Setelah masa pemeliharaan berakhir, penyedia barang/jasa mengajukan permintaan secara tertulis kepada pengguna barang/jasa untuk penyerahan akhir pekerjaan; 8.14.7. Pengguna barang/jasa menerima penyerahan akhir pekerjaan setelah penyedia barang/jasa melaksanakan semua kewajibannya selama masa pemeliharaan dengan baik dan wajib melakukan pembayaran sisa nilai kontrak yang belum dibayar atau mengembalikan jaminan pemeliharaan; 8.14.8. Apabila penyedia barang/jasa tidak melaksanakan kewajiban pemeliharaan sebagaimana mestinya maka pengguna barang/jasa berhak menggunakan uang retensi untuk membiayai perbaikan/ pemeliharaan atau mencairkan jaminan pemeliharaan.


L126

BAB IX PEMBINAAN DAN PENGAWASAN 9.1.

Pembinaan Pengguna Barang/Jasa wajib mensosialisasikan secara intensif kepada semua unit dan Satuan Pengawasan Intern (SPI)/Audit Internal (AI) di lingkungan PLN agar Keputusan Direksi ini dapat dipahami dan dilaksanakan dengan baik dan benar.

9.2.

Pengawasan 9.2.1.

Pengguna Barang/Jasa wajib : 9.2.1.1.

Melakukan pencatatan dan pelaporan keuangan, kontrak dan hasil kerja pada setiap kegiatan, baik kemajuan maupun hambatan dalam pelaksanaan tugasnya;

9.2.1.2.

Menyimpan dan memelihara seluruh dokumen pelaksanaan Pengadaan Barang/Jasa termasuk berita acara proses Pelelangan/seleksi; dan

9.2.1.3.

Memberikan tanggapan/informasi mengenai Pengadaan Barang/Jasa yang berada di dalam batas kewenangannya kepada pihak yang mengajukan pengaduan atau yang memerlukan penjelasan.

9.2.2.

Semua laporan dalam bentuk hardcopy dan/atau soft copy harus disampaikan kepada SPI setiap triwulan, sedangkan kepada Audit Internal setiap bulan.

9.2.3.

Laporan pelaksanaan Kontrak sampai dengan Rp.1.000.000.000 (satu milyar rupiah) wajib dilaporkan kepada SPI dalam bentuk daftar (list).

9.2.4.

Laporan pelaksanaan Kontrak dengan nilai diatas Rp.1.000.000.000 (satu milyar rupiah) wajib dilaporkan kepada Direksi Terkait dengan tembusan kepada Kepala Satuan Pengawasan Intern (KSPI) / Kepala Audit Internal (KAI).

9.2.5.

Format laporan Pelaksanaan Kontrak adalah sebagai berikut : 9.2.5.1 Pencatatan dan Pelaporan Keuangan : a. PRK (Program Rencana Kegiatan) termasuk Anggaran Operasi maupun Anggaran Investasi; b. Progres Pembayaran; c. Akuntansi. 9.2.5.2 Pelaporan Pengadaan dan Pelaksanaan Kontrak : a. Kronologi Pengadaan; b. Agenda Kontrak, antara lain : 1) Uraian Pekerjaan; 2) Jenis Pengadaan; 3) Nomor Kontrak dan Pelaksana; 4) Tanggal Kontrak dan Tanggal Akhir Kontrak;


L127

5) Nilai Anggaran dan Nilai Kontrak; 6) Amandemen; 7) Tanggal Selesai Pekerjaan; 8) Nilai Denda; 9) Keterangan; 10) Rencana dan realisasi pekerjaan. 9.2.6

Pengawasan yang dilakukan oleh Satuan Pengawasan Intern (SPI) / Audit Internal (AI) adalah: 9.2.6.1 Melaksanakan pengawasan terhadap kegiatan/proyek sesuai program atau penugasan lain dari Direktur Utama; 9.2.6.2 Menampung dan menindaklanjuti pengaduan yang berkaitan dengan masalah atau penyimpangan dalam pelaksanaan Pengadaan Barang/Jasa; 9.2.6.3 Melaporkan hasil pemeriksaannya kepada Direktur Utama.


L128

Lampiran-Lampiran


L129

Lampiran 1 Contoh PAKTA INTEGRITAS


L130

Lampiran 1.a. Contoh PAKTA INTEGRITAS untuk Panitia/Pejabat Pengadaan

PAKTA INTEGRITAS

Saya yang bertanda tangan di bawah ini, dalam rangka pengadaan yang dilaksanakan untuk periode tahun …………………. (Mohon diisi sesuai periodenya) dengan ini menyatakan bahwa saya :

1.

Akan mentaati peraturan tentang Pedoman Pengadaan Barang/Jasa di Lingkungan PT PLN (Persero), dan peraturan perundang-undangan yang terkait dengan pengadaan;

2.

Dalam proses pengadaan ini (mulai dari pembuatan HPS sampai dengan usulan penetapan pemenang), berjanji akan melaksanakan tugas secara bersih, transparan dan profesional dalam arti akan mengerahkan segala kemampuan dan sumber daya secara optimal untuk memberikan hasil kerja terbaik;

3.

Apabila saya melanggar hal-hal yang telah saya nyatakan dalam PAKTA INTEGRITAS ini, saya bersedia dikenakan sanksi sesuai dengan ketentuan peraturan perundang-undangan yang berlaku. …………………………………. , …………. 200…

Panitia/Pejabat Pengadaan : a. ………… (nama jelas), ………… (tanda tangan) b. ………… (nama jelas), ………… (tanda tangan) c. ………… (nama jelas), ………… (tanda tangan) d. ………… (nama jelas), ………… (tanda tangan) e. ………… (nama jelas), ………… (tanda tangan)


L131 Lampiran 1.b. Contoh PAKTA INTEGRITAS untuk Penyedia Barang/Jasa

PAKTA INTEGRITAS

Saya yang bertanda tangan di bawah ini, dalam rangka pengadaan ...........................(nama perkerjaan/kegiatan) pada proyek/satuan kerja........................, dengan ini menyatakan bahwa saya :

1.

Akan mentaati peraturan tentang Pedoman Pengadaan Barang/Jasa di Lingkungan PT PLN (Persero), dan peraturan perundang-undangan yang terkait dengan pengadaan;

2.

Tidak akan melakukan persekongkolan/pengaturan/kerjasama diantara para Calon Penyedia Barang/Jasa lain dan/atau Pengguna Barang/Jasa dan/atau Panitia Pengadaan yang dapat mengakibatkan terjadinya persaingan usaha tidak sehat ;

3.

Apabila saya melanggar hal-hal yang telah saya nyatakan dalam PAKTA INTEGRITAS ini, saya bersedia dikenakan sanksi sesuai dengan ketentuan peraturan perundang-undangan yang berlaku. …………………………………. , …………. 200…

Penyedia Barang/Jasa


: …………… (Nama jelas ), ………… (tanda tangan)

L132

Lampiran 2 Contoh Dokumen Penilaian Kualifikasi Pekerjaan Pengadaan Barang/Jasa Konstruksi/Jasa Lainnya/Jasa Konsultansi


L133

Lampiran 2 Contoh Formulir Penilaian Kualifikasi Pekerjaan Pengadaan Barang/Jasa Konstruksi/Jasa Lainnya/Jasa Konsultansi

SURAT PERNYATAAN MINAT UNTUK MENGIKUTI PENGADAAN …….

Yang bertanda tangan di bawah ini: Nama

:

Jabatan: Bertindak untuk : dan atas nama Alamat

............................... ............................... PT/CV/Firma/Koperasi/ Perorangan/Persekutuan Usaha . . . . . . . . . . . . . . .

:

...............................

Telepon/Fax

:

...............................

Email

:

...............................

Menyatakan dengan sebenarnya bahwa setelah mengetahui pengadaan yang akan dilaksanakan oleh Kantor Pusat/Unit …………… …………… , Tahun Anggaran ….., maka dengan ini saya menyatakan berminat untuk mengikuti proses Pengadaan paket pekerjaan/kegiatan ……………………….…. (nama pekerjaan/kegiatan) sampai selesai.

Demikian pernyataan ini kami buat dengan penuh kesadaran dan rasa tanggung jawab.

……………………….. , ……………. ……..200… PT/CV/Firma/Koperasi/ Perorangan/Persekutuan Usaha ……………………..

Materai Rp. 6.000,Tanggal dan Cap Perusahaan

(Nama Jelas) Jabatan


L134

Lampiran 3 Contoh Formulir Isian Penilaian Kualifikasi


L135

Lampiran 3 Contoh Formulir Isian Penilaian Kualifikasi

Pengadaan ………………….……. Kantor Pusat /Unit ……………… Tahun Anggaran …………………

Yang bertanda tangan di bawah ini : Nama Jabatan

: :

............................... ...............................

dan atas nama Alamat

: :

PT/CV/FIRMA/KOPERASI/Perorangan . . . . . . . . . . . . . . . . . . . . . . . . . ...............................

Telepon/Fax Email

: :

............................... ...............................

Bertindak untuk

Menyatakan dengan sesungguhnya bahwa : 1.

Saya secara hukum mempunyai kapasitas menandatangani kontrak berdasarkan Surat …………………… (sesuai Akta Pendirian/perubahannya/surat kuasa, Pendirian/perubahan/surat kuasa dan tanggalnya);

2. 3. 4.

disebutkan

secara

jelas

Nomor

Akta

Saya/perusahaan saya tidak sedang dinyatakan pailit atau kegiatan usahanya tidak sedang dihentikan atau tidak sedang menjalani sanksi pidana atau sedang dalam pengawasan pengadilan; Saya tidak pernah dihukum berdasarkan putusan pengadilan atas tindakan yang berkaitan dengan kondite profesional saya; Data-data saya/perusahaan saya adalah terlampir ( lampiran 4).

Demikian pernyataan ini saya buat dengan sebenarnya dan penuh rasa tanggung jawab. Apabila di kemudian hari, data/dokumen yang disampaikan tidak benar dan ada pemalsuan, maka saya bersedia dikenakan sanksi administrasi yaitu dimasukkan dalam Daftar Hitam (black list) PLN dan tidak diperkenankan ikut serta dalam Pengadaan Barang/Jasa di PLN dalam jangka waktu 2 (dua) tahun serta sanksi perdata dan pidana sesuai ketentuan peraturan perundang-undangan yang berlaku. …………… , ………………. 200… PT/CV/Firma/Koperasi …………..

Materai Rp. 6.000,Tanggal dan Cap Perusahaan

(Nama Jelas) SK DIR No.:305.K/DIR/2010, Tgl.03 Juli 2010

L136 Jabatan

Lampiran 4


L137

A. Data Administrasi Umum

1.

Nama (PT/CV/Firma/ Koperasi/Perorangan)

:

2.

Status (PT/CV/Firma/ Koperasi/Perorangan)

:

Alamat PT/CV/Firma/ Koperasi/Perorangan) No. Telepon No. Fax E-Mail

:

Alamat Kantor Pusat No. Telepon No. Fax E-Mail

: : : :

3.

4.

Pusat

Cabang

: :

(diisi, dalam hal yang menawar cabang perusahaan/kantor perwakilan, bukan kantor pusatnya)

B. Ijin Usaha No. SIUP/IUJK/SIUI * Masa berlaku ijin usaha Instansi pemberi ijin usaha * Pilih yang sesuai

: ………………. Tanggal ……………. : ……………………………………… : ………………………………………..

C. Landasan Hukum Pendirian Perusahaan 1.

2.

3.

AktaPendirianPT/CV/Firma/ Koperasi a. Nomor Akta b. Tanggal c. Nama Notaris Akta Perubahan Terakhir a. Nomor Akta b. Tanggal c. Nama Notaris Tanda Daftar Perusahaan (TDP)

: : : : : : :

Masukkan nomor pendaftaran

dan

tanggal

L138

D. Pengurus 1. Komisaris (untuk PT)

NO.

Nama

No. KTP

Jabatan dalam Perusahaan

2. Direksi/Penanggung Jawab/Pengurus Perusahaan/Penerima Kuasa

No.

Nama

No. KTP

Jabatan dalam Perusahaan

E. Data Keuangan 1.

Susunan Kepemilikan Saham (untuk PT)/Susunan Sekutu (untuk CV/Firma)

No.

2.

Nama

No. KTP

Alamat

Pajak

1.

Nomor Pokok Wajib Pajak (NPWP)

:

2.

Bukti Pelunasan Pajak Tahun terakhir Nomor/Tanggal

:

3.

Laporan bulanan PPh/PPN tiga bulan terakhir Nomor/ Tanggal

:

Persentasi

L139

Neraca Perusahaan Terakhir Per Tanggal …. Bulan …. Tahun ….. (hanya untuk jasa konstruksi)

3.

L140

F. Data Personalia 1.

NO

1

Nama

2

Tenaga ahli/teknis yang diperlukan (prinsipnya hanya untuk jasa konstruksi)

Tgl/bln/thn lahir

Pendidikan

3

4

Jabatan dalam “Proyek” 5

Pengalaman Kerja (tahun) 6

Profesi/keahlian

7

Sertifikat/Ijazah

8

Direktur Utama / Penanggung jawab / Pengurus

Nama Jelas

L141

G. Data Peralatan/ Perlengka pan (prinsipny a hanya untuk jasa konstruksi)

L142

H. Data Pengalam an Perusahaa n Sesuai dengan Bidang/Su b bidangnya

L143

Data Pekerjaan Yang Sedang Dilaksana kan ( hanya untuk jasa konstruksi )

I.

L144 J. Modal Kerja Surat dukungan keuangan dari Bank: Nomor Tanggal Nama Bank Nilai

: : : :

L145

Lampiran 4 Contoh Pakta Integritas Dalam Rangka Usulan Pemenang

L146 PAKTA INTEGRITAS (LETTER OF UNDERTAKING) Nomor :

Kami, yang menyatakan dan bertandatangan di bawah ini, Panitia Pengadaan …………….melalui ………………(metoda pengadaan) yang dibentuk berdasarkan …………………….tentang ……………….., dengan ini menyatakan dengan sebenarnya, bahwa sehubungan dengan pengajuan usulan penetapan calon penyedia jasa atau calon pemenang untuk ……………………:

1.

Kami telah melaksanakan dan memeriksa bahwa proses pengadaan tersebut dilaksanakan sesuai dengan kewenangan yang diberikan berdasarkan ………………( Keputusan Direksi tentang Pengadaan Barang/Jasa) serta memperhatikan ketentuan yang berlaku, berdasarkan prinsip-prinsip itikad baik, dengan kecermatan yang tinggi, dan dalam keadaan bebas, mandiri atau tidak dibawah tekanan, maupun pengaruh dari pihak lain (independency).

2.

Kami telah melaksanakan proses pengadaan sebagaimana tersebut di atas dengan penuh kehati-hatian (duty of care and of loyalty) demi untuk kepentingan yang terbaik bagi perusahaan, dengan mengindahkan berbagai sumber informasi, keterangan dan telah melakukan perbandingan yang cukup, sebagaimana layaknya seorang profesional dalam posisi yang sama melakukan hal serupa, atau sebagaimana kami mempertimbangkan keputusan bagi kepentingan diri kami sendiri (prudent person role).

3.

Dalam melaksanakan proses pengadaan sebagaimana tersebut di atas kami tidak memiliki kepentingan pribadi atau tujuan untuk melakukan sesuatu untuk manfaat diri sendiri, maupun menguntungkan pihak-pihak yang terkait dengan diri kami, atau pihak yang terafiliasi dengan kami, dan dengan demikian tidak memiliki posisi yang mengandung potensi benturan kepentingan (conflict of interest), termasuk dengan seluruh pihak yang terlibat dengan tindakan di atas.

4.

Kami telah melaksanakan proses pengadaan tersebut dengan pemahaman yang cukup tentang berbagai peraturan dan kewajiban normatif lainnya yang terkait, dan mematuhi seluruh ketentuan dan peraturan perundangundangan yang berlaku, termasuk mempertimbangkan best practice, yang dipandang perlu, penting dan kritikal dalam proses tersebut (duly abiding the laws). Pernyataan ini kami sampaikan dengan sebenar-benarnya, tanpa menyembunyikan fakta dan hal material apapun, dan dengan demikian kami bertanggung jawab sepenuhnya atas kebenaran dari hal-hal yang kami nyatakan disini, demikian pula akan bersedia bertanggung jawab baik secara perdata maupun pidana, apabila laporan dan pernyataan ini tidak sesuai dengan kenyataan sebenarnya.

Demikian pernyataan ini kami buat untuk digunakan sebagaimana mestinya.

…………….,

200

Panitia Pengadaan a. ………… (nama jelas), ………… (tanda tangan) b. ………… (nama jelas), ………… (tanda tangan) c. ………… (nama jelas), ………… (tanda tangan) d. ………… (nama jelas), ………… (tanda tangan) e. ………… (nama jelas), ………… (tanda tangan)

L147

TIM PENYEMPURNAAN PEDOMAN PENGADAAN BARANG/JASA PT PLN (PERSERO)

NARA SUMBER

: Nasser Iskandar, Tri Setyo Nugroho, Budi Kristanto, Nurhaeni Setiawan, Fery Krisna, Tondojojo Sujono, Doddy Hertanto, Ulysses Simanjuntak

KETUA

: Sugiman WA,

WAKIL KETUA

: Dedeng Hidayat.

SEKRETATIS 1

: Dwi Atmo Priyanto.

SEKRETARIS 2

: Agha Mubarak Yusman.

ANGGOTA

: Dasnulmadi, Poster Simarmata, Abidin Marpaung, Christyono, Gunadi W Handaka, Ipung Purwomarwanto, Machdar, Raman Mohamad, Derina, Hairudin, Delima, Job Syam, Widya Ananta Prabawa, Risnandar Halid, Arrum Rizkiani Nugrahanti, Chorinus Eric Nerokou.

L147 Web.sitemap <siteMap xmlns="http://schemas.microsoft.com/AspNet/SiteMap-File-1.0" > <siteMapNode url="~/perusahaan/Home_Proyek_Perusahaan.aspx" title="Proyek" description=""> <siteMapNode url="~/perusahaan/KF1_Pakta_Integritas.aspx" title="KF1. Pakta Integritas" description="" /> <siteMapNode url="~/perusahaan/KF2_Surat_Pernyataan_Minat.aspx" title="KF2. Pernyataan Minat" description="" /> <siteMapNode url="~/perusahaan/KF3_Kebenaran_Data.aspx" title="KF3. Kebenaran Data" description="" /> <siteMapNode url="~/perusahaan/KF3a_Perjanjian_Kemitraan.aspx" title="KF3a. Perjanjian Kemitraan" description="" /> <siteMapNode url="~/perusahaan/KF4_Data_Umum_Perusahaan.aspx" title="KF4. Data Umum Perusahaan" description="" /> <siteMapNode url="~/perusahaan/KF5_Surat_Ijin.aspx" title="KF5. Surat Ijin" description="" /> <siteMapNode url="~/perusahaan/KF6_Pendirian_Perusahaan.aspx" title="KF6. LH Pendirian Perusahaan " description="" /> <siteMapNode url="~/perusahaan/KF7_Komisaris.aspx" title="KF7. Komisaris" description="" /> <siteMapNode url="~/perusahaan/KF8_Direksi.aspx" title="KF8. Direksi" description="" /> <siteMapNode url="~/perusahaan/KF9_Kepemilikan_Saham.aspx" title="KF9. Kepemilikan Saham" description="" /> <siteMapNode url="~/perusahaan/KF10_Data_Pajak.aspx" title="KF10. Data Pajak" description="" /> <siteMapNode url="~/perusahaan/KF11_Neraca_Perusahaan.aspx" title="KF11. Neraca Perusahaan" description="" /> <siteMapNode url="~/perusahaan/KF12_Tenaga_Ahli.aspx" title="KF12. Tenaga Ahli" description="" /> <siteMapNode url="~/perusahaan/KF13_Data_Peralatan.aspx" title="KF13. Data Peralatan" description="" /> <siteMapNode url="~/perusahaan/KF14_Pengalaman_Umum.aspx" title="KF14. Pengalaman Umum" description="" /> <siteMapNode url="~/perusahaan/KF15_Pengalaman_Bidang.aspx" title="KF15. Pengalaman Bidang" description="" /> <siteMapNode url="~/perusahaan/KF16a_Pengalaman_EPC.aspx" title="KF16a. Pengalaman EPC" description="" /> <siteMapNode url="~/perusahaan/KF16b_Pengalaman_Progres.aspx" title="KF16b. Pengalaman Progres" description="" /> <siteMapNode url="~/perusahaan/KF17_Proyek_Berjalan.aspx" title="KF17. Proyek Berjalan" description="" /> <siteMapNode url="~/perusahaan/KF18_Kemampuan_Finansial.aspx" title="KF18. Kemampuan Finansial" description="" /> <siteMapNode url="~/perusahaan/KF19_SBUJK.aspx" title="KF19. SBUJK" description="" />

Web.config

L148 <system.web> <membership> <providers> <profile> <providers> <providers>

L149 <system.webServer> <modules runAllManagedModulesForAllRequests="true" />

Site.css /* DEFAULTS ----------------------------------------------------------*/ body { background: #b6b7bc; font-size: .80em; font-family: "Helvetica Neue", "Lucida Grande", "Segoe UI", Arial, Helvetica, Verdana, sans-serif; margin: 0px; padding: 0px; color: #696969; } a:link, a:visited { color: #034af3; } a:hover { color: #1d60ff; text-decoration: none; } a:active { color: #034af3; } p {

L150 margin-bottom: 10px; line-height: 1.6em; }

/* HEADINGS ----------------------------------------------------------*/ h1, h2, h3, h4, h5, h6 { font-size: 1.5em; color: #666666; font-variant: small-caps; text-transform: none; font-weight: 200; margin-bottom: 0px; } h1 { font-size: 1.6em; padding-bottom: 0px; margin-bottom: 0px; } h2 { font-size: 1.5em; font-weight: 600; } h3 { font-size: 1.2em; } h4 { font-size: 1.1em; } h5, h6 { font-size: 1em; } .rightColumn > h1, .rightColumn > h2, .leftColumn > h1, .leftColumn > h2 { margin-top: 0px; }

/* PRIMARY LAYOUT ELEMENTS ----------------------------------------------------------*/ .page { width: 960px; background-color: #fff;

L151 margin: 20px auto 0px auto; border: 1px solid #496077; } .header { position: relative; margin: 0px; padding: 0px; background: #4b6c9e; width: 100%; } .header h1 { font-weight: 700; margin: 0px; padding: 0px 0px 0px 20px; color: #f9f9f9; border: none; line-height: 2em; font-size: 2em; } .main { padding: 0px 12px; margin: 12px 8px 8px 48px; min-height: 420px; } .leftCol { padding: 6px 0px; margin: 12px 8px 8px 8px; width: 240px; min-height: 200px; float:left; } .footer { color: #4e5766; padding: 8px 0px 0px 0px; margin: 0px auto; text-align: center; line-height: normal; }

/* TAB MENU ----------------------------------------------------------*/ div.hideSkiplink { background-color:#3a4f63; width:100%;

L152 } div.menu { padding: 4px 0px 4px 8px; } div.menu ul { list-style: none; margin: 0px; padding: 0px; width: auto; } div.menu ul li a, div.menu ul li a:visited { background-color: #465c71; border: 1px #4e667d solid; color: #dde4ec; display: block; line-height: 1.35em; padding: 4px 20px; text-decoration: none; white-space: nowrap; } div.menu ul li a:hover { background-color: #bfcbd6; color: #465c71; text-decoration: none; } div.menu ul li a:active { background-color: #465c71; color: #cfdbe6; text-decoration: none; } fieldset { margin: 1em 0px; padding: 1em; border: 1px solid #ccc; } fieldset p { margin: 2px 12px 10px 10px; } fieldset.login label, fieldset.register label, fieldset.changePassword label { display: block; }

L153 fieldset label.inline { display: inline; } legend { font-size: 1.1em; font-weight: 600; padding: 2px 4px 8px 4px; } input.textEntry { width: 320px; border: 1px solid #ccc; } input.passwordEntry { width: 320px; border: 1px solid #ccc; } div.accountInfo { width: 42%; } /* MISC ----------------------------------------------------------*/ .clear { clear: both; } .title { display: block; float: left; text-align: left; width: auto; } .loginDisplay { font-size: 1.1em; display: block; text-align: right; padding: 10px; color: White; } .loginDisplay a:link { color: white; }

L154

.loginDisplay a:visited { color: white; } .loginDisplay a:hover { color: white; } .failureNotification { font-size: 1.2em; color: Red; } .bold { font-weight: bold; } .submitButton { text-align: right; padding-right: 10px; }

Site.Master <%@ Master Language="C#" AutoEventWireup="true" CodeBehind="Site.master.cs" Inherits="TEST.SiteMaster" %>

PRA KUALIFIKASI PROYEK PLN (PERSERO)

L155

Welcome <span class="bold">! [ ]

TM + © 2013 PT PLN (PERSERO). All rights reserved

Proyek_Perusahaan.Master <%@ Master Language="C#" AutoEventWireup="true" CodeBehind="Proyek_Perusahaan.master.cs" Inherits="TEST.Proyek_Perusahaan" %> <% if ((String)Session["Permission"] != "3") { Response.Redirect("~/login/login.aspx"); }

L156 %>


<ParentNodeStyle Font-Bold="False" /> <SelectedNodeStyle Font-Underline="True" ForeColor="#5555DD" HorizontalPadding="0px" VerticalPadding="0px" />


Perusahaan.Master <%@ Master Language="C#" AutoEventWireup="true" CodeBehind="Perusahaan.master.cs" Inherits="TEST.Perusahaan" %>

L157 <% if ((String)Session["Permission"] != "3") { Response.Redirect("~/login/login.aspx"); } %>


L158


Panitia.Master <%@ Master Language="C#" AutoEventWireup="true" CodeBehind="Panitia.master.cs" Inherits="TEST.Panitia" %> <% if ((String)Session["Permission"] != "2") { Response.Redirect("~/login/login.aspx"); } %>


L159


HomePanitia.Master <%@ Master Language="C#" AutoEventWireup="true" CodeBehind="HomePanitia.master.cs" Inherits="TEST.HomePanitia" %> <% if ((String)Session["Permission"] != "2") { Response.Redirect("~/login/login.aspx"); } %>


L160


Admin.Master <%@ Master Language="C#" AutoEventWireup="true" CodeBehind="Admin.master.cs" Inherits="TEST.Admin" %> <% if ((String)Session["Permission"] != "1") { Response.Redirect("~/login/login.aspx"); } %>


L161


Validator.cs using using using using using using using using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient;

namespace TEST { public class Validator {

L162 public Boolean isInteger(String input) { int temp; return int.TryParse(input, out temp); } public Boolean isFloat(String input) { float temp; return float.TryParse(input, out temp); } public Boolean isDate(String input) { DateTime temp; return DateTime.TryParse(input, out temp); } public int isInserted(String query) { int check; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = query; cmd.Connection = conn; check = Convert.ToInt16(cmd.ExecuteScalar()); conn.Close(); return check; } } }

Kode_Generator.cs using using using using using using using using using using using using using using using using


namespace TEST { public class Kode_Generator {

L163 public String Kode(String input, String query, int pad) { String kode; String number = ""; int len; int lenInput = input.Length; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = query; number = (String)cmd.ExecuteScalar(); if (number == null) { number = "1"; } else { len = number.Length; number = (Convert.ToInt32(number.Substring(lenInput, len lenInput).ToString()) + 1).ToString(); } kode = input + number; conn.Close(); return kode; } } }

Connect.cs using using using using

System; System.Collections.Generic; System.Linq; System.Web;

namespace TEST { public class Connect { public string conDb() { return "DATA SOURCE=PLN-DB;PASSWORD=PLN;USER ID=PLN"; } } }

Home_Umum.cs

L164 <%@ Page Title="Home Page" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeBehind="Home_Umum.aspx.cs" Inherits="TEST._Default" %>
Selamat datang di website prakualifikasi PLN

Data.xml <PanitiaProyek>

Home_Admin.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Admin.Master" AutoEventWireup="true" CodeBehind="Home_Admin.aspx.cs" Inherits="TEST.Home_Admin" %> <style type="text/css"> .style1 { width: 100%; }

L166

L167

<strong>

L165 Master Panitia

Nama Panitia :

<strong>KODE PANITIA <strong>NAMA PANITIA <strong>JABATAN PANITIA

<strong>Master Proyek

Nama Proyek :

<strong>KODE PROYEK <strong>NAMA PROYEK

Home_Admin.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST { public partial class Home_Admin : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("select KODE_PANITIA, NAMA_PANITIA, JABATAN_PANITIA from MASTER_PANITIA ORDER BY NAMA_PANITIA", conn); OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); GridShow.DataSource = ds; GridShow.DataBind();

OracleCommand cmd2 = new OracleCommand("SELECT KODE_PROYEK,NAMA_PROYEK FROM MASTER_PROYEK ORDER BY KODE_PROYEK", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridShow2.DataSource = ds2; GridShow2.DataBind(); conn.Close(); } protected void btn_cari_panitia_Click(object sender, EventArgs e)

L168 { var caripanitia = txtbox_cari_panitia.Text.ToUpper(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT KODE_PANITIA, NAMA_PANITIA, JABATAN_PANITIA from MASTER_PANITIA where NAMA_PANITIA LIKE '%" + caripanitia + "%'", conn); OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); GridShow.DataSource = ds; GridShow.DataBind(); conn.Close(); } protected void btn_cari_proyek_Click(object sender, EventArgs e) { var cariproyek = txtbox_cari_proyek.Text.ToUpper(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd2 = new OracleCommand("SELECT KODE_PROYEK, NAMA_PROYEK from MASTER_PROYEK where NAMA_PROYEK LIKE '%" + cariproyek + "%'", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridShow2.DataSource = ds2; GridShow2.DataBind(); conn.Close(); } } }

Registrasi_Panitias.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Admin.Master" AutoEventWireup="true" CodeBehind="Registrasi_Panitia.aspx.cs" Inherits="TEST.Registrasi_Panitia" %> <style type="text/css"> .style1 { width: 100%; } .style2 { width: 136px; } .style3 { width: 14px; }

L169

L170

NIP PANITIA :

NAMA PANITIA :

JABATAN DI KANTOR :

<% if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>

CARI NAMA PANITIA :

" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>"

SelectCommand="SELECT KODE_PANITIA, NAMA_PANITIA, JABATAN_PANITIA FROM PLN.MASTER_PANITIA ORDER BY NAMA_PANITIA" DeleteCommand="DELETE FROM PLN.MASTER_PEGAWAI">

L171

Registrasi_Panitia.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST { public partial class Registrasi_Panitia : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("select KODE_PANITIA, NAMA_PANITIA, JABATAN_PANITIA from MASTER_PANITIA ORDER BY NAMA_PANITIA", conn); OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); GridView1.DataSource = ds; GridView1.DataBind(); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; txtbox_kd_pan.Text= row.Cells[0].Text; txtbox_nm_pan.Text = row.Cells[1].Text; txtbox_jb_pan.Text = row.Cells[2].Text; } } protected void btn_cari_Click(object sender, EventArgs e) { var CARINAMA = txtbox_cari_nama.Text; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open();

L172 OracleCommand cmd2 = new OracleCommand("select KODE_PANITIA, NAMA_PANITIA, JABATAN_PANITIA from MASTER_PANITIA where NAMA_PANITIA LIKE '%" + CARINAMA.ToUpper() + "%'", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridView1.DataSource = ds2; GridView1.DataBind(); conn.Close(); } protected void btn_tambah_Click(object sender, EventArgs e) { var kode_panitia = ""; var sql = ""; if (txtbox_kd_pan.Text == "") Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=NIP panitia harap diisi"); else if (txtbox_nm_pan.Text == "") Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=Nama panitia harap diisi"); else if (txtbox_jb_pan.Text == "") Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=Jabatan panitia harap diisi"); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); //kalau belum ada data OracleCommand cmd = new OracleCommand("SELECT COUNT(*) from MASTER_PANITIA WHERE KODE_PANITIA = '"+txtbox_kd_pan.Text+"'", conn); int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_PANITIA(KODE_PANITIA, NAMA_PANITIA,JABATAN_PANITIA,PASSWORD_PANITIA) values ('" + txtbox_kd_pan.Text.ToUpper() + "','" +txtbox_nm_pan.Text.ToUpper()+ "','" + txtbox_jb_pan.Text.ToUpper() + "','default')"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=Insert Berhasil"); } else { Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=NIP Panitia Sudah Terdaftar"); } } protected void btn_delete_Click(object sender, EventArgs e) { if (txtbox_kd_pan.Text == "") Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=NIP panitia harap diisi");

L173 else { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); var sql = ""; OracleCommand cmd = new OracleCommand("select count(*) from MASTER_PANITIA where KODE_PANITIA = '"+ txtbox_kd_pan.Text.ToUpper() + "'", conn); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=NIP Panitia Tidak Terdaftar"); } else { sql = "DELETE FROM MASTER_PANITIA WHERE KODE_PANITIA='" + txtbox_kd_pan.Text.ToUpper() + "'"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Admin/Registrasi_Panitia.aspx?err=Delete Berhasil"); } } } } }

Registrasi_Perusahaan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Admin.Master" AutoEventWireup="true" CodeBehind="Registrasi_Perusahaan.aspx.cs" Inherits="TEST.Registrasi_Perusahaan" %>

KODE PERUSAHAAN :

NPWP :

L174

NAMA PERUSAHAAN :


CARI NAMA PERUSAHAAN :

L175

Registrasi_Perusahaan.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST { public partial class Registrasi_Perusahaan : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_per = ""; int len = 0; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("select KODE_PERUSAHAAN, NPWP, NAMA_PERUSAHAAN from MASTER_PERUSAHAAN ORDER BY NAMA_PERUSAHAAN", conn); OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet();

L176 oda.Fill(ds); GridView1.DataSource = ds; GridView1.DataBind(); OracleCommand cmd2 = new OracleCommand("select COUNT(*) from MASTER_PERUSAHAAN", conn); int i = Convert.ToInt32(cmd2.ExecuteScalar()); if (i == 0) { kode_per = "V1"; } else { OracleCommand cmd3 = new OracleCommand("SELECT KODE_PERUSAHAAN FROM (SELECT KODE_PERUSAHAAN FROM MASTER_PERUSAHAAN ORDER BY LENGTH(KODE_PERUSAHAAN) DESC,KODE_PERUSAHAAN DESC ) WHERE ROWNUM <2 ORDER BY KODE_PERUSAHAAN DESC", conn); kode_per = (String)cmd3.ExecuteScalar(); len = kode_per.Length; kode_per = "V" + (Convert.ToInt32(kode_per.Substring(1, len - 1)) + 1).ToString(); } txtbox_kd_prs.Text = kode_per; } protected void btn_tambah_Click(object sender, EventArgs e) { var kode_perusahaan = ""; var sql = ""; if (txtbox_kd_prs.Text == "") Response.Redirect("~/Admin/Registrasi_Perusahaan.aspx?err=Kode perusahaan harap diisi"); else if (txtbox_npwp.Text == "") Response.Redirect("~/Admin/Registrasi_Perusahaan.aspx?err=NPWP harap diisi"); else if (txtbox_nm_prs.Text == "") Response.Redirect("~/Admin/Registrasi_Perusahaan.aspx?err=Nama Perusahaan harap diisi"); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); //kalau belum ada data OracleCommand cmd = new OracleCommand("SELECT COUNT(*) from MASTER_PERUSAHAAN WHERE NPWP= '" + txtbox_npwp.Text.ToUpper() + "'", conn); int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { OracleCommand cmd2 = new OracleCommand("SELECT COUNT(*) from MASTER_PERUSAHAAN WHERE NAMA_PERUSAHAAN= '" + txtbox_nm_prs.Text.ToUpper() + "'", conn); i = Convert.ToInt32(cmd2.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_PERUSAHAAN(KODE_PERUSAHAAN, NPWP,NAMA_PERUSAHAAN,PASSWORD) values ('" + txtbox_kd_prs.Text.ToUpper() + "','" + txtbox_npwp.Text.ToUpper() + "','" + txtbox_nm_prs.Text.ToUpper() + "','default')";

L177 OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Admin/Registrasi_Perusahaan.aspx?err=Insert Berhasil"); } else { Response.Redirect("~/Admin/Registrasi_Perusahaan.aspx?err=Nama Perusahaan Sudah Terdaftar"); } } else { Response.Redirect("~/Admin/Registrasi_Perusahaan.aspx?err=NPWP Sudah Terdaftar"); } }

protected void btn_cari_Click(object sender, EventArgs e) { var CARINAMA = txtbox_cari_nama.Text; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd2 = new OracleCommand("select KODE_PERUSAHAAN, NPWP, NAMA_PERUSAHAAN from MASTER_PERUSAHAAN where NAMA_PERUSAHAAN LIKE '%" + CARINAMA.ToUpper() + "%'", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridView1.DataSource = ds2; GridView1.DataBind(); conn.Close(); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE MASTER_PERUSAHAAN WHERE KODE_PERUSAHAAN = '" + row.Cells[0].Text + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Admin/Registrasi_Perusahaan.aspx?err=Hapus Perusahaan Berhasil");

L178

} } } }

Registrasi_Proyek.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Admin.Master" AutoEventWireup="true" CodeBehind="Registrasi_Proyek.aspx.cs" Inherits="TEST.Registrasi_Proyek" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>

KODE PROYEK :

NAMA PROYEK :

TANGGAL AWAL KUALIFIKASI :

TANGGAL AKHIR KUALIFIKASI :

L179


CARI NAMA PROYEK :

L180

Registrasi_Proyek.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST { public partial class Registrasi_Proyek : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_prk = ""; int len = 0; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT KODE_PROYEK, NAMA_PROYEK, CAST(TGL_AWAL_KUALIFIKASI AS DATE) AS TGL_AWAL_KUALIFIKASI , TGL_AKHIR_KUALIFIKASI from MASTER_PROYEK ORDER BY TGL_AKHIR_KUALIFIKASI", conn); OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); GridView1.DataSource = ds; GridView1.DataBind();

L181 OracleCommand cmd2 = new OracleCommand("select COUNT(*) from MASTER_PROYEK", conn); int i = Convert.ToInt32(cmd2.ExecuteScalar()); if (i == 0) { kode_prk = "PR1"; } else { OracleCommand cmd3 = new OracleCommand("SELECT KODE_PROYEK FROM (SELECT KODE_PROYEK FROM MASTER_PROYEK ORDER BY LENGTH(KODE_PROYEK) DESC,KODE_PROYEK DESC ) WHERE ROWNUM <2 ORDER BY KODE_PROYEK DESC", conn); kode_prk = (String)cmd3.ExecuteScalar(); len = kode_prk.Length; kode_prk = "PR" + (Convert.ToInt32(kode_prk.Substring(2, len 2)) + 1).ToString(); } txtbox_kd_prk.Text = kode_prk; } protected void btn_tambah_Click(object sender, EventArgs e) { var kode_proyek = ""; var sql = ""; int tgl = 0; if (txtbox_kd_prk.Text == "") Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Kode Proyek Harap Diisi"); else if (txtbox_nm_prk.Text == "") Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Nama Proyek Harap Diisi"); else if (txtb_tgl_awal.Text == "") Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Tanggal Awal Proyek Harap Diisi"); else if (txtb_tgl_akhir.Text == "") Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Tanggal Akhir Proyek Harap Diisi"); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT COUNT(*) from MASTER_PROYEK WHERE NAMA_PROYEK= '" + txtbox_nm_prk.Text.ToUpper() + "'", conn); int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_PROYEK(KODE_PROYEK, NAMA_PROYEK,TGL_AWAL_KUALIFIKASI,TGL_AKHIR_KUALIFIKASI) values ('" + txtbox_kd_prk.Text.ToUpper() + "','" + txtbox_nm_prk.Text.ToUpper() + "','" + txtb_tgl_awal.Text + "','" + txtb_tgl_akhir.Text + "')"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Insert Berhasil"); } else

L182 { Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Nama Proyek Sudah Terdaftar"); } } protected void btn_delete_Click(object sender, EventArgs e) { if (txtbox_kd_prk.Text == "") Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Kode Proyek Harap Diisi"); else { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); var sql = ""; OracleCommand cmd = new OracleCommand("select count(*) from MASTER_PROYEK where NAMA_PROYEK = '" + txtbox_nm_prk.Text.ToUpper() + "'", conn); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Nama Proyek Salah / Tidak Terdaftar "); } else { sql = "DELETE FROM MASTER_PROYEK WHERE NAMA_PROYEK='" + txtbox_nm_prk.Text.ToUpper() + "'"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Delete Berhasil"); } } } protected void btn_cari_Click(object sender, EventArgs e) { var CARINAMA = txtbox_cari_nama.Text; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd2 = new OracleCommand("select KODE_PROYEK, NAMA_PROYEK, TGL_AWAL_KUALIFIKASI, TGL_AKHIR_KUALIFIKASI from MASTER_PROYEK where NAMA_PROYEK LIKE '%" + CARINAMA.ToUpper() + "%'", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridView1.DataSource = ds2; GridView1.DataBind(); conn.Close(); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) {

L183

var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE MASTER_PROYEK WHERE KODE_PROYEK = '" + row.Cells[0].Text + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Admin/Registrasi_Proyek.aspx?err=Hapus proyek berhasil"); } } protected void calDate_SelectionChanged(object sender, EventArgs e) { } protected void calDate_Akhir_SelectionChanged(object sender, EventArgs e) { } } }

Registrasi_SK.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Admin.Master" AutoEventWireup="true" CodeBehind="Registrasi_SK.aspx.cs" Inherits="TEST.petertest" %> <style type="text/css"> .style1 { width: 100%; } .style2 { width: 105px; } .style3 { width: 9px; } <strong>INSERT DATA BARU

L184 PROYEK :

NO SK :

/>

>>

L185 Anggota Ketua Sekretaris

<script type = "text/javascript">
L186 var row = inputList[i].parentNode.parentNode; if (inputList[i].type == "checkbox" && objRef != inputList[i]) { if (objRef.checked) { inputList[i].checked = true; } else { if (row.rowIndex % 2 == 0) { row.style.backgroundColor = "#C2D69B"; } else { row.style.backgroundColor = "white"; } inputList[i].checked = false; } } } } //-->

L187


<strong>CARI & HAPUS DATA

CARI PROYEK :

" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT KODE_PANITIA, NAMA_PANITIA FROM PLN.MASTER_PANITIA ORDER BY NAMA_PANITIA"> " ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT PLN.MASTER_PROYEK.NAMA_PROYEK FROM PLN.MASTER_PROYEK LEFT JOIN PLN.TIM_PANITIA ON PLN.MASTER_PROYEK.KODE_PROYEK = PLN.TIM_PANITIA.KODE_PROYEK WHERE PLN.TIM_PANITIA.KODE_PROYEK IS NULL ORDER BY PLN.MASTER_PROYEK.NAMA_PROYEK "> " ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT DISTINCT PLN.MASTER_PROYEK.NAMA_PROYEK FROM PLN.TIM_PANITIA INNER JOIN PLN.MASTER_PROYEK ON PLN.TIM_PANITIA.KODE_PROYEK = PLN.MASTER_PROYEK.KODE_PROYEK">

Registrasi_SK.aspx.cs using using using using using using using using using using using using using using

System.Collections.Generic; System.Linq; System.Data.OracleClient; System; System.Data; System.Data.SqlClient; System.Configuration; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Web.UI.HtmlControls; System.Collections;

L188

namespace TEST { public partial class petertest : System.Web.UI.Page { Connect con = new Connect(); private void BindPrimaryGrid() { string query = "select kode_panitia, nama_panitia from master_panitia"; OracleConnection conn = new OracleConnection(con.conDb()); OracleDataAdapter oda = new OracleDataAdapter(query, conn); DataTable dt = new DataTable(); oda.Fill(dt); gvAll.DataSource = dt; gvAll.DataBind(); } private void GetData() { DataTable dt; if (ViewState["SelectedRecords"] != null) dt = (DataTable)ViewState["SelectedRecords"]; else dt = CreateDataTable(); CheckBox chkAll = (CheckBox)gvAll.HeaderRow .Cells[0].FindControl("chkAll"); for (int i = 0; i < gvAll.Rows.Count; i++) { if (chkAll.Checked) { dt = AddRow(gvAll.Rows[i], dt); } else { CheckBox chk = (CheckBox)gvAll.Rows[i] .Cells[0].FindControl("chk"); if (chk.Checked) { dt = AddRow(gvAll.Rows[i], dt); } else { dt = RemoveRow(gvAll.Rows[i], dt); } } } ViewState["SelectedRecords"] = dt; } private void SetData() { CheckBox chkAll = (CheckBox)gvAll.HeaderRow.Cells[0].FindControl("chkAll"); chkAll.Checked = true; if (ViewState["SelectedRecords"] != null) { DataTable dt = (DataTable)ViewState["SelectedRecords"];

L189 for (int i = 0; i < gvAll.Rows.Count; i++) { CheckBox chk = (CheckBox)gvAll.Rows[i].Cells[0].FindControl("chk"); if (chk != null) { DataRow[] dr = dt.Select("kode_panitia = '" + gvAll.Rows[i].Cells[1].Text + "'"); chk.Checked = dr.Length > 0; if (!chk.Checked) { chkAll.Checked = false; } } } } } private DataTable RemoveRow(GridViewRow gvRow, DataTable dt) { DataRow[] dr = dt.Select("kode_panitia = '" + gvRow.Cells[1].Text + "'"); if (dr.Length > 0) { dt.Rows.Remove(dr[0]); dt.AcceptChanges(); } return dt; } private DataTable AddRow(GridViewRow gvRow, DataTable dt) { DataRow[] dr = dt.Select("kode_panitia = '" + gvRow.Cells[1].Text + "'"); if (dr.Length <= 0) { dt.Rows.Add(); dt.Rows[dt.Rows.Count - 1]["kode_panitia"] = gvRow.Cells[1].Text; dt.Rows[dt.Rows.Count - 1]["nama_panitia"] = gvRow.Cells[2].Text; dt.AcceptChanges(); } return dt; } private DataTable CreateDataTable() { DataTable dt = new DataTable(); dt.Columns.Add("kode_panitia"); dt.Columns.Add("nama_panitia"); dt.AcceptChanges(); return dt; } protected void OnPaging(object sender, GridViewPageEventArgs e) { GetData(); gvAll.PageIndex = e.NewPageIndex; BindPrimaryGrid();

L190 SetData(); } protected void CheckBox_CheckChanged(object sender, EventArgs e) { GetData(); SetData(); BindSecondaryGrid(); } private void BindSecondaryGrid() { DataTable dt = (DataTable)ViewState["SelectedRecords"]; gvSelected.DataSource = dt; gvSelected.DataBind(); } protected void Page_Load(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT PLN.MASTER_PROYEK.NAMA_PROYEK, PLN.MASTER_PANITIA.NAMA_PANITIA, PLN.DAFTAR_JABATAN.NAMA_JABATAN FROM PLN.MASTER_PROYEK INNER JOIN PLN.TIM_PANITIA ON PLN.MASTER_PROYEK.KODE_PROYEK = PLN.TIM_PANITIA.KODE_PROYEK INNER JOIN PLN.MASTER_PANITIA ON PLN.TIM_PANITIA.KODE_PANITIA = PLN.MASTER_PANITIA.KODE_PANITIA INNER JOIN PLN.DAFTAR_JABATAN ON PLN.TIM_PANITIA.KODE_JABATAN = PLN.DAFTAR_JABATAN.KODE_JABATAN ORDER BY PLN.MASTER_PROYEK.NAMA_PROYEK, PLN.DAFTAR_JABATAN.NAMA_JABATAN DESC";

OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); GridView1.DataSource = ds; GridView1.DataBind(); } protected void btn_simpan_Click(object sender, EventArgs e) { var kode_tim=""; int len=0; int len2 = 0; GridViewRow row = gvSelected.SelectedRow; var jab = ""; var sql = ""; var kode_proyek=""; if (DropDownList1.Items.Count.ToString()=="0") { Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Seluruh Proyek Telah Dibuatkan SK");

L191 } else { if (txtb_No_SK.Text == "") Response.Redirect("~/Admin/Registrasi_SK.aspx?err=No SK belum dimasukkan"); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("select COUNT(*) from TIM_PANITIA", conn); int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { kode_tim = "KT1"; } else { OracleCommand cmd2 = new OracleCommand("SELECT KODE_TIM FROM (SELECT KODE_TIM FROM TIM_PANITIA ORDER BY LENGTH(KODE_TIM) DESC,KODE_TIM DESC ) WHERE ROWNUM <2 ORDER BY KODE_TIM DESC", conn); kode_tim = (String)cmd2.ExecuteScalar(); len = kode_tim.Length; kode_tim = "KT" + (Convert.ToInt32(kode_tim.Substring(2, len - 2)) + 1).ToString(); } OracleCommand cmd4 = new OracleCommand("SELECT KODE_PROYEK FROM MASTER_PROYEK WHERE NAMA_PROYEK='" + DropDownList1.SelectedValue + "'", conn); kode_proyek = (String)cmd4.ExecuteScalar(); len = 0; len2 = 0; //insert per baris for (int a = 0; a < gvSelected.Rows.Count; a++) { jab = ((DropDownList)gvSelected.Rows[a].FindControl("DropdownJabatan")).SelectedItem.Va lue; if (jab == "KETUA")len++; if (jab == "SEKRETARIS") len2++; } if (len == 1 && len2==1) { for (int a = 0; a < gvSelected.Rows.Count; a++) { jab = ((DropDownList)gvSelected.Rows[a].FindControl("DropdownJabatan")).SelectedItem.Va lue; if (jab == "KETUA") { jab = "KJ1"; } else if (jab == "SEKRETARIS") jab = "KJ2"; else if (jab == "ANGGOTA") jab = "KJ3"; sql = "INSERT INTO TIM_PANITIA(KODE_TIM, KODE_PANITIA,KODE_JABATAN,KODE_PROYEK) values ('" + kode_tim + "','" +

L192 gvSelected.Rows[a].Cells[0].Text.ToUpper() + "','" + jab.ToUpper() + "','" + kode_proyek.ToUpper() + "')"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); cmd.CommandText = "UPDATE MASTER_PROYEK SET SK_TANGGAL = '"+DateTime.Now.ToString("dd-MMM-yyyy")+"', KODE_SK = '"+txtb_No_SK.Text+"' WHERE KODE_PROYEK = '" + kode_proyek.ToUpper() + "'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); } } else if (len == 0) { Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Anda Harus Memilih Minimal 1 Ketua"); } else if (len > 1) { Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Ketua Tidak Boleh Lebih Dari 1 Orang"); } else if (len2 == 0) { Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Anda Harus Memilih Minimal 1 Sekretaris"); } else if (len2 > 1) { Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Sekretaris Tidak Boleh Lebih Dari 1 Orang"); }

conn.Close(); GridView1.DataBind(); gvAll.DataBind(); gvSelected.DataBind(); Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Insert Berhasil"); } } protected void BTN_CARI_Click(object sender, EventArgs e) { } protected void btn_cari_kode_tim_Click(object sender, EventArgs e) { var CARIKODE = DropDownList3.SelectedIndex.ToString(); var kode_proyek = ""; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open();

L193 OracleCommand cmd4 = new OracleCommand("SELECT KODE_PROYEK FROM MASTER_PROYEK WHERE NAMA_PROYEK='" + DropDownList1.SelectedValue + "'", conn); kode_proyek = (String)cmd4.ExecuteScalar(); OracleCommand cmd2 = new OracleCommand("select * from TIM_PANITIA where KODE_PROYEK LIKE '%" + kode_proyek.ToUpper()+ "%'", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridView1.DataSource = ds2; GridView1.DataBind(); conn.Close(); } protected void btn_delete_Click(object sender, EventArgs e) { var kode_proyek = ""; var sql = ""; if (DropDownList3.Items.Count.ToString() == "0") { Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Belum Ada Proyek Yang Telah Dibuatkan SK"); } else { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd4 = new OracleCommand("SELECT KODE_PROYEK FROM MASTER_PROYEK WHERE NAMA_PROYEK='" + DropDownList3.SelectedValue.ToUpper() + "'", conn); kode_proyek = (String)cmd4.ExecuteScalar();

sql = "DELETE FROM TIM_PANITIA WHERE KODE_PROYEK='" + kode_proyek.ToString().ToUpper() + "'"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Admin/Registrasi_SK.aspx?err=Delete Berhasil"); GridView1.DataBind(); } } } }

Login.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Site.Master" AutoEventWireup="true" CodeBehind="login.aspx.cs" Inherits="TEST.login" %>

L194

Nama Pengguna :

Kata Sandi :

Admin Panitia Perusahaan


Login.aspx.cs using using using using using using using using using using using using using using using using


L195

namespace TEST { public partial class login : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { }

protected void login_Click1(object sender, EventArgs e) { var usr = user.Text; var pass = password.Text; var login_type = login_types.Text; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); if (login_type == "Admin") { OracleCommand cmd = new OracleCommand("select count(*) from ADMIN where USERNAME = '" + usr + "' and Password = '" + pass + "'", conn); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/login/login.aspx?err=Invalid Username or Password"); } else { Session.Add("username", usr); Session.Add("Permission", "1"); Response.Redirect("~/Admin/Home_Admin.aspx"); } } else if (login_type == "Panitia") { OracleCommand cmd = new OracleCommand("select count(*) from MASTER_PANITIA where KODE_PANITIA = '" + usr + "' and PASSWORD_PANITIA = '" + pass + "'", conn); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/login/login.aspx?err=Invalid Username or Password"); } else { Session.Add("username", usr); Session.Add("Permission", "2"); Response.Redirect("~/Panitia/Home_Panitia.aspx"); }

L196 } else if (login_type == "Perusahaan") { OracleCommand cmd = new OracleCommand("select count(*) from MASTER_PERUSAHAAN where KODE_PERUSAHAAN = '" + usr + "' and PASSWORD = '" + pass + "'", conn); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/login/login.aspx?err=Invalid Username or Password"); } else { Session.Add("username", usr); Session.Add("Permission", "3"); Response.Redirect("~/Perusahaan/Home_Perusahaan.aspx"); } } else { Response.Redirect("~/login/login.aspx?err=Invalid Username or Password"); }

conn.Close(); } } }

Logout.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Site.Master" AutoEventWireup="true" CodeBehind="Logout.aspx.cs" Inherits="TEST.Logout.Logout" %>

Logout.aspx.cs using using using using using using

System; System.Collections.Generic; System.Linq; System.Web; System.Web.UI; System.Web.UI.WebControls;

namespace TEST.Logout { public partial class Logout : System.Web.UI.Page {

L197 protected void Page_Load(object sender, EventArgs e) { Session.Clear(); Response.Redirect("~/login/login.aspx"); } } }

Home_Panitia.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/HomePanitia.Master" AutoEventWireup="true" CodeBehind="Home_Panitia.aspx.cs" Inherits="TEST.panitia.Home_Panitia" %> <style type="text/css"> .style1 { width: 100%; } DAFTAR PROYEK YANG DIIKUTI

L198 Home_Panitia.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Home_Panitia : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT a.kode_proyek, nama_proyek, tgl_awal_kualifikasi, tgl_akhir_kualifikasi FROM MASTER_PROYEK a INNER JOIN TIM_PANITIA b ON (a.kode_proyek = b.kode_proyek) INNER JOIN MASTER_PANITIA c ON (b.kode_panitia = c.kode_panitia) WHERE c.kode_panitia = '" + Session["username"] + "' ORDER BY a.kode_proyek", conn); OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); gv_proyek.DataSource = ds; gv_proyek.DataBind(); conn.Close(); } protected void gv_proyek_SelectedIndexChanged(object sender, EventArgs e) { GridViewRow row = gv_proyek.SelectedRow; var kd_proyek = (string)(row.Cells[0].Text); Session.Add("kode_proyek", kd_proyek); Response.Redirect("~/panitia/InfoProyek.aspx"); } } }

L199 InfoProyek.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="InfoProyek.aspx.cs" Inherits="TEST.panitia.InfoProyek" %>

INFO PROYEK

:

:

:

:

:

:

:

:

:

:

:

:

:

:

L200 InfoProyek.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class InfoProyek : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); OracleCommand cmd2 = new OracleCommand(); OracleDataReader odr2; OracleTransaction trans; conn.Open(); trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Connection = conn; cmd.Transaction = trans; cmd2.Transaction = trans; cmd2.Connection = conn; cmd.CommandText = "SELECT kode_proyek, nama_proyek, tgl_awal_kualifikasi, tgl_akhir_kualifikasi, kode_sk, sk_tanggal, kode_jenis_proyek, nominal, kode_bidang, asal_sumber_dana, lama_konstruksi, jenis_lelang, kode_lokasi_proyek, kode_wilayah_unit FROM Master_Proyek WHERE kode_proyek = :kode_proyek"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; OracleDataReader odr = cmd.ExecuteReader(CommandBehavior.SingleRow); if (odr.HasRows) { if (odr.Read()) { kode_proyek.Text = odr[0].ToString(); nama_proyek.Text = odr[1].ToString(); tgl_awal_kualifikasi.Text = DateTimeOffset.Parse(odr[2].ToString()).ToString("dd-MMM-yyyy");

L201 tgl_akhir_kualifikasi.Text = DateTimeOffset.Parse(odr[3].ToString()).ToString("dd-MMM-yyyy"); no_sk.Text = odr[4].ToString(); tgl_sk.Text = DateTimeOffset.Parse(odr[5].ToString()).ToString("dd-MMM-yyyy"); if (odr[6].ToString() != "") { cmd2.CommandText = "SELECT nama_jenis_proyek FROM Jenis_Proyek WHERE kode_jenis_proyek = :kode_jenis_proyek"; cmd2.Parameters.AddWithValue("kode_jenis_proyek", OracleType.VarChar).Value = odr[6].ToString(); odr2 = cmd2.ExecuteReader(CommandBehavior.SingleResult); if (odr2.HasRows) { if (odr2.Read()) { jenis_proyek.Text = odr2[0].ToString(); } } odr2.Close(); cmd2.Parameters.Clear(); } nominal.Text = odr[7].ToString(); if (odr[8].ToString() != "") { cmd2.CommandText = "SELECT nama_bidang FROM Bidang_Proyek WHERE kode_bidang = :kode_bidang"; cmd2.Parameters.AddWithValue("kode_bidang", OracleType.VarChar).Value = odr[8].ToString(); odr2 = cmd2.ExecuteReader(CommandBehavior.SingleResult); if (odr2.HasRows) { if (odr2.Read()) { bidang.Text = odr2[0].ToString(); } } odr2.Close(); cmd2.Parameters.Clear(); } asal_sumber_dana.Text = odr[9].ToString(); lama_konstruksi.Text = odr[10].ToString(); jenis_lelang.Text = odr[11].ToString(); if (odr[12].ToString() != "") { cmd2.CommandText = "SELECT nama_lokasi_proyek FROM Lokasi_Proyek WHERE kode_lokasi_proyek = :kode_lokasi_proyek"; cmd2.Parameters.AddWithValue("kode_lokasi_proyek", OracleType.VarChar).Value = odr[12].ToString(); odr2 = cmd2.ExecuteReader(CommandBehavior.SingleResult); if (odr2.HasRows) { if (odr2.Read()) { lokasi_proyek.Text = odr2[0].ToString(); } } odr2.Close();

L202 cmd2.Parameters.Clear(); } if (odr[13].ToString() != "") { cmd2.CommandText = "SELECT nama_wilayah_unit FROM Wilayah_Unit WHERE kode_wilayah_unit = :kode_wilayah_unit"; cmd2.Parameters.AddWithValue("kode_wilayah_unit", OracleType.VarChar).Value = odr[13].ToString(); odr2 = cmd2.ExecuteReader(CommandBehavior.SingleResult); if (odr2.HasRows) { if (odr2.Read()) { wilayah_unit.Text = odr2[0].ToString(); } } odr2.Close(); cmd2.Parameters.Clear(); } } } odr.Close(); cmd.Parameters.Clear(); conn.Close(); } protected void Edit_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/Update_InfoProyek.aspx"); } } }

KebutuhanKeuangan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="KebutuhanKeuangan.aspx.cs" Inherits="TEST.panitia.KebutuhanKeuangan" %> KEBUTUHAN INDEKS KEUANGAN

:

:

L203

:

KebutuhanKeuangan.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class KebutuhanKeuangan : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); conn.Open(); cmd.CommandText = "SELECT indeks_mk, indeks_kk, indeks_skp FROM Kebutuhan_Keuangan WHERE kode_proyek = '" + Session["kode_proyek"] + "'"; cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { indeks_mk.Text = odr[0].ToString();

L204 indeks_kk.Text = odr[1].ToString(); indeks_skp.Text = odr[2].ToString(); } odr.Close(); conn.Close(); } } protected void Tambah_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/Manipulasi_KebutuhanKeuangan.aspx"); } } }

<%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="KebutuhanPengalaman.aspx.cs" Inherits="TEST.panitia.KebutuhanPengalaman" %> KEBUTUHAN PENGALAMAN

:

:

:

:

L205

KebutuhanPengalaman.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class KebutuhanPengalaman : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); OracleDataReader odr; OracleTransaction trans; conn.Open(); trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "SELECT nama_tipe_pengalaman, jumlah_tahun_pengalaman FROM kebutuhan_pengalaman a JOIN tipe_pengalaman b ON (a.kode_tipe_pengalaman = b.kode_tipe_pengalaman) WHERE kode_proyek = :kode_proyek ORDER BY nama_tipe_pengalaman"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; odr = cmd.ExecuteReader(); while (odr.Read()) { if (odr[0].ToString() == "PENGALAMAN UMUM") { pengalaman_umum.Text = odr[1].ToString() + " tahun"; } else if (odr[0].ToString() == "PENGALAMAN SESUAI BIDANG") { pengalaman_bidang.Text = odr[1].ToString() + " tahun"; } else if (odr[0].ToString() == "PENGALAMAN EPC")

L206 { pengalaman_epc.Text = odr[1].ToString() + " tahun"; } else if (odr[0].ToString() == "PENGALAMAN PROGRESS") { pengalaman_progress.Text = odr[1].ToString() + " %"; } } odr.Close(); cmd.Parameters.Clear(); conn.Close(); } protected void tambah_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/Tambah_KebutuhanPengalaman.aspx"); } } }

KebutuhanPeralatan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="KebutuhanPeralatan.aspx.cs" Inherits="TEST.panitia.KebutuhanPeralatan" %> KEBUTUHAN PERALATAN
" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_kebutuhan_alat, nama_alat, jumlah_alat, kapasitas FROM kebutuhan_peralatan a JOIN data_peralatan b ON (a.kode_alat = b.kode_alat) WHERE kode_proyek = :kode_proyek ORDER BY kode_kebutuhan_alat"> <SelectParameters>
L207 Type="String" />

KebutuhanPeralatan.aspx.cs using using using using using using


namespace TEST.panitia { public partial class KebutuhanPeralatan : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void tambah_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/Tambah_KebutuhanAlat.aspx"); } } }

KebutuhanTenagaAhli.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="KebutuhanTenagaAhli.aspx.cs" Inherits="TEST.panitia.KebutuhanTenagaAhli" %> KEBUTUHAN TENAGA AHLI

L208 ReadOnly="True" SortExpression="NAMA_KEAHLIAN" /> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_kebutuhan_tenaga_ahli, jumlah_tenaga_ahli, nama_keahlian FROM Kebutuhan_Tenaga_Ahli a JOIN Keahlian b ON (a.kode_keahlian = b.kode_keahlian) WHERE kode_proyek = :kode_proyek ORDER BY kode_kebutuhan_tenaga_ahli"> <SelectParameters>

KebutuhanTenagaAhli.aspx.cs using using using using using using


namespace TEST.panitia { public partial class KebutuhanTenagaAhli : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void tambah_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/Tambah_KebutuhanTenagaAhli.aspx"); } } }

Manipulasi_KebutuhanAlat.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Manipulasi_KebutuhanAlat.aspx.cs" Inherits="TEST.panitia.Manipulasi_KebutuhanAlat" %> UBAH KEBUTUHAN ALAT

L209

:

:

:

:

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0){ Response.Write("Masukan 'Jumlah' harus berupa angka"); } } %>

Manipulasi_KebutuhanAlat.aspx.cs using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient;

L210 using using using using using using using using using

System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient;

namespace TEST.panitia { public partial class Manipulasi_KebutuhanAlat : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { if (!Page.IsPostBack) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); OracleDataReader odr; OracleCommand cmd2 = new OracleCommand(); OracleDataReader odr2; cmd2.Connection = conn; cmd2.Transaction = trans; cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "SELECT kode_kebutuhan_alat, kode_alat, jumlah_alat, kapasitas FROM Kebutuhan_Peralatan WHERE kode_proyek = :kode_proyek AND kode_kebutuhan_alat = :kode_kebutuhan_alat"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_kebutuhan_alat", OracleType.VarChar).Value = Request.QueryString["param"]; odr = cmd.ExecuteReader(CommandBehavior.SingleRow); if (odr.HasRows) { if (odr.Read()) { kode_kebutuhan_alat.Text = odr[0].ToString(); if (odr[1].ToString() != "") { cmd2.CommandText = "SELECT nama_alat FROM data_peralatan WHERE kode_alat = :kode_alat"; cmd2.Parameters.AddWithValue("kode_alat", OracleType.VarChar).Value = odr[1].ToString(); odr2 = cmd2.ExecuteReader(CommandBehavior.SingleResult); if (odr2.HasRows) {

L211 if (odr2.Read()) { jenis_alat.Text = odr2[0].ToString(); } } odr2.Close(); cmd2.Parameters.Clear(); } jumlah.Text = odr[2].ToString(); kapasitas.Text = odr[3].ToString(); } } odr.Close(); conn.Close(); } } protected void Delete_Click(object sender, EventArgs e) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Transaction = trans; cmd.Connection = conn; cmd.CommandText = "DELETE FROM Kebutuhan_Peralatan WHERE kode_proyek = :kode_proyek AND kode_kebutuhan_alat = :kode_kebutuhan_alat"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_kebutuhan_alat", OracleType.VarChar).Value = Request.QueryString["param"]; cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanPeralatan.aspx"); } protected void Update_Click(object sender, EventArgs e) { Validator validate = new Validator(); String url; if (!validate.isInteger(jumlah.Text)) { url = "~/panitia/Manipulasi_KebutuhanAlat.aspx?attempt=0¶m=" + Request.QueryString["param"].ToString(); Response.Redirect(url); } else { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open();

L212 OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "UPDATE Kebutuhan_Peralatan SET jumlah_alat = :jumlah_alat, kapasitas = :kapasitas WHERE kode_proyek = :kode_proyek AND kode_kebutuhan_alat = :kode_kebutuhan_alat"; cmd.Parameters.AddWithValue("jumlah_alat", OracleType.Number).Value = jumlah.Text; cmd.Parameters.AddWithValue("kapasitas", OracleType.VarChar).Value = kapasitas.Text.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_kebutuhan_alat", OracleType.VarChar).Value = Request.QueryString["param"]; cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanPeralatan.aspx"); } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/KebutuhanPeralatan.aspx"); } } }

Manipulasi_KebutuhanKeuangan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Manipulasi_KebutuhanKeuangan.aspx.cs" Inherits="TEST.panitia.Manipulasi_KebutuhanKeuangan" %> KEBUTUHAN INDEKS KEUANGAN

L213

:

:

:

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0){ Response.Write("Masukan 'Faktor Perputaran Modal' harus berupa angka"); } else if (attempt == 1) { Response.Write("Masukan 'Faktor Likuiditas' harus berupa angka"); } else if (attempt == 2) { Response.Write("Masukan 'Indeks SKP' harus berupa angka"); } else if (attempt == 3) { Response.Write("Faktor likuiditas harus diantara 0.3 dan 0.8"); } } %>

Manipulasi_KebutuhanKeuangan.aspx.cs using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web;

L214 using using using using using using using

System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient;

namespace TEST.panitia { public partial class Manipulasi_KebutuhanKeuangan : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { if (!Page.IsPostBack) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); OracleDataReader odr; cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "SELECT indeks_mk, indeks_kk, indeks_skp FROM Kebutuhan_Keuangan WHERE kode_proyek = :kode_proyek"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; odr = cmd.ExecuteReader(CommandBehavior.SingleRow); if (odr.HasRows) { if (odr.Read()) { indeks_mk.Text = odr[0].ToString(); indeks_kk.Text = odr[1].ToString(); indeks_skp.Text = odr[2].ToString(); } } odr.Close(); conn.Close(); } } protected void delete_Click(object sender, EventArgs e) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted);

L215 cmd.Transaction = trans; cmd.Connection = conn; cmd.CommandText = "DELETE FROM Kebutuhan_Keuangan WHERE kode_proyek = :kode_proyek AND kode_kebutuhan_keuangan = :kode_kebutuhan_keuangan"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_kebutuhan_keuangan", OracleType.VarChar).Value = Request.QueryString["param"]; cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanKeuangan.aspx"); } protected void update_Click(object sender, EventArgs e) { Validator validate = new Validator(); String url; if (!validate.isInteger(indeks_kk.Text)) { url = "~/panitia/Manipulasi_KebutuhanKeuangan.aspx?attempt=0¶m=" + Request.QueryString["param"]; Response.Redirect(url); } else if (!validate.isInteger(indeks_mk.Text)) { url = "~/panitia/Manipulasi_KebutuhanKeuangan.aspx?attempt=1¶m=" + Request.QueryString["param"]; Response.Redirect(url); } else if (!validate.isInteger(indeks_skp.Text)) { url = "~/panitia/Manipulasi_KebutuhanKeuangan.aspx?attempt=2¶m=" + Request.QueryString["param"]; Response.Redirect(url); } else { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.Transaction = trans; if (validate.isInserted("SELECT COUNT(*) FROM Kebutuhan_Keuangan WHERE kode_proyek = '" + Session["kode_proyek"] + "'") == 1) {

L216

cmd.CommandText = "UPDATE Kebutuhan_Keuangan SET indeks_kk = :indeks_kk, indeks_mk = :indeks_mk, indeks_skp = :indeks_skp WHERE kode_proyek = :kode_proyek"; cmd.Parameters.AddWithValue("indeks_kk", OracleType.Number).Value = indeks_kk.Text; cmd.Parameters.AddWithValue("indeks_mk", OracleType.Number).Value = indeks_mk.Text; cmd.Parameters.AddWithValue("indeks_skp", OracleType.Number).Value = indeks_skp.Text; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; } else { Kode_Generator KoGe = new Kode_Generator(); String queryKode = "SELECT kode_kebutuhan_keuangan FROM (SELECT kode_kebutuhan_keuangan FROM kebutuhan_keuangan WHERE kode_proyek = '" + Session["kode_proyek"] + "' ORDER BY LENGTH(kode_kebutuhan_keuangan) DESC, kode_kebutuhan_keuangan DESC) WHERE rownum < 2 ORDER BY kode_kebutuhan_keuangan DESC"; String kode_kebutuhan_keuangan = KoGe.Kode("UANG", queryKode, 3); cmd.CommandText = "INSERT INTO Kebutuhan_Keuangan (kode_kebutuhan_keuangan, kode_proyek, indeks_MK, indeks_KK, indeks_SKP) VALUES (:kode_kebutuhan_keuangan, :kode_proyek, :indeks_MK, :indeks_KK, :indeks_SKP)"; cmd.Parameters.AddWithValue("kode_kebutuhan_keuangan", OracleType.VarChar).Value = kode_kebutuhan_keuangan.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.Parameters.AddWithValue("indeks_mk", OracleType.Number).Value = indeks_mk.Text; cmd.Parameters.AddWithValue("indeks_kk", OracleType.Number).Value = indeks_kk.Text; cmd.Parameters.AddWithValue("indeks_skp", OracleType.Number).Value = indeks_skp.Text; } cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanKeuangan.aspx"); } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/KebutuhanKeuangan.aspx"); } } }

L217 Manipulasi_KebutuhanTenagaAhli.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Manipulasi_KebutuhanTenagaAhli.aspx.cs" Inherits="TEST.panitia.Manipulasi_KebutuhanTenagaAhli" %> UBAH TENAGA AHLI

:

:

:

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0) { Response.Write("Masukan 'Jumlah Tenaga Ahli' harus berupa angka"); } } %>

Manipulasi_KebutuhanTenagaAhli.aspx.cs

L218 using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Manipulasi_KebutuhanTenagaAhli : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { if (!Page.IsPostBack) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); OracleDataReader odr; OracleCommand cmd2 = new OracleCommand(); OracleDataReader odr2; cmd2.Connection = conn; cmd2.Transaction = trans; cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "SELECT kode_kebutuhan_tenaga_ahli, kode_keahlian, jumlah_tenaga_ahli FROM Kebutuhan_Tenaga_Ahli WHERE kode_proyek = :kode_proyek AND kode_kebutuhan_tenaga_ahli = :kode_kebutuhan_tenaga_ahli"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_kebutuhan_tenaga_ahli", OracleType.VarChar).Value = Request.QueryString["param"]; odr = cmd.ExecuteReader(CommandBehavior.SingleRow); if (odr.HasRows) { if (odr.Read()) { kode_kebutuhan_tenaga_ahli.Text = odr[0].ToString(); if (odr[1].ToString() != "") {

L219 cmd2.CommandText = "SELECT nama_keahlian FROM Keahlian WHERE kode_keahlian = :kode_keahlian"; cmd2.Parameters.AddWithValue("kode_keahlian", OracleType.VarChar).Value = odr[1].ToString(); odr2 = cmd2.ExecuteReader(CommandBehavior.SingleResult); if (odr2.HasRows) { if (odr2.Read()) { tipe_keahlian.Text = odr2[0].ToString(); } } odr2.Close(); cmd2.Parameters.Clear(); } jumlah.Text = odr[2].ToString(); } } odr.Close(); conn.Close(); } } protected void delete_Click(object sender, EventArgs e) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Transaction = trans; cmd.Connection = conn; cmd.CommandText = "DELETE FROM Kebutuhan_Tenaga_Ahli WHERE kode_proyek = :kode_proyek AND kode_kebutuhan_tenaga_ahli = :kode_kebutuhan_tenaga_ahli"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_kebutuhan_tenaga_ahli", OracleType.VarChar).Value = Request.QueryString["param"]; cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanTenagaAhli.aspx"); } protected void update_Click(object sender, EventArgs e) { Validator validate = new Validator(); String url;

L220

if (!validate.isInteger(jumlah.Text)) { url = "~/panitia/Manipulasi_KebutuhanTenagaAhli.aspx?attempt=0¶m=" + Request.QueryString["param"]; Response.Redirect(url); } else { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "UPDATE Kebutuhan_Tenaga_Ahli SET jumlah_tenaga_ahli = :jumlah_tenaga_ahli WHERE kode_proyek = :kode_proyek AND kode_kebutuhan_tenaga_ahli = :kode_kebutuhan_tenaga_ahli"; cmd.Parameters.AddWithValue("jumlah_tenaga_ahli", OracleType.Number).Value = jumlah.Text; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_kebutuhan_tenaga_ahli", OracleType.VarChar).Value = Request.QueryString["param"]; cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanTenagaAhli.aspx"); } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/KebutuhanTenagaAhli.aspx"); } } }

Partisipan_Detail.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Partisipan_Detail.aspx.cs" Inherits="TEST.panitia.Partisipan_Detail" %>

L221

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT a.kode_perusahaan, nama_perusahaan FROM master_partisipan a JOIN master_perusahaan b ON (a.kode_perusahaan = b.kode_perusahaan) WHERE a.kode_partisipan = :parti AND a.kode_proyek = :kode_proyek"> <SelectParameters>

Partisipan_Detail.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Partisipan_Detail : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { }

L222

protected void submit_Click(object sender, EventArgs e) { String tempKodePQ = ""; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Transaction = trans; cmd.Connection = conn; cmd.CommandText = "DELETE FROM Master_Partisipan WHERE kode_proyek = :kode_proyek AND kode_partisipan = :kode_partisipan"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_partisipan", OracleType.VarChar).Value = Request.QueryString["parti"]; cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); OracleCommand cmd3 = new OracleCommand(); cmd3.Transaction = trans; cmd3.Connection = conn; OracleCommand cmd4 = new OracleCommand(); cmd4.Connection = conn; cmd4.Transaction = trans; OracleCommand cmd2 = new OracleCommand(); cmd2.Transaction = trans; cmd2.Connection = conn; for (int i = 0; i < GridView1.Rows.Count; i++) { cmd4.CommandText = "SELECT kode_pq FROM Master_PQ_Data_Detail WHERE kode_perusahaan = :kode_perusahaan AND kode_proyek = :kode_proyek"; cmd4.Parameters.AddWithValue("kode_perusahaan", OracleType.VarChar).Value = GridView1.Rows[i].Cells[0].Text; cmd4.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; tempKodePQ = (cmd4.ExecuteScalar()).ToString(); cmd3.CommandText = "DELETE FROM Form_Flag WHERE kode_pq = :kode_pq"; cmd3.Parameters.AddWithValue("kode_pq", OracleType.VarChar).Value = tempKodePQ; cmd3.ExecuteNonQuery(); cmd2.CommandText = "DELETE FROM Master_PQ_Data_Detail WHERE kode_pq = :kode_pq"; cmd2.Parameters.AddWithValue("kode_pq", OracleType.VarChar).Value = tempKodePQ; cmd2.ExecuteNonQuery(); try { trans.Commit();

L223 }catch { } } conn.Close(); Response.Redirect("~/panitia/PartisipanProyek.aspx"); } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/PartisipanProyek.aspx"); } } }

PartisipanProyek.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="PartisipanProyek.aspx.cs" Inherits="TEST.panitia.PartisipanProyek" %> DAFTAR PARTISIPAN PROYEK
" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_partisipan, nama_perusahaan FROM master_partisipan a JOIN master_perusahaan b ON (a.kode_perusahaan = b.kode_perusahaan) WHERE kode_proyek = :kode_proyek ORDER BY kode_partisipan"> <SelectParameters>

PartisipanProyek.aspx.cs using System;

L224 using using using using using

System.Collections.Generic; System.Linq; System.Web; System.Web.UI; System.Web.UI.WebControls;

namespace TEST.panitia { public partial class PartisipanProyek : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void tambah_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/Proyek_Detail.aspx"); } } }

Proyek_Detail.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Proyek_Detail.aspx.cs" Inherits="TEST.panitia.Proyek_Detail" %> <script type = "text/javascript">
L225 inputList[i].checked = true; } else { if (row.rowIndex % 2 == 0) { row.style.backgroundColor = "#C2D69B"; } else { row.style.backgroundColor = "white"; } inputList[i].checked = false; } } } } function RadioCheck(rb) { var var var for

gv = document.getElementById("<%=gvSelected.ClientID%>"); rbs = gv.getElementsByTagName("input"); row = rb.parentNode.parentNode; (var i = 0; i < rbs.length; i++) { if (rbs[i].type == "radio") { if (rbs[i].checked && rbs[i] != rb) { rbs[i].checked = false; break; } }

} } //--> Tambah Partisipan

L226
/>

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_perusahaan, nama_perusahaan FROM master_perusahaan WHERE kode_perusahaan NOT IN ( SELECT kode_perusahaan FROM master_partisipan WHERE kode_proyek = :kode_proyek)"> <SelectParameters>
Pilih Ketua
Ketua <% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if(attempt == 0) { Response.Write("Silakan memilih perusahaan sebagai partisipan proyek"); } else if (attempt == 1) { Response.Write("Silakan memilih pemimpin partisipan proyek"); } }

L227 %>

ProyekDetail.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Proyek_Detail : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } private void BindPrimaryGrid() { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand("SELECT kode_perusahaan, nama_perusahaan FROM master_perusahaan WHERE kode_perusahaan NOT IN ( SELECT kode_perusahaan FROM master_partisipan WHERE kode_proyek = '" + Session["kode_proyek"] + "')", conn); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataTable dt = new DataTable(); oda.Fill(dt); gvAll.DataSource = dt; gvAll.DataBind(); } private void GetData() { DataTable dt; if (ViewState["SelectedRecords"] != null) dt = (DataTable)ViewState["SelectedRecords"]; else dt = CreateDataTable(); CheckBox chkAll = (CheckBox)gvAll.HeaderRow

L228 .Cells[0].FindControl("chkAll"); for (int i = 0; i < gvAll.Rows.Count; i++) { if (chkAll.Checked) { dt = AddRow(gvAll.Rows[i], dt); } else { CheckBox chk = (CheckBox)gvAll.Rows[i] .Cells[0].FindControl("chk"); if (chk.Checked) { dt = AddRow(gvAll.Rows[i], dt); } else { dt = RemoveRow(gvAll.Rows[i], dt); } } } ViewState["SelectedRecords"] = dt; } private void SetData() { CheckBox chkAll = (CheckBox)gvAll.HeaderRow.Cells[0].FindControl("chkAll"); chkAll.Checked = true; if (ViewState["SelectedRecords"] != null) { DataTable dt = (DataTable)ViewState["SelectedRecords"]; for (int i = 0; i < gvAll.Rows.Count; i++) { CheckBox chk = (CheckBox)gvAll.Rows[i].Cells[0].FindControl("chk"); if (chk != null) { DataRow[] dr = dt.Select("kode_perusahaan = '" + gvAll.Rows[i].Cells[1].Text + "'"); chk.Checked = dr.Length > 0; if (!chk.Checked) { chkAll.Checked = false; } } } } } private DataTable RemoveRow(GridViewRow gvRow, DataTable dt) { DataRow[] dr = dt.Select("kode_perusahaan = '" + gvRow.Cells[1].Text + "'"); if (dr.Length > 0) { dt.Rows.Remove(dr[0]); dt.AcceptChanges();

L229 } return dt; } private DataTable AddRow(GridViewRow gvRow, DataTable dt) { DataRow[] dr = dt.Select("kode_perusahaan = '" + gvRow.Cells[1].Text + "'"); if (dr.Length <= 0) { dt.Rows.Add(); dt.Rows[dt.Rows.Count - 1]["kode_perusahaan"] = gvRow.Cells[1].Text; dt.Rows[dt.Rows.Count - 1]["nama_perusahaan"] = gvRow.Cells[2].Text; dt.AcceptChanges(); } return dt; } private DataTable CreateDataTable() { DataTable dt = new DataTable(); dt.Columns.Add("kode_perusahaan"); dt.Columns.Add("nama_perusahaan"); dt.AcceptChanges(); return dt; } protected void OnPaging(object sender, GridViewPageEventArgs e) { GetData(); gvAll.PageIndex = e.NewPageIndex; BindPrimaryGrid(); SetData(); } protected void CheckBox_CheckChanged(object sender, EventArgs e) { GetData(); SetData(); BindSecondaryGrid(); } private void BindSecondaryGrid() { DataTable dt = (DataTable)ViewState["SelectedRecords"]; gvSelected.DataSource = dt; gvSelected.DataBind(); } protected void Submit_Vendor_Click(object sender, EventArgs e) { int flagChecked = 0; for (int i = 0; i < gvSelected.Rows.Count; i++) { RadioButton rdb = (RadioButton)gvSelected.Rows[i].Cells[0].FindControl("rd");

L230 if (rdb.Checked) { flagChecked = 1; } } if (gvSelected.Rows.Count < 1) { Response.Redirect("~/panitia/Proyek_Detail.aspx?attempt=0"); } else if (flagChecked != 1) { Response.Redirect("~/panitia/Proyek_Detail.aspx?attempt=1"); } else { Kode_Generator KoGe = new Kode_Generator(); String queryKode = "SELECT kode_partisipan FROM (SELECT DISTINCT kode_partisipan FROM Master_Partisipan ORDER BY LENGTH(kode_partisipan) DESC, kode_partisipan DESC) WHERE rownum < 2 ORDER BY kode_partisipan"; String Kode_Partisipan = KoGe.Kode("KPAR", queryKode, 1); String Kode_PQ; int persentase = 0; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Transaction = trans; cmd.Connection = conn; OracleCommand cmd2 = new OracleCommand(); cmd2.Transaction = trans; cmd2.Connection = conn; OracleCommand cmd3 = new OracleCommand(); cmd3.Transaction = trans; cmd3.Connection = conn; queryKode = "SELECT kode_PQ FROM (SELECT kode_PQ FROM master_pq_data_detail ORDER BY LENGTH(kode_PQ) DESC, kode_PQ DESC) WHERE rownum < 2 ORDER BY kode_PQ DESC"; for (int i = 0; i < gvSelected.Rows.Count; i++) { RadioButton rd = (RadioButton)gvSelected.Rows[i].Cells[0].FindControl("rd"); if (rd.Checked) { persentase = 100; } else { persentase = 0; } Kode_PQ = KoGe.Kode("PQ", queryKode, 1);

L231 cmd.CommandText = "INSERT INTO master_partisipan VALUES (:kode_perusahaan, :kode_partisipan, :kode_proyek)"; cmd.Parameters.AddWithValue("kode_perusahaan", OracleType.VarChar).Value = gvSelected.Rows[i].Cells[1].Text.ToUpper(); cmd.Parameters.AddWithValue("kode_partisipan", OracleType.VarChar).Value = Kode_Partisipan.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); cmd2.CommandText = "INSERT INTO master_pq_data_detail (kode_pq, kode_proyek, kode_perusahaan, persentase) VALUES (:kode_pq, :kode_proyek, :kode_perusahaan, :persentase)"; cmd2.Parameters.AddWithValue("kode_pq", OracleType.VarChar).Value = Kode_PQ.ToUpper(); cmd2.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd2.Parameters.AddWithValue("kode_perusahaan", OracleType.VarChar).Value = gvSelected.Rows[i].Cells[1].Text.ToUpper(); cmd2.Parameters.AddWithValue("persentase", OracleType.Number).Value = persentase; cmd2.ExecuteNonQuery(); cmd2.Parameters.Clear(); cmd2.CommandText = "INSERT INTO form_flag VALUES (:kode_pq,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)"; cmd2.Parameters.AddWithValue("kode_pq", OracleType.VarChar).Value = Kode_PQ.ToUpper(); cmd2.ExecuteNonQuery(); cmd2.Parameters.Clear(); try { trans.Commit(); } catch { } } conn.Close(); Response.Redirect("~/panitia/PartisipanProyek.aspx"); } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/PartisipanProyek.aspx"); } } }

Report.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Report.aspx.cs" Inherits="TEST.panitia.Report" %>

L232 LAPORAN PESERTA LOLOS PRAKUALIFIKASI

Proyek :

" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT kode_partisipan AS "KODE PARTISIPAN", nama_perusahaan AS "NAMA PERUSAHAAN", NPWP, Alamat_Perusahaan AS "ALAMAT", Telpon_Perusahaan AS "TELEPON", Fax_Perusahaan AS "FAX" FROM Master_Partisipan a JOIN Master_Perusahaan b ON (a.kode_perusahaan = b.kode_perusahaan) WHERE kode_proyek = :kode_proyek AND kode_partisipan NOT IN ( SELECT a.kode_partisipan FROM Master_Partisipan a, Master_PQ_Data_Detail b, Form_Flag c WHERE a.kode_proyek = b.kode_proyek AND a.kode_perusahaan = b.kode_perusahaan AND b.kode_pq = c.kode_pq AND ( KF1_PAKTA_INTEGRITAS = 0 OR KF2_PERNYATAAN_MINAT = 0 OR KF3_KEBENARAN_DATA = 0 OR KF3A_PERJANJIAN_KEMITRAAN = 0 OR KF4_DATA_UMUM_PERUSAHAAN = 0 OR KF5_SURAT_IJIN = 0 OR KF6_PENDIRIAN_PERUSAHAAN = 0 OR KF7_KOMISARIS = 0

L233 OR KF8_DIREKSI = 0 OR KF9_KEPEMILIKAN_SAHAM = 0 OR KF10_DATA_PAJAK = 0 OR KF11_NERACA_PERUSAHAAN = 0 OR KF12_TENAGA_AHLI = 0 OR KF13_DATA_PERALATAN = 0 OR KF14_PENGALAMAN_UMUM = 0 OR KF15_PENGALAMAN_BIDANG = 0 OR KF16A_PENGALAMAN_EPC = 0 OR KF16B_PENGALAMAN_PROGRES = 0 OR KF17_PROYEK_BERJALAN = 0 OR KF18_KEMAMPUAN_FINANSIAL = 0 OR KF19_SBUJK = 0 ) ) ORDER BY kode_partisipan"> <SelectParameters>

Report.aspx.cs using using using using using using using using using using using using using using using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient; Microsoft.Reporting.WebForms; System.IO; iTextSharp.text; iTextSharp.text.pdf; iTextSharp.text.html; iTextSharp.text.html.simpleparser; System.Text;

namespace TEST.panitia { public partial class Report : System.Web.UI.Page {

L234 protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { if (GridView1.Rows.Count == 0) { Button2.Visible = false; Button3.Visible = false; } else { Button2.Visible = true; Button3.Visible = true; } Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT nama_proyek FROM Master_Proyek WHERE kode_proyek = '" + Session["kode_proyek"] + "'"; cmd.Connection = conn; conn.Open(); OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { Label1.Text = odr[0].ToString(); } odr.Close(); conn.Close(); } } protected void Button2_Click(object sender, EventArgs e) { String fileName = ""; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT nama_proyek FROM Master_Proyek WHERE kode_proyek = '" + Session["kode_proyek"] + "'"; cmd.Connection = conn; conn.Open(); OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { fileName = odr[0].ToString(); } odr.Close(); conn.Close(); ExportGridToExcel(GridView1, "application/vnd.xls", fileName); } public void ExportGridToExcel(GridView grdGridView, string FileType, string fileName) { Response.Clear();

L235 Response.Buffer = true; Response.AddHeader("content-disposition", string.Format( "attachment;filename={0}.xls", fileName.Replace(" ", "_").ToString()+"-Pemenang_Pra_Kualifikasi")); Response.Charset = ""; Response.ContentType = FileType; StringWriter sw = new StringWriter(); HtmlTextWriter hw = new HtmlTextWriter(sw); grdGridView.AllowPaging = false; grdGridView.DataBind(); grdGridView.HeaderRow.Style.Add("background-color", "#FFFFFF"); grdGridView.HeaderRow.Cells[0].Style.Add("background-color", grdGridView.HeaderRow.Cells[1].Style.Add("background-color", grdGridView.HeaderRow.Cells[2].Style.Add("background-color", grdGridView.HeaderRow.Cells[3].Style.Add("background-color", grdGridView.HeaderRow.Cells[4].Style.Add("background-color", grdGridView.HeaderRow.Cells[5].Style.Add("background-color",

"blue"); "blue"); "blue"); "blue"); "blue"); "blue");

for (int i = 0; i < grdGridView.Rows.Count; i++) { GridViewRow row = grdGridView.Rows[i]; row.BackColor = System.Drawing.Color.White; row.Attributes.Add("class", "textmode"); if (i % 2 != 0) { row.Cells[0].Style.Add("background-color", row.Cells[1].Style.Add("background-color", row.Cells[2].Style.Add("background-color", row.Cells[3].Style.Add("background-color", row.Cells[4].Style.Add("background-color", row.Cells[5].Style.Add("background-color", }

"#99CCFF"); "#99CCFF"); "#99CCFF"); "#99CCFF"); "#99CCFF"); "#99CCFF");

} grdGridView.RenderControl(hw); string style = @"<style> .textmode { mso-number-format:\@; } "; Response.Write(style); Response.Output.Write(sw.ToString()); Response.Flush(); Response.End(); } public override void VerifyRenderingInServerForm(Control control) { return; } protected void Button3_Click(object sender, EventArgs e) { String fileName = ""; Connect con = new Connect();

L236 OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT nama_proyek FROM Master_Proyek WHERE kode_proyek = '" + Session["kode_proyek"] + "'"; cmd.Connection = conn; conn.Open(); OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { fileName = odr[0].ToString(); } odr.Close(); conn.Close(); ExportGridToWord(GridView1, "application/vnd.ms-word", fileName); } public void ExportGridToWord(GridView grdGridView, string FileType, string fileName) { Response.Clear(); Response.Buffer = true; Response.AddHeader("content-disposition", string.Format( "attachment;filename={0}.doc", fileName.Replace(" ", "_").ToString() + "-Pemenang_Pra_Kualifikasi")); Response.Charset = ""; Response.ContentType = FileType; StringWriter sw = new StringWriter(); HtmlTextWriter hw = new HtmlTextWriter(sw); grdGridView.AllowPaging = false; grdGridView.DataBind(); grdGridView.RenderControl(hw); Response.Output.Write(sw.ToString()); Response.Flush(); Response.End(); } } }

Tambah_KebutuhanAlat.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Tambah_KebutuhanAlat.aspx.cs" Inherits="TEST.panitia.Tambah_KebutuhanAlat" %> TAMBAH ALAT

:

L237

:

:

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0) { Response.Write("Masukan 'Jumlah' harus berupa angka"); } else if (attempt == 1) { Response.Write("Jenis alat sudah terdaftar"); } } %>

"

L238 ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_alat, nama_alat FROM Data_Peralatan ORDER BY nama_alat">

Tambah_KebutuhanAlat.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Tambah_KebutuhanAlat : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void tambah_Click(object sender, EventArgs e) { Validator validate = new Validator(); String queryCekAlat = "SELECT COUNT(kode_kebutuhan_alat) FROM Kebutuhan_Peralatan WHERE kode_alat = '" + alat.SelectedItem.Value.ToString() + "' AND kode_proyek = '"+Session["kode_proyek"]+"'"; if (validate.isInserted(queryCekAlat) > 0) { Response.Redirect("~/panitia/Tambah_KebutuhanAlat.aspx?attempt=1"); } else if (!validate.isInteger(jumlah.Text)) { Response.Redirect("~/panitia/Tambah_KebutuhanAlat.aspx?attempt=0"); } else { Kode_Generator KoGe = new Kode_Generator(); String queryKode = "SELECT kode_kebutuhan_alat FROM (SELECT kode_kebutuhan_alat FROM kebutuhan_peralatan WHERE kode_proyek = '" +

L239 Session["kode_proyek"] + "' ORDER BY LENGTH(kode_kebutuhan_alat) DESC, kode_kebutuhan_alat DESC) WHERE rownum < 2 ORDER BY kode_kebutuhan_alat DESC"; String kode_kebutuhan_alat = KoGe.Kode("ALAT", queryKode, 3); Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "INSERT INTO kebutuhan_peralatan (kode_kebutuhan_alat, kode_proyek, kode_alat, jumlah_alat, kapasitas) VALUES (:kode_kebutuhan_alat, :kode_proyek, :kode_alat, :jumlah_alat, :kapasitas)"; cmd.Parameters.AddWithValue("kode_kebutuhan_alat", OracleType.VarChar).Value = kode_kebutuhan_alat.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.Parameters.AddWithValue("kode_alat", OracleType.VarChar).Value = alat.SelectedItem.Value.ToString().ToUpper(); cmd.Parameters.AddWithValue("jumlah_alat", OracleType.Number).Value = jumlah.Text; cmd.Parameters.AddWithValue("kapasitas", OracleType.VarChar).Value = kapasitas.Text.ToUpper(); cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanPeralatan.aspx"); } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/KebutuhanPeralatan.aspx"); } } }

Tambah_KebutuhanPengalaman.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Tambah_KebutuhanPengalaman.aspx.cs" Inherits="TEST.panitia.Tambah_KebutuhanPengalaman" %> UBAH PENGALAMAN PROYEK

L240

L241

: tahun

: tahun

: tahun

: %

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 1) { Response.Write("Masukan 'Pengalaman Umum' harus berupa angka"); } else if (attempt == 2) { Response.Write("Masukan 'Pengalaman Sesuai Bidang' harus berupa angka"); } else if (attempt == 3) { Response.Write("Masukan 'Pengalaman EPC' harus berupa angka"); } else if (attempt == 4) { Response.Write("Masukan 'Pengalaman Progress' harus berupa angka"); } } %>

Tambah_KebutuhanPengalaman.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Tambah_KebutuhanPengalaman : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { if (!Page.IsPostBack) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); OracleDataReader odr; OracleTransaction trans; conn.Open(); trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "SELECT nama_tipe_pengalaman, jumlah_tahun_pengalaman FROM kebutuhan_pengalaman a JOIN tipe_pengalaman b ON (a.kode_tipe_pengalaman = b.kode_tipe_pengalaman) WHERE kode_proyek = :kode_proyek ORDER BY nama_tipe_pengalaman";

L242 cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; odr = cmd.ExecuteReader(); while (odr.Read()) { if (odr[0].ToString() == "PENGALAMAN UMUM") { pengalaman_umum.Text = odr[1].ToString(); } else if (odr[0].ToString() == "PENGALAMAN SESUAI BIDANG") { pengalaman_bidang.Text = odr[1].ToString(); } else if (odr[0].ToString() == "PENGALAMAN EPC") { pengalaman_epc.Text = odr[1].ToString(); } else if (odr[0].ToString() == "PENGALAMAN PROGRESS") { pengalaman_progress.Text = odr[1].ToString(); } } odr.Close(); cmd.Parameters.Clear(); conn.Close(); } } protected void tambah_Click(object sender, EventArgs e) { Validator validate = new Validator(); if (!validate.isInteger(pengalaman_umum.Text)) { Response.Redirect("~/panitia/Tambah_KebutuhanPengalaman.aspx?attempt=1"); } else if (!validate.isInteger(pengalaman_bidang.Text)) { Response.Redirect("~/panitia/Tambah_KebutuhanPengalaman.aspx?attempt=2"); } else if (!validate.isInteger(pengalaman_epc.Text)) { Response.Redirect("~/panitia/Tambah_KebutuhanPengalaman.aspx?attempt=3"); } else if (!validate.isInteger(pengalaman_progress.Text)) { Response.Redirect("~/panitia/Tambah_KebutuhanPengalaman.aspx?attempt=4"); } else { Kode_Generator KoGe = new Kode_Generator();

L243 String queryKode = "SELECT kode_kebutuhan_pengalaman FROM Kebutuhan_Pengalaman WHERE kode_proyek = '" + Session["kode_proyek"] + "' AND rownum < 2 ORDER BY kode_kebutuhan_pengalaman DESC"; String kode_kebutuhan_pengalaman; String queryCheck; Connect con = new Connect(); OracleDataReader odr; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleCommand cmd2 = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Connection = conn; cmd.Transaction = trans; cmd2.Connection = conn; cmd2.Transaction = trans; cmd2.CommandText = "SELECT kode_tipe_pengalaman, nama_tipe_pengalaman FROM Tipe_Pengalaman ORDER BY kode_tipe_pengalaman"; odr = cmd2.ExecuteReader(); while (odr.Read()) { if (odr[1].ToString() == "PENGALAMAN UMUM") { queryCheck = "SELECT COUNT(kode_kebutuhan_pengalaman) FROM Kebutuhan_Pengalaman WHERE kode_proyek = '" + Session["kode_proyek"].ToString() + "' AND kode_tipe_pengalaman = '" + odr[0].ToString() + "'"; if (validate.isInserted(queryCheck) > 0) { cmd.CommandText = "UPDATE Kebutuhan_Pengalaman SET jumlah_tahun_pengalaman = :jumlah_tahun_pengalaman WHERE kode_proyek = :kode_proyek AND kode_tipe_pengalaman = :kode_tipe_pengalaman"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_umum.Text; } else { kode_kebutuhan_pengalaman = KoGe.Kode("ALAM", queryKode, 3); cmd.CommandText = "INSERT INTO Kebutuhan_Pengalaman (kode_kebutuhan_pengalaman, kode_proyek, kode_tipe_pengalaman, jumlah_tahun_pengalaman) VALUES (:kode_kebutuhan_pengalaman, :kode_proyek, :kode_tipe_pengalaman, :jumlah_tahun_pengalaman)"; cmd.Parameters.AddWithValue("kode_kebutuhan_pengalaman", OracleType.VarChar).Value = kode_kebutuhan_pengalaman.ToUpper();

L244 cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString().ToUpper(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_umum.Text; } } else if (odr[1].ToString() == "PENGALAMAN SESUAI BIDANG") { queryCheck = "SELECT COUNT(kode_kebutuhan_pengalaman) FROM Kebutuhan_Pengalaman WHERE kode_proyek = '" + Session["kode_proyek"].ToString() + "' AND kode_tipe_pengalaman = '" + odr[0].ToString() + "'"; if (validate.isInserted(queryCheck) > 0) { cmd.CommandText = "UPDATE Kebutuhan_Pengalaman SET jumlah_tahun_pengalaman = :jumlah_tahun_pengalaman WHERE kode_proyek = :kode_proyek AND kode_tipe_pengalaman = :kode_tipe_pengalaman"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_bidang.Text; } else { kode_kebutuhan_pengalaman = KoGe.Kode("ALAM", queryKode, 3); cmd.CommandText = "INSERT INTO Kebutuhan_Pengalaman (kode_kebutuhan_pengalaman, kode_proyek, kode_tipe_pengalaman, jumlah_tahun_pengalaman) VALUES (:kode_kebutuhan_pengalaman, :kode_proyek, :kode_tipe_pengalaman, :jumlah_tahun_pengalaman)"; cmd.Parameters.AddWithValue("kode_kebutuhan_pengalaman", OracleType.VarChar).Value = kode_kebutuhan_pengalaman.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString().ToUpper(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_bidang.Text; } } else if (odr[1].ToString() == "PENGALAMAN EPC") { queryCheck = "SELECT COUNT(kode_kebutuhan_pengalaman) FROM Kebutuhan_Pengalaman WHERE kode_proyek = '" + Session["kode_proyek"].ToString() + "' AND kode_tipe_pengalaman = '" + odr[0].ToString() + "'"; if (validate.isInserted(queryCheck) > 0) {

L245 cmd.CommandText = "UPDATE Kebutuhan_Pengalaman SET jumlah_tahun_pengalaman = :jumlah_tahun_pengalaman WHERE kode_proyek = :kode_proyek AND kode_tipe_pengalaman = :kode_tipe_pengalaman"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_epc.Text; } else { kode_kebutuhan_pengalaman = KoGe.Kode("ALAM", queryKode, 3); cmd.CommandText = "INSERT INTO Kebutuhan_Pengalaman (kode_kebutuhan_pengalaman, kode_proyek, kode_tipe_pengalaman, jumlah_tahun_pengalaman) VALUES (:kode_kebutuhan_pengalaman, :kode_proyek, :kode_tipe_pengalaman, :jumlah_tahun_pengalaman)"; cmd.Parameters.AddWithValue("kode_kebutuhan_pengalaman", OracleType.VarChar).Value = kode_kebutuhan_pengalaman.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString().ToUpper(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_epc.Text; } } else if (odr[1].ToString() == "PENGALAMAN PROGRESS") { queryCheck = "SELECT COUNT(kode_kebutuhan_pengalaman) FROM Kebutuhan_Pengalaman WHERE kode_proyek = '" + Session["kode_proyek"].ToString() + "' AND kode_tipe_pengalaman = '" + odr[0].ToString() + "'"; if (validate.isInserted(queryCheck) > 0) { cmd.CommandText = "UPDATE Kebutuhan_Pengalaman SET jumlah_tahun_pengalaman = :jumlah_tahun_pengalaman WHERE kode_proyek = :kode_proyek AND kode_tipe_pengalaman = :kode_tipe_pengalaman"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_progress.Text; } else { kode_kebutuhan_pengalaman = KoGe.Kode("ALAM", queryKode, 3); cmd.CommandText = "INSERT INTO Kebutuhan_Pengalaman (kode_kebutuhan_pengalaman, kode_proyek, kode_tipe_pengalaman, jumlah_tahun_pengalaman) VALUES (:kode_kebutuhan_pengalaman, :kode_proyek, :kode_tipe_pengalaman, :jumlah_tahun_pengalaman)";

L246

cmd.Parameters.AddWithValue("kode_kebutuhan_pengalaman", OracleType.VarChar).Value = kode_kebutuhan_pengalaman.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString().ToUpper(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = pengalaman_progress.Text; } } /* else if (odr[1].ToString() == "PROYEK BERJALAN") { queryCheck = "SELECT COUNT(kode_kebutuhan_pengalaman) FROM Kebutuhan_Pengalaman WHERE kode_proyek = '" + Session["kode_proyek"].ToString() + "' AND kode_tipe_pengalaman = '" + odr[0].ToString() + "'"; if (validate.isInserted(queryCheck) > 0) { cmd.CommandText = "UPDATE Kebutuhan_Pengalaman SET jumlah_tahun_pengalaman = :jumlah_tahun_pengalaman WHERE kode_proyek = :kode_proyek AND kode_tipe_pengalaman = :kode_tipe_pengalaman"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = proyek_berjalan.Text; } else { kode_kebutuhan_pengalaman = KoGe.Kode("ALAM", queryKode, 3); cmd.CommandText = "INSERT INTO Kebutuhan_Pengalaman (kode_kebutuhan_pengalaman, kode_proyek, kode_tipe_pengalaman, jumlah_tahun_pengalaman) VALUES (:kode_kebutuhan_pengalaman, :kode_proyek, :kode_tipe_pengalaman, :jumlah_tahun_pengalaman)"; cmd.Parameters.AddWithValue("kode_kebutuhan_pengalaman", OracleType.VarChar).Value = kode_kebutuhan_pengalaman.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.Parameters.AddWithValue("kode_tipe_pengalaman", OracleType.VarChar).Value = odr[0].ToString().ToUpper(); cmd.Parameters.AddWithValue("jumlah_tahun_pengalaman", OracleType.Number).Value = proyek_berjalan.Text; } } */ try { cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit();

L247 } catch { } } conn.Close(); Response.Redirect("~/panitia/KebutuhanPengalaman.aspx"); } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/KebutuhanPengalaman.aspx"); } } }

Tambah_KebutuhanTenagaAhli.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Tambah_KebutuhanTenagaAhli.aspx.cs" Inherits="TEST.panitia.Tambah_KebutuhanTenagaAhli" %> TAMBAH KEBUTUHAN TENAGA AHLI

:

:

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0) { Response.Write("Tipe keahlian sudah terdaftar"); } else if (attempt == 1) {

L248 Response.Write("Masukan 'Jumlah Tenaga Ahli' harus berupa angka"); } } %>

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_keahlian, nama_keahlian FROM Keahlian ORDER BY nama_keahlian">

Tambah_KebutuhanTenagaAhli.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Tambah_KebutuhanTenagaAhli : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { }

L249 protected void tambah_Click(object sender, EventArgs e) { Validator validate = new Validator(); String queryCheck = "SELECT COUNT(kode_kebutuhan_tenaga_ahli) FROM Kebutuhan_Tenaga_Ahli WHERE kode_proyek = '" + Session["kode_proyek"] + "' AND kode_keahlian = '" + keahlian.SelectedValue.ToString() + "'"; if (validate.isInserted(queryCheck) > 0) { Response.Redirect("~/panitia/Tambah_KebutuhanTenagaAhli.aspx?attempt=0"); } else if (!validate.isInteger(jumlah.Text)) { Response.Redirect("~/panitia/Tambah_KebutuhanTenagaAhli.aspx?attempt=1"); } else { Kode_Generator KoGe = new Kode_Generator(); String queryKode = "SELECT kode_kebutuhan_tenaga_ahli FROM (SELECT kode_kebutuhan_tenaga_ahli FROM Kebutuhan_Tenaga_Ahli WHERE kode_proyek = '" + Session["kode_proyek"] + "' ORDER BY LENGTH(kode_kebutuhan_tenaga_ahli) DESC, kode_kebutuhan_tenaga_ahli DESC) WHERE rownum < 2 ORDER BY kode_kebutuhan_tenaga_ahli DESC"; String kode_kebutuhan_tenaga_ahli = KoGe.Kode("TA", queryKode, 3); Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "INSERT INTO Kebutuhan_Tenaga_Ahli (kode_kebutuhan_tenaga_ahli, kode_proyek, kode_keahlian, jumlah_tenaga_ahli) VALUES (:kode_kebutuhan_tenaga_ahli, :kode_proyek, :kode_keahlian, :jumlah_tenaga_ahli)"; cmd.Parameters.AddWithValue("kode_kebutuhan_tenaga_ahli", OracleType.VarChar).Value = kode_kebutuhan_tenaga_ahli.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; cmd.Parameters.AddWithValue("kode_keahlian", OracleType.VarChar).Value = keahlian.SelectedItem.Value.ToUpper(); cmd.Parameters.AddWithValue("jumlah_tenaga_ahli", OracleType.Number).Value = jumlah.Text; cmd.ExecuteNonQuery(); cmd.Parameters.Clear(); trans.Commit(); conn.Close(); Response.Redirect("~/panitia/KebutuhanTenagaAhli.aspx");

L250 } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/KebutuhanTenagaAhli.aspx"); } } }

Ubah_Sandi_Panitia.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/HomePanitia.Master" AutoEventWireup="true" CodeBehind="Ubah_Sandi_Panitia.aspx.cs" Inherits="TEST.panitia.Ubah_Sandi_Panitia" %> Sandi Baru : Konfirmasi Sandi :

L251 <% if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>

Ubah_Sandi_Panitia.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.panitia { public partial class Ubah_Sandi_Panitia : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void Submit_Click(object sender, EventArgs e) { Connect con = new Connect(); var kode_panitia = (String)Session["username"]; var password = sandi.Text; var confirm = Konfirm_Sandi.Text; if (password == confirm) { OracleCommand cmd = new OracleCommand(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); cmd.Connection = conn; cmd.CommandText = "UPDATE MASTER_PANITIA SET PASSWORD_PANITIA = '" + password + "' WHERE KODE_PANITIA = '" + kode_panitia + "'"; cmd.ExecuteNonQuery(); conn.Close();

L252 Response.Redirect("~/panitia/Ubah_Sandi_Panitia.aspx?err=Ubah Sandi Berhasil"); } else { Response.Redirect("~/panitia/Ubah_Sandi_Panitia.aspx?err=Kata Sandi Tidak Cocok"); } } protected void Cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/Home_Panitia.aspx"); } } }

Update_InfoProyek.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Panitia.Master" AutoEventWireup="true" CodeBehind="Update_InfoProyek.aspx.cs" Inherits="TEST.panitia.Update_InfoProyek" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> UBAH INFORMASI PROYEK

L253

:

:

:

:

:

:

:

:

:

:

:

:

:

:

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0){ Response.Write("Masukan 'Nominal' harus berupa angka"); } else if (attempt == 1){ Response.Write("Masukan 'Lama Konstruksi' harus berupa angka"); } else if (attempt == 2){ Response.Write("Masukan 'Tanggal SK' harus dalam format tanggal yang benar"); } } %>

L254

" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT kode_jenis_proyek, nama_jenis_proyek FROM jenis_proyek">

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_bidang, nama_bidang FROM bidang_proyek">

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_lokasi_proyek, nama_lokasi_proyek FROM lokasi_proyek"> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT kode_wilayah_unit, nama_wilayah_unit FROM wilayah_unit">

Update_InfoProyek.aspx.cs using using using using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls;

L255 using using using using using

System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient; System.Globalization;

namespace TEST.panitia { public partial class Update_InfoProyek : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { if (!Page.IsPostBack) { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); OracleCommand cmd2 = new OracleCommand(); OracleDataReader odr2; OracleTransaction trans; conn.Open(); trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); CultureInfo provider = CultureInfo.InvariantCulture; cmd.Connection = conn; cmd.Transaction = trans; cmd2.Transaction = trans; cmd2.Connection = conn; cmd.CommandText = "SELECT kode_proyek, nama_proyek, tgl_awal_kualifikasi, tgl_akhir_kualifikasi, kode_sk, sk_tanggal, kode_jenis_proyek, nominal, kode_bidang, asal_sumber_dana, lama_konstruksi, jenis_lelang, kode_lokasi_proyek, kode_wilayah_unit FROM Master_Proyek WHERE kode_proyek = :kode_proyek"; cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"]; OracleDataReader odr = cmd.ExecuteReader(CommandBehavior.SingleRow); if (odr.HasRows) { if (odr.Read()) { kode_proyek.Text = odr[0].ToString(); nama_proyek.Text = odr[1].ToString(); tgl_awal_kualifikasi.Text = odr[2].ToString(); tgl_akhir_kualifikasi.Text = odr[3].ToString(); no_sk.Text = odr[4].ToString(); tgl_sk.Text = DateTimeOffset.Parse(odr[5].ToString()).ToString("dd-MMM-yyyy"); if (odr[6].ToString().Length > 0) { jenis_proyek.SelectedValue = odr[6].ToString(); } nominal.Text = odr[7].ToString(); if (odr[8].ToString().Length > 0)

L256 { bidang_proyek.SelectedValue = odr[8].ToString(); } asal_sumber_dana.Text = odr[9].ToString(); lama_konstruksi.Text = odr[10].ToString(); jenis_lelang.Text = odr[11].ToString(); if (odr[12].ToString().Length > 0) { lokasi_proyek.SelectedValue = odr[12].ToString(); } if (odr[13].ToString().Length > 0) { wilayah_unit.SelectedValue = odr[13].ToString(); } } } odr.Close(); cmd.Parameters.Clear(); conn.Close(); } } protected void update_Click(object sender, EventArgs e) { CultureInfo provider = CultureInfo.InvariantCulture; Validator validate = new Validator(); if (!validate.isInteger(nominal.Text)) { Response.Redirect("~/panitia/Update_InfoProyek.aspx?attempt=0"); } else if (!validate.isInteger(lama_konstruksi.Text)) { Response.Redirect("~/panitia/Update_InfoProyek.aspx?attempt=1"); } else if (!validate.isDate(tgl_sk.Text)) { Response.Redirect("~/panitia/Update_InfoProyek.aspx?attempt=2"); } else { Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); OracleTransaction trans; conn.Open(); trans = conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted); cmd.Connection = conn; cmd.Transaction = trans; cmd.CommandText = "UPDATE Master_Proyek SET kode_sk = :kode_sk, sk_tanggal = :sk_tanggal, kode_jenis_proyek = :kode_jenis_proyek, nominal = :nominal, kode_bidang = :kode_bidang, asal_sumber_dana = :asal_sumber_dana, lama_konstruksi = :lama_konstruksi, jenis_lelang = :jenis_lelang, kode_lokasi_proyek = :kode_lokasi_proyek, kode_wilayah_unit = :kode_wilayah_unit WHERE kode_proyek = :kode_proyek";

L257 cmd.Parameters.AddWithValue("kode_sk", OracleType.VarChar).Value = no_sk.Text.ToUpper(); cmd.Parameters.AddWithValue("sk_tanggal", OracleType.DateTime).Value = DateTime.Parse(tgl_sk.Text); cmd.Parameters.AddWithValue("kode_jenis_proyek", OracleType.VarChar).Value = jenis_proyek.SelectedItem.Value.ToUpper(); cmd.Parameters.AddWithValue("nominal", OracleType.Number).Value = nominal.Text.ToUpper(); cmd.Parameters.AddWithValue("kode_bidang", OracleType.VarChar).Value = bidang_proyek.SelectedItem.Value.ToUpper(); cmd.Parameters.AddWithValue("asal_sumber_dana", OracleType.VarChar).Value = asal_sumber_dana.Text.ToUpper(); cmd.Parameters.AddWithValue("lama_konstruksi", OracleType.Number).Value = lama_konstruksi.Text.ToUpper(); cmd.Parameters.AddWithValue("jenis_lelang", OracleType.VarChar).Value = jenis_lelang.Text.ToUpper(); cmd.Parameters.AddWithValue("kode_lokasi_proyek", OracleType.VarChar).Value = lokasi_proyek.SelectedItem.Value.ToUpper(); cmd.Parameters.AddWithValue("kode_wilayah_unit", OracleType.VarChar).Value = wilayah_unit.SelectedItem.Value.ToUpper(); cmd.Parameters.AddWithValue("kode_proyek", OracleType.VarChar).Value = Session["kode_proyek"].ToString().ToUpper(); cmd.ExecuteNonQuery(); trans.Commit(); Response.Redirect("~/panitia/InfoProyek.aspx"); conn.Close(); } } protected void cancel_Click(object sender, EventArgs e) { Response.Redirect("~/panitia/InfoProyek.aspx"); } } }

Home_Perusahaan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Home_Perusahaan.aspx.cs" Inherits="TEST.Home_Perusahaan" %>

L258

Selamat datang

<strong>PROFIL PERUSAHAAN

NPWP :

NAMA PERUSAHAAN :

ALAMAT PERUSAHAAN :

TELPON PERUSAHAAN :

FAX PERUSAHAAN :

STATUS PERUSAHAAN :

<strong>DATA PRAKUALIFIKASI YANG SEDANG BERJALAN

L259

" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>"

SelectCommand="SELECT PLN.MASTER_PQ_DATA_DETAIL.KODE_PROYEK, PLN.MASTER_PROYEK.NAMA_PROYEK, PLN.MASTER_PROYEK.TGL_AKHIR_KUALIFIKASI FROM PLN.MASTER_PQ_DATA_DETAIL INNER JOIN PLN.MASTER_PROYEK ON PLN.MASTER_PQ_DATA_DETAIL.KODE_PROYEK = PLN.MASTER_PROYEK.KODE_PROYEK WHERE (PLN.MASTER_PQ_DATA_DETAIL.KODE_PERUSAHAAN = :username)"> <SelectParameters>

Home_Perusahaan.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST { public partial class Home_Perusahaan : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand();

L260 var kodestat=""; cmd.CommandText = "SELECT NAMA_PERUSAHAAN FROM MASTER_PERUSAHAAN WHERE KODE_PERUSAHAAN = '"+Session["username"]+"'"; cmd.Connection = conn; Label1.Text = (string)cmd.ExecuteScalar(); cmd.CommandText="SELECT NPWP, NAMA_PERUSAHAAN, ALAMAT_PERUSAHAAN, TELPON_PERUSAHAAN, FAX_PERUSAHAAN,KODE_STATUS_PERUSAHAAN "+ "FROM MASTER_PERUSAHAAN WHERE KODE_PERUSAHAAN ='"+Session["username"]+"'"; cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { lbl_NPWP.Text = (odr[0].ToString()); lbl_nm_per.Text = (odr[1].ToString()); lbl_al_per.Text = (odr[2].ToString()); lbl_telp.Text = (odr[3].ToString()); lbl_fax.Text = (odr[4].ToString()); kodestat = (odr[5].ToString()); } cmd.CommandText="SELECT NAMA_STATUS_PERUSAHAAN FROM STATUS_PERUSAHAAN WHERE KODE_STATUS_PERUSAHAAN='"+kodestat+"'"; cmd.Connection = conn; lbl_status.Text = (string)cmd.ExecuteScalar(); conn.Close(); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; var kd_proyek = (string)(row.Cells[0].Text); Session.Add("kode_proyek", kd_proyek); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } } }

Home_Proyek_Perusahaan.aspx <%@ Page Title="Proyek" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="Home_Proyek_Perusahaan.aspx.cs" Inherits="TEST.perusahaan.Home_Proyek_Perusahaan" %> Hasil Kualifikasi Sementara :
RINCIAN KUALIFIKASI

L261 " ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT KF1_PAKTA_INTEGRITAS, KF2_PERNYATAAN_MINAT, KF3_KEBENARAN_DATA, KF3A_PERJANJIAN_KEMITRAAN, KF4_DATA_UMUM_PERUSAHAAN, KF5_SURAT_IJIN, KF6_PENDIRIAN_PERUSAHAAN, KF7_KOMISARIS, KF8_DIREKSI, KF9_KEPEMILIKAN_SAHAM, KF10_DATA_PAJAK, KF11_NERACA_PERUSAHAAN, KF12_TENAGA_AHLI, KF13_DATA_PERALATAN, KF15_PENGALAMAN_BIDANG, KF16A_PENGALAMAN_EPC,

L262 KF16B_PENGALAMAN_PROGRES, KF17_PROYEK_BERJALAN, KF18_KEMAMPUAN_FINANSIAL, KF19_SBUJK, KF14_PENGALAMAN_UMUM FROM PLN.FORM_FLAG WHERE (KODE_PQ = :kode_pq)"> <SelectParameters>
DATA PROYEK Nama Proyek : Tanggal Awal Kualifikasi : Tanggal Akhir Kualifikasi : Jenis Proyek : Nominal Proyek : Rp.

L263 Bidang : Sub Bidang : Asal Sumber Dana : Lama Konstruksi : Tahun Jenis Lelang : Provinsi : Kecamatan :

L264 Wilayah : Unit :

Home_Proyek_Perusahaan.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class Home_Proyek_Perusahaan : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { int aa = 0; var user = (String)Session["username"]; var kode_proyek = (String)Session["kode_proyek"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn;

L265 cmd.CommandText = "SELECT KF1_PAKTA_INTEGRITAS, KF2_PERNYATAAN_MINAT, KF3_KEBENARAN_DATA, KF3A_PERJANJIAN_KEMITRAAN, KF4_DATA_UMUM_PERUSAHAAN, KF5_SURAT_IJIN, KF6_PENDIRIAN_PERUSAHAAN, KF7_KOMISARIS, KF8_DIREKSI, KF9_KEPEMILIKAN_SAHAM, KF10_DATA_PAJAK, KF11_NERACA_PERUSAHAAN, KF12_TENAGA_AHLI, KF13_DATA_PERALATAN, KF15_PENGALAMAN_BIDANG, KF16A_PENGALAMAN_EPC, KF16B_PENGALAMAN_PROGRES, KF17_PROYEK_BERJALAN, KF18_KEMAMPUAN_FINANSIAL, KF19_SBUJK, KF14_PENGALAMAN_UMUM from FORM_FLAG where kode_pq = '"+Session["kode_pq"]+"'"; OracleDataReader odrr = cmd.ExecuteReader(); while (odrr.Read()) { aa += Convert.ToInt32(odrr[0].ToString()) + Convert.ToInt32(odrr[1].ToString()) + Convert.ToInt32(odrr[2].ToString()) + Convert.ToInt32(odrr[3].ToString()) + Convert.ToInt32(odrr[4].ToString()) + Convert.ToInt32(odrr[5].ToString()) + Convert.ToInt32(odrr[6].ToString()) + Convert.ToInt32(odrr[7].ToString()) + Convert.ToInt32(odrr[8].ToString()) + Convert.ToInt32(odrr[9].ToString()) + Convert.ToInt32(odrr[10].ToString()) + Convert.ToInt32(odrr[11].ToString()) + Convert.ToInt32(odrr[12].ToString()) + Convert.ToInt32(odrr[13].ToString()) + Convert.ToInt32(odrr[14].ToString()) + Convert.ToInt32(odrr[15].ToString()) + Convert.ToInt32(odrr[16].ToString()) + Convert.ToInt32(odrr[17].ToString()) + Convert.ToInt32(odrr[18].ToString()) + Convert.ToInt32(odrr[19].ToString()) + Convert.ToInt32(odrr[20].ToString()); if (aa == 21) Lbl_Hasil.Text = "Lolos"; else Lbl_Hasil.Text = "Belum lolos"; }

cmd.CommandText = "SELECT nama_proyek,tgl_awal_kualifikasi,tgl_akhir_kualifikasi, JENIS_PROYEK.nama_jenis_proyek," + "nominal, BIDANG_PROYEK.nama_bidang, asal_sumber_dana, lama_konstruksi," + "jenis_lelang, LOKASI_PROYEK.nama_lokasi_proyek, WILAYAH_UNIT.nama_wilayah_unit " + "FROM MASTER_PROYEK, JENIS_PROYEK, BIDANG_PROYEK, LOKASI_PROYEK, WILAYAH_UNIT " + "WHERE MASTER_PROYEK.kode_jenis_proyek = JENIS_PROYEK.kode_jenis_proyek and " + "MASTER_PROYEK.kode_bidang = BIDANG_PROYEK.kode_bidang and " + "MASTER_PROYEK.kode_lokasi_proyek = LOKASI_PROYEK.kode_lokasi_proyek and " + "MASTER_PROYEK.kode_wilayah_unit = WILAYAH_UNIT.kode_wilayah_unit and " + "MASTER_PROYEK.kode_proyek = '"+ kode_proyek +"'"; OracleDataReader odr = cmd.ExecuteReader(); while(odr.Read()) { Nama_Proyek.Text = (odr[0].ToString()); Awal_Kualifikasi.Text = (odr[1].ToString()); Akhir_Kualifikasi.Text = (odr[2].ToString()); Jenis_Proyek.Text = (odr[3].ToString()); Nominal_Proyek.Text = (odr[4].ToString()); Sub_Bidang.Text = (odr[5].ToString()); Asal_Sumber_Dana.Text = (odr[6].ToString()); Lama_Konstruksi.Text = (odr[7].ToString()); Jenis_Lelang.Text = (odr[8].ToString()); Kecamatan.Text = (odr[9].ToString());

L266 Unit.Text = (odr[10].ToString()); } cmd.CommandText = "SELECT b.nama_bidang FROM MASTER_PROYEK,BIDANG_PROYEK a, BIDANG_PROYEK b " + "WHERE MASTER_PROYEK.kode_bidang = a.kode_bidang and " + "a.kode_induk_bidang = b.kode_bidang and " + "MASTER_PROYEK.kode_proyek = '"+kode_proyek+"'"; odr = cmd.ExecuteReader(); while (odr.Read()) { Bidang.Text = (odr[0].ToString()); } cmd.CommandText = "SELECT b.nama_lokasi_proyek FROM MASTER_PROYEK,LOKASI_PROYEK a, LOKASI_PROYEK b " + "WHERE MASTER_PROYEK.kode_lokasi_proyek = a.kode_lokasi_proyek and " + "a.kode_induk_lokasi_proyek = b.kode_lokasi_proyek and " + "MASTER_PROYEK.kode_proyek = '" + kode_proyek + "'"; odr = cmd.ExecuteReader(); while (odr.Read()) { Provinsi.Text = (odr[0].ToString()); } cmd.CommandText = "SELECT b.nama_wilayah_unit FROM MASTER_PROYEK,WILAYAH_UNIT a, WILAYAH_UNIT b " + "WHERE MASTER_PROYEK.kode_wilayah_unit = a.kode_wilayah_unit and " + "a.kode_induk_wilayah_unit = b.kode_wilayah_unit and " + "MASTER_PROYEK.kode_proyek = '" + kode_proyek + "'"; odr = cmd.ExecuteReader(); while (odr.Read()) { Wilayah.Text = (odr[0].ToString()); } //// OracleCommand test = new OracleCommand(); test.Connection = conn; test.CommandText = "SELECT NAMA_PROYEK FROM MASTER_PROYEK WHERE kode_proyek = '" + kode_proyek + "'"; Nama_Proyek.Text = (string)test.ExecuteScalar(); //// cmd.CommandText = "SELECT kode_partisipan FROM MASTER_PARTISIPAN WHERE kode_proyek = '"+kode_proyek+"' and kode_perusahaan = '"+user+"'"; var kode_partisipan = (String)cmd.ExecuteScalar(); Session.Add("kode_partisipan", kode_partisipan);

cmd.CommandText = "SELECT kode_pq FROM MASTER_PQ_DATA_DETAIL WHERE kode_proyek = '" + kode_proyek + "' and kode_perusahaan = '" + user + "'"; var kode_pq = (String)cmd.ExecuteScalar(); Session.Add("kode_pq", kode_pq);

L267 conn.Close(); } } }

KF1_Pakta_Integritas.aspx <%@ Page Title="KF1 Pakta Integritas" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF1_Pakta_Integritas.aspx.cs" Inherits="TEST.perusahaan.KF1_Pakta_Integritas" %>
" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT NO_KTP, KODE_TIPE_PEGAWAI, NAMA_PEGAWAI, POSISI_PEGAWAI, KODE_PERUSAHAAN FROM PLN.MASTER_PEGAWAI WHERE ((KODE_TIPE_PEGAWAI LIKE 'TP1') OR (KODE_TIPE_PEGAWAI LIKE 'TP2')) AND (KODE_PERUSAHAAN = :kode_perusahaan) ORDER BY NAMA_PEGAWAI"> <SelectParameters> Nama : Jabatan :

L268

KF1_Pakta_Integritas.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF1_Pakta_Integritas : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var user = (String)Session["username"]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; string[] perusahaan = new string[200]; int[] persentase = new int[200]; int cur_persentase = 0; int count = 0; int i = 0; int j = 0; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT POSISI_PEGAWAI FROM (SELECT * FROM master_pegawai ORDER BY nama_pegawai) WHERE rownum <2 and kode_perusahaan = '" + user + "' AND KODE_TIPE_PEGAWAI LIKE 'TP1' OR KODE_TIPE_PEGAWAI LIKE 'TP2'"; var jbtn = (String)cmd.ExecuteScalar();

L269 jabatan.Text = jbtn; cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '"+kode_partisipan+"' AND KODE_PERUSAHAAN NOT LIKE '"+user+"'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[i] = (odr[0].ToString()); i++; } for (j = 0; j < i; j++) { cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PERUSAHAAN = '"+perusahaan[j]+"' AND KODE_PROYEK = '"+kode_proyek+"'"; persentase[j] = Convert.ToInt32(cmd.ExecuteScalar()); } cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '"+kode_pq+"'"; cur_persentase = Convert.ToInt32(cmd.ExecuteScalar()); for (i = 0; i < j; i++) { if (cur_persentase < persentase[i]) { count++; } } if (count != 0) { Submit.Visible = false; no_ktp.Visible = false; jabatan.Visible = false; Table1.Visible = false; errLbl.Visible = true; } else { Submit.Visible = true; no_ktp.Visible = true; jabatan.Visible = true; Table1.Visible = true; errLbl.Visible = false; } conn.Close(); } protected void nama_SelectedIndexChanged(object sender, EventArgs e) { var no_ktp2 = no_ktp.Text; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT POSISI_PEGAWAI FROM master_pegawai WHERE NO_KTP like '" + no_ktp2 + "' AND KODE_TIPE_PEGAWAI IN('TP1','TP2')", conn); var jbtn = (String)cmd.ExecuteScalar(); jabatan.Text = jbtn;

L270 conn.Close(); } protected void submit_click(object sender, EventArgs e) { var no_ktp3 = no_ktp.Text; var kode_komisaris_direksi = ""; var komdir_chk = ""; int len = 0; int x = 0; int z = 0; string[] perusahaan = new string[200]; string[] all_pq = new string[200]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var kode_perusahaan = (String)Session["username"]; var kode_pq = (String)Session["kode_pq"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd1 = new OracleCommand("select COUNT(*) from KOMISARIS_DIREKSI", conn); int i = Convert.ToInt32(cmd1.ExecuteScalar()); if (i == 0) { kode_komisaris_direksi = "KD1"; } else { OracleCommand cmd2 = new OracleCommand("SELECT KODE_KOMISARIS_DIREKSI FROM (SELECT KODE_KOMISARIS_DIREKSI FROM KOMISARIS_DIREKSI ORDER BY LENGTH(KODE_KOMISARIS_DIREKSI) DESC,KODE_KOMISARIS_DIREKSI DESC ) WHERE ROWNUM <2 ORDER BY KODE_KOMISARIS_DIREKSI DESC", conn); kode_komisaris_direksi = (String)cmd2.ExecuteScalar(); len = kode_komisaris_direksi.Length; kode_komisaris_direksi = "KD" + (Convert.ToInt32(kode_komisaris_direksi.Substring(2, len - 2)) + 1).ToString(); } OracleCommand cmd3 = new OracleCommand("SELECT KODE_TIPE_PEGAWAI FROM master_pegawai WHERE NO_KTP like '" + no_ktp3 + "'", conn); var tipe = (String)cmd3.ExecuteScalar(); OracleCommand cmd4 = new OracleCommand("SELECT NAMA_PEGAWAI FROM master_pegawai WHERE NO_KTP like '" + no_ktp3 + "'", conn); var nama = (String)cmd4.ExecuteScalar(); OracleCommand cmd5 = new OracleCommand(); cmd5.Connection = conn; OracleCommand cmdcond = new OracleCommand(); cmdcond.Connection = conn; cmdcond.CommandText = "SELECT KODE_KOMISARIS_DIREKSI FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '"+kode_pq+"'"; komdir_chk = cmdcond.ExecuteScalar().ToString(); if (komdir_chk == "" || komdir_chk == null) {

L271 cmd5.CommandText = "INSERT INTO komisaris_direksi(KODE_KOMISARIS_DIREKSI,KODE_TIPE_PEGAWAI,NO_KTP,NAMA) VALUES(:kode,:tipe,:ktp,:nama)"; cmd5.Parameters.AddWithValue("kode", OracleType.VarChar).Value = kode_komisaris_direksi; cmd5.Parameters.AddWithValue("tipe", OracleType.VarChar).Value = tipe; cmd5.Parameters.AddWithValue("ktp", OracleType.VarChar).Value = no_ktp3; cmd5.Parameters.AddWithValue("nama", OracleType.VarChar).Value = nama; cmd5.ExecuteNonQuery(); OracleCommand cmd7 = new OracleCommand("UPDATE MASTER_PQ_DATA_DETAIL SET KODE_KOMISARIS_DIREKSI = '" + kode_komisaris_direksi + "' WHERE kode_pq = '" + kode_pq + "'", conn); cmd7.ExecuteNonQuery(); } else { cmd5.CommandText = "UPDATE komisaris_direksi SET KODE_TIPE_PEGAWAI = '" + tipe + "', NO_KTP = '" + no_ktp3 + "', NAMA = '" + nama + "' WHERE KODE_KOMISARIS_DIREKSI = '" + komdir_chk + "'"; cmd5.ExecuteNonQuery(); } OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[x] = (odr[0].ToString()); x++; } for (z = 0; z < x; z++) { cmd.CommandText = "SELECT KODE_PQ FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_PERUSAHAAN = '" + perusahaan[z] + "'"; all_pq[z]= (String)cmd.ExecuteScalar(); } OracleCommand cmd6 = new OracleCommand(); cmd6.Connection = conn; for (z = 0; z < x; z++) { cmd6.CommandText = "UPDATE FORM_FLAG SET KF1_PAKTA_INTEGRITAS = 1, KF2_PERNYATAAN_MINAT = 0, KF3_KEBENARAN_DATA = 0 WHERE KODE_PQ = '"+all_pq[z]+"'"; cmd6.ExecuteNonQuery(); }

conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); }

L272 protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF10_Data_Pajak.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF10_Data_Pajak.aspx.cs" Inherits="TEST.perusahaan.KF10_Data_Pajak" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> Data Pajak NPWP : Nomor SPT : Tanggal SPT :

L273
Laporan 3 Bulan Terakhir Laporan Bulan : : Laporan Bulan

L274 : : Laporan Bulan : :

L275
<% if (Request.QueryString["err1"] != null) { Response.Write(Request.QueryString["err"]); } %>

KF10_Data_Pajak.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF10_Data_Pajak : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) {

L276 var kode_pq = (String)Session["kode_pq"]; var kode_perusahaan = (String)Session["username"]; var kode_proyek = (String)Session["kode_proyek"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT NPWP FROM MASTER_PERUSAHAAN WHERE KODE_PERUSAHAAN = '"+kode_perusahaan+"'"; NPWP.Text = (String)cmd.ExecuteScalar(); conn.Close(); } protected void Tambah_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; var kode_perusahaan = (String)Session["username"]; var kode_proyek = (String)Session["kode_proyek"]; var no_spt = No_SPT.Text; var tgl_spt = Tgl_SPT.Text; int bulan1; var var var var var

spt = ""; spt_tgl=""; nm_bulan1 = ""; nm_bulan2 = ""; nm_bulan3 = "";

if (No_SPT.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=No SPT belum diisi"); else if (Tgl_SPT.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=Tanggal SPT belum diisi"); OracleConnection conn = new OracleConnection(con.conDb());

conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT NO_SPT from MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '"+kode_pq+"'"; spt = Convert.ToString(cmd.ExecuteScalar()); if (spt.Length > 1) { cmd.CommandText = "DELETE DATA_PAJAK WHERE NO_SPT = '"+spt+"'"; cmd.ExecuteNonQuery(); } cmd.CommandText = "INSERT INTO DATA_PAJAK(NO_SPT,SPT_TGL_TERBIT) VALUES('"+no_spt+"','"+tgl_spt+"')"; cmd.ExecuteNonQuery(); cmd.CommandText =

L277 "UPDATE MASTER_PQ_DATA_DETAIL SET NO_SPT = '"+no_spt+"' WHERE KODE_PQ = '"+kode_pq+"'"; cmd.ExecuteNonQuery(); cmd.CommandText= "UPDATE FORM_FLAG SET KF10_DATA_PAJAK = 0 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); cmd.CommandText = "SELECT TGL_AWAL_KUALIFIKASI FROM MASTER_PROYEK WHERE KODE_PROYEK = '"+kode_proyek+"'"; DateTime tgl = (DateTime)cmd.ExecuteScalar(); int tgl_spt2 = tgl.Month; if (tgl_spt2 < 4) { bulan1 = 2; if (tgl_spt2 < 3) { bulan1 = 1; if (tgl_spt2 < 2) { bulan1 = 12; } } } else { bulan1 = tgl_spt2 -1; } if (bulan1 == 12) { nm_bulan1 = "Desember"; nm_bulan2 = "November"; nm_bulan3 = "Oktober"; } else if (bulan1 == 11) { nm_bulan1 = "November"; nm_bulan2 = "Oktober"; nm_bulan3 = "September"; } else if (bulan1 == 10) { nm_bulan1 = "Oktober"; nm_bulan2 = "September"; nm_bulan3 = "Agustus"; } else if (bulan1 == 9) { nm_bulan1 = "September"; nm_bulan2 = "Agustus"; nm_bulan3 = "Juli"; } else if (bulan1 == 8) { nm_bulan1 = "Agustus";

L278 nm_bulan2 = "Juli"; nm_bulan3 = "Juni"; } else if (bulan1 { nm_bulan1 = nm_bulan2 = nm_bulan3 = } else if (bulan1 { nm_bulan1 = nm_bulan2 = nm_bulan3 = } else if (bulan1 { nm_bulan1 = nm_bulan2 = nm_bulan3 = } else if (bulan1 { nm_bulan1 = nm_bulan2 = nm_bulan3 = } else if (bulan1 { nm_bulan1 = nm_bulan2 = nm_bulan3 = } else if (bulan1 { nm_bulan1 = nm_bulan2 = nm_bulan3 = } else if (bulan1 { nm_bulan1 = nm_bulan2 = nm_bulan3 = }

== 7) "Juli"; "Juni"; "Mei"; == 6) "Juni"; "Mei"; "April"; == 5) "Mei"; "April"; "Maret"; == 4) "April"; "Maret"; "Februari"; == 3) "Maret"; "Februari"; "Januari"; == 2) "Februari"; "Januari"; "Desember"; == 1) "Januari"; "Desember"; "November";

bln_lap1.Text = nm_bulan1; bln_lap2.Text = nm_bulan2; bln_lap3.Text = nm_bulan3; Table2.Visible = true; conn.Close(); } protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; var kode_perusahaan = (String)Session["username"]; var kode_proyek = (String)Session["kode_proyek"]; var tgl_lap1 = Tgl_lap1_txt.Text;

L279 var var var var var var var var var

tgl_lap2 = Tgl_lap2_txt.Text; tgl_lap3 = Tgl_lap3_txt.Text; no_lap1 = No_lap1_txt.Text; no_lap2 = No_lap2_txt.Text; no_lap3 = No_lap3_txt.Text; nm_bln1 = bln_lap1.Text; nm_bln2 = bln_lap2.Text; nm_bln3 = bln_lap3.Text; no_spt = No_SPT.Text;

if (No_lap1_txt.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=No laporan bulan pertama belum diisi"); else if (Tgl_lap1_lbl.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=Tanggal pada laporan pertama belum lengkap diisi"); else if (No_lap2_txt.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=No laporan bulan kedua belum diisi"); else if (Tgl_lap2_lbl.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=Tanggal pada laporan kedua belum lengkap diisi"); else if (No_lap3_txt.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=No laporan bulan ketiga belum diisi"); else if (Tgl_lap3_txt.Text == "") Response.Redirect("~/Perusahaan/KF10_Data_Pajak.aspx?err=Tanggal pada laporan ketiga belum lengkap diisi");

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "UPDATE DATA_PAJAK SET BULAN_NAMA_1 = '"+nm_bln1+"', BULAN_NAMA_2 = '"+nm_bln2+"', BULAN_NAMA_3 = '"+nm_bln3+"', " + "LAPORAN_BULANAN_1_NO = '"+no_lap1+"', LAPORAN_BULANAN_2_NO = '"+no_lap2+"', LAPORAN_BULANAN_3_NO = '"+no_lap3+"', " + "LAPORAN_BULANAN_1_TGL = '"+tgl_lap1+"', LAPORAN_BULANAN_2_TGL = '"+tgl_lap2+"', LAPORAN_BULANAN_3_TGL = '"+tgl_lap3+"'" + "WHERE NO_SPT = '"+no_spt+"'"; cmd.ExecuteNonQuery(); cmd.CommandText = "UPDATE FORM_FLAG SET KF10_DATA_PAJAK = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); }

L280

} }

KF11_Neraca_Perusahaan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF11_Neraca_Perusahaan.aspx.cs" Inherits="TEST.KF18_Kemampuan_Finansial" %> NERACA PERUSAHAAN

L282

L283

L284

L285

L286

I Aktiva Lancar

Kas Rp.

Bank

L281 Rp.

Piutang Rp.

Persediaan Barang Rp.

Pekerjaan Dalam Proses Rp.

Jumlah (a) Rp

II Aktiva Tetap (Netto)

Peralatan dan Mesin Rp.

Inventaris Rp.

Gedung-Gedung Rp.

Jumlah (b) Rp

III Aktiva Lainnya (c) Rp

IV Utang Jangka Pendek

Utang Dagang Rp

Utang Pajak Rp

Utang Lainnya Rp

Jumlah (d) Rp

V Utang Jangka Panjang (e)

L287 Rp

JUMLAH (a+b+c)-(d+e) Rp


L288

KF11_Neraca_Perusahaan.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST { public partial class KF18_Kemampuan_Finansial : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT count(KODE_NERACA_PERUSAHAAN) FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '" + Session["kode_pq"] + "'"; cmd.Connection = conn; conn.Open(); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i != 0) //KALAU PUNYA KODE NERACA PERUSAHAAN { cmd.CommandText = "SELECT KODE_NERACA_PERUSAHAAN FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '" + Session["kode_pq"] + "'"; var a = cmd.ExecuteScalar(); cmd.CommandText = "SELECT * FROM NERACA_PERUSAHAAN WHERE KODE_NERACA_PERUSAHAAN = '" + a + "'"; OracleDataReader odr = cmd.ExecuteReader();

L289 while (odr.Read()) { txtb_kas.Text = odr[1].ToString(); txtb_Bank.Text = odr[2].ToString(); txtb_Piutang.Text = odr[3].ToString(); txtb_utang_pjg.Text = odr[4].ToString(); txtb_pers_brg.Text = odr[5].ToString(); txtb_pek_dlm_pro.Text = odr[6].ToString(); txtb_prltn_mesin.Text = odr[7].ToString(); txtb_inventaris.Text = odr[8].ToString(); txtb_ged.Text = odr[9].ToString(); txtb_jmlh_c.Text = odr[10].ToString(); txtb_pajak.Text = odr[11].ToString(); txtb_utang_lain.Text = odr[12].ToString(); txtb_Utang_Dagang.Text = odr[14].ToString(); txtb_jmlh_a.Text = Convert.ToString(Convert.ToInt32(txtb_Bank.Text) + Convert.ToInt32(txtb_kas.Text) + Convert.ToInt32(txtb_Piutang.Text) + Convert.ToInt32(txtb_pers_brg.Text) + Convert.ToInt32(txtb_pek_dlm_pro.Text)); txtb_jmlh_b.Text = Convert.ToString(Convert.ToInt32(txtb_prltn_mesin.Text) + Convert.ToInt32(txtb_inventaris.Text) + Convert.ToInt32(txtb_ged.Text)); txtb_jmlh_d.Text = Convert.ToString(Convert.ToInt32(txtb_Utang_Dagang.Text) + Convert.ToInt32(txtb_pajak.Text) + Convert.ToInt32(txtb_utang_lain.Text)); txtb_total_jumlah.Text = Convert.ToString(Convert.ToInt32(txtb_jmlh_a.Text) + Convert.ToInt32(txtb_jmlh_b.Text) + Convert.ToInt32(txtb_jmlh_c.Text) (Convert.ToInt32(txtb_jmlh_d.Text) + Convert.ToInt32(txtb_utang_pjg.Text)));

txtb_kas.Enabled = false; txtb_Bank.Enabled = false; txtb_Piutang.Enabled = false; txtb_utang_pjg.Enabled = false; txtb_pers_brg.Enabled = false; txtb_pek_dlm_pro.Enabled = false; txtb_prltn_mesin.Enabled = false; txtb_inventaris.Enabled = false; txtb_ged.Enabled = false; txtb_jmlh_c.Enabled = false; txtb_pajak.Enabled = false; txtb_utang_lain.Enabled = false; txtb_Utang_Dagang.Enabled = false; Submit.Visible = false; Delete.Visible = true; } conn.Close(); }

else { conn.Close(); Delete.Visible = false; Submit.Visible = true;

L290 }

} protected void txtb_kas_TextChanged(object sender, EventArgs e) { } protected void Submit_Click(object sender, EventArgs e) { //BELUM ADA VALIDASI HARUS ANGKA, CODINGAN DIBAWAH INI GA TAU NAPA TIBA TIBA GA JALAN //bool val = System.Text.RegularExpressions.Regex.IsMatch(txtb_kas.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka1"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_Bank.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka2"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_Piutang.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka3"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_pers_brg.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka4"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_pek_dlm_pro.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka5"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_prltn_mesin.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka6"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_inventaris.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka7"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_ged.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka8"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_Utang_Dagang.Text, @"\d[09]+");

L291 //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka9"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_pajak.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka0"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_utang_lain.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka--"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_utang_pjg.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka---"); //val = System.Text.RegularExpressions.Regex.IsMatch(txtb_jmlh_c.Text, @"\d[0-9]+"); //if (val == false) Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data yang diinput harus berupa angka----");

if (txtb_kas.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_Bank.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_Piutang.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_pers_brg.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_pek_dlm_pro.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_prltn_mesin.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_inventaris.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_ged.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_Utang_Dagang.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_pajak.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi"); else if (txtb_utang_lain.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data lengkap diisi");

belum

belum

belum

belum

belum

belum

belum

belum

belum

belum

belum

L292 else if (txtb_utang_pjg.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data belum lengkap diisi"); else if (txtb_jmlh_c.Text == "") Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Data belum lengkap diisi");

var kode_NP = ""; var kode_NP_lama = ""; int len = 0; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("select COUNT(*) from NERACA_PERUSAHAAN",conn); int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { kode_NP = "NP1"; } else { cmd.Connection = conn; cmd.CommandText = "SELECT KODE_NERACA_PERUSAHAAN FROM (SELECT KODE_NERACA_PERUSAHAAN FROM NERACA_PERUSAHAAN ORDER BY LENGTH(KODE_NERACA_PERUSAHAAN) DESC,KODE_NERACA_PERUSAHAAN DESC ) WHERE ROWNUM <2 ORDER BY KODE_NERACA_PERUSAHAAN DESC"; kode_NP = (String)cmd.ExecuteScalar(); len = kode_NP.Length; kode_NP = "NP" + (Convert.ToInt32(kode_NP.Substring(2, len - 2)) + 1).ToString(); }

cmd.CommandText = "SELECT count(KODE_NERACA_PERUSAHAAN) FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ ='" + Session["kode_pq"] + "'"; cmd.Connection = conn; i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) // KALAU BELUM PERNAH MEMASUKKAN DATA NERACA PERUSAHAAN { cmd.CommandText = "INSERT INTO NERACA_PERUSAHAAN VALUES ('" + kode_NP + "','" + txtb_kas.Text + "','" + txtb_Bank.Text + "','" + txtb_Piutang.Text + "','" + txtb_utang_pjg.Text + "','" + txtb_pers_brg.Text + "','" + txtb_pek_dlm_pro.Text + "','" + txtb_prltn_mesin.Text + "','" + txtb_inventaris.Text + "','" + txtb_ged.Text + "','" + txtb_jmlh_c.Text + "','" + txtb_pajak.Text + "','" + txtb_utang_lain.Text + "','0','" + txtb_Utang_Dagang.Text + "')"; cmd.Connection = conn; cmd.ExecuteNonQuery(); cmd.CommandText = "UPDATE MASTER_PQ_DATA_DETAIL SET KODE_NERACA_PERUSAHAAN ='" + kode_NP + "' WHERE KODE_PQ = '" + Session["kode_pq"] + "'"; cmd.Connection = conn; cmd.ExecuteNonQuery();

L293

cmd.CommandText = "UPDATE FORM_FLAG SET KF11_NERACA_PERUSAHAAN = '1' WHERE KODE_PQ = '" + Session["kode_pq"] + "'"; cmd.ExecuteNonQuery();

Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx?err=Pemasukan data berhasil"); } } protected void Delete_Click(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); OracleCommand cmd = new OracleCommand(); conn.Open(); cmd.CommandText = "SELECT KODE_NERACA_PERUSAHAAN FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '" + Session["kode_pq"] + "'"; cmd.Connection = conn; var a = cmd.ExecuteScalar(); cmd.CommandText = "DELETE FROM NERACA_PERUSAHAAN WHERE KODE_NERACA_PERUSAHAAN = '"+a+"'"; cmd.ExecuteNonQuery(); cmd.CommandText = "UPDATE MASTER_PQ_DATA_DETAIL SET KODE_NERACA_PERUSAHAAN = '' WHERE KODE_PQ = '"+Session["kode_pq"]+"'"; cmd.ExecuteNonQuery(); cmd.CommandText = "UPDATE FORM_FLAG SET KF11_NERACA_PERUSAHAAN = '' WHERE KODE_PQ = '" + Session["kode_pq"] + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF11_Neraca_Perusahaan.aspx");

} } }

KF12_Tenaga_Ahli.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF12_Tenaga_Ahli.aspx.cs" Inherits="TEST.perusahaan.KF12_Tenaga_Ahli" %> Tenaga Ahli

L294 Nama : Nomor KTP : Keahlian : Pengalaman : Tahun
<%

L295 if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>
KEBUTUHAN TENAGA AHLI

____________________________________________________________________________

Daftar Tenaga Ahli Yang Disimpan

L296 " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT PLN.TENAGA_AHLI.NO_KTP_PEGAWAI, PLN.KEAHLIAN.NAMA_KEAHLIAN, PLN.TENAGA_AHLI.LAMA_PENGALAMAN FROM PLN.TENAGA_AHLI INNER JOIN PLN.KEAHLIAN ON PLN.TENAGA_AHLI.KODE_KEAHLIAN = PLN.KEAHLIAN.KODE_KEAHLIAN WHERE (PLN.TENAGA_AHLI.KODE_PQ = :kode_pq)"> <SelectParameters> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NO_KTP, NAMA_PEGAWAI, KODE_TIPE_PEGAWAI, KODE_KEAHLIAN FROM PLN.MASTER_PEGAWAI WHERE KODE_PERUSAHAAN = :kode_perusahaan AND KODE_TIPE_PEGAWAI = 'TP3' ORDER BY NAMA_PEGAWAI"> <SelectParameters> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT PLN.KEAHLIAN.NAMA_KEAHLIAN, PLN.KEBUTUHAN_TENAGA_AHLI.JUMLAH_TENAGA_AHLI FROM PLN.KEBUTUHAN_TENAGA_AHLI INNER JOIN PLN.KEAHLIAN ON PLN.KEBUTUHAN_TENAGA_AHLI.KODE_KEAHLIAN = PLN.KEAHLIAN.KODE_KEAHLIAN WHERE (PLN.KEBUTUHAN_TENAGA_AHLI.KODE_PROYEK = :kode_proyek)"> <SelectParameters>

KF12_Tenaga_Ahli.aspx.cs <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF12_Tenaga_Ahli.aspx.cs" Inherits="TEST.perusahaan.KF12_Tenaga_Ahli" %> Tenaga Ahli

L297 Nama : Nomor KTP : Keahlian : Pengalaman : Tahun
<%

L298 if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>
KEBUTUHAN TENAGA AHLI

____________________________________________________________________________

Daftar Tenaga Ahli Yang Disimpan

L299 " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT PLN.TENAGA_AHLI.NO_KTP_PEGAWAI, PLN.KEAHLIAN.NAMA_KEAHLIAN, PLN.TENAGA_AHLI.LAMA_PENGALAMAN FROM PLN.TENAGA_AHLI INNER JOIN PLN.KEAHLIAN ON PLN.TENAGA_AHLI.KODE_KEAHLIAN = PLN.KEAHLIAN.KODE_KEAHLIAN WHERE (PLN.TENAGA_AHLI.KODE_PQ = :kode_pq)"> <SelectParameters> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NO_KTP, NAMA_PEGAWAI, KODE_TIPE_PEGAWAI, KODE_KEAHLIAN FROM PLN.MASTER_PEGAWAI WHERE KODE_PERUSAHAAN = :kode_perusahaan AND KODE_TIPE_PEGAWAI = 'TP3' ORDER BY NAMA_PEGAWAI"> <SelectParameters> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT PLN.KEAHLIAN.NAMA_KEAHLIAN, PLN.KEBUTUHAN_TENAGA_AHLI.JUMLAH_TENAGA_AHLI FROM PLN.KEBUTUHAN_TENAGA_AHLI INNER JOIN PLN.KEAHLIAN ON PLN.KEBUTUHAN_TENAGA_AHLI.KODE_KEAHLIAN = PLN.KEAHLIAN.KODE_KEAHLIAN WHERE (PLN.KEBUTUHAN_TENAGA_AHLI.KODE_PROYEK = :kode_proyek)"> <SelectParameters>

KF13_Data_Peralatan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF13_Data_Peralatan.aspx.cs" Inherits="TEST.perusahaan.KF13_Data_Peralatan" %> Data Peralatan Perusahaan

L300 Nama Alat : Merk/Tipe : Tahun Pembuatan : Kondisi : Baik Rusak Lokasi

L301 : Bukti Kepemilikan : Milik Sewa Jumlah Alat :
KEBUTUHAN PERALATAN

L302

"

L303 ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>"

SelectCommand="SELECT PLN.DATA_PERALATAN_PERUSAHAAN.KODE_ALAT, PLN.DATA_PERALATAN.NAMA_ALAT, PLN.DATA_PERALATAN_PERUSAHAAN.TAHUN_PEMBUATAN, PLN.DATA_PERALATAN_PERUSAHAAN.KONDISI, PLN.DATA_PERALATAN_PERUSAHAAN.MERK_TIPE, PLN.DATA_PERALATAN_PERUSAHAAN.LOKASI_ALAT, PLN.DATA_PERALATAN_PERUSAHAAN.BUKTI_KEPEMILIKAN, PLN.DATA_PERALATAN_PERUSAHAAN.JUMLAH_ALAT FROM PLN.DATA_PERALATAN_PERUSAHAAN INNER JOIN PLN.DATA_PERALATAN ON PLN.DATA_PERALATAN_PERUSAHAAN.KODE_ALAT = PLN.DATA_PERALATAN.KODE_ALAT WHERE PLN.DATA_PERALATAN_PERUSAHAAN.KODE_PQ = :kode_pq"> <SelectParameters> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT KODE_ALAT, NAMA_ALAT FROM PLN.DATA_PERALATAN"> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>"

SelectCommand="SELECT PLN.DATA_PERALATAN.NAMA_ALAT, PLN.KEBUTUHAN_PERALATAN.JUMLAH_ALAT, PLN.KEBUTUHAN_PERALATAN.KAPASITAS FROM PLN.KEBUTUHAN_PERALATAN INNER JOIN PLN.DATA_PERALATAN ON PLN.KEBUTUHAN_PERALATAN.KODE_ALAT = PLN.DATA_PERALATAN.KODE_ALAT WHERE (PLN.KEBUTUHAN_PERALATAN.KODE_PROYEK = :kode_proyek)"> <SelectParameters>

KF13_Data_Peralatan.aspx.cs <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF13_Data_Peralatan.aspx.cs" Inherits="TEST.perusahaan.KF13_Data_Peralatan" %> Data Peralatan Perusahaan

L304 Nama Alat : Merk/Tipe : Tahun Pembuatan : Kondisi : Baik Rusak Lokasi

L305 : Bukti Kepemilikan : Milik Sewa Jumlah Alat :
KEBUTUHAN PERALATAN

L306

"

L307 ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>"

SelectCommand="SELECT PLN.DATA_PERALATAN_PERUSAHAAN.KODE_ALAT, PLN.DATA_PERALATAN.NAMA_ALAT, PLN.DATA_PERALATAN_PERUSAHAAN.TAHUN_PEMBUATAN, PLN.DATA_PERALATAN_PERUSAHAAN.KONDISI, PLN.DATA_PERALATAN_PERUSAHAAN.MERK_TIPE, PLN.DATA_PERALATAN_PERUSAHAAN.LOKASI_ALAT, PLN.DATA_PERALATAN_PERUSAHAAN.BUKTI_KEPEMILIKAN, PLN.DATA_PERALATAN_PERUSAHAAN.JUMLAH_ALAT FROM PLN.DATA_PERALATAN_PERUSAHAAN INNER JOIN PLN.DATA_PERALATAN ON PLN.DATA_PERALATAN_PERUSAHAAN.KODE_ALAT = PLN.DATA_PERALATAN.KODE_ALAT WHERE PLN.DATA_PERALATAN_PERUSAHAAN.KODE_PQ = :kode_pq"> <SelectParameters> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT KODE_ALAT, NAMA_ALAT FROM PLN.DATA_PERALATAN"> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>"

SelectCommand="SELECT PLN.DATA_PERALATAN.NAMA_ALAT, PLN.KEBUTUHAN_PERALATAN.JUMLAH_ALAT, PLN.KEBUTUHAN_PERALATAN.KAPASITAS FROM PLN.KEBUTUHAN_PERALATAN INNER JOIN PLN.DATA_PERALATAN ON PLN.KEBUTUHAN_PERALATAN.KODE_ALAT = PLN.DATA_PERALATAN.KODE_ALAT WHERE (PLN.KEBUTUHAN_PERALATAN.KODE_PROYEK = :kode_proyek)"> <SelectParameters>

KF14_Pengalaman_Umum.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF14_Pengalaman_Umum.aspx.cs" Inherits="TEST.perusahaan.KF14_Pengalaman_Umum" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>

L308 Data Pengalaman Umum Perusahaan Nama Pekerjaan : Nomor Kontrak : Tanggal Kontrak : Nilai Kontrak :

L309 Lokasi Pekerjaan : Nama Pemberi Tugas : Tanggal Selesai Kontrak : BA Serah Terima :

L310

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA_PEKERJAAN, LOKASI_PEKERJAAN, NAMA_PEMBERI_TUGAS, NO_KONTRAK, TGL_KONTRAK, NILAI_KONTRAK, TGL_SELESAI_KONTRAK,

L311 BA_SERAH_TERIMA FROM PLN.PENGALAMAN_PERUSAHAAN WHERE (KODE_TIPE_PENGALAMAN = 'KTP1') AND (KODE_PQ = :kode_pq)"> <SelectParameters>

KF14_Pengalaman_Umum.aspx.cs using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF14_Pengalaman_Umum : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_tipe_pengalaman = "KTP1"; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else {

L312 cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; String tahun = cmd.ExecuteScalar().ToString(); TahunLbl.Text = tahun + " Tahun Terakhir"; } conn.Close();

}

protected void Tambah_Click(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; var kode_pengalaman = ""; var kode_tipe_pengalaman = "KTP1"; var nama_pekerjaan = Nama_pekerjaan.Text; var lokasi = Lokasi.Text; var nama_pemberi = Nama_Pemberi_Tugas.Text; var no_kontrak = No_Kontrak.Text; var nilai = Nilai.Text; var tanggal_kontrak = Tgl_Kontrak.Text; var tanggal_selesai = Tgl_Selesai_Kontrak.Text; var ba = BA.Text; if (Nama_pekerjaan.Text == "") Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Data belum lengkap diisi"); else if (Lokasi.Text == "") Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Data belum lengkap diisi"); else if (No_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Data belum lengkap diisi"); else if (Nilai.Text == "") Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Data belum lengkap diisi"); else if (Tgl_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Data belum lengkap diisi"); else if (Tgl_Selesai_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Data belum lengkap diisi"); else if (BA.Text == "") Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Data belum lengkap diisi"); else if (!Nilai.Text.ToCharArray().Any(char.IsNumber)) Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx?err=Nilai kontrak harus berupa angka"); int len = 0; int tahun = Convert.ToInt32(tanggal_selesai.Substring(7, 4));

OracleConnection conn = new OracleConnection(con.conDb());

L313 conn.Open(); OracleCommand cmd1 = new OracleCommand("select COUNT(*) from PENGALAMAN_PERUSAHAAN", conn); int i = Convert.ToInt32(cmd1.ExecuteScalar()); if (i == 0) { kode_pengalaman = "KPP1"; } else { OracleCommand cmd2 = new OracleCommand("SELECT KODE_PENGALAMAN FROM (SELECT KODE_PENGALAMAN FROM PENGALAMAN_PERUSAHAAN ORDER BY LENGTH(KODE_PENGALAMAN) DESC,KODE_PENGALAMAN DESC ) WHERE ROWNUM <2 ORDER BY KODE_PENGALAMAN", conn); kode_pengalaman = (String)cmd2.ExecuteScalar(); len = kode_pengalaman.Length; kode_pengalaman = "KPP" + (Convert.ToInt32(kode_pengalaman.Substring(3, len - 3)) + 1).ToString(); } OracleCommand cmd = new OracleCommand(); cmd.Connection = conn;

cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int chk = Convert.ToInt32(cmd.ExecuteScalar()); cmd.CommandText = "SELECT TGL_AWAL_KUALIFIKASI FROM MASTER_PROYEK WHERE KODE_PROYEK = '" + kode_proyek + "'"; DateTime tgl = (DateTime)cmd.ExecuteScalar(); int chk2 = tgl.Year; int chk3 = chk2 - chk; if (tahun > chk2 || tahun < chk3) { Response.Redirect("~/perusahaan/KF14_Pengalaman_Umum.aspx?err=Pengalaman Di luar Syarat!!"); } else { cmd.CommandText = "INSERT INTO PENGALAMAN_PERUSAHAAN(KODE_PQ,KODE_PENGALAMAN,NAMA_PEKERJAAN,LOKASI_PEKERJAAN,NAM A_PEMBERI_TUGAS,NO_KONTRAK,TGL_KONTRAK,NILAI_KONTRAK,TGL_SELESAI_KONTRAK,BA_SERAH _TERIMA,KODE_TIPE_PENGALAMAN) " + "VALUES(:KODE_PQ,:KODE_PENGALAMAN,:NAMA_PEKERJAAN,:LOKASI_PEKERJAAN,:NAMA_PEMBERI _TUGAS,:NO_KONTRAK,:TGL_KONTRAK,:NILAI_KONTRAK,:TGL_SELESAI_KONTRAK,:BA_SERAH_TER IMA,:KODE_TIPE_PENGALAMAN)"; cmd.Parameters.AddWithValue("KODE_PQ", OracleType.VarChar).Value = kode_pq; cmd.Parameters.AddWithValue("KODE_PENGALAMAN", OracleType.VarChar).Value = kode_pengalaman;

L314 cmd.Parameters.AddWithValue("NAMA_PEKERJAAN", OracleType.VarChar).Value = nama_pekerjaan; cmd.Parameters.AddWithValue("LOKASI_PEKERJAAN", OracleType.VarChar).Value = lokasi; cmd.Parameters.AddWithValue("NAMA_PEMBERI_TUGAS", OracleType.VarChar).Value = nama_pemberi; cmd.Parameters.AddWithValue("NO_KONTRAK", OracleType.VarChar).Value = no_kontrak; cmd.Parameters.AddWithValue("TGL_KONTRAK", OracleType.DateTime).Value = Tgl_Kontrak.Text; cmd.Parameters.AddWithValue("NILAI_KONTRAK", OracleType.Number).Value = Convert.ToInt32(nilai); cmd.Parameters.AddWithValue("TGL_SELESAI_KONTRAK", OracleType.DateTime).Value = Tgl_Selesai_Kontrak.Text; cmd.Parameters.AddWithValue("BA_SERAH_TERIMA", OracleType.VarChar).Value = ba; cmd.Parameters.AddWithValue("KODE_TIPE_PENGALAMAN", OracleType.VarChar).Value = kode_tipe_pengalaman; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx"); } }

protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; var kode_proyek = (String)Session["kode_proyek"]; int count;

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP1'"; count = Convert.ToInt32(cmd.ExecuteScalar()); if (count != 0) { cmd.CommandText = "UPDATE FORM_FLAG SET KF14_Pengalaman_Umum = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText =

L315 "UPDATE FORM_FLAG SET KF14_Pengalaman_Umum = 0 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close();

Response.Redirect("~/perusahaan/KF14_Pengalaman_Umum.aspx?err=Pengalaman Belum Diisi!!"); } } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE PENGALAMAN_PERUSAHAAN WHERE NAMA_PEKERJAAN = '" + row.Cells[0].Text + "' AND KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP1'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF14_Pengalaman_Umum.aspx"); } } } }

KF15_Pengalaman_Bidang.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF15_Pengalaman_Bidang.aspx.cs" Inherits="TEST.perusahaan.KF15_Pengalaman_Bidang" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> Data Pengalaman Sesuai Bidang

L316 Nama Pekerjaan : Nomor Kontrak : Tanggal Kontrak : Nilai Kontrak :


L318

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA_PEKERJAAN, LOKASI_PEKERJAAN, NAMA_PEMBERI_TUGAS, NO_KONTRAK, TGL_KONTRAK, NILAI_KONTRAK, TGL_SELESAI_KONTRAK, BA_SERAH_TERIMA FROM PLN.PENGALAMAN_PERUSAHAAN WHERE (KODE_TIPE_PENGALAMAN = 'KTP2') AND (KODE_PQ = :kode_pq)"> <SelectParameters>

L319

KF15_Pengalaman_Bidang.aspx.cs using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF15_Pengalaman_Bidang : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_tipe_pengalaman = "KTP2"; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; String tahun = cmd.ExecuteScalar().ToString();

L320 TahunLbl.Text = tahun + " Tahun Terakhir"; } conn.Close(); }

protected void Tambah_Click(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; var kode_pengalaman = ""; var kode_tipe_pengalaman = "KTP2"; var nama_pekerjaan = Nama_pekerjaan.Text; var lokasi = Lokasi.Text; var nama_pemberi = Nama_Pemberi_Tugas.Text; var no_kontrak = No_Kontrak.Text; var nilai = Nilai.Text; var tanggal_kontrak = Tgl_Kontrak.Text; var tanggal_selesai = Tgl_Selesai_Kontrak.Text; var ba = BA.Text; if (Nama_pekerjaan.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (Lokasi.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (Nama_Pemberi_Tugas.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (No_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (Nilai.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (Tgl_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (Tgl_Selesai_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (BA.Text == "") Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Data belum lengkap diisi"); else if (!Nilai.Text.ToCharArray().Any(char.IsNumber)) Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx?err=Nilai kontrak harus berupa angka"); int len = 0; int tahun = Convert.ToInt32(tanggal_selesai.Substring(7, 4)); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd1 = new OracleCommand("select COUNT(*) from PENGALAMAN_PERUSAHAAN", conn); int i = Convert.ToInt32(cmd1.ExecuteScalar());

L321 if (i == 0) { kode_pengalaman = "KPP1"; } else { OracleCommand cmd2 = new OracleCommand("SELECT KODE_PENGALAMAN FROM (SELECT KODE_PENGALAMAN FROM PENGALAMAN_PERUSAHAAN ORDER BY LENGTH(KODE_PENGALAMAN) DESC,KODE_PENGALAMAN DESC ) WHERE ROWNUM <2 ORDER BY KODE_PENGALAMAN", conn); kode_pengalaman = (String)cmd2.ExecuteScalar(); len = kode_pengalaman.Length; kode_pengalaman = "KPP" + (Convert.ToInt32(kode_pengalaman.Substring(3, len - 3)) + 1).ToString(); } OracleCommand cmd = new OracleCommand(); cmd.Connection = conn;

cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int chk = Convert.ToInt32(cmd.ExecuteScalar()); cmd.CommandText = "SELECT TGL_AWAL_KUALIFIKASI FROM MASTER_PROYEK WHERE KODE_PROYEK = '" + kode_proyek + "'"; DateTime tgl = (DateTime)cmd.ExecuteScalar(); int chk2 = tgl.Year; int chk3 = chk2 - chk; if (tahun > chk2 || tahun < chk3) { Response.Redirect("~/perusahaan/KF15_Pengalaman_Bidang.aspx?err=Pengalaman Di luar Syarat!!"); } else { cmd.CommandText = "INSERT INTO PENGALAMAN_PERUSAHAAN(KODE_PQ,KODE_PENGALAMAN,NAMA_PEKERJAAN,LOKASI_PEKERJAAN,NAM A_PEMBERI_TUGAS,NO_KONTRAK,TGL_KONTRAK,NILAI_KONTRAK,TGL_SELESAI_KONTRAK,BA_SERAH _TERIMA,KODE_TIPE_PENGALAMAN) " + "VALUES(:KODE_PQ,:KODE_PENGALAMAN,:NAMA_PEKERJAAN,:LOKASI_PEKERJAAN,:NAMA_PEMBERI _TUGAS,:NO_KONTRAK,:TGL_KONTRAK,:NILAI_KONTRAK,:TGL_SELESAI_KONTRAK,:BA_SERAH_TER IMA,:KODE_TIPE_PENGALAMAN)"; cmd.Parameters.AddWithValue("KODE_PQ", OracleType.VarChar).Value = kode_pq; cmd.Parameters.AddWithValue("KODE_PENGALAMAN", OracleType.VarChar).Value = kode_pengalaman; cmd.Parameters.AddWithValue("NAMA_PEKERJAAN", OracleType.VarChar).Value = nama_pekerjaan; cmd.Parameters.AddWithValue("LOKASI_PEKERJAAN", OracleType.VarChar).Value = lokasi;

L322 cmd.Parameters.AddWithValue("NAMA_PEMBERI_TUGAS", OracleType.VarChar).Value = nama_pemberi; cmd.Parameters.AddWithValue("NO_KONTRAK", OracleType.VarChar).Value = no_kontrak; cmd.Parameters.AddWithValue("TGL_KONTRAK", OracleType.DateTime).Value = Tgl_Kontrak.Text; cmd.Parameters.AddWithValue("NILAI_KONTRAK", OracleType.Number).Value = Convert.ToInt32(nilai); cmd.Parameters.AddWithValue("TGL_SELESAI_KONTRAK", OracleType.DateTime).Value = Tgl_Selesai_Kontrak.Text; cmd.Parameters.AddWithValue("BA_SERAH_TERIMA", OracleType.VarChar).Value = ba; cmd.Parameters.AddWithValue("KODE_TIPE_PENGALAMAN", OracleType.VarChar).Value = kode_tipe_pengalaman; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx"); } }


OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP2'"; count = Convert.ToInt32(cmd.ExecuteScalar()); if (count != 0) { cmd.CommandText = "UPDATE FORM_FLAG SET KF15_Pengalaman_Bidang = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText = "UPDATE FORM_FLAG SET KF15_Pengalaman_Bidang = 0 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close();

L323

Response.Redirect("~/perusahaan/KF15_Pengalaman_Bidang.aspx?err=Pengalaman Belum Diisi!!"); } } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE PENGALAMAN_PERUSAHAAN WHERE NAMA_PEKERJAAN = '" + row.Cells[0].Text + "' AND KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP2'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF15_Pengalaman_Bidang.aspx"); } } } }

KF16a_Pengalaman_EPC.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF16a_Pengalaman_EPC.aspx.cs" Inherits="TEST.perusahaan.KF16a_Pengalaman_EPC" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> Data Pengalaman EPC

L324 Nama Pekerjaan : Nomor Kontrak : Tanggal Kontrak : Nilai Kontrak :


L326

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA_PEKERJAAN, LOKASI_PEKERJAAN, NAMA_PEMBERI_TUGAS, NO_KONTRAK, TGL_KONTRAK, NILAI_KONTRAK, TGL_SELESAI_KONTRAK, BA_SERAH_TERIMA FROM PLN.PENGALAMAN_PERUSAHAAN WHERE (KODE_TIPE_PENGALAMAN = 'KTP3') AND (KODE_PQ = :kode_pq)"> <SelectParameters>

L327

KF16a_Pengalaman_EPC.aspx.cs using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF16a_Pengalaman_EPC : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_tipe_pengalaman = "KTP3"; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; String tahun = cmd.ExecuteScalar().ToString(); TahunLbl.Text = tahun + " Tahun Terakhir"; } conn.Close(); }

L328

protected void Tambah_Click(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; var kode_pengalaman = ""; var kode_tipe_pengalaman = "KTP3"; var nama_pekerjaan = Nama_pekerjaan.Text; var lokasi = Lokasi.Text; var nama_pemberi = Nama_Pemberi_Tugas.Text; var no_kontrak = No_Kontrak.Text; var nilai = Nilai.Text; var tanggal_kontrak = Tgl_Kontrak.Text; var tanggal_selesai = Tgl_Selesai_Kontrak.Text; var ba = BA.Text; if (Nama_pekerjaan.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (Lokasi.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (Nama_Pemberi_Tugas.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (No_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (Nilai.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (Tgl_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (Tgl_Selesai_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (BA.Text == "") Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi"); else if (!Nilai.Text.ToCharArray().Any(char.IsNumber)) Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx?err=Data diisi");

belum lengkap

belum lengkap

belum lengkap

belum lengkap

belum lengkap

belum lengkap

belum lengkap

belum lengkap

belum lengkap

int len = 0; int tahun = Convert.ToInt32(tanggal_selesai.Substring(7, 4)); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd1 = new OracleCommand("select COUNT(*) from PENGALAMAN_PERUSAHAAN", conn); int i = Convert.ToInt32(cmd1.ExecuteScalar()); if (i == 0) { kode_pengalaman = "KPP1"; } else

L329 { OracleCommand cmd2 = new OracleCommand("SELECT KODE_PENGALAMAN FROM (SELECT KODE_PENGALAMAN FROM PENGALAMAN_PERUSAHAAN ORDER BY LENGTH(KODE_PENGALAMAN) DESC,KODE_PENGALAMAN DESC ) WHERE ROWNUM <2 ORDER BY KODE_PENGALAMAN", conn); kode_pengalaman = (String)cmd2.ExecuteScalar(); len = kode_pengalaman.Length; kode_pengalaman = "KPP" + (Convert.ToInt32(kode_pengalaman.Substring(3, len - 3)) + 1).ToString(); } OracleCommand cmd = new OracleCommand(); cmd.Connection = conn;

cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int chk = Convert.ToInt32(cmd.ExecuteScalar()); cmd.CommandText = "SELECT TGL_AWAL_KUALIFIKASI FROM MASTER_PROYEK WHERE KODE_PROYEK = '" + kode_proyek + "'"; DateTime tgl = (DateTime)cmd.ExecuteScalar(); int chk2 = tgl.Year; int chk3 = chk2 - chk; if (tahun > chk2 || tahun < chk3) { Response.Redirect("~/perusahaan/KF16a_Pengalaman_EPC.aspx?err=Pengalaman Di luar Syarat!!"); } else { cmd.CommandText = "INSERT INTO PENGALAMAN_PERUSAHAAN(KODE_PQ,KODE_PENGALAMAN,NAMA_PEKERJAAN,LOKASI_PEKERJAAN,NAM A_PEMBERI_TUGAS,NO_KONTRAK,TGL_KONTRAK,NILAI_KONTRAK,TGL_SELESAI_KONTRAK,BA_SERAH _TERIMA,KODE_TIPE_PENGALAMAN) " + "VALUES(:KODE_PQ,:KODE_PENGALAMAN,:NAMA_PEKERJAAN,:LOKASI_PEKERJAAN,:NAMA_PEMBERI _TUGAS,:NO_KONTRAK,:TGL_KONTRAK,:NILAI_KONTRAK,:TGL_SELESAI_KONTRAK,:BA_SERAH_TER IMA,:KODE_TIPE_PENGALAMAN)"; cmd.Parameters.AddWithValue("KODE_PQ", OracleType.VarChar).Value = kode_pq; cmd.Parameters.AddWithValue("KODE_PENGALAMAN", OracleType.VarChar).Value = kode_pengalaman; cmd.Parameters.AddWithValue("NAMA_PEKERJAAN", OracleType.VarChar).Value = nama_pekerjaan; cmd.Parameters.AddWithValue("LOKASI_PEKERJAAN", OracleType.VarChar).Value = lokasi; cmd.Parameters.AddWithValue("NAMA_PEMBERI_TUGAS", OracleType.VarChar).Value = nama_pemberi; cmd.Parameters.AddWithValue("NO_KONTRAK", OracleType.VarChar).Value = no_kontrak; cmd.Parameters.AddWithValue("TGL_KONTRAK", OracleType.DateTime).Value = Tgl_Kontrak.Text;

L330 cmd.Parameters.AddWithValue("NILAI_KONTRAK", OracleType.Number).Value = Convert.ToInt32(nilai); cmd.Parameters.AddWithValue("TGL_SELESAI_KONTRAK", OracleType.DateTime).Value = Tgl_Selesai_Kontrak.Text; cmd.Parameters.AddWithValue("BA_SERAH_TERIMA", OracleType.VarChar).Value = ba; cmd.Parameters.AddWithValue("KODE_TIPE_PENGALAMAN", OracleType.VarChar).Value = kode_tipe_pengalaman; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF16a_Pengalaman_EPC.aspx"); } }


OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP3'"; count = Convert.ToInt32(cmd.ExecuteScalar()); if (count != 0) { cmd.CommandText = "UPDATE FORM_FLAG SET KF16a_Pengalaman_EPC = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText = "UPDATE FORM_FLAG SET KF16a_Pengalaman_EPC = 0 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close();

Response.Redirect("~/perusahaan/KF16a_Pengalaman_EPC.aspx?err=Pengalaman Belum Diisi!!"); }

L331 } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE PENGALAMAN_PERUSAHAAN WHERE NAMA_PEKERJAAN = '" + row.Cells[0].Text + "' AND KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP3'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF6a_Pengalaman_EPC.aspx"); } } } }

KF16b_Pengalaman_Progres.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF16b_Pengalaman_Progres.aspx.cs" Inherits="TEST.perusahaan.KF16b_Pengalaman_Progres" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> Data Pengalaman Progress Nama Pekerjaan :

L332 Nomor Kontrak : Tanggal Kontrak : Nilai Kontrak : Lokasi Pekerjaan :

L333 Nama Pemberi Tugas : Tanggal Selesai Kontrak : Progress : %
<% if (Request.QueryString["err"] != null)

L334 { Response.Write(Request.QueryString["err"]); } %>

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA_PEKERJAAN, LOKASI_PEKERJAAN, NAMA_PEMBERI_TUGAS, NO_KONTRAK, TGL_KONTRAK, NILAI_KONTRAK, TGL_SELESAI_KONTRAK, PROGRESS FROM PLN.PENGALAMAN_PERUSAHAAN WHERE (KODE_TIPE_PENGALAMAN = 'KTP4') AND (KODE_PQ = :kode_pq)"> <SelectParameters>

L335 KF16b_Pengalaman_Progres.aspx.cs using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF16b_Pengalaman_Progres : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_tipe_pengalaman = "KTP4"; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; String tahun = cmd.ExecuteScalar().ToString(); progLbl.Text = " Diatas "+tahun + " %"; } conn.Close(); }

protected void Tambah_Click(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; var kode_pengalaman = "";

L336 var kode_tipe_pengalaman = "KTP4"; if (Nama_pekerjaan.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (Lokasi.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (Nama_Pemberi_Tugas.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (No_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (Nilai.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (Tgl_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (Tgl_Selesai_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (Progress.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (!Nilai.Text.ToCharArray().Any(char.IsNumber)) Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Nilai kontrak harus berupa angka"); OracleConnection connn = new OracleConnection(con.conDb()); connn.Open(); OracleCommand cmdw = new OracleCommand(); cmdw.Connection = connn; cmdw.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int prog = Convert.ToInt32(cmdw.ExecuteScalar()); if (Convert.ToInt32(Nilai.Text) < prog) Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=persentase yang dimasukkan masih dibawah syarat"); var var var var var var var var

nama_pekerjaan = Nama_pekerjaan.Text; lokasi = Lokasi.Text; nama_pemberi = Nama_Pemberi_Tugas.Text; no_kontrak = No_Kontrak.Text; nilai = Nilai.Text; tanggal_kontrak = Tgl_Kontrak.Text; tanggal_selesai = Tgl_Selesai_Kontrak.Text; progress = Progress.Text;

int len = 0; int chk_prog = Convert.ToInt32(progress); OracleConnection conn = new OracleConnection(con.conDb());

L337 conn.Open(); OracleCommand cmd1 = new OracleCommand("select COUNT(*) from PENGALAMAN_PERUSAHAAN", conn); int i = Convert.ToInt32(cmd1.ExecuteScalar()); if (i == 0) { kode_pengalaman = "KPP1"; } else { OracleCommand cmd2 = new OracleCommand("SELECT KODE_PENGALAMAN FROM (SELECT KODE_PENGALAMAN FROM PENGALAMAN_PERUSAHAAN ORDER BY LENGTH(KODE_PENGALAMAN) DESC,KODE_PENGALAMAN DESC ) WHERE ROWNUM <2 ORDER BY KODE_PENGALAMAN", conn); kode_pengalaman = (String)cmd2.ExecuteScalar(); len = kode_pengalaman.Length; kode_pengalaman = "KPP" + (Convert.ToInt32(kode_pengalaman.Substring(3, len - 3)) + 1).ToString(); } OracleCommand cmd = new OracleCommand(); cmd.Connection = conn;

cmd.CommandText = "SELECT JUMLAH_TAHUN_PENGALAMAN FROM KEBUTUHAN_PENGALAMAN WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_TIPE_PENGALAMAN = '" + kode_tipe_pengalaman + "'"; int chk = Convert.ToInt32(cmd.ExecuteScalar()); if (chk_prog < chk) { Response.Redirect("~/perusahaan/KF16b_Pengalaman_Progres.aspx?err=Pengalaman Di luar Syarat!!"); } else { cmd.CommandText = "INSERT INTO PENGALAMAN_PERUSAHAAN(KODE_PQ,KODE_PENGALAMAN,NAMA_PEKERJAAN,LOKASI_PEKERJAAN,NAM A_PEMBERI_TUGAS,NO_KONTRAK,TGL_KONTRAK,NILAI_KONTRAK,TGL_SELESAI_KONTRAK,PROGRESS ,KODE_TIPE_PENGALAMAN) " + "VALUES(:KODE_PQ,:KODE_PENGALAMAN,:NAMA_PEKERJAAN,:LOKASI_PEKERJAAN,:NAMA_PEMBERI _TUGAS,:NO_KONTRAK,:TGL_KONTRAK,:NILAI_KONTRAK,:TGL_SELESAI_KONTRAK,:PROGRESS,:KO DE_TIPE_PENGALAMAN)"; cmd.Parameters.AddWithValue("KODE_PQ", OracleType.VarChar).Value = kode_pq; cmd.Parameters.AddWithValue("KODE_PENGALAMAN", OracleType.VarChar).Value = kode_pengalaman; cmd.Parameters.AddWithValue("NAMA_PEKERJAAN", OracleType.VarChar).Value = nama_pekerjaan; cmd.Parameters.AddWithValue("LOKASI_PEKERJAAN", OracleType.VarChar).Value = lokasi;

L338 cmd.Parameters.AddWithValue("NAMA_PEMBERI_TUGAS", OracleType.VarChar).Value = nama_pemberi; cmd.Parameters.AddWithValue("NO_KONTRAK", OracleType.VarChar).Value = no_kontrak; cmd.Parameters.AddWithValue("TGL_KONTRAK", OracleType.DateTime).Value = Tgl_Kontrak.Text; cmd.Parameters.AddWithValue("NILAI_KONTRAK", OracleType.Number).Value = Convert.ToInt32(nilai); cmd.Parameters.AddWithValue("TGL_SELESAI_KONTRAK", OracleType.DateTime).Value = Tgl_Selesai_Kontrak.Text; cmd.Parameters.AddWithValue("PROGRESS", OracleType.Number).Value = Convert.ToInt32(progress); cmd.Parameters.AddWithValue("KODE_TIPE_PENGALAMAN", OracleType.VarChar).Value = kode_tipe_pengalaman; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx"); } }


OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP4'"; count = Convert.ToInt32(cmd.ExecuteScalar()); if (count != 0) { cmd.CommandText = "UPDATE FORM_FLAG SET KF16b_Pengalaman_Progres = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText = "UPDATE FORM_FLAG SET KF16b_Pengalaman_Progres = 0 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close();

L339

Response.Redirect("~/perusahaan/KF16b_Pengalaman_Progres.aspx?err=Pengalaman Belum Diisi!!"); } } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE PENGALAMAN_PERUSAHAAN WHERE NAMA_PEKERJAAN = '" + row.Cells[0].Text + "' AND KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP4'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx"); } } } }

KF17_Proyek_Berjalan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF17_Proyek_Berjalan.aspx.cs" Inherits="TEST.perusahaan.KF17_Proyek_Berjalan" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> Data Proyek Berjalan Nama Pekerjaan

L340 : Nomor Kontrak : Tanggal Kontrak : Nilai Kontrak : Lokasi Pekerjaan

L341 : Nama Pemberi Tugas : Tanggal Selesai Kontrak : Progress : %

L342

" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA_PEKERJAAN, LOKASI_PEKERJAAN, NAMA_PEMBERI_TUGAS, NO_KONTRAK, TGL_KONTRAK, NILAI_KONTRAK, TGL_SELESAI_KONTRAK, PROGRESS FROM PLN.PENGALAMAN_PERUSAHAAN WHERE (KODE_TIPE_PENGALAMAN = 'KTP5') AND (KODE_PQ = :kode_pq)"> <SelectParameters>

L343

KF17_Proyek_Berjalan.aspx.cs using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF17_Proyek_Berjalan : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { }

protected void Tambah_Click(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; var kode_pengalaman = ""; var kode_tipe_pengalaman = "KTP5"; if (Nama_pekerjaan.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data lengkap diisi"); else if (Lokasi.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data lengkap diisi"); else if (Nama_Pemberi_Tugas.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data lengkap diisi"); else if (No_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data lengkap diisi"); else if (Nilai.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data lengkap diisi"); else if (Tgl_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data lengkap diisi");

belum

belum

belum

belum

belum

belum

L344 else if (Tgl_Selesai_Kontrak.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (Progress.Text == "") Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Data belum lengkap diisi"); else if (!Nilai.Text.ToCharArray().Any(char.IsNumber)) Response.Redirect("~/Perusahaan/KF16b_Pengalaman_Progres.aspx?err=Nilai kontrak harus berupa angka"); var var var var var var var var

nama_pekerjaan = Nama_pekerjaan.Text; lokasi = Lokasi.Text; nama_pemberi = Nama_Pemberi_Tugas.Text; no_kontrak = No_Kontrak.Text; nilai = Nilai.Text; tanggal_kontrak = Tgl_Kontrak.Text; tanggal_selesai = Tgl_Selesai_Kontrak.Text; progress = Progress.Text;

int len = 0; int tahun = Convert.ToInt32(tanggal_selesai.Substring(7, 4)); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd1 = new OracleCommand("select COUNT(*) from PENGALAMAN_PERUSAHAAN", conn); int i = Convert.ToInt32(cmd1.ExecuteScalar()); if (i == 0) { kode_pengalaman = "KPP1"; } else { OracleCommand cmd2 = new OracleCommand("SELECT KODE_PENGALAMAN FROM (SELECT KODE_PENGALAMAN FROM PENGALAMAN_PERUSAHAAN ORDER BY LENGTH(KODE_PENGALAMAN) DESC,KODE_PENGALAMAN DESC ) WHERE ROWNUM <2 ORDER BY KODE_PENGALAMAN", conn); kode_pengalaman = (String)cmd2.ExecuteScalar(); len = kode_pengalaman.Length; kode_pengalaman = "KPP" + (Convert.ToInt32(kode_pengalaman.Substring(3, len - 3)) + 1).ToString(); } OracleCommand cmd = new OracleCommand(); cmd.Connection = conn;

cmd.CommandText = "INSERT INTO PENGALAMAN_PERUSAHAAN(KODE_PQ,KODE_PENGALAMAN,NAMA_PEKERJAAN,LOKASI_PEKERJAAN,NAM A_PEMBERI_TUGAS,NO_KONTRAK,TGL_KONTRAK,NILAI_KONTRAK,TGL_SELESAI_KONTRAK,PROGRESS ,KODE_TIPE_PENGALAMAN) " + "VALUES(:KODE_PQ,:KODE_PENGALAMAN,:NAMA_PEKERJAAN,:LOKASI_PEKERJAAN,:NAMA_PEMBERI

L345 _TUGAS,:NO_KONTRAK,:TGL_KONTRAK,:NILAI_KONTRAK,:TGL_SELESAI_KONTRAK,:PROGRESS,:KO DE_TIPE_PENGALAMAN)"; cmd.Parameters.AddWithValue("KODE_PQ", OracleType.VarChar).Value = kode_pq; cmd.Parameters.AddWithValue("KODE_PENGALAMAN", OracleType.VarChar).Value = kode_pengalaman; cmd.Parameters.AddWithValue("NAMA_PEKERJAAN", OracleType.VarChar).Value = nama_pekerjaan; cmd.Parameters.AddWithValue("LOKASI_PEKERJAAN", OracleType.VarChar).Value = lokasi; cmd.Parameters.AddWithValue("NAMA_PEMBERI_TUGAS", OracleType.VarChar).Value = nama_pemberi; cmd.Parameters.AddWithValue("NO_KONTRAK", OracleType.VarChar).Value = no_kontrak; cmd.Parameters.AddWithValue("TGL_KONTRAK", OracleType.DateTime).Value = Tgl_Kontrak.Text; cmd.Parameters.AddWithValue("NILAI_KONTRAK", OracleType.Number).Value = Convert.ToInt32(nilai); cmd.Parameters.AddWithValue("TGL_SELESAI_KONTRAK", OracleType.DateTime).Value = Tgl_Selesai_Kontrak.Text; cmd.Parameters.AddWithValue("PROGRESS", OracleType.Number).Value = Convert.ToInt32(progress); cmd.Parameters.AddWithValue("KODE_TIPE_PENGALAMAN", OracleType.VarChar).Value = kode_tipe_pengalaman; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF17_Proyek_Berjalan.aspx");

}


OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT COUNT(*) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP5'"; count = Convert.ToInt32(cmd.ExecuteScalar()); if (count != 0) { cmd.CommandText = "UPDATE FORM_FLAG SET KF17_Proyek_Berjalan = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close();

L346

Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } else { cmd.CommandText = "UPDATE FORM_FLAG SET KF17_Proyek_Berjalan = 0 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close();

Response.Redirect("~/perusahaan/KF17_Proyek_Berjalan.aspx?err=Pengalaman Belum Diisi!!"); } } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE PENGALAMAN_PERUSAHAAN WHERE NAMA_PEKERJAAN = '" + row.Cells[0].Text + "' AND KODE_PQ = '" + kode_pq + "' AND KODE_TIPE_PENGALAMAN = 'KTP5'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF17_Proyek_Berjalan.aspx"); } } } }

KF18_Kemampuan_Finansial.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF18_Kemampuan_Finansial.aspx.cs" Inherits="TEST.KF18_Kemampuan_Finansial1" %> Indeks Keuangan yang Digunakan

L347
Perhitungan Kemampuan Finansial

L348

L350

Pengalaman perusahaan dengan nilai tertinggi

Nama Pekerjaan =

Tahun Pelaksanaan =

Nilai Pengalaman Tertinggi = Rp

1. KEMAMPUAN DASAR (KD)

KD = 2 x NPT

KD = 2 x Rp.

KD = Rp.

2. KALKULASI SISA KEMAMPUAN KEUANGAN (SKK) DAN SISA KEMAMPUAN PROYEK (SKP)

Daftar Proyek yang Dikerjakan Saat Ini :

>
"NAMA PROYEK" />

MK = X KB (Kekayaan bersih, sesuai dengan neraca perusahaan)

MK = X

MK =

L349

KK = X MK

KK = X

KK =

SKK = KK – ( Jumlah total nilai paket pekerjaan Jumlah total nilai paket pekerjaan )

SKK = - ( )

SKK =

SKP = Jumlah paket pekerjaan yang sedang dikerjakan

SKP =

SKP =

" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT INDEKS_MK, INDEKS_KK, INDEKS_SKP FROM PLN.KEBUTUHAN_KEUANGAN WHERE (KODE_PROYEK = :kode_proyek)"> <SelectParameters>

KF18_Kemampuan_Finansial.aspx.cs using using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security;

L351 using using using using using using

System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient;

namespace TEST { public partial class KF18_Kemampuan_Finansial1 : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; var nama_pek = ""; var tgl = ""; var kode_keuangan = ""; int npt = 0;int KB=0; int mk = 0; int kk = 0; int skp = 0; int total_mk = 0; int total_KK = 0; int total_nilai_kontrak = 0; int tot_ong = 0; int total_SKK = 0; int tot_proj = 0; int tot_SKP = 0;

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT NAMA_PEKERJAAN FROM PENGALAMAN_PERUSAHAAN WHERE ROWNUM<2 AND KODE_PQ = '"+Session["kode_pq"]+"' AND KODE_TIPE_PENGALAMAN = 'KTP1' ORDER BY NILAI_KONTRAK DESC"; nama_pek = (string)cmd.ExecuteScalar(); lbl_nama_proyek.Text = nama_pek; cmd.CommandText = "SELECT TGL_KONTRAK FROM PENGALAMAN_PERUSAHAAN WHERE ROWNUM<2 AND KODE_PQ = '" + Session["kode_pq"] + "' AND KODE_TIPE_PENGALAMAN = 'KTP1' ORDER BY NILAI_KONTRAK DESC"; lbl_tahun_pelaksanaan.Text = DateTimeOffset.Parse(cmd.ExecuteScalar().ToString()).ToString("dd-MMM-yyyy"); cmd.CommandText = "SELECT NILAI_KONTRAK FROM PENGALAMAN_PERUSAHAAN WHERE ROWNUM<2 AND KODE_PQ = '" + Session["kode_pq"] + "' AND KODE_TIPE_PENGALAMAN = 'KTP1' ORDER BY NILAI_KONTRAK DESC"; npt = Int32.Parse((string)cmd.ExecuteScalar().ToString()); lbl_NPT.Text = (string)cmd.ExecuteScalar().ToString(); lbl_NPT2.Text = (string)cmd.ExecuteScalar().ToString(); npt = npt * 2; lbl_KD.Text = npt.ToString(); cmd.CommandText = "SELECT NAMA_PEKERJAAN, PROGRESS,100-PROGRESS SISA_PROGRESS, NILAI_KONTRAK,PROGRESS/100*NILAI_KONTRAK YANG_SUDAH , (NILAI_KONTRAK-(PROGRESS/100*NILAI_KONTRAK)) SISA_NILAI FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + Session["kode_pq"] + "' AND KODE_TIPE_PENGALAMAN = 'KTP5' ORDER BY NILAI_KONTRAK DESC";

L352 OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); GV_On_Going.DataSource = ds; GV_On_Going.DataBind(); cmd.CommandText = "SELECT INDEKS_MK, INDEKS_KK, INDEKS_SKP FROM KEBUTUHAN_KEUANGAN WHERE KODE_PROYEK = '"+Session["kode_proyek"]+"'"; odr = cmd.ExecuteReader(); while (odr.Read()) { mk = Int32.Parse(odr[0].ToString()); kk = Int32.Parse(odr[1].ToString()); skp = Int32.Parse(odr[2].ToString()); } lbl_MK.Text = mk.ToString(); lbl_MK2.Text = mk.ToString(); int kas = 0; int bank = 0; int piutang_pendek = 0; int piutang_panjang = 0; int persediaan_barang = 0; int pers_brg = 0; int pek_dlm_pro = 0; int prlt_msn = 0; int inventrs = 0; int ged = 0; int aktiva_lain = 0; int utang_pajak = 0; int utang_lain = 0; int utang_dagang = 0; cmd.CommandText = "SELECT KODE_NERACA_PERUSAHAAN FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '"+Session["kode_pq"]+"'"; kode_keuangan = (string)cmd.ExecuteScalar(); cmd.CommandText = "SELECT KAS, BANK, PIUTANG_PENDEK, PIUTANG_PANJANG, PERSEDIAAN_BARANG, PEKERJAAN_DALAM_PROSES, PERALATAN_MESIN, INVENTARIS, GEDUNG, AKTIVA_LAIN, UTANG_PAJAK, UTANG_LAINNYA, UTANG_DAGANG FROM NERACA_PERUSAHAAN WHERE KODE_NERACA_PERUSAHAAN = '"+kode_keuangan+"'"; odr = cmd.ExecuteReader(); while (odr.Read()) { kas=Int32.Parse(odr[0].ToString()); bank=Int32.Parse(odr[1].ToString()); piutang_pendek=Int32.Parse(odr[2].ToString()); piutang_panjang=Int32.Parse(odr[3].ToString()); pers_brg=Int32.Parse(odr[4].ToString()); pek_dlm_pro=Int32.Parse(odr[5].ToString()); prlt_msn=Int32.Parse(odr[6].ToString()); inventrs=Int32.Parse(odr[7].ToString()); ged=Int32.Parse(odr[8].ToString()); aktiva_lain=Int32.Parse(odr[9].ToString()); utang_pajak=Int32.Parse(odr[10].ToString()); utang_lain=Int32.Parse(odr[11].ToString()); utang_dagang=Int32.Parse(odr[12].ToString()); } KB=(kas+bank+piutang_pendek+pers_brg+pek_dlm_pro)+(prlt_msn+inventrs+ged)+aktiva_ lain- (utang_dagang+utang_pajak+utang_lain+piutang_panjang); lbl_KB.Text=KB.ToString(); total_mk = KB * mk; lbl_MK3.Text = total_mk.ToString(); lbl_KK.Text = kk.ToString(); lbl_KK2.Text = kk.ToString(); lbl_MK4.Text = total_mk.ToString();

L353

total_KK = total_mk * kk; lbl_Total_KK.Text = total_KK.ToString();

lbl_KK3.Text = total_KK.ToString();

cmd.CommandText = "SELECT SUM(NILAI_KONTRAK) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + Session["kode_pq"] + "' AND KODE_TIPE_PENGALAMAN = 'KTP5'"; total_nilai_kontrak = Int32.Parse(cmd.ExecuteScalar().ToString()); lbl_tot_nil_ong.Text = total_nilai_kontrak.ToString();

cmd.CommandText = "SELECT SUM((PROGRESS/100)*NILAI_KONTRAK) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + Session["kode_pq"] + "' AND KODE_TIPE_PENGALAMAN = 'KTP5'"; tot_ong = Convert.ToInt32(cmd.ExecuteScalar()); lbl_tot_nil_sdh.Text = tot_ong.ToString();

total_SKK = total_KK - (total_nilai_kontrak - tot_ong); lbl_Total_SKK.Text = total_SKK.ToString(); lbl_SKP.Text = skp.ToString(); lbl_SKP2.Text = skp.ToString(); cmd.CommandText = "SELECT COUNT(NAMA_PEKERJAAN) FROM PENGALAMAN_PERUSAHAAN WHERE KODE_PQ = '" + Session["kode_pq"] + "' AND KODE_TIPE_PENGALAMAN = 'KTP5'"; tot_proj = Convert.ToInt32(cmd.ExecuteScalar()); lbl_jml_proj.Text = tot_proj.ToString(); tot_SKP = skp - tot_proj; lbl_tot_SKP.Text = tot_SKP.ToString(); if (total_SKK < 1 || tot_SKP < 1) { cmd.CommandText = "UPDATE FORM_FLAG SET KF18_Kemampuan_Finansial = 0 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); } else { cmd.CommandText = "UPDATE FORM_FLAG SET KF18_Kemampuan_Finansial = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); } conn.Close(); } protected void Submit_Click(object sender, EventArgs e) { var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"];

L354

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "UPDATE FORM_FLAG SET KF18_Kemampuan_Finansial = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/Perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF19_SBUJK.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF19_SBUJK.aspx.cs" Inherits="TEST.perusahaan.KF19_SBUJK" %> Data SBUJK " ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT NO_SERTIFIKAT_BADAN_USAHA, NO_REGIS_SERTIFIKAT, MASA_BERLAKU_AKHIR FROM SERTIFIKAT_BADAN_USAHA WHERE (KODE_PERUSAHAAN = :kode_perusahaan)"> <SelectParameters>

L355

KF19_SBUJK.aspx.cs using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF19_SBUJK : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { } protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "UPDATE FORM_FLAG SET KF19_SBUJK = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); }

} }

L356 KF2_Surat_Pernyataan_Minat.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF2_Surat_Pernyataan_Minat.aspx.cs" Inherits="TEST.perusahaan.KF2_Surat_Pernyataan_Minat" %>
Nama : " ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT NO_KTP, KODE_TIPE_PEGAWAI, NAMA_PEGAWAI, POSISI_PEGAWAI, KODE_PERUSAHAAN FROM PLN.MASTER_PEGAWAI WHERE ((KODE_TIPE_PEGAWAI LIKE 'TP1') OR (KODE_TIPE_PEGAWAI LIKE 'TP2')) AND (KODE_PERUSAHAAN = :kode_perusahaan) ORDER BY NAMA_PEGAWAI"> <SelectParameters> Jabatan :
*nama harus sama dengan nama di KF1 (untuk KF 2 dan KF 3)

L357

KF2_Surat_Pernyataan_Minat.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF2_Surat_Pernyataan_Minat : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var user = (String)Session["username"]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; string[] perusahaan = new string[200]; int[] persentase = new int[200]; int cur_persentase = 0; int count = 0; int i = 0; int j = 0; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT POSISI_PEGAWAI FROM (SELECT * FROM master_pegawai ORDER BY nama_pegawai) WHERE rownum <2 and kode_perusahaan = '" + user + "' AND KODE_TIPE_PEGAWAI LIKE 'TP1' OR KODE_TIPE_PEGAWAI LIKE 'TP2'"; var jbtn = (String)cmd.ExecuteScalar(); jabatan.Text = jbtn; cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "' AND KODE_PERUSAHAAN NOT LIKE '" + user + "'"; OracleDataReader odr = cmd.ExecuteReader();

L358 while (odr.Read()) { perusahaan[i] = (odr[0].ToString()); i++; } for (j = 0; j < i; j++) { cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PERUSAHAAN = '" + perusahaan[j] + "' AND KODE_PROYEK = '" + kode_proyek + "'"; persentase[j] = Convert.ToInt32(cmd.ExecuteScalar()); } cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '" + kode_pq + "'"; cur_persentase = Convert.ToInt32(cmd.ExecuteScalar()); for (i = 0; i < j; i++) { if (cur_persentase < persentase[i]) { count++; } } if (count != 0) { Submit.Visible = false; no_ktp.Visible = false; jabatan.Visible = false; Table1.Visible = false; errLbl.Visible = true; } else { Submit.Visible = true; no_ktp.Visible = true; jabatan.Visible = true; Table1.Visible = true; errLbl.Visible = false; } conn.Close(); } protected void nama_SelectedIndexChanged(object sender, EventArgs e) { var no_ktp2 = no_ktp.Text; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT POSISI_PEGAWAI FROM master_pegawai WHERE NO_KTP like '" + no_ktp2 + "' AND KODE_TIPE_PEGAWAI IN('TP1','TP2')", conn); var jbtn = (String)cmd.ExecuteScalar(); jabatan.Text = jbtn; conn.Close(); } protected void submit_click(object sender, EventArgs e) {

L359 var no_ktp3 = no_ktp.Text; int x = 0; int z = 0; string[] perusahaan = new string[200]; string[] all_pq = new string[200]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var kode_perusahaan = (String)Session["username"]; var kode_pq = (String)Session["kode_pq"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; OracleCommand cmd6 = new OracleCommand(); cmd6.Connection = conn; cmd.CommandText = "SELECT no_ktp FROM KOMISARIS_DIREKSI, MASTER_PQ_DATA_DETAIL " + "WHERE KOMISARIS_DIREKSI.kode_komisaris_direksi = MASTER_PQ_DATA_DETAIL.kode_komisaris_direksi and " + "kode_proyek = '" + kode_proyek + "' and kode_perusahaan = '" + kode_perusahaan + "'"; var ktp = (String)cmd.ExecuteScalar(); if (no_ktp3 == ktp) { cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[x] = (odr[0].ToString()); x++; } for (z = 0; z < x; z++) { cmd.CommandText = "SELECT KODE_PQ FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_PERUSAHAAN = '" + perusahaan[z] + "'"; all_pq[z] = (String)cmd.ExecuteScalar(); }

for (z = 0; z < x; z++) { cmd6.CommandText = "UPDATE FORM_FLAG SET KF2_PERNYATAAN_MINAT = 1 WHERE KODE_PQ = '" + all_pq[z] + "'"; cmd6.ExecuteNonQuery(); } } else { cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "'"; OracleDataReader odr = cmd.ExecuteReader();

L360 while (odr.Read()) { perusahaan[x] = (odr[0].ToString()); x++; } for (z = 0; z < x; z++) { cmd.CommandText = "SELECT KODE_PQ FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_PERUSAHAAN = '" + perusahaan[z] + "'"; all_pq[z] = (String)cmd.ExecuteScalar(); } for (z = 0; z < x; z++) { cmd6.CommandText = "UPDATE FORM_FLAG SET KF2_PERNYATAAN_MINAT = 0 WHERE KODE_PQ = '" + all_pq[z] + "'"; cmd6.ExecuteNonQuery(); } } conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF3_Kebenaran_Data.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF3_Kebenaran_Data.aspx.cs" Inherits="TEST.perusahaan.KF3_Kebenaran_Data" %>
Nama :
L361 ConnectionString="<%$ ConnectionStrings:ConnectionString %>" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT NO_KTP, KODE_TIPE_PEGAWAI, NAMA_PEGAWAI, POSISI_PEGAWAI, KODE_PERUSAHAAN FROM PLN.MASTER_PEGAWAI WHERE ((KODE_TIPE_PEGAWAI LIKE 'TP1') OR (KODE_TIPE_PEGAWAI LIKE 'TP2')) AND (KODE_PERUSAHAAN = :kode_perusahaan) ORDER BY NAMA_PEGAWAI"> <SelectParameters> Jabatan : *nama harus sama dengan nama di KF1 (untuk KF 2 dan KF 3)

KF3_Kebenaran_Data.aspx.cs using using using using using using using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq;

L362 using System.Data.OracleClient; namespace TEST.perusahaan { public partial class KF3_Kebenaran_Data : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var user = (String)Session["username"]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; string[] perusahaan = new string[200]; int[] persentase = new int[200]; int cur_persentase = 0; int count = 0; int i = 0; int j = 0; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT POSISI_PEGAWAI FROM (SELECT * FROM master_pegawai ORDER BY nama_pegawai) WHERE rownum <2 and kode_perusahaan = '" + user + "' AND KODE_TIPE_PEGAWAI LIKE 'TP1' OR KODE_TIPE_PEGAWAI LIKE 'TP2'"; var jbtn = (String)cmd.ExecuteScalar(); jabatan.Text = jbtn; cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "' AND KODE_PERUSAHAAN NOT LIKE '" + user + "'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[i] = (odr[0].ToString()); i++; } for (j = 0; j < i; j++) { cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PERUSAHAAN = '" + perusahaan[j] + "' AND KODE_PROYEK = '" + kode_proyek + "'"; persentase[j] = Convert.ToInt32(cmd.ExecuteScalar()); } cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '" + kode_pq + "'"; cur_persentase = Convert.ToInt32(cmd.ExecuteScalar()); for (i = 0; i < j; i++) { if (cur_persentase < persentase[i]) { count++; } }

L363 if (count != 0) { Submit.Visible = false; no_ktp.Visible = false; jabatan.Visible = false; Table1.Visible = false; errLbl.Visible = true; } else { Submit.Visible = true; no_ktp.Visible = true; jabatan.Visible = true; Table1.Visible = true; errLbl.Visible = false; } conn.Close(); } protected void nama_SelectedIndexChanged(object sender, EventArgs e) { var no_ktp2 = no_ktp.Text; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT POSISI_PEGAWAI FROM master_pegawai WHERE NO_KTP like '" + no_ktp2 + "' AND KODE_TIPE_PEGAWAI IN('TP1','TP2')", conn); var jbtn = (String)cmd.ExecuteScalar(); jabatan.Text = jbtn; conn.Close(); } protected void submit_click(object sender, EventArgs e) { var no_ktp3 = no_ktp.Text; int x = 0; int z = 0; string[] perusahaan = new string[200]; string[] all_pq = new string[200]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var kode_perusahaan = (String)Session["username"]; var kode_pq = (String)Session["kode_pq"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; OracleCommand cmd6 = new OracleCommand(); cmd6.Connection = conn; cmd.CommandText = "SELECT no_ktp FROM KOMISARIS_DIREKSI, MASTER_PQ_DATA_DETAIL " + "WHERE KOMISARIS_DIREKSI.kode_komisaris_direksi = MASTER_PQ_DATA_DETAIL.kode_komisaris_direksi and " + "kode_proyek = '" + kode_proyek + "' and kode_perusahaan = '" + kode_perusahaan + "'"; var ktp = (String)cmd.ExecuteScalar(); if (no_ktp3 == ktp) { cmd.CommandText =

L364 "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[x] = (odr[0].ToString()); x++; } for (z = 0; z < x; z++) { cmd.CommandText = "SELECT KODE_PQ FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_PERUSAHAAN = '" + perusahaan[z] + "'"; all_pq[z] = (String)cmd.ExecuteScalar(); }

for (z = 0; z < x; z++) { cmd6.CommandText = "UPDATE FORM_FLAG SET KF3_KEBENARAN_DATA = 1 WHERE KODE_PQ = '" + all_pq[z] + "'"; cmd6.ExecuteNonQuery(); } } else { cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[x] = (odr[0].ToString()); x++; } for (z = 0; z < x; z++) { cmd.CommandText = "SELECT KODE_PQ FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_PERUSAHAAN = '" + perusahaan[z] + "'"; all_pq[z] = (String)cmd.ExecuteScalar(); } for (z = 0; z < x; z++) { cmd6.CommandText = "UPDATE FORM_FLAG SET KF3_KEBENARAN_DATA = 0 WHERE KODE_PQ = '" + all_pq[z] + "'"; cmd6.ExecuteNonQuery(); } } conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); }

L365 protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF3a_Perjanjian_Kemitraan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF3a_Perjanjian_Kemitraan.aspx.cs" Inherits="TEST.perusahaan.KF3a_Perjanjian_Kemitraan" %>

Perjanjian Kemitraan
" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT PLN.MASTER_PERUSAHAAN.NAMA_PERUSAHAAN, PLN.MASTER_PARTISIPAN.KODE_PERUSAHAAN FROM PLN.MASTER_PARTISIPAN INNER JOIN PLN.MASTER_PERUSAHAAN ON PLN.MASTER_PARTISIPAN.KODE_PERUSAHAAN = PLN.MASTER_PERUSAHAAN.KODE_PERUSAHAAN WHERE (PLN.MASTER_PARTISIPAN.KODE_PARTISIPAN = :kode_partisipan)"> <SelectParameters>

L366

Persentase Yang Disimpan
" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT PLN.MASTER_PERUSAHAAN.NAMA_PERUSAHAAN, PLN.MASTER_PQ_DATA_DETAIL.PERSENTASE FROM PLN.MASTER_PERUSAHAAN INNER JOIN PLN.MASTER_PQ_DATA_DETAIL ON PLN.MASTER_PERUSAHAAN.KODE_PERUSAHAAN = PLN.MASTER_PQ_DATA_DETAIL.KODE_PERUSAHAAN INNER JOIN PLN.MASTER_PARTISIPAN ON MASTER_PARTISIPAN.KODE_PERUSAHAAN = MASTER_PERUSAHAAN.KODE_PERUSAHAAN WHERE (PLN.MASTER_PARTISIPAN.KODE_PARTISIPAN = :kode_partisipan) AND (PLN.MASTER_PQ_DATA_DETAIL.KODE_PROYEK = :kode_proyek)"> <SelectParameters>

KF3a_Perjanjian_Kemitraan.aspx.cs using using using using using using using using using using using using using using using using


L367 using System.Text.RegularExpressions; namespace TEST.perusahaan { public partial class KF3a_Perjanjian_Kemitraan : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var user = (String)Session["username"]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var kode_pq = (String)Session["kode_pq"]; string[] perusahaan = new string[200]; int[] persentase = new int[200]; int cur_persentase = 0; int count = 0; int i = 0; int j = 0; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "' AND KODE_PERUSAHAAN NOT LIKE '" + user + "'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[i] = (odr[0].ToString()); i++; } for (j = 0; j < i; j++) { cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PERUSAHAAN = '" + perusahaan[j] + "' AND KODE_PROYEK = '" + kode_proyek + "'"; persentase[j] = Convert.ToInt32(cmd.ExecuteScalar()); } cmd.CommandText = "SELECT PERSENTASE FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PQ = '" + kode_pq + "'"; cur_persentase = Convert.ToInt32(cmd.ExecuteScalar()); for (i = 0; i < j; i++) { if (cur_persentase < persentase[i]) { count++; } } if (count != 0) { GridView1.Visible = false; Submit.Visible = false; }

L368 else { GridView1.Visible = true; Submit.Visible = true; } conn.Close(); } protected void Submit_Click(object sender, EventArgs e) { int persentase = 0; int total = 0; var kode_perusahaan = ""; int x = 0; int z = 0; string[] perusahaan = new string[200]; string[] all_pq = new string[200]; var kode_partisipan = (String)Session["kode_partisipan"]; var kode_proyek = (String)Session["kode_proyek"]; var temp = ""; var kode_pq = (String)Session["kode_pq"]; bool val=false; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; OracleCommand cmd2 = new OracleCommand(); cmd2.Connection = conn; OracleCommand cmd6 = new OracleCommand(); cmd6.Connection = conn; for (int b = 0; b < GridView1.Rows.Count; b++) { val = System.Text.RegularExpressions.Regex.IsMatch(((TextBox)GridView1.Rows[b].FindCont rol("persentase")).Text, @"\d+"); if (val == false) Response.Redirect("~/Perusahaan/KF3a_Perjanjian_Kemitraan.aspx?err=Harap masukan data hanya berupa angka"); }

for (int b = 0; b < GridView1.Rows.Count; b++) { persentase = Convert.ToInt32(((TextBox)GridView1.Rows[b].FindControl("persentase")).Text); total += persentase; } if (total != 100) Response.Redirect("~/Perusahaan/KF3a_Perjanjian_Kemitraan.aspx?err=Total persentase belum mencapai tepat 100%");

else { for (int a = 0; a < GridView1.Rows.Count; a++) {

L369 temp = GridView1.Rows[a].Cells[0].Text; cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PERUSAHAAN WHERE NAMA_PERUSAHAAN ='" + temp + "'"; kode_perusahaan = (string)cmd.ExecuteScalar(); persentase = Convert.ToInt32(((TextBox)GridView1.Rows[a].FindControl("persentase")).Text); cmd2.CommandText = "UPDATE MASTER_PQ_DATA_DETAIL SET PERSENTASE = " + persentase + " WHERE KODE_PERUSAHAAN = '" + kode_perusahaan + "' AND " + "KODE_PROYEK = '" + kode_proyek + "'"; cmd2.ExecuteNonQuery(); } cmd.CommandText = "SELECT KODE_PERUSAHAAN FROM MASTER_PARTISIPAN WHERE KODE_PARTISIPAN = '" + kode_partisipan + "'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { perusahaan[x] = (odr[0].ToString()); x++; } for (z = 0; z < x; z++) { cmd.CommandText = "SELECT KODE_PQ FROM MASTER_PQ_DATA_DETAIL WHERE KODE_PROYEK = '" + kode_proyek + "' AND KODE_PERUSAHAAN = '" + perusahaan[z] + "'"; all_pq[z] = (String)cmd.ExecuteScalar(); }

for (z = 0; z < x; z++) { cmd6.CommandText = "UPDATE FORM_FLAG SET KF3A_PERJANJIAN_KEMITRAAN = 1 WHERE KODE_PQ = '" + all_pq[z] + "'"; cmd6.ExecuteNonQuery(); } conn.Close(); Response.Redirect("/perusahaan/Home_Proyek_Perusahaan.aspx"); } } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF4_Data_Umum_Perusahaan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF4_Data_Umum_Perusahaan.aspx.cs" Inherits="TEST.perusahaan.KF4_Data_Umum_Perusahaan" %>

L370 Data Umum Perusahaan Nama Perusahaan : Status Perusahaan : Alamat Perusahaan :

KF4_Data_Umum_Perusahaan.aspx.cs

L371 using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF4_Data_Umum_Perusahaan : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_perusahaan = (String)Session["username"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "SELECT NAMA_PERUSAHAAN FROM MASTER_PERUSAHAAN WHERE KODE_PERUSAHAAN = '"+ kode_perusahaan +"'"; nama_perusahaan.Text = (String)cmd.ExecuteScalar(); cmd.CommandText = "SELECT NAMA_STATUS_PERUSAHAAN FROM STATUS_PERUSAHAAN, MASTER_PERUSAHAAN WHERE " + "MASTER_PERUSAHAAN.KODE_STATUS_PERUSAHAAN = STATUS_PERUSAHAAN.KODE_STATUS_PERUSAHAAN AND " + "KODE_PERUSAHAAN = '" + kode_perusahaan + "'"; Status_Perusahaan.Text = (String)cmd.ExecuteScalar(); cmd.CommandText = "SELECT ALAMAT_PERUSAHAAN FROM MASTER_PERUSAHAAN WHERE KODE_PERUSAHAAN = '" + kode_perusahaan + "'"; Alamat_perusahaan.Text = (String)cmd.ExecuteScalar(); conn.Close();

} protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText =

L372 "UPDATE FORM_FLAG SET KF4_DATA_UMUM_PERUSAHAAN = 1 WHERE kode_pq = '"+kode_pq+"'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF5_Surat_Ijin.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF5_Surat_Ijin.aspx.cs" Inherits="TEST.perusahaan.KF5_Surat_Ijin" %> Surat Ijin Nomor IUJK : Bidang : Masa Berlaku

L373 : Pemberi Ijin :
Nomor SIUP : Bidang : Masa Berlaku :

L374 Pemberi Ijin :
Nomor SIUI : Bidang : Masa Berlaku :

L375 Pemberi Ijin :
Nomor TDP : Bidang : Masa Berlaku : Pemberi Ijin

L376 : &nb sp; &nb sp;

KF5_Surat_Ijin.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF5_Surat_Ijin : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kode_perusahaan = (String)Session["username"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText =

L377 "SELECT NO_SURAT_IZIN, TGL_AKHIR_SURAT_IZIN, INSTANSI_SURAT_IZIN, BIDANG_SURAT_IZIN FROM MASTER_SURAT_IZIN " + "WHERE KODE_TIPE_SURAT = 'TS1' AND kode_perusahaan = '"+kode_perusahaan+"'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_IUJK.Text = (odr[0].ToString()); Masa_IUJK.Text = (odr[1].ToString()); Instansi_IUJK.Text = (odr[2].ToString()); Bidang_IUJK.Text = (odr[3].ToString()); } cmd.CommandText = "SELECT NO_SURAT_IZIN, TGL_AKHIR_SURAT_IZIN, INSTANSI_SURAT_IZIN, BIDANG_SURAT_IZIN FROM MASTER_SURAT_IZIN " + "WHERE KODE_TIPE_SURAT = 'TS2' AND kode_perusahaan = '" + kode_perusahaan + "'"; odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_SIUP.Text = (odr[0].ToString()); Masa_SIUP.Text = (odr[1].ToString()); Instansi_SIUP.Text = (odr[2].ToString()); Bidang_SIUP.Text = (odr[3].ToString()); } cmd.CommandText = "SELECT NO_SURAT_IZIN, TGL_AKHIR_SURAT_IZIN, INSTANSI_SURAT_IZIN, BIDANG_SURAT_IZIN FROM MASTER_SURAT_IZIN " + "WHERE KODE_TIPE_SURAT = 'TS3' AND kode_perusahaan = '" + kode_perusahaan + "'"; odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_SIUI.Text = (odr[0].ToString()); Masa_SIUI.Text = (odr[1].ToString()); Instansi_SIUI.Text = (odr[2].ToString()); Bidang_SIUI.Text = (odr[3].ToString()); } cmd.CommandText = "SELECT NO_SURAT_IZIN, TGL_AKHIR_SURAT_IZIN, INSTANSI_SURAT_IZIN, BIDANG_SURAT_IZIN FROM MASTER_SURAT_IZIN " + "WHERE KODE_TIPE_SURAT = 'TS4' AND kode_perusahaan = '" + kode_perusahaan + "'"; odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_TDP.Text = (odr[0].ToString()); Masa_TDP.Text = (odr[1].ToString()); Instansi_TDP.Text = (odr[2].ToString()); Bidang_TDP.Text = (odr[3].ToString()); } conn.Close(); } protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open();

L378 OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "UPDATE FORM_FLAG SET KF5_SURAT_IJIN = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF6_Pendirian_Perusahaan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF6_Pendirian_Perusahaan.aspx.cs" Inherits="TEST.perusahaan.KF6_Pendirian_Perusahaan" %> Landasan Hukum Pendirian Perusahaan " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NO_SURAT_MK, TGL_SURAT_MK FROM PLN.MASTER_SURAT_MK WHERE (KODE_PERUSAHAAN = :kode_perusahaan) ORDER BY NO_SURAT_MK"> <SelectParameters> 1. Akta Pendirian Nomor Akta :

L379 Tanggal : Nama Notaris : Surat Penetapan Menteri Kehakiman Nomor : Tanggal :

L380 2. Akta Perubahan Terakhir Nomor Akta : Tanggal : Nama Notaris : Surat Penetapan Menteri Kehakiman Nomor :

L381 Tanggal :

&nb sp; &nb sp;

KF6_Pendirian_Perusahaan.aspx.cs <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF6_Pendirian_Perusahaan.aspx.cs" Inherits="TEST.perusahaan.KF6_Pendirian_Perusahaan" %> Landasan Hukum Pendirian Perusahaan " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NO_SURAT_MK, TGL_SURAT_MK FROM PLN.MASTER_SURAT_MK WHERE (KODE_PERUSAHAAN = :kode_perusahaan) ORDER BY NO_SURAT_MK"> <SelectParameters> 1. Akta Pendirian

L382 Nomor Akta : Tanggal : Nama Notaris : Surat Penetapan Menteri Kehakiman Nomor : Tanggal

L383 :
2. Akta Perubahan Terakhir Nomor Akta : Tanggal : Nama Notaris : Surat Penetapan Menteri Kehakiman

L384 Nomor : Tanggal :

&nb sp; &nb sp;

KF7_Komisaris.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF7_Komisaris.aspx.cs" Inherits="TEST.perusahaan.KF7_Komisaris" %> Komisaris
L385 SortExpression="NO_KTP" /> " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA_PEGAWAI, NO_KTP, POSISI_PEGAWAI FROM PLN.MASTER_PEGAWAI WHERE (KODE_TIPE_PEGAWAI = 'TP1') AND (KODE_PERUSAHAAN = :kode_perusahaan)"> <SelectParameters>

KF7_Komisaris.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF7_Komisaris : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open();

L386 OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "UPDATE FORM_FLAG SET KF7_KOMISARIS = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF8_Direksi.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF8_Direksi.aspx.cs" Inherits="TEST.perusahaan.KF8_Direksi" %> Komisaris " ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA_PEGAWAI, NO_KTP, POSISI_PEGAWAI FROM PLN.MASTER_PEGAWAI WHERE (KODE_TIPE_PEGAWAI = 'TP2') AND (KODE_PERUSAHAAN = :kode_perusahaan)"> <SelectParameters>

KF8_Direksi.aspx.cs using System; using System.Data.Odbc;

L387 using using using using using using using using using using using using using using

System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient;

namespace TEST.perusahaan { public partial class KF8_Direksi : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; Connect con = new Connect(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "UPDATE FORM_FLAG SET KF8_DIREKSI = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

KF9_Kepemilikan_Saham.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Proyek_Perusahaan.Master" AutoEventWireup="true" CodeBehind="KF9_Kepemilikan_Saham.aspx.cs" Inherits="TEST.perusahaan.KF9_Kepemilikan_Saham" %> Kepemilikan Saham Nama

L388 : Nomor KTP : Alamat : Persentase : %

L389 Data Kepemilikan Saham
" ProviderName="<%$ ConnectionStrings:connectionstring.ProviderName %>" SelectCommand="SELECT NAMA, NO_KTP, ALAMAT, PERSENTASE FROM PLN.KEPEMILIKAN_SAHAM WHERE (KODE_PQ = :kode_pq)"> <SelectParameters>

KF9_Kepemilikan_Saham.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST.perusahaan { public partial class KF9_Kepemilikan_Saham : System.Web.UI.Page {

L390 Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { } protected void Tambah_Click(object sender, EventArgs e) { var var var var var var int int int

kode_pq = (String)Session["kode_pq"]; kode_kepemilikan_saham = ""; nama = Nama.Text; no_ktp = No_KTP.Text; alamat = Alamat.Text; persentase = Persentase.Text; len = 0; total = 0; persen = 0;

if (Nama.Text == "") Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx?err=Data belum diisi"); else if (No_KTP.Text == "") Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx?err=Data belum diisi"); else if (Alamat.Text == "") Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx?err=Data belum diisi"); else if (Persentase.Text == "") Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx?err=Data belum diisi"); else if (!Persentase.Text.ToCharArray().Any(char.IsNumber)) Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx?err=Persentase berupa angka");

lengkap

lengkap

lengkap

lengkap

harus

for (int b = 0; b < GridView1.Rows.Count; b++) { persen = Convert.ToInt32((GridView1.Rows[b].Cells[3].Text.ToString())); total += persen; } total += Convert.ToInt32(persentase); if (total > 100) Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx?err=Kepemilikan saham telah lebih dari 100%"); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd1 = new OracleCommand("select COUNT(*) from KEPEMILIKAN_SAHAM", conn); int i = Convert.ToInt32(cmd1.ExecuteScalar()); if (i == 0) { kode_kepemilikan_saham = "KS1"; } else {

L391 OracleCommand cmd2 = new OracleCommand("SELECT KODE_KEP_SAHAM FROM (SELECT KODE_KEP_SAHAM FROM KEPEMILIKAN_SAHAM ORDER BY LENGTH(KODE_KEP_SAHAM) DESC,KODE_KEP_SAHAM DESC ) WHERE ROWNUM <2 ORDER BY KODE_KEP_SAHAM", conn); kode_kepemilikan_saham = (String)cmd2.ExecuteScalar(); len = kode_kepemilikan_saham.Length; kode_kepemilikan_saham = "KS" + (Convert.ToInt32(kode_kepemilikan_saham.Substring(2, len - 2)) + 1).ToString(); } OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "INSERT INTO KEPEMILIKAN_SAHAM(KODE_KEP_SAHAM,KODE_PQ,NAMA,NO_KTP,ALAMAT,PERSENTASE) " + "VALUES(:KODE_KEPEMILIKAN_SAHAM,:KODE_PQ,:NAMA,:NO_KTP,:ALAMAT,:PERSENTASE)"; cmd.Parameters.AddWithValue("KODE_KEPEMILIKAN_SAHAM", OracleType.VarChar).Value = kode_kepemilikan_saham; cmd.Parameters.AddWithValue("KODE_PQ", OracleType.VarChar).Value = kode_pq; cmd.Parameters.AddWithValue("NAMA", OracleType.VarChar).Value = nama; cmd.Parameters.AddWithValue("NO_KTP", OracleType.VarChar).Value = no_ktp; cmd.Parameters.AddWithValue("ALAMAT", OracleType.VarChar).Value = alamat; cmd.Parameters.AddWithValue("PERSENTASE", OracleType.Number).Value = Convert.ToInt32(persentase); cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx"); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE KEPEMILIKAN_SAHAM WHERE NO_KTP = '"+row.Cells[1].Text+"' AND KODE_PQ = '"+kode_pq+"'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/KF9_Kepemilikan_Saham.aspx"); } } protected void Submit_Click(object sender, EventArgs e) { var kode_pq = (String)Session["kode_pq"];

L392

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "UPDATE FORM_FLAG SET KF9_KEPEMILIKAN_SAHAM = 1 WHERE kode_pq = '" + kode_pq + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Proyek_Perusahaan.aspx"); } } }

Profil_Perusahaan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Profil_Perusahaan.aspx.cs" Inherits="TEST.Profil_Perusahaan" %> PROFIL PERUSAHAAN

NPWP : NAMA PERUSAHAAN : ALAMAT PERUSAHAAN :

L393 STATUS : NO TELPON : NO FAX :

>


Profil_Perusahaan.aspx.cs

L394 <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Profil_Perusahaan.aspx.cs" Inherits="TEST.Profil_Perusahaan" %> PROFIL PERUSAHAAN

NPWP : NAMA PERUSAHAAN : ALAMAT PERUSAHAAN : STATUS : NO TELPON :

L395 NO FAX :

>


Registrasi_Dokumen.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Registrasi_Dokumen.aspx.cs" Inherits="TEST.Registrasi_Dokumen" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> SURAT IZIN IUJK

L396 Nomor IUJK : Bidang :

runat="server"

runat="server"

Masa Berlaku Awal : Masa Berlaku Akhir : Pemberi Ijin

L397 :

runat="server"

<% if (Request.QueryString["err1"] != null) { Response.Write(Request.QueryString["err1"]); } %>

L398

SURAT IZIN SIUP

Nomor SIUP :

Bidang :

Masa Berlaku Awal :

Masa Berlaku Akhir :

Pemberi Izin :


L399

L400

SURAT IZIN SIUI

Nomor SIUI :

Bidang :

Masa Berlaku Awal :


Pemberi Izin :


L401

SURAT IZIN TDP

Nomor TDP :

Bidang :

Masa Berlaku Awal :


Pemberi Izin :


<span class="style1"><strong>LANDASAN HUKUM PENDIRIAN PERUSAHAAN

L402

L403

SURAT AKTA PENDIRIAN

Nomor Akta :

Tanggal Terbit :

Nama Notaris :

<strong>SURAT PENETAPAN MENTERI KEHAKIMAN

No Surat MK :

Tanggal Terbit :


L404

SURAT AKTA PENDIRIAN TERAKHIR

Nomor Akta :

Tanggal Terbit :

Nama Notaris :

<strong>SURAT PENETAPAN MENTERI KEHAKIMAN

No Surat MK :

Tanggal Terbit :


<style type="text/css"> .style1 { text-decoration: underline; }

L405

Registrasi_Dokumen.aspx.cs using using using using using using using using using using using using using using using using


namespace TEST { public partial class Registrasi_Dokumen : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var iujk_awal = ""; var iujk_akhir = ""; { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS1'"; cmd.Connection = conn; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0)//kalau ga ada data awalnya { } else { Nomor_IUJK.Enabled= false; Masa_IUJK_Awal.Enabled=false; Masa_IUJK_Akhir.Enabled = false; Instansi_IUJK.Enabled = false; Bidang_IUJK.Enabled = false; Delete_IUJK.Visible = true; cmd.CommandText = "SELECT * FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS1'";

L406 cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_IUJK.Text = (odr[0].ToString()); Masa_IUJK_Awal.Text = odr[1].ToString(); Masa_IUJK_Akhir.Text = (odr[2].ToString()); Instansi_IUJK.Text = (odr[3].ToString()); Bidang_IUJK.Text = (odr[6].ToString()); } } //---------------------------// SIUP //--------------------------// cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS2'"; cmd.Connection = conn; i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0)//kalau ga ada data awalnya { } else { Nomor_SIUP.Enabled = false; Masa_SIUP_Awal.Enabled = false; Masa_SIUP_Akhir.Enabled = false; Instansi_SIUP.Enabled = false; Bidang_SIUP.Enabled = false; Delete_SIUP.Visible = true; cmd.CommandText = "SELECT * FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS2'"; cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_SIUP.Text = (odr[0].ToString()); Masa_SIUP_Awal.Text = odr[1].ToString(); Masa_SIUP_Akhir.Text = (odr[2].ToString()); Instansi_SIUP.Text = (odr[3].ToString()); Bidang_SIUP.Text = (odr[6].ToString()); } } //---------------------------// SIUI //--------------------------// cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS3'"; cmd.Connection = conn; i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0)//kalau ga ada data awalnya { } else { Nomor_SIUI.Enabled = false;

L407 Masa_SIUI_Awal.Enabled = false; Masa_SIUI_Akhir.Enabled = false; Instansi_SIUI.Enabled = false; Bidang_SIUI.Enabled = false; Delete_SIUI.Visible = true; cmd.CommandText = "SELECT * FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS3'"; cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_SIUI.Text = (odr[0].ToString()); Masa_SIUI_Awal.Text = odr[1].ToString(); Masa_SIUI_Akhir.Text = (odr[2].ToString()); Instansi_SIUI.Text = (odr[3].ToString()); Bidang_SIUI.Text = (odr[6].ToString()); } } //---------------------------// TDP //--------------------------// cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS4'"; cmd.Connection = conn; i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0)//kalau ga ada data awalnya { } else { Nomor_TDP.Enabled = false; Masa_TDP_Awal.Enabled = false; Masa_TDP_Akhir.Enabled = false; Instansi_TDP.Enabled = false; Bidang_TDP.Enabled = false; Delete_TDP.Visible = true; cmd.CommandText = "SELECT * FROM MASTER_SURAT_IZIN WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_SURAT='TS4'"; cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { Nomor_TDP.Text = (odr[0].ToString()); Masa_TDP_Awal.Text = odr[1].ToString(); Masa_TDP_Akhir.Text = (odr[2].ToString()); Instansi_TDP.Text = (odr[3].ToString()); Bidang_TDP.Text = (odr[6].ToString()); } }

//---------------------------// AKTA PENDIRIAN PERUSAHAAN //--------------------------//

L408

cmd.CommandText = "SELECT COUNT(*) FROM MASTER_AKTA WHERE KODE_PERUSAHAAN='" + Session["username"] + "' AND KODE_TIPE_AKTA='TA1'"; cmd.Connection = conn; i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0)//kalau ga ada data awalnya { } else { txtb_No_Akta.Enabled = false; txtb_tgl_ap.Enabled = false; txtb_ap_nama.Enabled = false; txtb_no_mk.Enabled = false; txtb_tgl_ap_mk.Enabled = false; Delete_AP.Visible = true; cmd.CommandText = "SELECT * FROM MASTER_AKTA WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_AKTA='TA1'"; cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { txtb_No_Akta.Text = (odr[0].ToString()); txtb_tgl_ap.Text = odr[1].ToString(); txtb_ap_nama.Text = (odr[2].ToString()); } cmd.CommandText = "SELECT * FROM MASTER_SURAT_MK WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_SURAT_MK='MK1'"; cmd.Connection = conn; OracleDataReader odr2 = cmd.ExecuteReader(); while (odr2.Read()) { txtb_no_mk.Text = (odr2[0].ToString()); txtb_tgl_ap_mk.Text = odr2[1].ToString(); } }

//---------------------------// AKTA PENDIRIAN PERUSAHAAN TERAKHIR //---------------------------// cmd.CommandText = "SELECT COUNT(*) FROM MASTER_AKTA WHERE KODE_PERUSAHAAN='" + Session["username"] + "' AND KODE_TIPE_AKTA='TA2'"; cmd.Connection = conn; i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0)//kalau ga ada data awalnya { } else { txtb_no_akta_ter_1.Enabled = false; txtb_tgl_ter_1.Enabled = false; txtb_nama_not_ter_1.Enabled = false; txtb_no_mk_ter_1.Enabled = false;

L409 txtb_tgl_mk_ter_1.Enabled = false; Delete_Ter.Visible = true; cmd.CommandText = "SELECT * FROM MASTER_AKTA WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_AKTA='TA2'"; cmd.Connection = conn; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { txtb_no_akta_ter_1.Text = (odr[0].ToString()); txtb_tgl_ter_1.Text = odr[1].ToString(); txtb_nama_not_ter_1.Text = (odr[2].ToString()); } cmd.CommandText = "SELECT * FROM MASTER_SURAT_MK WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_SURAT_MK='MK2'"; cmd.Connection = conn; OracleDataReader odr2 = cmd.ExecuteReader(); while (odr2.Read()) { txtb_no_mk_ter_1.Text = (odr2[0].ToString()); txtb_tgl_mk_ter_1.Text = odr2[1].ToString(); } } conn.Close(); } } protected void Submit_Click(object sender, EventArgs e) { } protected void cancel_click(object sender, EventArgs e) { } protected void Submit_IUJK_Click(object sender, EventArgs e) { var sql = ""; if (Nomor_IUJK.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Masukkan Anda"); else if (Bidang_IUJK.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Masukkan Anda"); else if (Masa_IUJK_Awal.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Masukkan Berlaku Awal IUJK Anda"); else if (Masa_IUJK_Akhir.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Masukkan Berlaku Akhir IUJK Anda"); else if (Instansi_IUJK.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Masukkan Pemberi Izin IUJK Anda");

Nomor IUJK

Bidang IUJK

Masa

Masa

Instansi

L410

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS1' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_SURAT_IZIN (NO_SURAT_IZIN,BIDANG_SURAT_IZIN,TGL_AWAL_SURAT_IZIN,TGL_AKHIR_SURAT_IZIN,INSTANS I_SURAT_IZIN,KODE_TIPE_SURAT,KODE_PERUSAHAAN) VALUES " + "('" + Nomor_IUJK.Text.ToUpper() + "','" + Bidang_IUJK.Text.ToUpper() + "','" + Masa_IUJK_Awal.Text.ToUpper() + "','" + Masa_IUJK_Akhir.Text.ToUpper() + "','" + Instansi_IUJK.Text.ToUpper() + "','TS1','" + Session["username"] + "') "; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Insert Berhasil"); } else { sql = "UPDATE MASTER_SURAT_IZIN SET " + "NO_SURAT_IZIN='" + Nomor_IUJK.Text.ToString() + "', " + "TGL_AWAL_SURAT_IZIN='" + Masa_IUJK_Awal.Text.ToString() + "', " + "TGL_AKHIR_SURAT_IZIN='" + Masa_IUJK_Akhir.Text.ToString() + "', " + "INSTANSI_SURAT_IZIN='" + Instansi_IUJK.Text.ToString() + "', " + "BIDANG_SURAT_IZIN='" + Bidang_IUJK.Text.ToString() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND " + "KODE_TIPE_SURAT='TS1'"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Data Berhasil Disimpan"); } conn.Close(); } protected void Delete_IUJK_Click(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "DELETE FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS1' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); Label1.Text = ""; Label2.Text = "";

L411

Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err1=Penghapusan Berhasil"); } protected void Submit_SIUP_Click(object sender, EventArgs e) { var sql = ""; if (Nomor_SIUP.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Masukkan Anda"); else if (Bidang_SIUP.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Masukkan Anda"); else if (Masa_SIUP_Awal.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Masukkan Berlaku Awal SIUP Anda"); else if (Masa_SIUP_Akhir.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Masukkan Berlaku Akhir SIUP Anda"); else if (Instansi_SIUP.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Masukkan Pemberi Izin SIUP Anda");

Nomor SIUP

Bidang SIUP

Masa

Masa

Instansi

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS2' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_SURAT_IZIN (NO_SURAT_IZIN,BIDANG_SURAT_IZIN,TGL_AWAL_SURAT_IZIN,TGL_AKHIR_SURAT_IZIN,INSTANS I_SURAT_IZIN,KODE_TIPE_SURAT,KODE_PERUSAHAAN) VALUES " + "('" + Nomor_SIUP.Text.ToUpper() + "','" + Bidang_SIUP.Text.ToUpper() + "','" + Masa_SIUP_Awal.Text.ToUpper() + "','" + Masa_SIUP_Akhir.Text.ToUpper() + "','" + Instansi_SIUP.Text.ToUpper() + "','TS2','" + Session["username"] + "') "; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Insert Berhasil"); } else { sql = "UPDATE MASTER_SURAT_IZIN SET " + "NO_SURAT_IZIN='" + Nomor_SIUP.Text.ToString() + "', " + "TGL_AWAL_SURAT_IZIN='" + Masa_SIUP_Awal.Text.ToString() + "', " + "TGL_AKHIR_SURAT_IZIN='" + Masa_SIUP_Akhir.Text.ToString() + "', " + "INSTANSI_SURAT_IZIN='" + Instansi_SIUP.Text.ToString() + "', " +

L412 "BIDANG_SURAT_IZIN='" + Bidang_SIUP.Text.ToString() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND " + "KODE_TIPE_SURAT='TS2'"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Data Berhasil Disimpan"); } conn.Close(); } protected void Delete_SIUP_Click(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "DELETE FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS2' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err2=Penghapusan Berhasil"); Label3.Text = ""; Label4.Text = ""; } protected void Submit_SIUI_Click(object sender, EventArgs e) { var sql = ""; if (Nomor_SIUI.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Masukkan Anda"); else if (Bidang_SIUI.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Masukkan Anda"); else if (Masa_SIUI_Awal.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Masukkan Berlaku Awal SIUI Anda"); else if (Masa_SIUI_Akhir.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Masukkan Berlaku Akhir SIUI Anda"); else if (Instansi_SIUI.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Masukkan Pemberi Izin SIUI Anda");

Nomor IUJK

Bidang SIUI

Masa

Masa

Instansi

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS3' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0)

L413 { sql = "INSERT INTO MASTER_SURAT_IZIN (NO_SURAT_IZIN,BIDANG_SURAT_IZIN,TGL_AWAL_SURAT_IZIN,TGL_AKHIR_SURAT_IZIN,INSTANS I_SURAT_IZIN,KODE_TIPE_SURAT,KODE_PERUSAHAAN) VALUES " + "('" + Nomor_SIUI.Text.ToUpper() + "','" + Bidang_SIUI.Text.ToUpper() + "','" + Masa_SIUI_Awal.Text.ToUpper() + "','" + Masa_SIUI_Akhir.Text.ToUpper() + "','" + Instansi_SIUI.Text.ToUpper() + "','TS3','" + Session["username"] + "') "; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Insert Berhasil"); } else { sql = "UPDATE MASTER_SURAT_IZIN SET " + "NO_SURAT_IZIN='" + Nomor_SIUI.Text.ToString() + "', " + "TGL_AWAL_SURAT_IZIN='" + Masa_SIUI_Awal.Text.ToString() + "', " + "TGL_AKHIR_SURAT_IZIN='" + Masa_SIUI_Akhir.Text.ToString() + "', " + "INSTANSI_SURAT_IZIN='" + Instansi_SIUI.Text.ToString() + "', " + "BIDANG_SURAT_IZIN='" + Bidang_SIUI.Text.ToString() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND " + "KODE_TIPE_SURAT='TS3'"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Data Berhasil Disimpan"); } conn.Close(); } protected void Delete_SIUI_Click(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "DELETE FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS3' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Penghapusan Berhasil"); Label5.Text = ""; Label6.Text = ""; } protected void Submit_TDP_Click(object sender, EventArgs e) { var sql = "";

L414 if (Nomor_TDP.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err4=Masukkan Anda"); else if (Bidang_TDP.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err4=Masukkan Anda"); else if (Masa_TDP_Awal.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err4=Masukkan Berlaku Awal TDP Anda"); else if (Masa_TDP_Akhir.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Masukkan Berlaku Akhir TDP Anda"); else if (Instansi_TDP.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err3=Masukkan Pemberi Izin TDP Anda");

Nomor TDP

Bidang TDP

Masa

Masa

Instansi

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT COUNT(*) FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS4' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_SURAT_IZIN (NO_SURAT_IZIN,BIDANG_SURAT_IZIN,TGL_AWAL_SURAT_IZIN,TGL_AKHIR_SURAT_IZIN,INSTANS I_SURAT_IZIN,KODE_TIPE_SURAT,KODE_PERUSAHAAN) VALUES " + "('" + Nomor_TDP.Text.ToUpper() + "','" + Bidang_TDP.Text.ToUpper() + "','" + Masa_TDP_Awal.Text.ToUpper() + "','" + Masa_TDP_Akhir.Text.ToUpper() + "','" + Instansi_TDP.Text.ToUpper() + "','TS4','" + Session["username"] + "') "; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close();

Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err4=Insert Berhasil"); } else { sql = "UPDATE MASTER_SURAT_IZIN SET " + "NO_SURAT_IZIN='" + Nomor_TDP.Text.ToString() + "', " + "TGL_AWAL_SURAT_IZIN='" + Masa_TDP_Awal.Text.ToString() + "', " + "TGL_AKHIR_SURAT_IZIN='" + Masa_TDP_Akhir.Text.ToString() + "', " + "INSTANSI_SURAT_IZIN='" + Instansi_TDP.Text.ToString() + "', " + "BIDANG_SURAT_IZIN='" + Bidang_TDP.Text.ToString() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND " + "KODE_TIPE_SURAT='TS4'"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err4=Data Berhasil Disimpan");

L415 } conn.Close(); } protected void Delete_TDP_Click(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "DELETE FROM MASTER_SURAT_IZIN WHERE KODE_TIPE_SURAT ='TS4' AND KODE_PERUSAHAAN ='" + Session["username"] + "'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err4=Penghapusan Berhasil"); } protected void Submit_AP_Click(object sender, EventArgs e) { var sql = ""; if (txtb_No_Akta.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Masukkan Pendirian Anda"); else if (txtb_tgl_ap.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Masukkan Terbit Akta Pendirian Anda"); else if (txtb_ap_nama.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Masukkan Notaris Akta Pendirian Anda"); else if (txtb_no_mk.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Masukkan Anda"); else if (txtb_tgl_ap_mk.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Masukkan Terbit Surat MK Anda");

Nomor Akta

Tanggal

Nama

No Surat MK

Tanggal

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT COUNT(*) FROM MASTER_AKTA WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_AKTA ='TA1'"; cmd.Connection = conn; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_AKTA VALUES " + "('" + txtb_No_Akta.Text.ToUpper() + "','" + txtb_tgl_ap.Text.ToUpper() + "','" + txtb_ap_nama.Text.ToUpper() + "','TA1','" + Session["username"] + "') "; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery();

sql = "INSERT INTO MASTER_SURAT_MK VALUES " +

L416 "('" + txtb_no_mk.Text.ToUpper() + "', '" + txtb_tgl_ap_mk.Text.ToUpper() + "', '" + Session["username"] + "', 'MK1')"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Insert Berhasil"); conn.Close(); } else { sql = "UPDATE MASTER_AKTA SET " + "NO_AKTA='" + txtb_No_Akta.Text.ToString() + "', " + "TGL_AKTA='" + txtb_tgl_ap.Text.ToString() + "', " + "NAMA_NOTARIS='" + txtb_ap_nama.Text.ToString() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND KODE_TIPE_AKTA = 'TA1'"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); sql = "UPDATE MASTER_SURAT_MK SET " + "NO_SURAT_MK='" + txtb_no_mk.Text.ToString() + "', " + "TGL_SURAT_MK='" + txtb_tgl_ap_mk.Text.ToString() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND KODE_TIPE_SURAT_MK='MK1'"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Data Berhasil Disimpan"); } conn.Close(); } protected void Delete_AP_Click(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "DELETE FROM MASTER_AKTA WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_AKTA = 'TA1'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); cmd.CommandText = "DELETE FROM MASTER_SURAT_MK WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND KODE_TIPE_SURAT_MK='MK1'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err5=Penghapusan Berhasil"); }

L417 protected void Submit_Ter_Click(object sender, EventArgs e) { var sql = ""; if (txtb_no_akta_ter_1.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Masukkan Pendirian Terakhir Anda"); else if (txtb_tgl_ter_1.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Masukkan Terbit Akta Pendirian Terakhir Anda"); else if (txtb_nama_not_ter_1.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Masukkan Notaris Akta Pendirian Terakhir Anda"); else if (txtb_no_mk_ter_1.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Masukkan Anda"); else if (txtb_tgl_mk_ter_1.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Masukkan Terbit Surat MK Anda");

Nomor Akta

Tanggal

Nama

No Surat MK

Tanggal

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "SELECT COUNT(*) FROM MASTER_AKTA WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_AKTA = 'TA2'"; cmd.Connection = conn; int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_AKTA VALUES " + "('" + txtb_no_akta_ter_1.Text.ToUpper() + "','" + txtb_tgl_ter_1.Text.ToUpper() + "','" + txtb_nama_not_ter_1.Text.ToUpper() + "','TA2','" + Session["username"] + "') "; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery();

sql = "INSERT INTO MASTER_SURAT_MK VALUES " + "('" + txtb_no_mk_ter_1.Text.ToUpper() + "', '" + txtb_tgl_mk_ter_1.Text.ToUpper() + "', '" + Session["username"] + "' , 'MK2')"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Insert Berhasil"); conn.Close(); } else { sql = "UPDATE MASTER_AKTA SET " + "NO_AKTA='" + txtb_no_mk_ter_1.Text.ToUpper() + "', " + "TGL_AKTA='" + txtb_tgl_mk_ter_1.Text.ToUpper() + "', " + "NAMA_NOTARIS='" + txtb_nama_not_ter_1.Text.ToString() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND KODE_TIPE_AKTA = 'TA2'"; cmd.CommandText = sql; cmd.Connection = conn;

L418 cmd.ExecuteNonQuery(); sql = "UPDATE MASTER_SURAT_MK SET " + "NO_SURAT_MK='" + txtb_no_mk_ter_1.Text.ToUpper() + "', " + "TGL_SURAT_MK='" + txtb_tgl_mk_ter_1.Text.ToUpper() + "' " + "WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND KODE_TIPE_SURAT_MK='MK2'"; cmd.CommandText = sql; cmd.Connection = conn; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Data Berhasil Disimpan"); } conn.Close(); } protected void Delete_Ter_Click(object sender, EventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.CommandText = "DELETE FROM MASTER_AKTA WHERE KODE_PERUSAHAAN ='" + Session["username"] + "' AND KODE_TIPE_AKTA = 'TA2'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); cmd.CommandText = "DELETE FROM MASTER_SURAT_MK WHERE KODE_PERUSAHAAN = '" + Session["username"] + "' AND KODE_TIPE_SURAT_MK='MK2'"; cmd.Connection = conn; cmd.ExecuteNonQuery(); Response.Redirect("~/Perusahaan/Registrasi_Dokumen.aspx?err6=Penghapusan Berhasil"); } } }

Registrasi_Pegawai.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Registrasi_Pegawai.aspx.cs" Inherits="TEST.Registrasi_Pegawai" %> <strong>REGISTRASI KOMISARIS/DIREKSI /////

L421

L423

NO KTP :

L419

NAMA :

POSISI :


L420 Width="100px" onclick="btn_tambah_Click" />

CARI NAMA KOMISARIS/DIREKSI :

<strong>REGISTRASI PEGAWAI
NO KTP :

NAMA :

BIDANG KEAHLIAN :

PENDIDIKAN TERAKHIR :

TAHUN LULUS PEGAWAI :

<% if (Request.QueryString["err2"] != null) { Response.Write(Request.QueryString["err2"]); } %> "

L422 ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT "NAMA_KEAHLIAN" FROM "KEAHLIAN"">

CARI NAMA PEGAWAI :

Registrasi_Pegawai.aspx.cs using using using using using using using using using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq; System.Data.OracleClient; System.Text.RegularExpressions;

namespace TEST { public partial class Registrasi_Pegawai : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var kodeper = (String)Session["username"]; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT NO_KTP, NAMA_PEGAWAI, POSISI_PEGAWAI FROM MASTER_PEGAWAI WHERE KODE_PERUSAHAAN = '" + Session["username"] + "'AND (KODE_TIPE_PEGAWAI LIKE 'TP1') OR (KODE_TIPE_PEGAWAI LIKE 'TP2') ORDER BY POSISI_PEGAWAI DESC", conn); OracleDataReader odr = cmd.ExecuteReader(); OracleDataAdapter oda = new OracleDataAdapter(cmd); DataSet ds = new DataSet(); oda.Fill(ds); GridView1.DataSource = ds; GridView1.DataBind();

L424 OracleCommand cmd2 = new OracleCommand("SELECT PLN.MASTER_PEGAWAI.NO_KTP, PLN.MASTER_PEGAWAI.NAMA_PEGAWAI, PLN.KEAHLIAN.NAMA_KEAHLIAN, PLN.MASTER_PEGAWAI.TAHUN_LULUS_PEGAWAI, PLN.MASTER_PEGAWAI.PENDIDIKAN_PEGAWAI FROM PLN.MASTER_PEGAWAI INNER JOIN PLN.KEAHLIAN ON PLN.MASTER_PEGAWAI.KODE_KEAHLIAN = PLN.KEAHLIAN.KODE_KEAHLIAN INNER JOIN PLN.TIPE_PEGAWAI ON PLN.MASTER_PEGAWAI.KODE_TIPE_PEGAWAI = PLN.TIPE_PEGAWAI.KODE_TIPE_PEGAWAI WHERE PLN.MASTER_PEGAWAI.KODE_PERUSAHAAN = '" + Session["username"] + "' ORDER BY PLN.KEAHLIAN.NAMA_KEAHLIAN", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridView2.DataSource = ds2; GridView2.DataBind(); odr = cmd.ExecuteReader(); conn.Close(); } protected void btn_tambah_Click(object sender, EventArgs e) { var no_ktp = ""; var sql = ""; var posisi = ""; if (txtbox_ktp.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=No KTP harap diisi"); else if (txtbox_nama.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Nama pegawai harap diisi"); else if (RBLPosisi.SelectedValue == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Posisi harap diisi"); else if (RBLPosisi.SelectedValue == "TP1" && RBL_komisaris.SelectedValue=="KOMISARIS UTAMA")posisi="KOMISARIS UTAMA"; else if (RBLPosisi.SelectedValue == "TP1" && RBL_komisaris.SelectedValue == "KOMISARIS") posisi = "KOMISARIS"; else if (RBLPosisi.SelectedValue == "TP1" && RBL_komisaris.SelectedValue == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Tipe komisaris harap diisi"); else if (RBLPosisi.SelectedValue == "TP2" && txtb_bagian.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Bagian direksi harap diisi"); else if (RBLPosisi.SelectedValue == "TP2" && txtb_bagian.Text !="")posisi = "DIREKTUR "+txtb_bagian.Text.ToUpper(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); //kalau belum ada data OracleCommand cmd = new OracleCommand("SELECT COUNT(*) from MASTER_PEGAWAI WHERE no_ktp = '" + txtbox_ktp.Text + "'", conn); int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { sql = "INSERT INTO MASTER_PEGAWAI(NO_KTP, NAMA_PEGAWAI,KODE_TIPE_PEGAWAI,POSISI_PEGAWAI,KODE_PERUSAHAAN) values ('" +

L425 txtbox_ktp.Text.ToUpper() + "','" + txtbox_nama.Text.ToUpper() + "','" + RBLPosisi.SelectedValue.ToUpper() + "','"+posisi+"','"+Session["username"]+"')"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Insert Berhasil"); } else { Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=No KTP Sudah Terdaftar Di Data Komisaris-Direksi atau Data Pegawai"); } } protected void btn_delete_Click(object sender, EventArgs e) { if (txtbox_ktp.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=No KTP harap diisi"); else { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); var sql = ""; OracleCommand cmd = new OracleCommand("select count(*) from MASTER_PEGAWAI where NO_KTP = '" + txtbox_ktp.Text.ToUpper() + "' AND KODE_PERUSAHAAN='" + Session["username"] + "' AND KODE_TIPE_PEGAWAI NOT IN('TP3')", conn); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Komisaris/Direksi Tidak Terdaftar"); } else { sql = "DELETE FROM MASTER_PEGAWAI WHERE NO_KTP='" + txtbox_ktp.Text.ToUpper() + "' AND KODE_PERUSAHAAN='"+Session["username"]+"'"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Delete Berhasil"); } } } protected void btn_cari_Click(object sender, EventArgs e) { var CARINAMA = txtbox_cari_nama.Text.ToUpper(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open();

L426 OracleCommand cmd2 = new OracleCommand("SELECT NO_KTP, NAMA_PEGAWAI, POSISI_PEGAWAI from MASTER_PEGAWAI where NAMA_PEGAWAI LIKE '%" + CARINAMA.ToUpper() + "%' AND KODE_PERUSAHAAN = '" + Session["username"] + "' AND (KODE_TIPE_PEGAWAI LIKE 'TP1') OR (KODE_TIPE_PEGAWAI LIKE 'TP2')", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridView1.DataSource = ds2; GridView1.DataBind(); conn.Close(); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { var kodeper = (String)Session["username"]; if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE MASTER_PEGAWAI WHERE NO_KTP = '" + row.Cells[0].Text + "' AND KODE_PERUSAHAAN = '" + kodeper + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err1=Hapus Berhasil"); } } protected void btn2_tambah_Click(object sender, EventArgs e) { int th_lulus = 0; var no_ktp = ""; var sql = ""; var posisi = ""; bool val = System.Text.RegularExpressions.Regex.IsMatch(txtb_thnlulus.Text, @"\d[0-9]+"); if (txtb_noktp_peg.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=No KTP harap diisi"); else if (txtb_nm_peg.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Nama pegawai harap diisi"); else if (txtb_pend_ter.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Pendidikan terakhir harap diisi"); else if (txtb_thnlulus.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Tahun lulus harap diisi"); else if (!txtb_thnlulus.Text.ToCharArray().Any(char.IsNumber)) Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Tahun lulus hanya boleh diisi dengan angka");

L427

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand("SELECT COUNT(*) from MASTER_PEGAWAI WHERE no_ktp = '" + txtb_noktp_peg.Text + "'", conn); int i = Convert.ToInt32(cmd.ExecuteScalar()); if (i == 0) { //masuk kesini kalau semua sudah diisi dan no ktp nya belum pernah didaftarkan var kode_keahlian = ""; int len = 0;

cmd.CommandText = "SELECT KODE_KEAHLIAN FROM KEAHLIAN WHERE NAMA_KEAHLIAN ='" + DDL_keahlian.SelectedItem.ToString() + "'"; cmd.Connection = conn; kode_keahlian = (string)cmd.ExecuteScalar();

th_lulus = Int32.Parse(txtb_thnlulus.Text); sql = "INSERT INTO MASTER_PEGAWAI(NO_KTP, NAMA_PEGAWAI,TAHUN_LULUS_PEGAWAI,PENDIDIKAN_PEGAWAI,KODE_PERUSAHAAN,KODE_TIPE_PEG AWAI,KODE_KEAHLIAN)"+ "values ('" + txtb_noktp_peg.Text.ToUpper() + "','" + txtb_nm_peg.Text.ToUpper() + "','" + th_lulus + "','" + txtb_pend_ter.Text + "','"+Session["username"]+"','TP3','"+kode_keahlian+"')"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView1.DataBind(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Insert Berhasil"); } else { Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=No KTP Sudah Terdaftar Di Data Komisaris-Direksi atau Data Pegawai"); } } protected void GridView2_SelectedIndexChanged(object sender, EventArgs e) { var kodeper = (String)Session["username"]; if (GridView2.SelectedIndex != -1) { GridViewRow row = GridView2.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE MASTER_PEGAWAI WHERE NO_KTP = '" + row.Cells[0].Text + "' AND KODE_PERUSAHAAN = '" + kodeper + "'";

L428 cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Hapus Berhasil"); } } protected void btn2_delete_Click(object sender, EventArgs e) { if (txtb_noktp_peg.Text == "") Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=No KTP harap diisi"); else { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); var sql = ""; OracleCommand cmd = new OracleCommand("select count(*) from MASTER_PEGAWAI where NO_KTP = '" + txtb_noktp_peg.Text.ToUpper() + "' AND KODE_PERUSAHAAN='"+Session["username"]+"' AND KODE_TIPE_PEGAWAI NOT IN('TP1','TP2')", conn); int i = Convert.ToInt16(cmd.ExecuteScalar()); if (i == 0) { Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Pegawai Tidak Terdaftar"); } else { sql = "DELETE FROM MASTER_PEGAWAI WHERE NO_KTP='" + txtb_noktp_peg.Text.ToUpper() + "' AND KODE_PERUSAHAAN = '"+Session["username"]+"'"; OracleCommand cmd3 = new OracleCommand(sql, conn); cmd3.ExecuteNonQuery(); GridView2.DataBind(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_Pegawai.aspx?err2=Delete Berhasil"); } } } protected void btn_cari2_Click(object sender, EventArgs e) { var CARINAMA = txtbox_cari_nama2.Text.ToUpper(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd2 = new OracleCommand("SELECT PLN.MASTER_PEGAWAI.NO_KTP, PLN.MASTER_PEGAWAI.NAMA_PEGAWAI, PLN.KEAHLIAN.NAMA_KEAHLIAN, PLN.MASTER_PEGAWAI.TAHUN_LULUS_PEGAWAI, PLN.MASTER_PEGAWAI.PENDIDIKAN_PEGAWAI FROM PLN.MASTER_PEGAWAI INNER JOIN PLN.KEAHLIAN ON PLN.MASTER_PEGAWAI.KODE_KEAHLIAN = PLN.KEAHLIAN.KODE_KEAHLIAN INNER JOIN PLN.TIPE_PEGAWAI ON PLN.MASTER_PEGAWAI.KODE_TIPE_PEGAWAI =

L429 PLN.TIPE_PEGAWAI.KODE_TIPE_PEGAWAI WHERE PLN.MASTER_PEGAWAI.NAMA_PEGAWAI LIKE '%" + CARINAMA.ToUpper() + "%' ORDER BY PLN.KEAHLIAN.NAMA_KEAHLIAN", conn); OracleDataReader odr2 = cmd2.ExecuteReader(); OracleDataAdapter oda2 = new OracleDataAdapter(cmd2); DataSet ds2 = new DataSet(); oda2.Fill(ds2); GridView2.DataSource = ds2; GridView2.DataBind(); conn.Close(); } protected void RBLPosisi_SelectedIndexChanged(object sender, EventArgs e) { /* txtb_keahlian.Text = "AA"; lbl_bagian.Text = "JAJARAN"; lbl_ttk_dua.Text = ":"; */

if (RBLPosisi.SelectedValue == "TP1") { lbl_bagian.Text = "JABATAN"; lbl_ttk_dua.Text = ":"; RBL_komisaris.Visible = true; txtb_bagian.Visible = false; } else if (RBLPosisi.SelectedValue == "TP2") { lbl_bagian.Text = "BAGIAN"; RBL_komisaris.Visible = false; txtb_bagian.Visible = true; }

} } }

Registrasi_SBU.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Registrasi_SBU.aspx.cs" Inherits="TEST.perusahaan.Registrasi_SBU" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> MASTER SBU

L430 Nomor SBU : Nomor Registrasi : Masa Berlaku :
<% if (Request.QueryString["err"] != null)

L431 { Response.Write(Request.QueryString["err"]); } %>

SBU YANG TERDAFTAR
" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" DeleteCommand="DELETE FROM SERTIFIKAT_BADAN_USAHA WHERE 1=0" SelectCommand="SELECT NO_SERTIFIKAT_BADAN_USAHA, NO_REGIS_SERTIFIKAT, MASA_BERLAKU_AKHIR FROM SERTIFIKAT_BADAN_USAHA WHERE (KODE_PERUSAHAAN = :kode_perusahaan)"> <SelectParameters>

Registrasi_SBU.aspx.cs using using using using using using using

System.Collections.Generic; System.Linq; System.Data.OracleClient; System; System.Data; System.Data.SqlClient; System.Configuration;

L432 using using using using using using using

System.Web; System.Web.Security; System.Web.UI; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Web.UI.HtmlControls; System.Collections;

namespace TEST.perusahaan { public partial class Registrasi_SBU : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { } protected void Tambah_Click(object sender, EventArgs e) { var kode_perusahaan = (String)Session["username"]; var no_sertifikat = NO_SBU.Text; var no_regis = No_Regis.Text; if (NO_SBU.Text == "") Response.Redirect("~/perusahaan/Registrasi_SBU.aspx?err=Harap mengisi no SBU"); else if (No_Regis.Text == "") Response.Redirect("~/perusahaan/Registrasi_SBU.aspx?err=Harap mengisi no registrasi"); else if (Tgl_Berlaku.Text == "") Response.Redirect("~/perusahaan/Registrasi_SBU.aspx?err=Harap mengisi tanggal berlaku"); OracleCommand cmd = new OracleCommand(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); cmd.Connection = conn; cmd.CommandText = "SELECT NO_SERTIFIKAT_BADAN_USAHA FROM SERTIFIKAT_BADAN_USAHA WHERE KODE_PERUSAHAAN = '"+kode_perusahaan+"'"; OracleDataReader odr = cmd.ExecuteReader(); while (odr.Read()) { if (no_sertifikat == odr[0].ToString()) { Response.Redirect("~/perusahaan/Registrasi_SBU.aspx?err=Nomor sudah pernah diregistrasi"); } } cmd.CommandText = "INSERT INTO SERTIFIKAT_BADAN_USAHA(NO_SERTIFIKAT_BADAN_USAHA,NO_REGIS_SERTIFIKAT,MASA_BERLAKU _AKHIR,KODE_PERUSAHAAN) " + "VALUES(:NO_SERITIFIKAT_BADAN_USAHA,:NO_REGIS_SERTIFIKAT,:MASA_BERLAKU_AKHIR,:KOD E_PERUSAHAAN)";

L433 cmd.Parameters.AddWithValue("NO_SERITIFIKAT_BADAN_USAHA", OracleType.VarChar).Value = no_sertifikat; cmd.Parameters.AddWithValue("NO_REGIS_SERTIFIKAT", OracleType.VarChar).Value = no_regis; cmd.Parameters.AddWithValue("MASA_BERLAKU_AKHIR", OracleType.DateTime).Value = Tgl_Berlaku.Text; cmd.Parameters.AddWithValue("KODE_PERUSAHAAN", OracleType.VarChar).Value = kode_perusahaan; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_SBU.aspx");

} protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; Session.Add("SBU", row.Cells[0].Text); Response.Redirect("~/Perusahaan/Registrasi_SBU2.aspx"); } } protected void GridView1_RowDeleting(object sender, GridViewDeleteEventArgs e) { OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE FROM SERTIFIKAT_BADAN_USAHA WHERE NO_SERTIFIKAT_BADAN_USAHA = '"+GridView1.Rows[e.RowIndex].Cells[0].Text+"'"; cmd.ExecuteNonQuery(); cmd.CommandText = "DELETE FROM DETAIL_SBU WHERE NO_SERTIFIKAT_BADAN_USAHA = '" + GridView1.Rows[e.RowIndex].Cells[0].Text + "'"; cmd.ExecuteNonQuery(); conn.Close(); } protected void cancel_click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Perusahaan.aspx"); } } }

Registrasi_SBU2.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Registrasi_SBU2.aspx.cs" Inherits="TEST.perusahaan.Registrasi_SBU2" %>

L434 <% if((String)Session["SBU"] == null || Session["SBU"] == "") { Response.Redirect("~/perusahaan/Registrasi_SBU.aspx"); } %> Nomor SBU : Bidang : Sub Bidang : Kualifikasi :

L435

DETAIL SERTIFIKAT BADAN USAHA " ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT NO_SERTIFIKAT_BADAN_USAHA, BIDANG, SUB_BIDANG, KUALIFIKASI FROM DETAIL_SBU WHERE (NO_SERTIFIKAT_BADAN_USAHA = :no_sbu)"> <SelectParameters>

L436 Registrasi_SBU2.aspx.cs using System.Collections.Generic; using System.Linq; using System.Data.OracleClient; using System; using System.Data; using System.Data.SqlClient; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; using System.Collections; namespace TEST.perusahaan { public partial class Registrasi_SBU2 : System.Web.UI.Page { Connect con = new Connect(); protected void Page_Load(object sender, EventArgs e) { var no_sbu = (String)Session["SBU"]; NO_SBU.Text = no_sbu; } protected void Tambah_Click(object sender, EventArgs e) { var no_sbu = (String)Session["SBU"]; var bidang = Bidang.Text.ToUpper(); var sub_bidang = Sub_bidang.Text.ToUpper(); var kualifikasi = Kualifikasi.Text.ToUpper(); if (Bidang.Text == "") Response.Redirect("~/perusahaan/Registrasi_SBU2.aspx?err=Data belum lengkap diisi"); else if (Sub_bidang.Text == "") Response.Redirect("~/perusahaan/Registrasi_SBU2.aspx?err=Data belum lengkap diisi"); else if (Kualifikasi.Text == "") Response.Redirect("~/perusahaan/Registrasi_SBU2.aspx?err=Data belum lengkap diisi");

OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "INSERT INTO DETAIL_SBU(NO_SERTIFIKAT_BADAN_USAHA,BIDANG,SUB_BIDANG,KUALIFIKASI) " + "VALUES(:NO_SERITIFIKAT_BADAN_USAHA,:BIDANG,:SUB_BIDANG,:KUALIFIKASI)"; cmd.Parameters.AddWithValue("NO_SERITIFIKAT_BADAN_USAHA", OracleType.VarChar).Value = no_sbu; cmd.Parameters.AddWithValue("BIDANG", OracleType.VarChar).Value = bidang;

L437 cmd.Parameters.AddWithValue("SUB_BIDANG", OracleType.VarChar).Value = sub_bidang; cmd.Parameters.AddWithValue("KUALIFIKASI", OracleType.VarChar).Value = kualifikasi; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_SBU2.aspx"); } protected void cancel_click(object sender, EventArgs e) { Session.Add("SBU", ""); Response.Redirect("~/perusahaan/Registrasi_SBU.aspx"); } protected void GridView1_SelectedIndexChanged(object sender, EventArgs e) { if (GridView1.SelectedIndex != -1) { GridViewRow row = GridView1.SelectedRow; OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); OracleCommand cmd = new OracleCommand(); cmd.Connection = conn; cmd.CommandText = "DELETE DETAIL_SBU WHERE NO_SERTIFIKAT_BADAN_USAHA = '" + row.Cells[0].Text + "' AND " + "BIDANG = '" + row.Cells[1].Text + "' AND " + "SUB_BIDANG = '" + row.Cells[2].Text + "' AND " + "KUALIFIKASI = '" + row.Cells[3].Text + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/Perusahaan/Registrasi_SBU2.aspx"); } } } }

Ubah_Sandi_Perusahaan.aspx <%@ Page Title="" Language="C#" MasterPageFile="~/Perusahaan.Master" AutoEventWireup="true" CodeBehind="Ubah_Sandi_Perusahaan.aspx.cs" Inherits="TEST.perusahaan.Ubah_Sandi_Perusahaan" %> Sandi Baru :

L438 Konfirmasi Sandi :

Ubah_Sandi_Perusahaan.aspx.cs using using using using using using using using using using using using using using using

System; System.Data.Odbc; System.Collections; System.Configuration; System.Data; System.Data.OleDb; System.Data.SqlClient; System.Linq; System.Web; System.Web.Security; System.Web.UI; System.Web.UI.HtmlControls; System.Web.UI.WebControls; System.Web.UI.WebControls.WebParts; System.Xml.Linq;

L439 using System.Data.OracleClient; namespace TEST.perusahaan { public partial class Ubah_Sandi_Perusahaan : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { } protected void Submit_Click(object sender, EventArgs e) { Connect con = new Connect(); var kode_perusahaan = (String)Session["username"]; var password = sandi.Text; var confirm = Konfirm_Sandi.Text; if (password == confirm) { OracleCommand cmd = new OracleCommand(); OracleConnection conn = new OracleConnection(con.conDb()); conn.Open(); cmd.Connection = conn; cmd.CommandText = "UPDATE MASTER_PERUSAHAAN SET PASSWORD = '" + password + "' WHERE KODE_PERUSAHAAN = '" + kode_perusahaan + "'"; cmd.ExecuteNonQuery(); conn.Close(); Response.Redirect("~/perusahaan/Ubah_Sandi_Perusahaan.aspx?err=Ubah Sandi Berhasil"); } else { Response.Redirect("~/perusahaan/Ubah_Sandi_Perusahaan.aspx?err=Kata Sandi Tidak Cocok"); } } protected void Cancel_Click(object sender, EventArgs e) { Response.Redirect("~/perusahaan/Home_Perusahaan.aspx"); } } }

NIP PANITIA	:
NAMA PANITIA	:
JABATAN DI KANTOR	:
<% if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>

CARI NAMA PANITIA	:

KODE PERUSAHAAN	:
NPWP	: L174
NAMA PERUSAHAAN	:
<% if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>

CARI NAMA PERUSAHAAN	:

L175

KODE PROYEK	:
NAMA PROYEK	:
TANGGAL AWAL KUALIFIKASI	:
TANGGAL AKHIR KUALIFIKASI	:	L179
<% if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>

CARI NAMA PROYEK	:

L180

<% if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>


<strong>CARI & HAPUS DATA

CARI PROYEK :

	:
	:
	:
	:
<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0){ Response.Write("Masukan 'Jumlah' harus berupa angka"); } } %>

	:	L237
	:
	:

<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 0) { Response.Write("Masukan 'Jumlah' harus berupa angka"); } else if (attempt == 1) { Response.Write("Jenis alat sudah terdaftar"); } } %>

	:	tahun
	:	tahun
	:	tahun
	:	%
<% if (Request.QueryString["attempt"] != null) { int attempt = int.Parse(Request.QueryString["attempt"].ToString()); if (attempt == 1) { Response.Write("Masukan 'Pengalaman Umum' harus berupa angka"); } else if (attempt == 2) { Response.Write("Masukan 'Pengalaman Sesuai Bidang' harus berupa angka"); } else if (attempt == 3) { Response.Write("Masukan 'Pengalaman EPC' harus berupa angka"); } else if (attempt == 4) { Response.Write("Masukan 'Pengalaman Progress' harus berupa angka"); } } %>

Selamat datang

<strong>PROFIL PERUSAHAAN
NPWP	:
NAMA PERUSAHAAN	:
ALAMAT PERUSAHAAN	:
TELPON PERUSAHAAN	:
FAX PERUSAHAAN	:
STATUS PERUSAHAAN	:

<strong>DATA PRAKUALIFIKASI YANG SEDANG BERJALAN
L259

I	Aktiva Lancar
	Kas	Rp.
	Bank L281	Rp.
	Piutang	Rp.
	Persediaan Barang	Rp.
	Pekerjaan Dalam Proses	Rp.
			Jumlah (a)		Rp

II	Aktiva Tetap (Netto)
	Peralatan dan Mesin	Rp.
	Inventaris	Rp.
	Gedung-Gedung	Rp.
			Jumlah (b)		Rp

III	Aktiva Lainnya (c)				Rp

IV	Utang Jangka Pendek
	Utang Dagang	Rp
	Utang Pajak	Rp
	Utang Lainnya	Rp
			Jumlah (d)		Rp

V	Utang Jangka Panjang (e)			L287	Rp

			JUMLAH (a+b+c)-(d+e)		Rp
	<% if (Request.QueryString["err"] != null) { Response.Write(Request.QueryString["err"]); } %>				L288


Pengalaman perusahaan dengan nilai tertinggi
Nama Pekerjaan	=
Tahun Pelaksanaan	=
Nilai Pengalaman Tertinggi	=	Rp

1. KEMAMPUAN DASAR (KD)
KD	=	2 x NPT
KD	=	2 x Rp.
KD	=	Rp.

2. KALKULASI SISA KEMAMPUAN KEUANGAN (SKK) DAN SISA KEMAMPUAN PROYEK (SKP)
Daftar Proyek yang Dikerjakan Saat Ini :
> "NAMA PROYEK" />

MK	=	X KB (Kekayaan bersih, sesuai dengan neraca perusahaan)
MK	=	X
MK	=	L349

KK	=	X MK
KK	=	X
KK	=

SKK	=	KK – ( Jumlah total nilai paket pekerjaan Jumlah total nilai paket pekerjaan )
SKK	=	- ( )
SKK	=

SKP	=	Jumlah paket pekerjaan yang sedang dikerjakan
SKP	=
SKP	=

SURAT IZIN SIUP
Nomor SIUP	:
Bidang	:
Masa Berlaku Awal	:
Masa Berlaku Akhir	:
Pemberi Izin	:
<% if (Request.QueryString["err2"] != null) { Response.Write(Request.QueryString["err2"]); } %>

SURAT IZIN SIUI
Nomor SIUI	:
Bidang	:
Masa Berlaku Awal	:
Masa Berlaku Akhir	:
Pemberi Izin	:
<% if (Request.QueryString["err3"] != null) { Response.Write(Request.QueryString["err3"]); } %>

SURAT IZIN TDP
Nomor TDP	:
Bidang	:
Masa Berlaku Awal	:
Masa Berlaku Akhir	:
Pemberi Izin	:
<% if (Request.QueryString["err4"] != null) { Response.Write(Request.QueryString["err4"]); } %>

SURAT AKTA PENDIRIAN
Nomor Akta	:
Tanggal Terbit	:
Nama Notaris	:
<strong>SURAT PENETAPAN MENTERI KEHAKIMAN
No Surat MK	:
Tanggal Terbit	:
<% if (Request.QueryString["err5"] != null) { Response.Write(Request.QueryString["err5"]); } %>

SURAT AKTA PENDIRIAN TERAKHIR
Nomor Akta	:
Tanggal Terbit	:
Nama Notaris	:
<strong>SURAT PENETAPAN MENTERI KEHAKIMAN
No Surat MK	:
Tanggal Terbit	:
<% if (Request.QueryString["err6"] != null) { Response.Write(Request.QueryString["err6"]); } %>

NO KTP	:	L419
NAMA	:
POSISI	:

<% if (Request.QueryString["err1"] != null) { Response.Write(Request.QueryString["err1"]); } %> L420 Width="100px" onclick="btn_tambah_Click" />

CARI NAMA KOMISARIS/DIREKSI	:



<strong>REGISTRASI PEGAWAI
NO KTP	:
NAMA	:
BIDANG KEAHLIAN	:
PENDIDIKAN TERAKHIR	:
TAHUN LULUS PEGAWAI	:
<% if (Request.QueryString["err2"] != null) { Response.Write(Request.QueryString["err2"]); } %> " L422 ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT "NAMA_KEAHLIAN" FROM "KEAHLIAN"">

CARI NAMA PEGAWAI	:

Wawancara dengan Manajer Senior Pengadaan Secara Elektronik. Pertanyaan 1 : Untuk pembuatan program prakualifikasi ini, aturan - aturan apa

Recommend Documents

PRA KUALIFIKASI PROYEK PLN (PERSERO)

PRA KUALIFIKASI PROYEK PLN (PERSERO)

PRA KUALIFIKASI PROYEK PLN (PERSERO)

PRA KUALIFIKASI PROYEK PLN (PERSERO)

PRA KUALIFIKASI PROYEK PLN (PERSERO)

PRA KUALIFIKASI PROYEK PLN (PERSERO)

Selamat datang di website prakualifikasi PLN