Audit Pekerjaan Pemeliharaan Jalan

           Pekerjaan  Pemel Jalan

a.  Teknik Audit

-     Scanning data ,dokumen

-     Tracing/Trasir : Menelusuri pemakaian batu, pasir , transportasinya, volumenya

-       Perbandingan , dengan cara membandingkan realisasi pemakaian tenaga kerja dengan norma standart.

-       Analisis : Pemakaian sirtu/batu per m3

-       Vouching : Memeriksa autentik serta     lengkap     tidaknya   data  pendukung transaksi Verifikasi : Memeriksa ketelitian perkalian, penjumlahan, pembukuan (Lokasi Kerja, Pemakaian tenaga,  Prestasi per orang)

-     Inspeksi : Dengan melihat hasil di lapangan dengan realisasi yang dibukukukan 

-     Konfirmasi : melakukan konfirmasi pemakaian paser/batu ke pemasok baik mengenai harga maupun jumlahnya.

b.  Bukti Audit :

 Foto, Barchart, Peta, Buku Pemeliharaan,  Buku Penerimaan dan pemakaian pasir/batu, SPB angkutan Pasir/Batu, Ikhtisar Laporan Pekerjaan Harian, Norma

c.   Kriteria : 

   Norma Standart RKAP, Pekerjaan Pemel Jalan terlaksana sesuai teknis pekerjaan pemel jalan , Pekerjaan dibukukan sesuai dengan realisasi di Lapangan.

d.  Risiko :

- Pembebanan tenaga kerja dari pekerjaan borongan , pekerjaan yang di Premikan, tenaga dipakai untuk kepentingan pribadi, atau pembebanan dari pekerjaan lain yang tidak tersedia anggarannya. 

- Fiktif , membukukan pemakaian pasir/batu namun droping batu tidak terlaksana.

- Pengalihan pemakaian batu ke tempat lain.

Macro membuat Arsir peta otomatis

Setelah melihat video tutorial yang dibuat oleh jorgecamoes

Tergugah hati untuk membuat peta tematik di kebun dekat saya. file dapat di download di sini atau hubungi gshart1@gmail.com

Petunjuk pembuatan pembuatan arsiran warna blok :

1. Pada setiap blok buat image shape dan beri nama ( misal blok601) untuk lebih jelasnya klic blok 601 kemudian lihat pada status boxname.

2. Pada sel T3..u39 berinama blok

3. pada AA1 berinama kode0 pada AA2 berinama kode1 dst sampai AA7(untuk lebih jelasnya tempat kursor pada AA1, kemudian AA2 dst. dan lihat status nameboxnya.

4.Pada AD2..AE7 berinama nilai kode.

5. pada AD adalah batasan nilainya. pada AE diisi sesuai nama cell pada AA2 sd AA7 .

6. Pada AB12 berinama isiblok pada AB13 berinama nilai blok. dan masukkan rumus =VLOOKUP(isiblok;blok;2;FALSE) pada AB14 berinama kodewarna dan masukkan rumus =VLOOKUP(nilaiblok;AD2:AE7;2;TRUE)

Untuk membuat macro tombol ngecet peta

a. buka vba insert module dan masukkan macronya spt berikut :

Sub gantiwarna()

For i = 3 To 39

Range("isiblok").Value = Range("Peta!Q" & i).Value

ActiveSheet.Shapes(Range("isiblok").Value).Select

Selection.ShapeRange.Fill.ForeColor.RGB=Range(Range("kodewarna").Value).Interior.Color

Next i

Range("a27").Select

End Sub

Keterangan macro

3 to 39 adalah row 3 sampai dengan 39

Peta!Q adalah sheet Peta pada kolom Q untuk row 3 - 39 yang ditunjuk pada for i = 3 to 39.

b. Buat tombol :

- Insert button contol dan arahkan pada macro gantiwarna

SEKIAN