LAMPIRAN
14
Con*& pen8& kejadian terhadap pembahm account &tun b h kar ya,,g wsuai dengan persamaan akuntansi
Bedhi inia w d l Contoh Wlan kejadim yang dialami sebuah p e m s h yangmlu 4-1 dalanl bvlv besar.
lo
penk s Rp 2.100.000,- untuk keper1wPribadi pa~gambilanpribadi kas
RP 22.000.000,Rp 2.100.000,-
RP 2.100.000,-
Lampiran 2. Contoh perbandingan transaksi yang berbasis alaual dan transaksi yang berbasis kas Misalkan suatu perusahaan ~nembuatlaporan keuangan secara rutin setiap tanggal 25. Pemsahaan tersebut biasanya membayar gaji pegawai sebesar Rp 1.000.000,- setiap tanggal 28. Jika perusahaan n~enerapkanakuntansi berbasis akrual, maka pada tanggal 25 akan dicatat beban gaji karena pemsahaan sudah menggunakan jasa pegawai. Account beban gaji akan didebit dan account hutang perusahaan pada pegawai akan &edit. Kemudian pada tanggal 28 perusaluan baru mengeluarkan kas untuk membayar gaji pegawai, maka account hutang akan didebit sehingga kembali no1 &I account kas akan dikredit sehingga berkurang sesuai dengan gaji yang dibayarkan kepada pegawai. Jika perusahaan menggunakan akuntansi berbatjs kas, maka pa& saat pembuatan laporan keuangan tanggal 25 beban gaji belum dicatat. Dengan demikian laba perusaham akan lebih besar dari pencatatan akuntansi berbasis alaual. Jumal dibuat hanya pa& saat pembayaran gaji pada tanggal 28.
Lampiran 3. Alur bisnisport disbursentent (PD)
I
penawar& kepada BLT
----/--, penamran kepada strb
5. Principal
agent 4. BLT mengajukan biaya port e-perkiraan disbursentent dan agencyfee I 6. BLT mengirimkan
principal dan membuat
lebih, dan kepada sub
I
--+b
4--
3. Sub agent mengajnkan perkiraan biayaport disbursement dan sub agent fee
Lainpiran 4. Contoh penjumalai aktivitas bisnis PD Transaksi danAccount
No I
Debit
BLT nienentukan sub agent uituk suatu call (pelabuhai) pengeluaran sub agentfee accrued sub agentfee BLT menerima kiriman uang nruka dari principal 2 kas uang muka principal 3 1 BLT mengirim nang muka kepada srrb aaent uang muka un& sub age;71 kas 4 BLT menerima SOD dari szrb age171 accrued sub agentfee uang mukaprincipal uang muka untuk srrb agent 5 BLT membebankanfee keagenan kepadaprincipal uang mukaprincipal I pendapatanfee keagenan 6 / BLT membebankan biaya adiilinistrasi kepadaprincipal uang mukaprincipal biaya telepon biaya fax 7 BLT mengadakan pembelian untuk principal prepaynlent untukprb7cipal Iutang kepada pemasok 8 - BLT Inembebankan peiiibelian kepada principal ditaiubah gain on (keuntungan) uang muka untukpri17cipal prepaynrent untuk principal -~ gain on PD 9 Pengakuan liutang piutang terhadap sub agent jika uang muka untuk sub agent kura~g: uang muka untuk sub agent liutang kepada sub agent jika uang muka nntuk sub agent inasili lebih piutang kepada sub agent 1 uang muka nntuk srrb a ~ e n t 10 Pengakuan hutang piutang terliadap principal jika uang lnuka untukprirzcipal kurang : piutang kepada principal uang muka untuk principal jika uang muka untukprincipal inasih lebili : uang inuka untukprincipal llutang kepadaprincipal
Kredit I
I
1
I
~
100
1.000
I
1
100
1 1.000 I
800 800 100 800 900 150
1
1 150 I
125 500 500
550 500
750 750
XXX
XXX
/
No
/
Transaksi dan Accozrnl Pelunasan hutang piutang terhadap prirtcipal BLT inempunyai piutang kepadaprincipal kas piutang kepada principal BLT lnelnpunyai hutang kepadaprincipal hutann- keoada . .~rincipal kas Pelunasan hutang piutang terhadap strb agent : BLT lnelllplulyai piutang kepada sitb ageill kas piutang lcepada sirb agent BLT inelnpunyai llutang kepada srrb age171 hutang kepada sitb agei7l
I Debit
I Kredit
XXX
XXX
Lampiran 4. (Lanjutan) Accorrnt Aktiva
Account Pasiva
Piutang kepada sub agent
Account Rugi Laba
Gain on PD
50 (8)
pq=2i\ P i u t a ~ ke da rinci a1
Hutang kepada principal
v,vi Pre a nlent untuk rinci a1
Biaya telepon 125
(6)
125
(6)
Biaya fax
Hutan ke a&
inasok
Lampiran 5. Contoh pengkodean r n e n g m fasilitas ~ ActiveXAaton~afion. Private Sub LoadTE-Click ( ) Dim glapp As Object Dim gltrx-form As Object Dim retcode as integer On Error GoTo exitapp 'Set an ActiveX object variable to the SQL GL Application Set glapp = Createobject ("GL.Basicr') While glapp.IsReady DoEvents Wend
=
False
'Load the GL Transaction Entry Form glapp.RunMacro "GLTrxMacro ( ) ", 1 'Load the GL Company Definition Form glapp.RunMacro "GLCompanyDefinitionMacro ( ) ", 1 'Activate the Transaction Entry Form retcode = glapp.ActivateForm("Transaction-Entry") 'Set the ActiveX object variable to the active Form object Set gltrx-form = glapp.CurForm0 Exit Sub exitapp: MsgBox "ActiveX Error: ' Exit Sub End Sub
&
Err.Description, 48
GLj~trnal nunrber
Note code
PD jurnal
(1> note code
DNICN
PD jlrrnal
GL j~rrnal number
GLjurnal Penjelasan lanbang:
I
I
a
0
= entitas = atribut = relasi
SOA
Lampiran 6. (Lanjutan)
Lampiran 6. (Lanjutan)
Lampiran 7. Contoh pengakuan hutang piutang terhadapprincipal setelah pembuatan statetnent of acco~int (SON Contoh aktivitas yang tejadi adalal~sebagai berikut : terima uang mnuka dariprincipal X untuk booking A tgl2 Januari terima uang muka dari principal X untuk booking B tgl4 Jru~uari tgl10 Jaluari pembebanan kepadapnncipal X untuk booking A tgl14 Januari settlement kepadapnncipalX untuk booking A tgl15 Januari pembebamlan kepadaprincipal X untuk booking B
50.000 25.000 40.000 10.000 30.000
1. Pada tanggal 10 Janimi BLT membuat SOA no. 1 untuk booking A sebagai berikut : SOA no 1
debit
uang 111uka beban PD saldo akhir
50.000 40.000 10.000
Jurnal perlu dibuat untuk memindahkan sisa uang muka ke accotrnt hutang kepada principal sebagai berikut : account debit I kredit uang mnukaprincipal 10.000 hutru~gkepada principal 10.000 2. Pada tanggal 14 Januari dicatat tTansaksipengelwan kas untuk memnbayar hutang kepadaprincipalx account kas hutang kepadaprincipal
I
debit
I
kredit 10.000
10.000
Biasanya pembuatan debit note dan SOA untuk transaksi di atas dibuat pada closing booking berikutnya. 3. Pa& tanggal 15 Januari BLT men~buatSOA no. 2 untuk booking B sebagai berikut : SOA no 2 saldo awal settletnent booking A wmg muka beban PD saldo akhir total
debit
kredit 10.000
10.000 25.000 32.000 42.000
7.000 42.000
Jurnal perlu dibuat untuk memindahkan sisa uang muka ke account piutang kepada principal sebagai berikut : account kredit debit I uang mukaprincipal 7.000 piutang kepada principal 7.000
Lampiran 7. (Lanjutan) Berikut perkembangan account-account PD :
m iutan
ada rind a/
Lampinn 8. Contolt file "mdf' dan file "PIPpada Platirm dan sforedprocedurepada Mfcrosoj SQL Contoh file "mdF' AddMenu( MenuBar, -1, "&Filev,"File management, printers, exit" ) AddItem( File, -1, "&Neww,FileNew, "New item" ) AddItem( File, -1, "&Savew,Filesave, "Save" ) AddItem( File, -1, "CI&ose", Fileclose, "Close active window" ) AddItem(File, -1, "&Addi', FileAdd, "Add" ) Adatem( File, -1, "&Deleten,FileDelete, "Delete" ) AddItem( File, -I,,) AddItem(File, -1, "N&extV,FileNext, "Next record" ) AddItem( File, -1, "PreZdous", FilePrev, "Previous record" ) --------------Port Dish Menu AddMenu( MenuBar, -1, "Port&Disb", "Port Disbursemet~t") Addtern( PortDisb, -1, "Booking", "OpenForm(8008,0)", "Book all penawam" ) AddItem(PoaDisb, -1, "Booking for Acct", "OpenForm(8010,0)", "Book all p e n a w m " ) AddItem(PortDisb, -1, "SOD", "OpenFom1(8013,0)", "SOD form" ) AddItem( PortDisb, -1, "Debit I Credit Note", "Ope1iEonn(8022,0)", "Create Debit Note I Credit Note" ) Adatem( PortDisb, -1, "SOA", "OpenFom(8019,0)", "Statement of Account" ) AddItent( PortDisb, -I,,) AddItern(PortDisb, -1, "Memorial Journal", "Ope1iEorm(8016,0)", "Memorial Journal" ) AddItem( PortDisb, -1, "PD Journal", "OpenFom(8006,0)", "Pd Journal" )
Contoh file "prf" [oddEiles] od~=~~~~d,a~~~~~~a~pb~~,a~~sec,~~~~~,~,gl~~,a~prep,a~m appodd=appcore.odd appbat=appbat.odd appsec=appsec.odd appgl=appgl.odd glodd=gl.odd glrpt=gIrep,rt.odd gldrill=gldriU.odd apprep=apprep.odd appmc=app~nc.odd pd=c:\plhvbnch\vfd\custom\portrtdisSodd pdrep=c:\platinum\report-l\pdrep.odd HeIpOn=l [colors] ColorOn=l tables=50000,50300,100
Lampiran 8. (Lanjutan) Contob storedprocedure create procedure pdjmbal-sp @bookingid varchar(l6), @calling smallint, @principal-code varclur(l2) , @vessel-code varclmr(8), @subagent-code varchar(l2), @account_groupvarchar(30) , @debit-total float OUTPUT, @credit-total float OUTPUT, @principal-code-ont varchar(l2) OUTPUT, @account~group~out varchar(30) OUTPUT as if @calling = 0 begin select @debit-total = sum(debit), @credit-total= sum(credit), @principal-code-out =@principal-code, @account~group~out = @account-goup h.om pdjm where booking-id like @booking-id + '%' andprincipal-code like @principal-code + '%' and vessel-code like @vessel-code + '%' and subagent-code like @subagent-code + '%' and accountgroup like @accountgroup + '%' end else begin select @debit-total = sum(debit), @credit_total=sum(credit), @principal-code-out =@principal-code, @account_group~out = @account-group from pdjm where booking-id like @booking-id + '%' and calling = @calling andprincipal-code like @principal-code + '%' and vessel-code like @~~essel-code + '%' and subagenf-code like @subagent-code + '%' and accounfgroup like @accountgroup + '%' end GO grant all on pdjmbal-sp to public
