Rekap Pendapatan Untuk Kasir

Berikut Script Untuk Rekap Pendaptan Kasir Per-Periode tertentu untuk pengecekan di divisi keuangan :

--Realisasi Validasi Nota Type 1
SELECT i.no_invoice, i.no_reg, i.total_tagihan,
(i.payment_tunai+i.payment_transfer+i.payment_cek+i.payment_bg+i.payment_utip+i.payment_bank) as TotalBayar,
i.payment_date, i.kasir, i.verification_code, i.payment_tunai, i.payment_transfer, i.payment_utip, i.payment_cek, i.payment_bank, i.payment_bg, r.no_ppkb, v.name as vessel_name, c.name as cust_name
FROM invoice i, registration r, m_customer c, m_vessel v, planning_vessel p
WHERE i.payment_status = 'PAYMENT' AND r.no_reg = i.no_reg
AND p.no_ppkb = r.no_ppkb
AND p.vessel_code = v.vessel_code
AND r.cust_code = c.cust_code
AND i.payment_date BETWEEN '2013-04-01 00:01' AND '2013-04-17 23:59'


--Realisasi Validasi Nota Type 2
SELECT i.no_invoice, i.no_reg, i.total_tagihan,
(i.payment_tunai+i.payment_transfer+i.payment_cek+i.payment_bg+i.payment_utip+i.payment_bank) as TotalBayar,
i.payment_date, i.kasir, i.verification_code, i.payment_tunai, i.payment_transfer, i.payment_cek, i.payment_utip, i.payment_bg, r.no_ppkb, v.name as vessel_name, c.name as cust_name, i.no_faktur_pajak, i.jumlah_tagihan, i.materai, i.ppn, r.pengurus_do, i.payment_bank
FROM invoice i, registration r, m_customer c, m_vessel v, planning_vessel p
WHERE i.payment_status = 'PAYMENT' AND r.no_reg = i.no_reg
AND p.no_ppkb = r.no_ppkb
AND p.vessel_code = v.vessel_code
AND r.cust_code = c.cust_code
AND i.payment_date BETWEEN '2013-04-01 00:01' AND '2013-04-17 23:59'

Mengubah Kode Rekening Yang Salah (khusus Utip Upah Buruh)

Caranya, buka database SIMPAT kemudian eksekusi script berikut :

UPDATE t_jurnal_detail SET master_id = '40415' 
WHERE kode_rekening LIKE '404.15%' AND master_id <> '40415'; 
UPDATE t_jurnal_detail SET master_id = '40415' 
WHERE kode_rekening LIKE '404.15%' AND master_id <> '40415';

Fungsi Terbilang di Visual Basic 2008

Public Function Terbilang(ByVal nilai As Long) As String
        Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", _
        "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
        If nilai < 12 Then
            Return " " & bilangan(nilai)
        ElseIf nilai < 20 Then
            Return Terbilang(nilai - 10) & " belas"
        ElseIf nilai < 100 Then
            Return (Terbilang(CInt((nilai \ 10))) & " puluh") + Terbilang(nilai Mod 10)
        ElseIf nilai < 200 Then
            Return " seratus" & Terbilang(nilai - 100)
        ElseIf nilai < 1000 Then
            Return (Terbilang(CInt((nilai \ 100))) & " ratus") + Terbilang(nilai Mod 100)
        ElseIf nilai < 2000 Then
            Return " seribu" & Terbilang(nilai - 1000)
        ElseIf nilai < 1000000 Then
            Return (Terbilang(CInt((nilai \ 1000))) & " ribu") + Terbilang(nilai Mod 1000)
        ElseIf nilai < 1000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000))) & " juta") + Terbilang(nilai Mod 1000000)
        ElseIf nilai < 1000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000))) & " milyar") + Terbilang(nilai Mod 1000000000)
        ElseIf nilai < 1000000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Terbilang(nilai Mod 1000000000000)
        Else
            Return ""
        End If
    End Function

Playing WAV Files Using VB 2008

My.Computer.Audio.Play("D:\SOUND\empat.wav", AudioPlayMode.WaitToComplete)

Menghapus Container Yang Sudah Lift On (Salah Muat)

Caranya :

1. Buka tabel-tabel berikut : service_cont_load, planning_cont_load, dan service_reciving
2. Ubah field Block, Slot, Row dan Tier sesuai dengan posisi real container.
3. Masuk ke Aplikasi Ebtos, klik menu Yard Operation - Lift On Confirm, pilih no ppkb kapal nya
4. Klik tombol delete, untuk menghapus item container yg terlanjur di Lift On. Hapus container dengan posisi tier paling dasar terlebih dahulu.

Script Cek Container Belum Gate Out

Cek container Delivery belum Gate Out
SELECT cont_no, no_ppkb, job_slip, date_in, status
FROM
    service_gate_delivery
WHERE date_out IS NULL AND status='N'
ORDER BY date_in


Cek container Receiving belum Gate Out
SELECT sgr.cont_no, sgr.no_ppkb, sgr.job_slip, sgr.date_in
FROM
    service_gate_receiving sgr
        LEFT JOIN service_receiving sr ON (sgr.cont_no = sr.cont_no AND sgr.no_ppkb = sr.no_ppkb)
WHERE sgr.date_out IS NULL AND sr.cont_no IS NULL
ORDER BY sgr.date_in;

Script Cek Data Gate In/Out Container Load FCL

Script Cek Data Gate Delivery In/Out Container Load FCL
select * from service_gate_delivery
where cont_no in
(select cont_no from service_cont_load where no_ppkb='2013020029' and conT_status='FCL')
order by cont_no, no_ppkb


Script Cek Data Gate Receiving In/Out Container Load FCL
select * from service_gate_receiving
where cont_no in
(select cont_no from service_cont_load where no_ppkb='2013020029' and conT_status='FCL')
order by cont_no, no_ppkb

no_ppkb menyesuaikan kondisi.

Script Booking No. Invoice dan Faktur Pajak

Script untuk booking nomor invoice dan nomor faktur pajak untuk nota manual

Scipt booking No. Invoice
SELECT *
FROM
    (SELECT nextval('invoice_generated_id_seq') col --1
    UNION SELECT nextval('invoice_generated_id_seq') --2
    UNION SELECT nextval('invoice_generated_id_seq') --3
    UNION SELECT nextval('invoice_generated_id_seq') --4
    UNION SELECT nextval('invoice_generated_id_seq') --5
    UNION SELECT nextval('invoice_generated_id_seq') --6
    UNION SELECT nextval('invoice_generated_id_seq') --7
    UNION SELECT nextval('invoice_generated_id_seq') --8
    UNION SELECT nextval('invoice_generated_id_seq') --9
    UNION SELECT nextval('invoice_generated_id_seq') --10
    ) t
ORDER BY t.col

Script booking No. Faktur Pajak
SELECT *
FROM
    (SELECT get_faktur_pajak_next_seq() col --1
    UNION SELECT get_faktur_pajak_next_seq() --2
    UNION SELECT get_faktur_pajak_next_seq() --3
    UNION SELECT get_faktur_pajak_next_seq() --4
    UNION SELECT get_faktur_pajak_next_seq() --5
    UNION SELECT get_faktur_pajak_next_seq() --6
    UNION SELECT get_faktur_pajak_next_seq() --7
    UNION SELECT get_faktur_pajak_next_seq() --8
    UNION SELECT get_faktur_pajak_next_seq() --9
    UNION SELECT get_faktur_pajak_next_seq() --10
    ) t
ORDER BY t.col