BAB 4 RANC ANGAN SIS TEM YANG DIUS ULKAN

74 BAB 4 RANC ANGAN SIS TEM YANG DIUS ULKAN Setelah memahami dan menganalisis sistem yang berjalan seperti yang telah di uraikan dalam bab 3, maka pada bab 4 ini akan dirancang suatu sistem baru yang diharapkan dapat mengatasi masalah-masalah yang dihadapai oleh sistem yang lama. 4.1

Rancangan Struktur O rganisasi Perusahan Perubahan utama dalama rancangan ini adalah penam bahan

bagian

penagihan dan credit control yang bertanggung jawab kepada GM. Akunting dan Keuangan.. Dihalaman berikut ditampilkan struktur organisasi yang baru. 4.2

Bagan Aliran Dokumen Mengam barkan aliran dokumen pada sistem yang ada. Sekaligus fungsifungsi yang terkait dalam penggunaan dalam dokumen tersebut. Perubahan terjadi pada : 1. Penjualan Tunai langsung, bertahap, kredit DP langsung dan juga Kredit DP bertahap pada saat penyerahan uang ke perusahaan yait u ditambahkannya sat u surat yang bernama Kwitansi pada saat dilakukan pembayaran oleh konsumen kepada Perusahaan, Hal ini berguna unt uk sebagai tanda bukti atas pem bayaran kepada pihak perusahaan. 2. Pada Penjualan Tunai bertahap dan juga Kredit dengan DP Bertahap ditambahkan bagian Penagihan yang berfungsi untuk memberitahukan ke pada pelanggan waktu jatuh tempo pembayaran yang harus dilakukan oleh pelanggan tersebut. 3. Kami juga mengusulkan Penjualan kredit company. Pada halaman berikut akan ditampilkan bagan aliran dokumen yang diusulkan. 74

75

Komisaris

Direktur

Gm Teknik

GM.Marketing

Manager Marketing

Ass Manager P romosi

Ass Manager Sales

Staf Sale

Manager P ertanahan

SP V Data Marketing

Supervisor Legal

GM.Akunting & Keuangan

P IMP RO

Site Manager

Manager Umum& P .R

Site Manager

Staf Data Marketing Staf P ertanahan

Staf Teknik P royek

Staf Teknik P royek

Manager Keuangan

Supervisor Keuangan

Staf Umum Staf Legal

Manager P ersonalia

Staf P ersonalia

Staf Keuanga

Staf Teknik P usat

Gambar 4.1. S trukur Organisasi PT.Kentanix Supra Internasional Yang Diusulkan

75

Manager credit control

Manager Akunting

Supervisor Akunting

Staf EDP

Staf Acc

Staf penagihan

Credit analyst

76 Bag ian sal es mul ai

1

Pel ang gan memi lih kavl ing da n dila kukan pe nge cekan

FP 2 Copy KTP KTP

Status Ru mah

2

Konfirmasi kepe lan gg an

Inval id

kw itansi 3 Ke pe lan ggan

Va lid Mel akukan neg osia si harg a

1

Sele sai

2 SPP

6

1

5 Pe mbaya ran bo oking fee

Sta tus ba nk

Tu tu p

Me neri ma ua ng b ookin g fee

Membua t TTS

Buka

3

Mene rima FP3 dari pe lan gga n da n mela ku kan p enco cokan dg n FP2

KTP 2

Inva lid

3

FP

2

FP 2

3

T Catatan

1 3

2 SPP

Berserta ua ng

Meng em bal ikan FP

Dari ba nk

kwitansi

3

4

Kepe lan ggan

FP 2 Cop y KTP

1

1 FP2 D ita nda tan gani o leh G. ma rketing sale s, pel angg an

TTS= Tan da Terima Semen ta ra FP= Formuli r Pe mbayara n Booki ng fe e SPP=Sura t Persetuj uan Pemb eli an KTP= Kartu Tanda Pe ndu duk

T

1

Gambar 4.2 Flowchart Penjualan Tunai Langsung Yang Diusulkan

76

Ke pela ngg an

Vali d Me mbuat kwitan si a ta s pemb ayara n b ooki ng fee ,memi nta KTP untuk di cop y dan memb uat SPP

TTS

Ke p ela ngg an

Status FP

2

77 Bagia n ADM ma rketig Saat pe nerimaan Booking Fe e

Saat pen erimaan Pelunasan

Da ri p elang gan

5 2

Copy KTP SPP2 TTS 2

BS

1

Berserta uan g N

Mela ku ka n pencocokan den gan bank , buat cop y BS, dan kwitansi

Menyetor u ang Mengemba likan BS

Status BS

Valid

Meneri ma FP d ari bank

Inval id

BS

Kepe langg an

2

3 FP 2

kwi tan si

1

Copy BS BS 9

mela ku kan AJB di depan notris Ke pelan ggan

Dari nota ris

3

HGB IMB Ke pel anggan

Catatan TTS= Tan da Terima Seme nta ra FP= Fo rmul ir Pembayara Booking Fee SPP= Surat Persetuju an Pembe lian

Copy AJB

Copy AJB AJB

BS= Bukti Setoran Berserta Kun ci

AJB= Akte Jual Beli HGB= Hak Guna Bagu nan IMB= Ijin Mendi ri kan Bag unan

Gambar 4.3 Flowchart Penjualan Tunai Langsung (Lanjutan)

77

N

78 Bagian keuangan

Saat penerimaan Booking Fee

Saat penerimaan Pelunasan

7

10

FP kwitansi

2

K witansi

2

Membuat RV dan dtanda tangani oleh keuangan dan akuntasi

FP K witansi

Mem buat RV yang di tanda tangani oleh keuangan dan akuntasi

Kwitansi

2 2

Copy BS 2

2 RV

2

Copy BS

RV

1

1 T

T 11 catatan

8

FP= Formulir Pem bay aran book ing Fee BS= Buk ti s etoran RV= Receipt Voucher

Gambar 4.4 Flowchart Penjualan Tunai Langsung (Lanjutan)

78

79 Bagia n akuntasi

Saat pene ri maan Bookin g Fee 6

8

4

FP 2 RV

1

Kwitansi SPP

TTS 3

2

3

Melakuka n p encatatan kewaj iban pe lang gan

Me mbuat jurna l T

7

j urnal Buku pi utang RV

1 SPP

3

N T Saat peneri maan pel unasan

11 9

RV Kwi tan si

1

2

Cop y BS catatan Me buat j urnal

FP= Formul ir pembayara n o oking Fee TTS= Tanda Terima Sementara

Mel akukan pe ncatata n

BS= Bukti Setoran RV= Recei pt Vou ch er j urnal

Buku Pi utang RV Kwitansi

1

2

C opy BS

T 10

sel esai

Gambar 4.5 Flowchart Penjualan Tunai Langsung (Lanjutan)

79

80 Bagi an sales mu lai

1

Pelangg an memilih kavli ng dan dil akukan penge cekan

Me mbu at copy SPP

Ko nfi rma si ke Pel anggan

Invali d

Statu s Rumah

FP 2

Val id

Cop y KTP KTP 2

Me lakukan ne gosiasi harga

kwitansi

Ke pel angga n

Se lesai

Pembayaran booking fee

1

Co py SPP 3 2 SPP

6

1

5 Statu s ban k

Tutup

Me nerima uan g booking fee

Membua t TTS

Buka

3

Me nerima FP3 d ari pelan ggan dan me lkukan p encocokan dgn FP2

Val id

TTS

1 4

Inval id

Pengem bali an FP

3

Be rserta uang 3 2 FP 2

FP 3

1

3 2 SPP

Dari bank

2 kwitansi

Kepe langga n

FP 2 Cop y KTP KTP

T Catatan TTS= Tand a Terima Se me ntara FP= Formulir Pembayaran Booking fee

1

FP2 Di tan da tan gani ole h G. marketing sales, pela nggan

SPP=Surat Persetuju an Pembe lian KTP= Kartu Tanda Pend uduk

T

1

Gambar 4.6 Flowchart Penjualan Tunai Bertahap yang Diusulkan

80

Ke p elang gan

Membua t kwitansi ata s pembayara n bo oking fe e ,meminta KTP u ntu k di copy d an membu at SPP

2

Ke p elang gan

Status FP

7

81 Bagi an ADM ma rketig

Sa at pe nerima an Pelu nasan

Saa t pe nerima an Booki ng Fe e

Da ri pel ang gan

2

5

BS TTS 2

1

Be rse rta ua ng C opy KTP SPP2

Menye to r uan g

Me lakuka n pen cocokan deng an ban k da n buat copy BS,da n kwitansi

N

Penge m bal ian BS

Status BS

Va lid

Men erima FP da ri ban k

In vali d

BS Kep ela ngga n

3

2 Kwitan si

1

2 Co py BS

1

FP 2

10 BS

11 Status a ngsura n

Lun as

D ari notari s

3

Belu m

Ke pe lan ggan

Ca ta ta n

Ke pe lang gan

HGB IMB

mela kukan AJB d i depa n notris

Cop y AJB

TTS= Tanda Teri ma Se mentara FP= Formu lir Pemba ya ra Bookin g Fee C opy AJB

SPP= Sura t Persetuj uan Pembe lia n HGB= H ak Gun a Bagun an

AJB

AJB= Akte Jual Bel i

N

IMB= Iji n Mendi rikan Bag una n BS= Bukti Setoran

Berserta Kunci

Gambar 4.7 Flowchart Penjualan Tunai Bertahap (Lanjutan)

81

82 Bagian keuangan

Saat penerimaan Booking Fee

Saat penerimaan Pelunasan

8

12

FP kwitansi

2

K witansi

2

Membuat RV dan dtanda tangani oleh keuangan dan akuntasi

FP K witansi

Mem buat RV yang di tanda tangani oleh keuangan dan akuntasi

Kwitansi

2 2

Copy BS 2

2 RV

2

Copy BS

RV

1

1 T

T 13 catatan

9

FP= Formulir Pem bay aran book ing Fee t BS = Bukti setor an RV= Receipt Voucher

Gambar 4.8 Flowchart Penjualan Tunai Bertahap (Lanjutan)

82

83 Bagia n akuntasi

Saat pene ri maan Bookin g Fee 6

9

4

FP 2 RV

1

Kwitansi SPP

TTS 3

2

3

Melakuka n p encatatan kewaj iban pe lang gan

Me mbuat jurna l T

8

j urnal Buku pi utang RV

1 SPP

3

N T Saat peneri maan pel unasan

13 10

RV Kwi tan si

1

2

Cop y BS catatan Me buat j urnal

FP= Formul ir pembayara n o oking Fee TTS= Tanda Terima Sementara

Mel akukan pe ncatata n

BS= Bukti Setoran RV= Recei pt Vou ch er j urnal

Buku Pi utang RV Kwitansi

1

2

C opy BS

T 12

sel esai

Gambar 4.9 Flowchart Penjualan Tunai Bertahap (Lanjutan)

83

84 Bagian Penagihan

7

11

Copy BS

Copy SPP

Memeriksa pembayaran yang telah jatuh tempo

1

T

Membuat STC

Copy SPP ST C Ke pelanggan

N Catatan STC= Surat Tagihan Cic ilan SPP= Surat Pers etujuan Pembelian BS= Buk ti Setor an

Gambar 4.10 Flowchart Penjualan Tunai Bertahap (Lanjutan)

84

85 Bag ian sal es mul ai

1

Pel ang gan memi lih kavl ing da n dila kukan pe nge cekan

FP 2 Copy KTP KTP

Status Ru mah

2

Konfirmasi kepe lan gg an

Inval id

kw itansi 3 Ke pe lan ggan

Va lid Mel akukan neg osia si harg a

1

Sele sai

2 SPP

6

1

5 Pe mbaya ran bo oking fee

Sta tus ba nk

Tu tu p

Mene rima u ang boo king fee

Membua t TTS

Buka

3

Mene rima FP3 dari pe lan gga n da n mela ku kan p enco cokan dg n FP2

KTP 2

Inva lid

3

Meng em bal ikan FP

FP

2

FP 2

3

T Catatan

1 3

2 SPP

Berserta ua ng

Dari ba nk

kwitansi

3

4

Kepe lan ggan

FP 2 Cop y KTP

1

1 FP2 D ita nda tan gani o leh G. ma rketing sale s, pel angg an

TTS= Tan da Terima Semen ta ra FP= Formuli r Pe mbayara n Booki ng fe e SPP=Sura t Persetuj uan Pemb eli an KTP= Kartu Tanda Pe ndu duk

T

1

Gambar 4.11 Flowchart Penjualan Kredit dengan DP Langsung Yang Diusulkan

85

Ke pela ngg an

Vali d Me mbuat kwitan si a ta s pemb ayara n b ooki ng fee ,memi nta KTP untuk di cop y dan memb uat SPP

TTS

Ke p ela ngg an

Status FP

2

86

Bagian ADM marketig Saat penerimaan Pelun asa n DP

Saat Penerimaan Booking Fee

Dari pelangg an

5 2

Cop y KTP

BS

SPP2

TTS 2

Berserta uang

KTP Surat Nikah Kartu kel uarga N PW P

N

Surat Gaj i Menyetor u ang

Melakukan pe nco co kan den gan bank dan buat copy BS dan Kwitansi

Membuat form Pembiayaan

12 Dari Bank

Menerima FP da ri bank

Form Pembi aya an

3

KTP

FP 2

SPK

T olak

Statu s KPR

Surat Ni ka h Kartu keluarga NPWP

Terima

Surat G aji

Invali d

Ke Bank

Membuat STKPR

3 SPPK

Status BS

STKPR

Val id

Pengem bali an BS

N

2 Ke pe langgan

SPK Memba ut SKKPR

Kwi tansi BS Ke Pelan ggan

SKKPR Ke pela nggan

14

BS

9

12 C atatan FP= Formulir Pemba ya ra Booking Fe e

Dari N otari s

2 1

SPP= Surat Perse tuj uan Pembel ian TTS= Tanda Teri ma Sementara IMB= Ijin Mendiri kan Baguna n

HGB

AJB N

AJB= Akte Jual Be li

IMB Ke Bank

Ke Bank

Ke pela nggan

C opy BS

Kepelangg an

Dilakukan proses Tanda tangan AJB dan cop y AJB

C opy AJB

1

HG B= Hak Guna Bagunan BS= Bukti Se toran SPPK= Surat Perse tuj uan Perja njian Kredit SPK= Su ra t Pe nolakan Kre dit

Berserta kunci

STKPR= Su ra t Tol ak kredit Pemili ka n Rumah SKKPR= Surat Kontrak Kredit pe mil ikan ru mah

Gambar 4.12 Flowchart Penjualan Kredit dengan DP Langsung (Lanjutan)

86

87 Bag ian ke uang an Saat pen erimaa n Bookin g Fe e

Saat pen erima an dari Bank

Pe mb ayara n ke pe lan gga n

Da ri b ank

7

Kwitan si

14

SPK

BS

2

FP 2

Me mbua t RV d an di ta nda ta nga ni ole h keua nga n da n akuntasi

Mel akukan p eng ecekan dan di bua tka n PV yan g ditand a ta nga ni ol eh Di rektur, ke uan gan akun ta si,GM marketin g da n GM aku nta si dan ke uang an

Me mbua t RV dan d i ta nda tan gani ol eh keu ang an dan a kuntasi

2 PV FP

2

Kwitansi

BS

2

2

2 RV

1

RV

1

1 T T

Memb uat Cek

13 8

Sa at p eneri maan p embaya ran DP Menye ra hkan ce k be rserta PV un tu k di ta nda tang ani

10

Kwi tan si

2

Copy BS

CEK SPK

Ke pel a ngg a n

2

Me mb uat RV d an di tand a tan gan i oleh keua nga n dan akuntasi

PV

1 N

15

T

Kwitansi Copy BS 2 RV

ca ta ta n

1

FP= Fo rmulir Pemb ayara n b ooki ng Fee T

BS= Bukti setoran R V= Rece ipt Vo uche r

11

PV= Payment Vouch er SPK= Surat Pe nol akan Kred it

Gambar 4.13 Flowchart Penjualan Kredit dengan DP Langsung (Lanjutan)

87

88

Bag ian akuntasi Sa at pemb ayaran Bookin g Fee 8

4

6

RV

Kwitan si

1

FP

TTS 3

SPP

Membuat jurn al

Saat Pe nerimaan d ari Ba nk

2

2 3

Melaku kan pencatatan kewa jiba n p elan ggan

T

7

13 Jurna l Buku Piun ta g RV

RV1

1 SPP

3

Me mbuat jurna l

N T

Saa t pemba ya ran ke p elan ggan

15

Jurna l

PV

R V1

T

sele sai

Membuat jurn al

Saat pe nerimaa n p elun asan DP

9 11 Jurnal Kwitan si

2 RV

C opy BS

1 PV T

Membuat jurn al

Melakuka n p encatatan

Selesa i

catatan

Buku Piutang

Jurna l

FP= Fo rmu lir pembaya ran bookin g Fee TTS= Tan da Teri ma Semen tara BS= Bukti Seto ran

Kwitansi

RV

2

RV= Receip t Vouche r PV= Payment Vou cher

1

Co py BS T

10

Gambar 4.14 Flowchart Penjualan Kredit dengan DP Langsung (Lanjutan)

88

89

Bagi an sales mu lai

1

Pelangg an memilih kavli ng dan dil akukan penge cekan

Me mbu at copy SPP

Ko nfi rma si ke Pel anggan

Invali d

Statu s Rumah

FP 2

Val id

Cop y KTP KTP 2

Me lakukan ne gosiasi harga

Pembayaran booking fee

Statu s ban k

kwitansi

Ke pel angga n

Se lesai

Co py SPP 3 2 SPP

Tutup

Membua t TTS

Buka

7

3 2 TTS

1 4

Inval id

Pengem bali an FP

Ke p elang gan

Val id

3

Be rseta uang 3 2 FP 2

FP 3

1

3 2 SPP

Dari bank

2 kwitansi

Kepe langga n

FP 2 Cop y KTP KTP

Ke p elang gan

Membua t kwitansi ata s pembayara n bo oking fe e ,meminta KTP u ntu k di copy d an membu at SPP

6

1

5

Men erima uang boo ki ng fee

Me nerima FP3 d ari pelan ggan dan melaku ka n p encocokan dgn FP2

Status FP

1

T Catatan TTS= Tand a Terima Se me ntara FP= Formulir Pembayaran Booking fee

1

FP2 Di tan da tan gani ole h G. marketing sales, pela nggan

SPP=Surat Persetuju an Pembe lian KTP= Kartu Tanda Pend uduk

T

1

Gambar 4.15 Flowchart Penjualan Kredit dengan DP Bertahap Yang Diusulkan

89

90 Bagi an ADM marke tig Saat p enerimaan Pelunasan DP

Saat Penerimaan Bo oki ng F ee

Dari pelan gga n

5 2

BS Copy KTP

Surat Nikah Kartu keluarga NPWP

SPP2

Berserta uang

T TS 2

KT P

Surat Gaji

N

Menyeto r uang 14 Dari Bank

Meneri ma FP dari bank

Form pembiayaan KTP Surat Nikah Kartu ke luarga

SPK

Tolak

Status KPR

3

Melakukan pencocokan d engan b ank dan buat copy BS d an membuat kwitansi

Membuat form pembiayaan

NPWP

FP 2 T eri ma

Sura t Gaji

Ke bank

Me mbuat STKPR

SPPK 3 SPKPR

Membuat SKKPR

Status BS

Val id

N

Invali d

Pengem bali an BS

ST K BS

16

Di lakuka n proses Tanda tangan AJB d an copy AJB

2 Kwita nsi Ke pela nggan

Ke p elanggan

Ke Pel anggan

Ke pel anggan

SKKPR

1

BS 10

Status angsuran

1

Belum

Lunas

N

Da ri Nota ri s

Ke Ba nk

Ke pelangg an

Copy BS

11

2 Copy AJB AJB

1 2

Catatan 14 Surat ko ntrak Kredit Pemilikan Ruma h SKKPR= F P= F ormuli r Pembayara Boo ki ng F ee

HG B

Berserta kunci

SPP= Surat Persetujua n Pembelian

IMB Ke Bank

TTS= Tand a Te ri ma Sementara IMB= Ij in Mendi ri kan Bagunan AJB= Akte Jual Bel i HGB= Hak Guna Bagunan BS= Bukti Setoran SPPK= Surat Perse tujua n Perjanji an Kredit SPKPR= Surat Penol akan Kredit Pemilikan Rumah

Gambar 4.16 Flowchart Penjualan Kredit dengan DP Bertahap (Lanjutan)

90

91 Ba gia n keua nga n Saa t pe neri maan Bo okin g Fee

Saa t pe neri maan d ari Bank

Pemb ayara n ke pe lan gga n

D ari b ank

8

Kw itansi

16

SPK

BS

2

FP 2

Memb uat RV dan d itand a tang an i ole h ke uan gan d an ak untasi

Mela kukan p eng eceka n d an di bua tka n PV ya ng d itand a ta nga ni ol eh Di re ktur, ke uan gan a kuntasi ,GM marketin g dan GM akun ta si dan keu ang an

Membu at R V d an d i tand a ta nga ni o leh ke uan gan da n akun ta si

2 FP

BS

2

Kwi ta nsi

2

1

2

2 RV

PV

RV

1

1 T T

Membu at C ek

15 9

Saa t pe neri maan p emba yara n DP Me nyera hkan cek be rserta PV un tu k d i tan da tang ani

12

Kwitan si

2

C opy BS

C EK SPK

Ke pe la ng ga n

2

Memb uat RV da n di tand a tang ani o leh ke uan gan d an a kuntasi

PV

1 N

17

T

Kw itansi Co py BS 2 RV

catatan

1 T

13

FP= Fo rmul ir Pemba yaran b ooki ng Fee BS= Bukti setora n R V= Re ceip t Vou cher PV= Paymen t Vou cher SPK= Surat Pen ola kan Kred it

Gambar 4.17 Flowchart Penjualan Kredit dengan DP Bertahap (Lanjutan)

91

92

Bagi an akunta si Sa at pembayaran Booking Fe e 9

4

6

Kwita nsi RV

FP

TTS 3

SPP

Membua t j urnal

Sa at Penerimaan dari Bank

2

1 2 3

Melakukan p encata tan kewaji ban pe langga n

T

8

15 Jurnal Buku Piuntag RV

RV1

1 SPP

Membuat jurna l

3 N

T

Sa at pembayaran ke pelang gan 17

Jurna l

PV

RV1

T

sel esai

Me mbu at jurnal

Saat p enerimaan pel unasan DP 10 13

Jurn al Kwi tan si

2 RV

Copy BS

1 PV T

Me mbu at jurnal

Mela ku ka n pencatatan

Buku Piu tang

Se lesai

ca tatan

Jurnal

FP= Formul ir p emb ayaran b ooking Fe e TTS= Tand a Terima Sementara BS= Bukti Setoran

Kwitansi

RV

2

RV= Receipt Vou ch er PV= Payment Voucher

1

Copy BS T

10

Gambar 4.18 Flowchart Penjualan Kredit dengan DP Bertahap (Lanjutan)

92

93

B agi an penagi han

7

11

Copy SPP

Copy BS

Memeriksa pem bayaran DP yang tel ah jatuh tempo

1

T

Membuat surat Penagihan

Copy SPP SP DP Ke pelanggan

catatan N

SPP= Surat Persetujuan Pembel ian S P DP= Surat Penagi han uang Muka BS= Bukti Setoran

Gambar 4.19 Flowchart Penjualan Kredit dengan DP Bertahap (Lanjutan)

93

94 Bagi an sales mu lai

1

Pelangg an memilih kavli ng dan dil akukan penge cekan

Me mbu at copy SPP

Ko nfi rma si ke Pel anggan

Invali d

Statu s Rumah

FP 2

Val id

Cop y KTP KTP 2

Me lakukan nego si sasi harga

Pembayaran booking fee

Statu s ban k

kwitansi

Ke pel angga n

Se lesai

Co py SPP 3 2 SPP

Tutup

Membua t TTS

Buka

7

3 2 TTS

1 4

Inval id

Pengem bali an FP

Ke p elang gan

Val id

3

Be rseta uang 3 2 FP 2

FP 3

1

3

Dari bank

2 kwitansi

Kepe langga n

FP 2 Cop y KTP KTP

2 SPP

T Catatan TTS= Tand a Terima Se me ntara FP= Formulir Pembayaran Booking fee

1

FP2 Di tan da tan gani ole h G. marketing sales, pela nggan

SPP=Surat Persetuju an Pembe lian KTP= Kartu Tanda Pend uduk

T

1

Gambar 4.20 Flowchart Penjualan Kredit company Yang Diusulkan

94

Ke p elang gan

Membua t kwitansi ata s pembayara n bo oking fe e ,meminta KTP u ntu k di copy d an membu at SPP

6

1

5

Men erima uang bo oking fee

Me nerima FP3 d ari pelan ggan dan melaku ka n p encocokan dgn FP2

Status FP

1

95

Bagian ADM marke tig Saat pe nerima an Pelu nasan DP

2

Dari pelang gan

Sa at Penerimaan Boo ki ng F ee 5

BS Cop y KTP

TTS 2

Be rserta ua ng

KT P Surat Nikah Kartu keluarga NPWP

SPP2

Surat G aji Men yetor uang

N

14

10

SPPK Menerima F P dari ban k

Invalid

Valid

Membua t SKK

3

Status BS

Pe ngembalian BS

FP 2

Ke pela nggan

Ke pelang gan

3

D ilakukan proses Ta nda tangan AJB dan copy AJB

1

Copy BS SPPK 2

BS

1

AJB Ke pela nggan

N

Ke Bank

Membuat ST K

Berserta kunci

Dari Notaris

STK

Ke pel anggan

Copy AJB

SPK

Ke pe langgan

16

2 Kwitansi

15

SPK

Me lakukan pen cocokan deng an ba nk dan buat copy BS dan Kwita nsi

BS

SKK

Cata tan FP= Formuli r Pemb aya ra Booking Fee SPP= Surat Persetuj uan Pembeli an

HGB

T TS= Tanda T eri ma Sementara

IMB

IMB= Iji n Mendi ri kan Baguna n AJB= Akte Jual Beli N

H GB= Ha k Gun a Bagunan BS= Bukti Setoran SPPK= Surat Persetuj uan Perj anjian Kredit SPK= Surat Penolakan Kre dit STK= Surat T olak kred it SKK= Surat Kontrak Kredit

Gambar 4.21 Flowchart Penjualan Kredit company (Lanjutan)

95

11

96

Ba gia n ADM Marketing Saa t pe neri maan Pe lun asan

Dari pe lan gga n BS

1

Mela kukan pe ncocok an den gan b ank d an bu at cop y BS,d an kwi ta nsi

Pe nge m bal ian BS

Inval id

Sta tu s BS Va lid

2

BS

Kwitan si

1

1 20

Ke pel ang gan

Ke Pe lan gga n

2 Cop y BS BS

19 Sta tu s ang suran

Bel um

L una s

HGB Ke p ela ngg an

IMB

BS= Bukti setor HGB= Hak Guna Ba gun an IMB = Ijin Me ndi rikan Ba gun an

Gambar 4.22 Flowchart Penjualan Kredit company (Lanjutan)

96

97 Bagi an keuan gan Saa t pen erimaan Boo king Fe e

Sa at pen erimaa n p embayaran D P

Pembayaran ke p elan ggan

12 8

16

Kwi tan si

Kwitansi

2

FP

2

Kwi tan si

2

Me lakukan p engece kan da n dibu atka n PV yang di ta nda ta ngan i oleh Direktur, ke uanga n a kuntasi,GM marketi ng dan GM akun tasi d an ke uang an

2

Copy BS

2 RV

SPK

Memb uat RV d an di ta nda tan gani ol eh keua ngan da n akuntasi

Membu at RV dan dtand a tang ani ol eh ke uang an dan akun ta si

Kwi tan si

2

Copy BS

FP 2

2

2

1

RV

PV

1

1

T T

9

13 Me mb uat C ek

Sa at Pene rimaan Ci ci lan

Men yerahkan cek berserta PV u ntuk d i tand a tan gani

21

Kwitansi

2 CEK

FP 2

SPK

Ke p ela n gga n

2 Membu at RV dan dtand a tang ani ol eh ke uanga n dan akun tasi

PV

1 N

T 17 Kwi tan si 2 FP

2 2

RV

1

ca tatan

T

FP= Formuli r Pemba yaran boo king Fe e BS= Bu kti setoran

22

R V= R eceip t Voucher PV= Paymen t Vouche r SPK= Sura t Penol akan Kredit

Gambar 4.23 Flowchart Penjualan Kredit company (Lanjutan)

97

98

Bag ian akuntasi Saat pembayara n Boo king Fe e 6 9

4

Kw itansi RV

1

FP

2

2

SPP

3

TTS 3 Membuat ju rn al

Melaku ka n p encatatan kewa jiban p elang gan

T

8

Jurna l

Saat p enerimaa n pelun asan DP

Buku Piutang 13

11

RV

1 SPP

Kwitan si

RV

2

3

T

1

N

C opy BS

Saat pembayaran ke pel angg an Membua t ju rnal

17

Melakuka n pencatatan Jurn al

PV

Buku Piutang RV Kwitansi

1

Me mb uat j urnal

T

2 Saat Pe nerimaan cici lan

C opy BS

Jurnal

22 20 12 RV Kwitansi

1

PV

2

Cop y BS

T

Membuat jurn al

se lesai

Mel akukan Pencatatan

catatan FP= Fo rmu lir pembaya ra n bookin g Fee

Jurna l

TTS= Tan da Teri ma Semen tara BS= Bukti Seto ran

Buku Pi utang

RV= Receip t Vouche r RV

1

PV= Payment Vo ucher T

Kw itansi C opy BS

2 21

Sele sai

Gambar 4.24 Flowchart Penjualan Kredit company (Lanjutan)

98

99

Credit c ontrol departemen 7

10

KTP Copy SPP

Surat Nikah Kartu keluarga NP WP S urat Gaji

18

Melak ukan surv ey

Status Kredit

Tolak

Buat STK

Terim a

STK

B uat S PPK

15 S PPK

SPPK =Surat Persetujuan Perjanjian Kredit STK= Surat Tolakan Kr ed it SPP= Su rat Persetujuan Pembelian

14

Gambar 4.25 Flowchart Penjualan Kredit Company (lanjutan)

99

100 Ba gia n Pen agi han

18

19

C opy SPP

C opy BS

T Me merik sa p emba yara n DP yan g te lah j atuh te mpo

Membu at STC

C opy SPP STC Ke pel ang ga n

ca ta ta n SPP= Surat Persetuj uan Pe mbe lia n N

STC= Surat Ta gih an ci cila n BS= Bukti Setora n

Gambar 4.26 Flowchart Penjualan Kredit Company (lanjutan)

100

F orm_Pembiayaa n

Form_Pembayaran Pesan an Pembayaraan Booking Pembayaran DP Doc Pel anggan Pembayaran Ang su ra n Pembayaran Tu nai PV yg suda h di ttd FP_Inva lid BS_In va lid Form_Pemb aya ra n

Pelangg an

Pesanan In va lid SP DP STC Kw itan si DP Kwita nsi Angsuran Kwitansi Lunas Sistem Informasi Penjual an Tunai da n Kredi t PT. Ke ntan ix Supra In ternasio nal

SKK STK SKKPR STKPR AJB HGB & IMB Cek Penge mba lianUan g

BANK

Pencairan_Pembiayaa n SPK SPPK F orm_ BS

Rancangan Diagram Hubungan

Rek_Koran

4.3.1

Penyerahan AJB, HGB & IMB

Rancangan Diagram Data Sistem

Pembayaraan Booking Pelangg an

4.3

Penyerahaan Doc_Pelangg an

101

Jurnal PV

Akuntansi

Jurn al R V

TTS SPP PV

Kebijakan Kredit Kebij akan Pembayaran Lap_ Pe nj_perSales Pembuatan AJB

La p_Penj_PerPelang gan

Pembuatan HGB & IMB

Lap_ Pi utan g Pela nggan Lap_Piutang KPR Lap_Piutang_ Jatuh_Tempo

NOTAR IS

Lap_Anal isis_piutang_ tak_tertag ih

HGB & IMB selesai AJB sel esai

Lap_Sto ck_Ru mah Lap_Pen j_Rumah MANAJEMEN

Lap_Statu s_ Pembayaran

Gambar 4.27 Diagram Hubungan Yang Diusulkan

101

102 4.3.2

Rancangan Diagram Nol Form_Pembiayaan

SP DP

Penyerahan Doc Pelanggan

SKKPR ST KPR SKK STK

Pelanggan T TS

BANK

Form_Pemb ayaran Pesanan Inval id Doc Pelanggan Pesanan

Pesanan Kredit

1.0 Veri fikasi pesanan

2.0 Verifikasi Kredit

SPK SPPK

Sales Pesanan kredi t diterima

Stock

SPP

TTS

Pelanggan

Kebij akan Kredit Bank Piutang_Pelanggan AJB Selesai HGB dan IMB Sel esai

3.0 Buat Faktur dan Surat

Pesanan T unai

Manaj emen

Pembuatan AJB Pembuatan HGB&IMB

SPP

AJB HGB & IMB

BS_Invalid

SPP

Pelanggan

BANK

Notaris

Fo rm _Pembayaran

Pembayaran_Booking Pembayaran_DP Pembayaran_Angsuran Pemb_Tunai PV yg di ttd

Pelanggan

Pembayaran Booking Pel anggan

Piutang KPR

Pencai ran Pembiayaan Rek_Koran AJB , HGB & IMB

Pi utang_Pelanggan

PV yg diT TD & RV

Lap_Stock_rumah

Bank L ap_Stat _Pemba yara n

5.0 Buat Jurnal

BANK

Jurnal RV

MANAJEMEN

Akuntansi

Kwitansi _Lunas Kwi tansi_Angsuran Kwitansi_DP PV ST C Cek Pengembalian Uang Form_Pembayaran Manajemen

PV RV

Jurnal PV

Lap_perPelanggan

Lap _Jenis_ Pe mbay aran

Lap_Piutang KPR

4.0 Transaksi Bayar

Penjualan Lunas SPP

La p_piu tang a j tuh_ temp o

Lap_penj_perSales

FP_Invalid

Kebijakan Pembayaran

Lap_Pi utang Pel anggan Lap_Anal isi s_Piutang_Tak_tertag ih

T TS 6.0 Buat Lapora n

Catatan : TT S= Tanda Terima Sementara SPP= Surat Persetuj uan Pembeli an AJB= Akte Jual Beli HGB = Hak Guna Bagu na n IMB = Ijin Mendi ri kan Bagunan SPPK =Surat Persetujuan Perj anjian Kontrak SPK= Surat Penolakan Kredit SKK= Surat Ko ntrak Kredi t STK =Surat T olakan Kredit ST KKPR= Surat T olakan Kredit Pemilikan Rumah SKKPR= Surat Kontra k Kredit Pemi likan Rumah BS = Bukti Setoran RV= Receipt Voucher PV= Payment Voucher DP = Down payment STC= Surat Tagihan cici lan SP DP =Surat Penagihan Down Payment

Gambar 4.28 Diagram Nol Yang Diusulkan

102

103

4.3.3

Rancangan Diagram rinci

P elanggan

Pesanan Inv alid

TTS Form_Pembayaran

TTS

Doc_Pelanggan 1.1 Ter ima pesanan

P esanan

1.2 Buat SP P & TTS

P esanan V alid

SP P 1.3 Sortir SPP

S ales

P elanggan Pesanan kredit 2.0 S PP

S tock Pesanan Tunai 3.0

Gambar 4.29 Diagram Rinci 1 Verifikasi Pesanan 1.0 Pesana n Kre dit 2.1 Survei Pelangg an

Pela nggan Piu tang Pelangan

BANK

2 .2 Bu at STK & STKPR

Kebijakan Kredit Pelangga n_Valid

Ma najemen

S PK

Pe lan ggan_ Invalid

STK STKPR

SPP

Pelanggan P ela nggan

SPP

SP_DP SKKPR

2.3 Oto risasi Kredit

SPPK

SKK

Pesa nan Kredit di Terima 3.0 BANK

Doc_Pelangg an

Bank

Form_pe mbiayaan

Gambar 4.30 Diagram Rinci 2 Verifikasi Pesanan kredit

103

104

2.3 Pelanggan_Valid

2.3.1 Pisahkan Kredit

2.3.3 Buat SKK

Kr edit Company

Pelanggan

Kredit KPR

Pesanan Kredit diterima 3.0

SKK

Pelanggan

Bank

2.3.2 Buat For m Pembiayaan

SKKPR

SPP

SPPK Form_Pembiayaan

2.3.4 Buat SKKPR

BANK

Gambar 4.31 Diagram Rinci 2.3 Otorisasi kredit

Pembuatan AJB Dari proses 2.0 Dari proses 1.0

NOT ARIS

Pembuatan HGB & IMB

Pesanan Kedit yg Diter ima Pesanan Tunai 3.1 Sortir Pesanan Valid

Pesanan Tersor tir

AJB

3.2 Buat AJB, HGB & IMB

HGB & IMB AJB

SPP Pelanggan Pelanggan

SPP

SPP

HGB & IMB

Piutang Pelanggan Ke Proses 4.0

Gambar 4.32 Diagram Rinci 3 Buat Surat

104

Pelanggan

105 STC

Piutang KPR

Ke Proses 5.0

Pelanggan 4.1 Buat Surat Penagi han

SP DP

Kwi tansi Lunas

BS_Invalid

Form_Pem bayaran PV

BANK

Kwitansi DP FP_Invalid

Rek_Koran

Kwitansi Angsur an

Pencocokan Pembayar an

Pembayaran Tunai Pembayaran DP

Pembayaran Booki ng

Piutang KPR

PV yg di Ttd Pembayaran Angsuran

PV Piutang_Pelanggan

P embayaran_Booki ng pel anggan Form_Pembayaran

4.2 B uat AJB HGB & IMB

Pembay aran_V ali d

Pencairan Pem biayaan

Kebi jak an Pembayaran

RV

Piutang_Pelanggan

Pi utang KPR

Penj ualan_Lunas

TTS

Penyerahan AJB, HGB & IMB

M anajemen

P V yg DiTtd

S PP

Ke pros es 6.0

B ANK

Pelanggan

Gambar 4.33 Diagram Rinci 4 Transaksi Bayar PV Dari Proses 4.0

PV yg di Ttd

5.1 Melakukan Pencocokan

Valid

RV

Jurnal PV

5.2 Dibuat Jurnal

Akuntansi

Jurnal RV

Gambar 4.34 Diagram Rinci 5 Buat Jurnal

105

106

Manajem en Dari proses 4.0

Penjualan _Lunas Lap_Penj_perS ales Lap_Piutang_Pelanggan Lap_Stock_r umah Lap_piutang jatuh tem po Lap_penj_PerP elanggan

TTS

Lap_Penj_Rumah

6.1 B uat Laporan

Lap_Piutang_KPR Lap_Status_P embay aran Lap_Analisis_Piutang_tak_Tertagih

Piutang Pelanggan Piutang KPR Bank

Sales

SPP Pelanggan

B.Stock

Gambar 4.35 Diagram Rinci 6 Buat Laporan

106

107 4.4

Data Sistem

4.4.1

Rancangan Kamus Data

A.

Kamus Data untuk Aliran Data

1.Tanda Terima Sementara @NoTTS + TglTT S + NmPelanggan + AlmPelanggan + Telp + Mobile + JmlBooking + HrgStandar + @NoBlock + Type. 2. Surat Perset ujuan Pem belian @NoSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + Telp + Mobile + {@NoBlock + Perumahan + Type + HrgStandar } + @kdBank + Nm Bank + BykAngsuran + Angsuran. 3. Payment Voucher @NoP V + TglP V + @kdBank + Nm Bank + @KdPelanggan + NmPelanggan + Description + Debit + Kredit 4. Receipt Voucher @NoRV + TglRV + @KdBank + Nm Bank + @KdPelanggan + NmPelanggan + Description + Debit + Kredit 5. Surat Kontrak Kredit @NoSKK + @NoSPP + T glSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + KdPosPelanggan + Telp + Mobile + @NoBlock + Perumahan + HrgJual + JmlUnit + JmlAngsuran 6. Surat Tolakan Kredit @NoSTK + @NoSPP + TglSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + KdPosPelanggan + Telp + Mobile + @NoBlock + Perumahan + HrgJual + JmlUnit + JmlAngsuran 107

108 7. Surat Kontrak KP R @NoSKKPR + @NoSPP + TglSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + KdPosPelanggan + Telp + Mobile + @NoBlock + Perumahan + HrgJual + JmlUnit + JmlAngsuran 8. Surat Tolakan Kredit @NoSTKP R + @NoSPP + TglSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + KdPosPelanggan + Telp + Mobile + @NoBlock + Perumahan + HrgJual + JmlUnit + JmlAngsuran 9. Kwitansi @NoKwitansai + T glKwitansi + @KdPelanggan + NmPelanggan + Unt uk Pembayaran + Jumlah 10.FormPembiayaan @NoFP + @NoSPP + TglSPP + @KdPelanggan + NmPelanggan + AlmPelanggan +KdPos +Telp + NmBank + AlmBank +KdPosBank +TelpBank + @NoBlock + Perumahan + HrgJual + JmlUangMuka + JmlKPR 11.Surat Penagihan Down Payment @NoSP DP + TglSPDP + @KdPelanggan + NmPelanggan + AlmPelanggan + KdPos + Telp + @NoBlock + Perumahan + Jumlah 12. Surat Tagihan Cicilan Kredit @NoST CK + TglST CK + @KdPelanggan + NmPelanggan + AlmPelanggan + KdPos + Telp + @NoBlock + Perumahan + Jumlah B.

Kamus Data untuk Data Store

1. Nama : File Master Buku Stock Kunci : Blok Rumah 108

109 @NoBlokRumah + TipeRumah + Perumahan + HargaStandar + St atusRumah 2. Nama : File Master Pelanggan Kunci : Kd Pelanggan @KdPelanggan

+

NmPelanggan

+

AlmPelanggan

+

KotaPelanggan

+

KdPosPelanggan + TelpPelanggan +Mobile 3. Nama : File Master Salesman Kunci : Kd Salesman @KdSalesman + Nm Salesman + Alm Salesman + KotaSalesman + KdPosSalesman + TelpSalesman +Mobile 4. Nama : File Master BANK Kunci : Kd BANK @KdBANK + NmBank + NoACC + AlmBank + KotaBank + KdPos + TelpBank + Fax 5. Nama : File Piutang Pelanggan Kunci : NoSPP @NoSPP + NoBlock + @KdPelanggan + TglPembayaran + JmlPembayaran + Stat us 6. Nama : File Piutang KP R Kunci : NoSPP @NoSPP + NoBlock + @KdPelanggan + KdBank + TglSelesai Surat 7.

Nama : File Tanda Terima Sementara (TTS) Kunci : NoTT S @NoTTS + TglTT S +@ KdPelanggan + KdSales + Noblock + Jmlbooking

8. Nama : File Surat Persetujuan Pembelian (SPP) 109

110 Kunci : NoSPP @NoSPP + TglSPP + @KdPelanggan + KdSalesman + JmlUang 9. Nama : File Receipt voucher(RV) Kunci : NoRV @NoRV + TglRV + @KdPelanggan + NoSPP + NoBlock + Description + Jml 10. Nama : File Payment Voucher(P V) Kunci : NoP V @NoP V + TglP V + @KdPelanggan + NoSPP + NoBlock + Description + Debit +Kredit C. Kamus Data untuk Data Laporan 8.

Laporan Stock Rumah Per + Hal + {Noblock + Perumahan + Tipe + HrgJual + Stat us Rumah}

9.

Laporan Penjualan PerPelanggan Per + Hal + NmPelanggan + Alamat + KdPos + NoTlp + {Noblock +Perumahan + HrgJual}+ Total

10.

Laporan Penjualan PerSales Per + Hal + Nm Sales+ Alamat + KdPos + NoTlp + {Noblock +Perumahan + HrgJual}+ Total

11.

Laporan Penjualan Rumah Per + Hal + {NoBlock + Perumahan + HrgStandar + HrgJual + JenisPem bayaran}

12.

Laporang Piutang KP R Per + Hal + Pelanggan + Bank + NoSPP + NoBlock +{TglPenyelesaian + Depcription + JmlPembayaran}+ Total

13.

Laporang Piutang Pelanggan 110

111 Per + Hal + NmPelanggan

+ NoSPP

+ NoBlock+ {TglPembayaran

+

JmlPembayaran} + Total 14.

Laporan Piutang Jatuh Tempo Per + Hal + NmPelanggan + NoSPP + NoBlock + {TglPembayran + jmlPembayaran} + Total

15.

Laporang Stat us Pem bayaran Per + Hal + NmPelanggan + NoSPP + NoBlock + {TglPembayaran + JmlPembayaran + St atusPembayaran} +Total

4.4.2

Normalisasi

1.

Surat Perset ujuan Pem belian

UNF @NoSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + Telp + Mobile + {@NoBlock + Perumahan + Type + HrgStandar } + @kdBank + Nm Bank + BykAngsuran + Angsuran 1NF @NoSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + Telp + Mobile + @NoBlock + Perumahan + Type + HrgStandar

+ @kdBank + Nm Bank +

BykAngsuran + Angsuran 2NF SPP (Header) @NoSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + Telp + Mobile + @kdBank + NmBank + BykAngsuran + Angsuran SPP (Detail) @NoSPP + @NoBlock + Perumahan + Type + HrgSt andar + HrgJual 111

112 3NF SPP (Header) @NoSPP + @KdPelanggan + NmPelanggan + ALmPelanggan + Telp + Mobile + @KdBank + Nm Bank + BykAngsuran + Angsuran Master Pelanggan @KdPelanggan + NmPelanggan + AlmPelanggan + KotaPelanggan + KdPos + Telp + Mobile Master Bank @KdBank + Nm Bank + AlmBank + KotaBank + KdPosBank + TelpBank + fax SPP (Detail) @NoSPP + @NoBlock + HrgJual Master Stock @NoBlock +Perumahan + Type + HrgStandar

2.

Payment Voucher

UNF @NoP V + TglP V + @kdBank + Nm Bank + @KdPelanggan + NmPelanggan + Description + Debit + Kredit 1NF @NoP V + TglP V + @KdBank + @KdPelanggan + Description

+

Debit

+

Kredit Master Bank @KdBank + Nm Bank + AlmBank + KotaBank + KdPosBank + TelpBank + fax Master Pelanggan 112

113 @KdPelanggan + NmPelanggan + AlmPelanggan + KotaPelanggan + KdPos + Telp + Mobile 3.

Receipt Voucher

UNF @NoRV + TglRV + @KdBank + Nm Bank + @KdPelanggan + NmPelanggan + Description + Debit + Kredit 1NF @NoRV + TglRV + @KdBank + @KdPelanggan + Description + Debit + Kredit Master Bank @KdBank + Nm Bank + AlmBank + KotaBank + KdPosBank + TelpBank + fax Master Pelanggan @KdPelanggan + NmPelanggan + AlmPelanggan + KotaPelanggan + KdPos + Telp + Mobile

4.

Surat Kontrak Kredit

UNF @NoSKK + @NoSPP + T glSPP + @KdPelanggan + NmPelanggan + AlmPelanggan + KdPosPelanggan + Telp + Mobile + @NoBlock + Perumahan + HrgJual + JmlUnit + JmlAngsuran 1NF @NoSKK + @NoSPP + @KdPelanggan + @NoBlock + JmlUnit +JmlAngsuran Master Pelanggan @KdPelanggan + NmPelanggan + AlmPelanggan + KotaPelanggan + KdPos + 113

114 Telp + Mobile Master SPP @NoSPP + TglSPP + HrgJual + PPN + Diskon + HrgStlhDisk + JnsPem bayaran + JmlUangM uka + JmlKP R + Kewajiban Pem bayaran Master Stock @NoBlock +Perumahan + Type + HrgStandar 5.

Surat Kontrak KP R

UNF @NoSKKPR + @NoSPP + T glSPP + @KdPelanggan +NmPelanggan + AlmPelanggan + KdPosPelanggan + Telp + Mobile + @NoBlock + Perumahan + HrgJual + JmlUnit + JmlAngsuran 1NF @NoSKKPR + @NoSPP + @KdPelanggan + @NoBlock + JmlUnit + JmlAngsuran

Master Pelanggan @KdPelanggan + NmPelanggan + AlmPelanggan + KotaPelanggan + KdPos + Telp + Mobile Master SPP @NoSPP + TglSPP + HrgJual + PPN + Diskon + HrgStlhDisk + JnsPem bayaran + JmlUangM uka + JmlKP R + Kewajiban Pem bayaran Master Stock @NoBlock +Perumahan + Type + HrgStandar

114

115 4.4.3

Rancangan Spesifikasi File

1. Nama File : MsPelanggan Primary Key : KdPelanggan Field Name KdPelanggan NmPelanggan AlmPelanggan KtPelanggan KdPosPelanggan TlpPelanggan Mobile

Data Type Field size Decimal Text 6 Text 25 Text 50 Text 20 Text 10 Text 10 Text 15

Descripton Kode Pelanggan Nama pelanggan Alamat Pelanggan Kota Pelanggan Kode Pos Telepon pelanggan Mobile Phone

2. Nama File : MsSalesman Primary key : KdSales Field Name KdSales NmSales AlmSales KtSales KdPosSales TlpSales Mobile

Data Type Field size Decimal Text 6 Text 25 Text 50 Text 20 Text 10 Text 10 Text 15

Descripton Kode Sales Nama Sales Alamat Sales Kota Sales Kode Pos Telepon Sales Mobile Phone

3. Nama File : MsBank Primary key : KdBank Field Name KdBank NmBank NoAcc AlmBank KtBank KdPos TlpBank Fax

Data Type Field size Decimal Text 4 Text 20 Text 15 Text 50 Text 20 Text 10 Text 10 Text 10

115

Descripton Kode Bank Nama Bank No Account Alamat Bank Kota Bank Kode Pos Telepon Bank Fax

116 4. Nama File : MsStock Primary key : NoBlock Field Name NoBlock Perumahan Tipe HrgStandar StatusRumah

Data Type Field size Decimal text 4 text 30 text 20 numeric 13 Integer 1

Descripton Noblock rumah Perumahan Tipe Harga standar Status rumah

5. Nama File : Piutang Pelanggan (Transaksi Piutang Pelanggan) Primary Key : NoSPP Field Name NoSPP NoBlock KdPelanggan TglPembayaran JmlPembayaran Status

Data Type Text Text Text Date/Time currency Text

Field size Decimal 6 4 6 4 13 0 1

Descripton Nomor Surat Persetujuan Pembelian Nomor Block Rumah Kode Pelanggan Tanggal Jatuh tempo Pembayaran Jumlah Pembayaran Hutang Status

6. Nama File : Piutang KP R (Transaksi Piutang KPR) Primary Key : NoSPP Field Name NoSPP NoBlock KdPelanggan KdBank TglSlsSurat

Data Type Text Text Text Text Date/Time

Field size Decimal 6 4 6 4 4

Descripton Nomor Surat Persetujuan Pembelian Nomor Block Rumah Kode Pelanggan Kode Bank Tanggal Selesai surat

116

117 7. Nama File : Tanda Terima Sementara (Transaksi Tanda Terima Sementara) Primary Key : NoTTS Field Name NoTTS TglTTs KdPelanggan KdSales NoBlock JmlBooking

Data Type Text Date/Time Text Text Text currency

Field size Decimal 6 4 6 6 4 13 0

Descripton Nomor Tanda Terima Sementara Tanggan Tanda Terima Sementara Kode Pelanggan Kode Sales No Block rumah Jumlah Booking

8. Nama File :Surat Persetujuan Pembelian Header(Transaksi SPP header) Primary Key : NoSPP Field Name NoSPP TglSPP KdPelanggan KdSales JmlUang

Data Type Text date/Time Text Text currency

Field size Decimal 6 4 6 6 13 0

Descripton Nomor Surat Persetujuan Pembelian Tanggal Surat Persetujuan Pembelian Kode Pelanggan Kode Sales Jumlah uang

9. Nama File : Surat Persetujuan Pembelian Details (Transaksi SPP Detil) Primary Key : NoSPP Field Name NoSPP NoTTS NoBlock Hrgjual PPN Diskon Hrg stlh disk

Data Type Field size Text 6 Text 6 Text 4 currency 13 currency 13 currency 13 currency 13

jnsPembayaran Text KdBank Text JmlUangMuka currency JmlBooking currency Bunga currency JmlKPR currency KewajPembayaran currency

1 4 13 13 13 13 13

Decimal

0 0 0 0

0 0 0 0 0

117

Descripton Nomor Surat Persetujuan Pembelian Nomor Tanda Terima Sementara No Block Rumah Harga Jual Pajak Diskon Harga Setelah Diskon Jenis Pembayaran 0=Tunai langsung 3= KPR bertahap 1=Tunai Bertahap 4=KPR Langsung 2= Kredit Company Kode Bank Jumlah Uang Muka jumlah Booking Bunga Kredit Company Jumlah Kredit Kepemilikan Rumah Kewajiban Pembayaran

118 10. Nama File : Receipt Voucher (Transaksi RV) Primary Key : NoRV Field Name NoRV TglRV KdPelanggan NoSPP NoBlock Description Jumlah

Data Type Text Date/time Text Text Text Text currency

Field size Decimal 5 4 6 6 4 200 13 0

Descripton Nomor Receipt Voucher Tanggal Receipt Voucher Kode Pelanggan Nomor Surat Persetujuan Pembelian Nomor Block Rumah Keterangan Jumlah

11. Nama File : Payment Voucher(Transaksi P V) Primary Key : NoP V Field Name NoPV TglPV KdPelanggan NoSPP NoBlock Description Debit Kredit

Data Type Text Date/time Text Text Text Text currency currency

Field size Decimal 5 4 6 6 4 200 13 0 13 0

118

Descripton Nomor Payment Voucher Tanggal Payment Voucher Kode Pelanggan Nomor Surat Persetujuan Pembelian Nomor Block Rumah Keterangan Debit kredit

119 4.4.4

Rancangan Diagram Hubungan Entitas

Tanda Te rima Sementara

MsSalesman

MsPelang gan

SPPHea der

Recei ved Vou ch er

SPPD etai l

Payment voucher

MsStock

MsBan k

Piutang KPR Piu tang Pela nggan

Gambar 4.36 Rancangan Diagram Hubungan entitas Yang Diusulkan

119

120 4.5 Rancangan Proses 4.5.1 Rancangan Bagan Terstruktur

Sistem Informasi Penjualan Tunai dan PenjualanKredit

File

Transaksi

Surat

Report

Master

Sistemutilities

Gambar 4.37 Rancangan Sistem Informasi Penjualan Tunai dan Penjualan Kredit Yang Diusulkan

120

121

File

Log Off

Exit

Gambar 4.38 Rancangan Bagan Terstrukt ur File Transaksi

Tanda Terima Sem entara

Surat Persetujuan Pembelian

Voucher

Rece ived Voucher

Payment Voucher

Piu tang

Piutang Pelanggan

Piuta ng KPR

Gambar 4.39 Rancangan Bagan Terstrukt ur Transaksi Surat

Su rat Kredi t

Surat Kontrak Kre dit

Surat Tola k Kredi t

Surat KPR

Sura t To lak KPR

Kw itansi

Form Pe mbiaya an

Su rat Pena giha n Down p ayment

Surat Kontrak KPR

Gambar 4.40 Rancangan Bagan Terstrukt ur Surat

121

Su rat Tagih an Cicil an Kredit

Sura t Survey Kre dit

122

Rep or t

Ta nda Terima Se me nta ra

Su rat Per setu juan Pe mb elian

Pe njua lan

Per Pelan gga n

Pe rSa e l s

Sta tus Pemba yar an

Rumah

Vouc her

Rec eived vo uche r

Stock Rumah

Payment vuo che r

Piu tan gKPR

Piu tan g

Piu tan g Pelan gga n

Piu tan g Ja tuh Te mp o

Gambar 4.41 Rancan gan Ba gan Terstruktur Report

Master

Pelanggan

Salesman

Bank

Gambar 4.42 Ranca ngan Bagan Terstruktur Master

Sistem Utilities

Manage user

Change P assword

Gambar 4.43 Rancangan Bagan Terstrukt ur Sistem Utilities

122

St ock

Ana lisa Piu tang Ta k te rta gih

123 Tanda Terima Sementara

gan elang Nm _P

al es

_S D et il

Read Ms Pel anggan

Read Ms Sal es

m_S al es Jm l _Boo k ing an N o_ H ar g Bloc a_St k Kd anda _Pe r l angg an N o_ TTS

m ah

ck lo oB

n

s ale

nN

P eru

N

gga

ngga

ales

k oc St

an l Pel D eti

K d_S

til De

S m_ N

Nm _P ela

Write T TS

Read Ms Stock

Gambar 4.44 Rancangan Bagan Terstrukt ur Transaksi Tanda Terima Sementara

le Sa

Rea d Ms Sto ck

k

s

l_B a n

ti l_

Deti

De

Rea d Ms Bank

Pela ng ga n Bar u

PP Kd _ P ela n gga n Kd Kd _ _S a P e No lan le sm _B g a n Jum l gan Kd _ ah U ol ck P elan ang N m gga n N o_ _P SP ela P K d_ ngg B an a n k S tat Tg No us T gl_ _B l_P S ele Jm l ol c em s ai _P k b S ura No _ ay em t a SP P ran bay ara n Rea d Upd ate Upd at e TTS Piu tan g Piu tan g KPR Pe lang ga n

TS il _T

Rea d Ms Sa les

es

TS

Tg l_ S

t De

al til_S De

No _T

ga n elan g

R ead Ms Pelan gg an

ga n elan g

No_ SPP

P De til

P De til

Kd

ng gan

s S ale K d_

es al _S

K d_ B an k

ga n elan g

ela Nm _P

K d _P

Su ra t Per se tuju an Pe mb elia n

Wr ite SPP

Gambar 4.45 Rancangan Bagan Terstrukt ur Transaksi Surat Persetujuan Pembelian Paymen t Vo uche r

No_ Block

_P

V K d_

N o

Detil_ Sto ck

PP

lan

No

gg an N o_ B lo _S ck PP

k

R ead Ms SPP

Pe

an

Rea d Ms Pe lan ggan

S

n ga

D et il_

ng

No

B il_ et D

ela

k

k an

P t il_ De

_B an

_B

SP

Kd

Kd

P

an ngg ela _P d K

R ead Ms Sto ck

Re ad Ms Ban k

W rite Ms PV

Gambar 4.46 Rancangan Bagan Terstrukt ur Transaksi Payment Voucher R ecieve d Vouche r N o_Bl ock

Detil _Stock

N oS

et il_ SP P

Read Ms Stock

123

_R

V

Kd

_P el a No

ng

ga nN o_ B lo _S ck PP

k an

Rea d Ms SPP

No

B

D

an

k

il_ et D

Re ad Ms Pela ngga n

g ng

an

k an

De

la Pe til_

_B

B d_

P

Kd

K

P

n gga lan Pe _ Kd

Re ad Ms Ban k

Write Ms RV

124

Gambar 4.47 Rancangan Bagan Terstrukt ur Transaksi Received Voucher Piutang Pelanggan

oS

Detil_Stock

P

el an gg an Tg N oS l_ P P em P ab ay ar an

n

D et il _ SP

ra ya ba

N

em

Read Ms SPP

Kd _P

k

Read Ms Pelanggan

l_P

n ga

oc Bl

g lan

Jm

Pe ti l_ De

No_Block

gan

PP

g lan

o_ N

_P e Kd

S ta tu s

Write Piutang P elanggan

Read Ms St ock

Gambar 4.48 Rancangan Bagan Terstrukt ur Transaksi Piutang Pelanggan Piutang KP R gan

P

n ga

Read Ms SPP

No _B lo ck

Detil_Stock

oS N

Read Ms Pelanggan

g lan

D et il _ SP

Pe ti l_ De

No_Block

g lan

PP

_P e Kd

Kd _P

el an gg an N Tg oS l_ P S P el es ai S ur at

Read Ms St ock

Gambar 4.49 Rancangan Bagan Terstrukt ur Transaksi Piutang KPR

124

Write Piutang KPR

125

Surat Kontrak Kredit ga n lan g Pe _ d K

n De til_S PP

Read Tr SPP

De til _S toc k

NO _ SK K

k

De t

oc St

il_ S

ti l_

PP

De

an ng g

Read Ms Pelangan

ng g a

k loc B

e la t il _P De

l_P e la

_ No

No

SP P

D ei

Read Ms Stock

Print SKK

Gambar 4.50 Rancangan Bagan Terstrukt ur Surat Kontrak Kredit Surat Tolakan Kredit an ng g

SP P

D ei

De til_S PP De t i l_

PP il_ S

c to

N o_

De t

k

Read Tr SPP

Read Ms Pelangan

n

l _S eti

an ng g

ng g a

D

k loc B

e la il _P D et

l_P e la

_ No

No

Pe la Kd _

ST K

Read Ms Stock

Print ST K

Gambar 4.51 Rancangan Bagan Terstrukt ur Surat Tolak Kredit Kwitansi

De

V _R No

V _R No

RV til _

Read Ms RV

Print Kwitansi

Gambar 4.52 Rancangan Bagan Terstrukt ur Kwitansi

125

St oc k

126

Detil _Ban k

Kd_ Bank

P

et il_ SP P D

ck to S til_ De

ck

Rea d Tr SPP

Rea d Ms Pe lang an

No _F P

ol

an gg lan Pe t il_ e D

B o_ N

N oS

gan ng el a _P d K

P

Form Pembi ayaa n

No

Re ad Ms Ba nk

_F P

Rea d Ms Stock

N o_ SP P

Up date Tr SPP

Prin t FP

Gambar 4.53 Rancangan Bagan Terstrukt ur Form Pembiayaan

ng T t uh Ja

Angsuran

u ta Pi ah l m Ju

po em

Rea d Ms Piutang

No _S PD P

Jumlah U ang Muka

Kd

an gg l an e _P

No_SPP

Surat Penagihan D own_Paym ent

R ead Tr SPP

Print SPDP

Gambar 4.54 Rancangan Bagan Terstrukt ur Surat Penagihan Down Payment

ng

Angsuran

a ml Ju

a iu t hP

po em T t uh Ja

Rea d Ms Piutang

No _S TC K

Jumlah_Angsuran

Kd

n ga ng a l e _P

No_SPP

Surat Tagiiha n Cicilan Kredit

R ead Tr SPP

Gambar 4.55 Rancangan Bagan Terstrukt ur Surat Tagihan Cicilan Kredit

126

Print STCK

127 Laporan Tanda Terima Sementara

T _T No

TS _T o N

S

S TT til _ e D

Read Tr TTS

Print TTS

Gambar 4.56 Rancangan Bagan Terstrukt ur Laporan tanda Terima Sementara Laporan Surat Persetujuan Pembelian

P _S No P

D

PP _S o N

PP _S e til

Read Tr SPP

Print SPP

Gambar 4.57 Rancangan Bagan Terstrukt ur Laporan Surat Persetujuan Pembelian Laporan Status Rumah

at us _R

an ah R

D et il_ S

to ck

s tu ta

al Ju rg H

e ip S T

St

um er

ck lo

um ah

P

B o_ N

h m

Print Laporan Stock Rumah

Read Ms Stock

Gambar 4.58 Rancangan Bagan Terstrukt ur Laporan Status Rumah

127

128

PP _S No

De t il _ Pi ut an g_ P

ta l

el an gg an

To

No _S P

P

Laporan Status Pembayaran

Read Ms Piutang Pelanggan

Print Laporan Status Pembay aran

Gambar 4.59 Rancangan Bagan Terstrukt ur Laporan Status Pembayaran

Pe l an g

m

De ti l_

SP P

Kd _

K ile ob

l ta To al ju rg H an ah lp T um er t P a k am oc al bl o a n N am ga N ng os a el dP P

ga n

Laporan Penjualan Per Pelanggan

Print Laporan Penjualan Per Pelanggan

Read Tr SPP

Gambar 4.60 Rancangan Bagan Terstrukt ur Laporan Penjualan Perpelanggan Laporan Penjualan Per Salesman n sm a _s a le

am al t a

K ile ob

Kd

a n am ma es al

S

N

m

De ti l_

SP P

o

l ta To al ju rg H an ah lp T um er P k oc bl

N os dP

Print Laporan Penjualan Per Salesman

Read Tr SPP

Gambar 4.61 Rancangan Bagan Terstrukt ur Laporan Penjualan PerSales

128

129

B o_ N

Je ni s P D et il_ SP

al Ju

n ra ya ba

Read Tr SPP

rg H

m Pe _ is en

an ah

rJ

um er P

da an st

ck lo

rg H

Pe m ba ya ra n

Laporan Penjualan Rumah

Print_Laporan Penjualan Rumah

Gambar 4.62 Rancangan Bagan Terstrukt ur Laporan Penjualan PerRumah

D et il

PV

V P o_ N

N o_

PV

Payment Voucher

Print PV

Read Ms PV

Gambar 4.63 Rancangan Bagan Terstrukt ur Payment Voucher

D et il

R V

V R o_ N

N o_ R V

Recipt Voucher

Read Ms RV

Print RV

Gambar 4.64 Rancangan Bagan Terstrukt ur Recipt Voucher

129

130

No _S P

P

Laporan Piutang KPR

De ti l_ Pi ut an g_ K

P

PR

P _S No

Print Laporan Piutang KPR

Read Ms Piutang KPR

Gambar 4.65 Rancangan Bagan Terstrukt ur Laporan Piutang KP R

D e ti l _P

iut an g_ P

PP _S No

ela ng ga n

No _S P

P

Laporan Piutang Pelanggan

Read Ms Piutang Pelanggan

Print Laporan Piutang Pelanggan

Gambar 4.66 Rancangan Bagan Terstrukt ur Laporan Piutang Pelanggan

D

Read Ms Piutang Pelanggan

g

Date to Date

n iuta _P l i t e

No _

SP P

Detil_Piutang

No SP P

Laporan Piutang Jatuh Tempo

Update Ms Piutang Pelanggan

Print Laporan Piutang Pelanggan

Gambar 4.67 Rancangan Bagan Terstrukt ur Laporan Piutang Jat uh Tempo

130

131

Pelanggan Baru ti l an D e ngg la Pe de an Ko ngg la Pe

s Po Kd

ta Ko t a la m bi le a A Mo m a N T lp

Write MsPelanggan

Pelanggan

Gambar 4.68 Rancangan Bagan Terstrukt ur Master Pelanggan Salesman ti l an D e sm le Sa de a n Ko sm le Sa

s Po Kd

o ta t K a la m bi le a A Mo m a N T lp

Write MsSalesman

Salesman

Gambar 4.69 Rancangan Bagan Terstrukt ur Master Salesman Stock

t il an ah De m ah m Ru ru Pe us at St

rg

k

H

ar nd

oc bl No

i pe T

a St

an ah m u er P

Write MsStock

Perumahan

Gambar 4.70 Rancangan Bagan Terstrukt ur Master Stock

131

132

Bank

a

F ax

No

C AC

ti l De an k B

Al

t Ko

de Ko ank B

a am N

at am

s Po Kd

Tl p Write MsBank

Bank

Gambar 4.71 Rancangan Bagan Terstrukt ur Master Bank

132

133

4.5.2 Spesifikasi Proses Spesifikasi proses merupakan penjelasan proses yang terjadi dalam modul – modul yang terdapat dalam suatu aplikasi yang dibuat. Berikut ini adalah spesifikasi proses atau modul – modul yang terdapat dalam aplikasi ini yaitu : Spesifikasi Proses ‘Menu Utama’ Modul Menu_Utama Begin Do Case Case Menu = Tanda Terima Sementara Call Modul Tanda_Terima_Sementara Case Menu = Surat Perset ujuan Sementara Call Modul Surat_Perset ujuan_Sementara Case Menu = Payment Voucher Call Modul Payment_Voucher Case Menu = Receipt Voucher Call Modul Receipt_Voucher Case Menu = Piutang Pelanggan Call Modul Piutang_Pelanggan Case Menu = Piutang KP R Call Modul Piutang_KP R Case Menu = Surat Kontrak Kredit Call Modul Surat_Kontrak_Kredit

133

134 Case Menu = Surat Tolakan Kredit Call Modul Surat_Tolakan_Kredit Case Menu = Surat Tolakan KP R Call Modul Surat_Tolakan_KP R Case Menu = Surat Kontrak KP R Call Modul Surat_Kontrak_KP R Case Menu = Kwitansi Call Modul Kwitansi Case Menu = From Pembiayaan Call Modul From_Pembiayaan Case Menu = Surat Penagihan DP Call Modul Surat_Penagihan_DP Case Menu = Surat Tagihan Cicilan Kredit Call Modul Surat_Tagihan_Cicilan_Kredit Case Menu = Report Tanda Terima Sementara Call Modul Report_Tanda_Terima_Sementara Case Menu = Report Surat Persetujuan Pembelian Call Modul Report_Surat_Persetujuan_Pembelian Case Menu = Laporan Stock Rumah Call Modul Laporan_Stock_Rumah Case Menu = Laporan Stat us Pem bayaran Call Modul Laporan_Stat us_Pem bayaran Case Menu = Report Penjualan Per Pelanggan Call Modul Report_Penjualan_Per_Pelanggan 134

135 Case Menu = Report Penjualan Per Sales Call Modul Report_Penjualan_Per_Sales Case Menu = Report Penjualan Rumah Call Modul Report_Penjualan_Rumah Case Menu = Report Payment Voucher Call Modul Report_Payment_Voucher Case Menu = Report Receipt Voucher Call Modul Report_ Receipt_Voucher Case Menu = Jurnal Payment Voucher Call Modul Jurnal_Payment Voucher Case Menu = Jurnal Receipt Voucher Call Modul Jurnal_Receipt Voucher Case Menu = Report Piutang KP R Call Modul Report_ Piutang_KP R Case Menu = Report Piutang Pelanggan Call Modul Report_ Piutang_Pelanggan Case Menu = Report Piutang Pelanggan Jat uh Tempo Call Modul Report_ Piutang_Pelanggan_Jat uh_Tempo Case Menu = Master Pelanggan Call Modul Master_ Pelanggan Case Menu = Master Salesman Call Modul Master_ Salesman Case Menu = Master Stock Call Modul Master_ Stock 135

136 Case Menu = Master Bank Call Modul Master_ Bank Case Menu = Manage Users Call Modul Manage_Users Case Menu = Change_Password Call Modul Change_Password Case Menu = Login Call Modul Login End Case End Spesifikasi Proses ‘Tanda Terima Sementara’ Modul Tanda_Terima_Sementara Begin Open tbl_TTS, tbl_pelanggan, tbl_Salesman Get Data_TTS from tbl_TT S If Not Data_TTS.EOF then Data_TTS.MoveFirst End if While Not Data_TTS.EOF Display NoTTS, Tanggal, KodePelanggan, NamaPelanggan, KodeSalesman, NamaSalesman in Grid_TTS Data_TTS.MoveNext Wend Display NoTTS 136

137 Display Tanggal Get Data_Pelanggan from tbl_pelanggan Input Pelanggan Display KodePelanggan, NamaPelanggan Get Data_Salesman from tbl_Salesman Input Salesman Display KodeSalesman, NamaSalesman Get Data_Stock From tbl_Stock Where Data_Stock.St atus = ‘BelumTerjual’ Input NoBlock Display Perumahan Display HargaStandar Input JumlahBooking If TTS = ‘click Print’ then Write tbl_TTS Update Data_Stock.Status = ‘Booking’ where Data_Stock.NoBlock = NoBlock Else If TTS = ‘click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Surat Persetujuan Pembelian’ Modul Surat_Perset ujuan_Sementara 137

138 Begin Open tbl_SPPHeader, t bl_SPP Details, tbl_TTS, tbl_Pelanggan, tbl_Salesman, tbl_Stock Get Data_SPP Header From tbl_SPPHeader Display NoSPP Display Tanggal Get Data_TTS From tbl_TTS If Input NoTTS then

// Pembelian rumah dari TTS

Display KodePelanggan Display NamaPelanggan Display KodeSalesman Display NamaSalesman Display NoBlock DisplayPerumahan Display HargaStandar Display JumlahBooking Else

// Pembelian rumah tanpa TTS Get Data_Pelanggan from tbl_Pelanggan Input Pelanggan Display KodePelanggan, NamaPelanggan Get Data_Salesman from tbl_Salesman Input Salesman Display KodeSalesman, NamaSalesman

138

139 Get Data_Stock from tbl_Stock where Data_Stock.Stat us =‘BelumTerjual’ Input NoBlock Display NoBlock, Perumahan, HargaStandar End if Do Case JenisPembayaran Case "T unai Langsung" Input JumlahBooking Input UangM uka Input JumlahDiskon Case "T unai Bertahap" Input JumlahBooking Input JumlahDiskon Case "Kredit Company" Input UangM uka Input Bunga Case "KP R Bertahap" Input UangM uka Input JumlahKPR Case “KP R Langsung” Input UangM uka Input JumlahKPR End Case JumlahPPN = HargaStandar * 0.1 139

140 HargaJual = HargaStandar + JumlahPPN HargaSetelahDiskon = HargaJual – (HargaJual * (JumlahDiskon/100)) Jumlah Bunga= HargaSetelahDiskon+(HargaSetelahDiskon*(JumlahBunga/100)) KewajibanPembayaran = HargaSetelahDiskon – (JumlahUangM uka + JumlahBooking)+JumlahBunga Display JumlahPPN Display HargaJual Display HargaSetelahDiskon If JenisPembayaran = ‘KPR Bertahap’ or ‘KP R Langsung’ then Display JumlahKPR Else Display KewajibanPem bayaran End if Get Data_Bank From tbl_Bank Input Bank Display KodeBank, NamaBank TotalPembayaran = 0 If SPP = ‘Click Add’ then Display NoSPP, NoTTS, NoBlock, Perumahan, HargaStandar, HargaJual, HargaPPN, JumlahDiskon, HargaSetelahDiskon, JenisPembayaran, KodeBank, NamaBank, JumlahUangM uka, JumlahBooking, JumlahKP R, KewajibanPembayaran in Grid_SPP. TotalPembayaran = TotalPembayaran + KewajibanPembayaran 140

141 Display TotalPembayaran Else If SPP = ‘Click Save’ then Write Tbl_SPP_Header Grid_SPP.MoveFirst For I = 0 to Grid_SPP.Rows – 1 Write tbl_SPP_details Grid_SPP.MoveNext Next i Update Data_Stock.Status = ‘Terjual’ where Data_Stock.NoBlock = NoBlock Else If SPP = Click Close’ then Exit Sub End if End if End if End Spesifikasi Proses ‘Payment Voucher’ Modul Payment_Voucher Begin Open tbl_PaymentVoucher, tbl_Pelanggan, tbl_SPP_Header, tbl_SPP_details, tbl_PiutangPelanggan, t bl_Stock Get Data_Pelanggan From tbl_Pelanggan 141

142 Input Pelanggan Display Kd_Pelanggan, Nama_pelanggan From Data_pelanggan Get Data_SPP_Header From tbl_Spp_Header Input NoSPP Display NoSPP where Data_SPP_Header.kdpelanggan = data_pelanggan.kdpelanggan From Data_SPP_Header Get Data_SPP_details From tbl_SPP_Details Input NoBlock Display NoBlock where Data_SPP_details.NoSPP = Data_SPP_Header.NoSPP and (Data_SPP_Details.JenisPembayaran = ‘Tunai Bertahap’ or Data_SPP_Details.jenisPem bayaran = ‘Kredit Company’ or Data_SPP_Details.JenisPembayaran = ‘KP R_Bertahap’) From Data_SPP_Details Display KodeBank, NamaBank Get Data_PiutangPelanggan Form tbl_piutangPelanggan where Data_piutangPelanggan.KodePelanggan = KodePelanggan JumlahPembayaran = Sum(Data_PiutangPelanggan.Jumlah) + Data_SPP_Detils.JumlahBooking Display JumlahPembayaran Input BiayaAdmin BiayaAdmin = JumlahPembayaran * 0.10 Display BiayaAdmin Input Description If Payment_Voucher = ‘Click Add’ then 142

143 Display NoP V, Tanggal, KodePelanggan, NamaPelanggan, NoSPP, NoBlock, Perumahan, Description, Jumlah in GridPayment_Voucher Else If Payment_Voucher = ‘Click Save’ then GridPayment_Voucher.MoveFirst For i = 0 to GridPayment_Voucher.Rows – 1 Write tbl_Payment_Voucher GridPayment_Voucher.MoveNext Next i Update Data_Stock.Status = ‘BelumTerjual’ where Data_Stock.NoBlock = NoBlock Delete data_PiutangPelanggan where PiutangPelanggan.KodePelanggan = KodePelanggan and PiutangPelanggan.NoSPP = NoSPP and PiutangPelanggan.NoBlock = NoBlock Else If Payment_Voucher = ‘Click Close’ then Exit Sub End if End if End if End Spesifikasi Proses ‘Receipt Voucher’ Modul Receipt_Voucher 143

144 Begin Open tbl_Receipt Voucher, tbl_Pelanggan, t bl_SPP_Header, tbl_SPP_Details, tbl_Piutangpelanggan Get Data_Pelanggan From tbl_Pelanggan Input Pelanggan Display Kd_Pelanggan, Nama_pelanggan From Data_pelanggan Get Data_SPP_Header From tbl_Spp_Header Input NoSPP Display NoSPP where Data_SPP_Header.kdpelanggan = data_pelanggan.kdpelanggan From Data_SPP_Header Get Data_SPP_details From tbl_SPP_Details Input NoBlock Display NoBlock where Data_SPP_details.NoSPP = Data_SPP_Header.NoSPP and (Data_SPP_Details.JenisPembayaran = ‘Tunai Bertahap’ or Data_SPP_Details.jenisPem bayaran = ‘Kredit Company’ or Data_SPP_Details.JenisPembayaran = ‘KP R_Bertahap’ or Data_SPP_Details.JenisPembayaran = ‘TunaiLangsung’) From Data_SPP_Details Display KodeBank, NamaBank Display TanggalPembayaran Display JumlahPembayaran Get Data_PiutangPelanggan form tbl_PiutangPelanggan where Data_PiutangPelanggan.NoSPP = NoSpp and Data_PiutangPelanggan.NoBlock

144

145 = NoBlock and Data_PiutangPelanggan.KodePelanggan = KodePelangan and Data_PiutangPelanggan.St atusPembayaran = ‘Belum Bayar’ If Not Data_PiutangPelanggan.EOF then Data_PiutangPelanggan.MoveFirst End if While Not DataPiutangPelanggan.EOF Display NoSpp, NoBlock, KodePelanggan, NamaPelanggan, TanggalPem bayaran, JumlahPem bayaran in GridPiutangPelanggan Data_PiutangPelanggan.MoveNext Wend Input Description If Receipt_Voucher = ‘Click Save’ then Write tbl_Receipt Voucher Update Data_PiutangPelanggan.Stat us = ‘SudahBayar’ Where Data_PiutangPelanggan.Kodepelanggan = KodePelanggan and Data_PiutangPelanggan.NoSpp = Nospp and Data_PiutangPelanggan.NoBlock = NoBlock and Data_PiutangPelanggan.Tanggal = TanggalPembayaran Else If Receipt_Voucher = ‘Click Close’ then Exit Sub End if End if End 145

146 Spesifikasi Proses ‘Piutang Pelanggan’ Modul Piutang_Pelanggan Begin Open tbl_pelanggan, tbl_SPP_Header, t bl_SPP_details, t bl_PiutangPelanggan Get Data_Pelanggan From tbl_Pelanggan Input Pelanggan Display Kd_Pelanggan, Nama_pelanggan From Data_pelanggan Get Data_SPP_Header From tbl_Spp_Header Input NoSPP Display NoSPP where Data_SPP_Header.kdpelanggan = data_pelanggan.kdpelanggan From Data_SPP_Header Get Data_SPP_details From tbl_SPP_Details Input NoBlock Display NoBlock where Data_SPP_details.NoSPP = Data_SPP_Header.NoSPP and (Data_SPP_Details.JenisPembayaran = ‘Tunai Bertahap’ or Data_SPP_Details.jenisPem bayaran = ‘Kredit Company’) From Data_SPP_Details Display KewajibanPem bayaran Input JumlahAngsuran JumlahBayar = KewajibanPembayaran / JumlahAngsuran Display JumlahBayar Tanggal = Now() For i = 0 To JumlahAngsuran - 1

146

147 Display NoSPP, NoBlock, KodePelanggan, NamaPelanggan, Tanggal, JumlahBayar In GridPiutangPelanggan Tanggal = Tanggal + (30) Next i If Piutang_pelanggan = ‘Click Save’ then GridPiutangPelanggan.MoveFirst For i = 0 to GridPiutangPelanggan.Rows – 1 Write tbl_PiutangPelanggan GridPiutangPelanggan.MoveNext Next i Else If Piutang_Pelanggan = ‘Click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Piutang KPR’ Modul Piutang_KP R Begin Open tbl_Pelanggan, tbl_SPP_Header, tbl_SPP_Details, tbl_PiutangBank Get Data_Pelanggan From tbl_Pelanggan Input Pelanggan Display Kd_Pelanggan, Nama_pelanggan From Data_pelanggan Get Data_SPP_Header From tbl_Spp_Header 147

148 Input NoSPP Display NoSPP where Data_SPP_Header.kdpelanggan = data_pelanggan.kdpelanggan From Data_SPP_Header Get Data_SPP_details From tbl_SPP_Details Input NoBlock Display NoBlock where Data_SPP_details.NoSPP = Data_SPP_Header.NoSPP and (Data_SPP_Details.JenisPembayaran = ‘KPR Bertahap’ or Data_SPP_Details.jenisPem bayaran = ‘KP R Langsung’) From Data_SPP_Details Display kdBank, NamaBank from Data_SPP_Details Display KewajibanPem bayaran from Data_SPP_Details Input TanggalPenyelesaianSurat JumlahKP R = KewajibanPembayaran * 0.95 JumlahSisa = KewajibanPem bayaran – Jumlah KP R Display JumlahKPR Display Sisa Display NoSP, NoBlock, KodePelanggan, NamaPelanggan, KodeBank, NamaBank, Tanggal, Jumlah In GridPiutangKP R. If Piutang_KP R = ‘Click Save’ then GridPiutangKP R.MoveFirst For i = 0 To GridPiutangKP R.Rows - 1 Write tbl_PiutangBank GridPiutangKP R.MoveNext Next i 148

149 Else If Piutang_KP R = ‘Click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Surat Kontrak Kredit’ Modul Surat_Kontrak_Kredit’ Begin Open tbl_SPP_Header, t bl_SPP_details, t bl_Pelanggan, tbl_PiutangPelanggan Get Data_SPP_Header beet wen Data_pelanggan where Data_SPP_Header.Kodepelanggan = Data_pelanggan.kodepelanggan from tbl_spp_header, t bl_pelanggan Get Data_SPP_Details from tbl_SPP_Details Get Data_PiutangPelanggan from tbl_piutangpelanggan Input Pelanggan Input NoSpp Input NoBlock If Data_SKK = ‘click Print’ then Print SKK Print NoSPP Print Tanggal Print NamaPelanggan Print AlamatPelanggan 149

150 Print KodePosPelanggan Print TeleponPelanggan Print Mobile Print NoBlock Print Perumahan Print HargaJual JumlahAngsuran = Count(NoSpp) Print JumlahAngsuran Else If Data_SKK = ‘click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Surat Tolakan Kredit’ Modul Surat_Tolakan_Kredit’ Begin Open tbl_SPP_Header, t bl_SPP_details, t bl_Pelanggan, tbl_PiutangPelanggan Get Data_SPP_Header beet wen Data_pelanggan where Data_SPP_Header.Kodepelanggan = Data_pelanggan.kodepelanggan from tbl_spp_header, t bl_pelanggan Get Data_SPP_Details from tbl_SPP_Details Get Data_PiutangPelanggan from tbl_piutangpelanggan Input Pelanggan 150

151 Input NoSpp Input NoBlock If Data_STK = ‘click Print’ then Print STK Print NoSPP Print Tanggal Print NamaPelanggan Print AlamatPelanggan Print KodePosPelanggan Print TeleponPelanggan Print Mobile Print NoBlock Print Perumahan Print HargaJual JumlahAngsuran = Count(NoSpp) Print JumlahAngsuran Else If Data_STK = ‘click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Surat Tolakan KPR’ Modul Surat_Tolakan_KP R’ 151

152 Begin Open tbl_SPP_Header, t bl_SPP_Details, tbl_pelanggan, tbl_PiutangBank Get Data_SPP_Header beet wen Data_pelanggan where Data_SPP_Header.Kodepelanggan = Data_pelanggan.kodepelanggan from tbl_spp_header, t bl_pelanggan Get Data_SPP_Details From tbl_spp_details Get Data_PiutangBank from tbl_piutangBank Input Pelanggan Input Bank Input NoSpp Input NoBlock If Data_STKP R = ‘Click Print’ then Print NoSTKPR Print NamaPelanggan Print AlamatPelanggan Print KodePosPelanggan Print TeleponPelanggan Print Mobile Print NoSPP Print Tanggal Print NoBlock Print Perumahan Print HargaJual Print NamaBank 152

153 Print TglSelesaiSurat Else If Data_STKP R = ‘Click Close then Exit Sub End if End if End Spesifikasi Proses ‘Surat Kontrak KPR’ Modul Surat_Kontrak_KP R’ Begin Open tbl_SPP_Header, t bl_SPP_Details, tbl_pelanggan, tbl_PiutangBank Get Data_SPP_Header beet wen Data_pelanggan where Data_SPP_Header.Kodepelanggan = Data_pelanggan.kodepelanggan from tbl_spp_header, t bl_pelanggan Get Data_SPP_Details From tbl_spp_details Get Data_PiutangBank from tbl_piutangBank Input Pelanggan Input Bank Input NoSpp Input NoBlock If Data_SKKPR = ‘Click Print’ then Print NoSKKP R Print NamaPelanggan Print AlamatPelanggan 153

154 Print KodePosPelanggan Print TeleponPelanggan Print Mobile Print NoSPP Print Tanggal Print NoBlock Print Perumahan Print HargaJual Print NamaBank Print TglSelesaiSurat Else If Data_SKKPR = ‘Click Close then Exit Sub End if End if End Spesifikasi Proses ‘Kwitansi’ Modul Kwitansi Begin Open tbl_Receipt Voucher, tbl_Spp_Details Get Data_Receipt Voucher beet wen Data_SPP_Details where Data_Receipt Voucher.Kodepelanggan = Data_SPP_Details.KodePelanggan from tbl_receipt Voucher, tbl_SPP_Details Input NoRV 154

155 If Kwitansi = ‘Click Print’ then Print NoRV Print Date Print NamaPelanggan Print Jumlah Print Description Else If Kwitansi = ‘Click Close’ then Exit Sub Endif End if End Spesifikasi Proses ‘Form Pembiayaan’ Modul From_Pembiayaan Begin Open tbl_SPP_Header, t bl_SPP_Details, tbl_Pelanggan, tbl_Bank Get Data_SPP_Header beet wen Data_pelanggan where Data_SPP_Header.Kodepelanggan = Data_pelanggan.kodepelanggan from tbl_spp_header, t bl_pelanggan Get Data_SPP_Details beet wen tbl_Bank where Data_SPP_Details.KodeBank = Data_Bank.kodeBank from tbl_SPP_Details, tbl_Bank Input Pelanggan Input Bank Input NoSPP 155

156 Input NoBlock If From_Pembiayaan = ‘Click Print’ then Print NoFP Print NoSPP Print Tanggal Print NamaPelanggan Print AlamatPelanggan Print TeleponPelanggan Print KodePosPelanggan Print Mobile Print NamaBank Print AlamatBank Print TeleponBank Print KodePosBank Print FaxBank If Data_Stock then Data_Stock. MoveFirst End if While Not Data_Stock.EOF Print NoBlock Print Perumahan Print HargaJual Print JumlahUangM uka Print JumlahKPR 156

157 Data_Stock.MoveNext Wend Else If From_Pembiayaan = ‘Click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Surat Penagihan DP’ Modul Surat_Penagihan_DP Begin Open tbl_Pelanggan, tbl_Bank, tbl_SPP_Header, tbl_SPP_Details,tbl_Stock Get Data_SPP_Header beet wen tbl_pelanggan where Data_SPP_Header.Kodepelanggan = Data_pelanggan.kodepelanggan from tbl_spp_header, t bl_pelanggan Get Data_SPP_Details beet wen tbl_stock where Data_SPP_Details.NoBlock = Data_Stock.Noblock from tbl_SPP_Details,t bl_Stock Get Data_Bank from tbl_Bank Input Pelanggan Input NoSPP Input NoBlock If Penagihan_DP = ‘click Print’ then Print NoSTDP Print NamaPelanggan 157

158 Print AlamatPelanggan Print TeleponPelanggan Print Mobile Print KodePosPelanggan Print NoBlock Print Perumahan Print JumlahUangM uka Else If Penagihan_DP = ‘Click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Surat Tagihan Cicilan Kredit’ Modul Surat_Tagihan_Cicilan_Kredit Begin Open tbl_Piutang Pelanggan, t bl_Pelanggan, tbl_Stock Get Data Piutang Pelanggan Beet wen Data Pelanggan Where Data Piutang Pelanggan.Kd_Pelanggan = Data Pelanggan.Kd_Pelanggan From tbl_Piutang Pelanggan, t bl_Pelanggan Get Data Piutang Pelanggan Beet wen Data Stock Where Data Piutang Pelanggan.NoBlock = Data Stock.NoBlock Input Pelanggan Input NoSPP 158

159 Input NoBlock If Data Piutang Pelanggan = ‘Click Print’ then Print Nama Pelanggan Print Alamat Pelanggan Print KodePos Pelanggan Print Telepon Pelanggan Print Mobile Print NoBlock Print Perumahan Print Jumlah Pembayaran Print Tanggal Pembayaran Else If Data_PiutangPelanggan = ‘Click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Report Tanda Terima Sementara’ Modul Report_Tanda_Terima_Sementara Begin Open tbl_TTS, tbl_Pelanggan Get Data _TTS Beet wen t bl_Pelanggan where Data_TTS.kodepelanggan = tbl_pelanggan.kodepelanggan from tbl_TTS, tbl_pelanggan Input NoTTS 159

160 If Data_TTS = ‘click print’ then Print NoTTS Print NamaPelanggan Print AlamatPelanggan Print KotaPelanggan Print KodePosPelanggan Print TeleponPelanggan Print Mobile Print JumlahBooking Print KeteranganPembayaran Print HargaStandar Print Perumahan Print Noblock Print Tanggal Else If Data_TTS = ‘Click Close’ then Exit Sub End if End Spesifikasi Proses ‘Report Surat Persetujuan Pembelian’ Modul Report_Surat_Persetujuan_Pembelian Begin Open tbl_SPP_Header, t bl_SPP_Details, tbl_pelanggan, tbl_Bank, tbl_PiutangPelanggan 160

161 Get Data_SPP_Header Beet wen Data_Pelanggan where Data_SPP_Header.KodePelanggan = Data_pelanggan.KodePelanggan From tbl_SPP_Header, t bl_Pelanggan Get Data_SPP_Details Beet wen Data_Bank where Data_SPP_Details.KodeBank = Data_Bank.KodeBank From tbl_SPP_Details, tbl_Bank Get Data_PiutangPelanggan From tbl_PiutangPelanggan Input Pelanggan Input NoSpp Input NoBlock If Data_SPP = ’Click Print’ Then Print Perumahan Print HargaStandar Print NoBlock Print NamaPelanggan Print AlamatPelanggan Print TeleponPelanggan Print KodePelanggan Print Mobile Print Harga Standar Print Harga PPN Print HargaJual Print Diskon Print HargaSetelahDiskon Print JumlahBooking 161

162 Print JumlahKPR Print JumlahUangM uka Print KewajibanPem bayaran Print KodeBank Print NamaBank Print StandarRumah Print TanahLebih Print TotalTanah If Data_PiutangPelanggan then Data_PiutangPelanggan. MoveFirst End if While Not Data_PiutangPelanggan.EOF Print Tanggal_Pembayaran Print Jumlah_Pembayaran Data_PiutangPelanggan.MoveNext Wend Else If Data_SPP = ‘Click Close’ then Exit Sub End if End Spesifikasi Proses ‘Laporan Stock Rumah’ Modul Laporan_Stock_Rumah Begin 162

163 Open tbl_Stock Get Data_Stock Choose Stat usRumah Do Case Stat usRumah Case "All" Read Data_Stock Case "BelumTerjual" Read Data_Stock Where Data_Stock.StatusRumah = ‘BelumTerjual’ Case "Booking" Read Data_Stock Where Data_Stock.StatusRumah = ‘Booking’ Case "Terjual" Read Data_Stock Where Data_Stock.StatusRumah = ‘Terjual’ End Case If Data_Stock = ‘Click Print’ then If Not Data_Stock.EOF then Data_Stock MoveFirst End if While Not Data_Stock.EOF then Print NoBlock Print Perumahan Print Tipe Print HargaJual Do Case Stat usRumah 163

164 Case 0 Print StatusRumah = ’Belum Terjual’ Case 1 Print StatusRumah = ‘Booking’ Case 2 Print StatusRumah = ‘Terjual’ End Case Data_Stock.MoveNext Wend Else If Data_Stock = ‘Click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Laporan Status Pembayaran’ Modul Laporan_Stat us_Pem bayaran Begin Open tbl_SPP_Header, t bl_SPP_Details, tbl_pelanggan, tbl_piutangPelanggan Get Data_SPP_Header, Data_SPP_Details,Data_pelanggan, Data_PiutangPelanggan Input Pelanggan Input NoSPP Input Noblock If Data_piutangPelanggan = ‘click Print’ then 164

165 Print NamaPelanggan Print NoSPP Print NoBlock If Not Data_PiutangPelanggan.EOF then Data_PiutangPelanggan MoveFirst End if While Not Data_PiutangPelanggan.EOF then Print TanggalPembayaran Print JumlahPembayaran If data_PiutangPelanggan.Status = 0 then Print StatusPembayaran = ‘Belum Bayar’ Else Print StatusPembayaran = ‘Sudah Bayar’ End if Data_Stock.MoveNext Wend TotalPembayaran = Sum(JumlahPembayaran) Print TotalPembayaran Else If Data_PiutangPelanggan = ‘click Close’ then Exit sub End if End if End 165

166 Spesifikasi Proses ‘Report Penjualan Per Pelanggan’ Modul Report_Penjualan_Per_Pelanggan Begin Open tbl_Pelanggan, tbl_SPP Header, tbl_SPP Detail, tbl_Stock Get Data_SPP_Header Bet ween Data_Pelanggan where Data_SPP_Header.KodePelanggan= Data_Pelanggan.KodePelanggan From tbl_SPP_Header, t bl_Pelanggan Get Data_SPP_Details Bet ween Data_Stock where Data_SPP_Details.NoBlock=Data_Stock.NoBlock From tbl_SPP_Details, tbl_Stock Input PrintAll If PrintAll = ‘Y’ then Input Pelanggan End if If Data_Pelanggan = ‘click Print’ then Print NamaPelanggan Print AlamatPelanggan Print TeleponPelanggan Print KodePosPelanggan Print Mobile If Not Data_SPP Header.EOF then Data_SPP Header MoveFirst End if While Not Data_Stock.EOF then Print NoBlock 166

167 Print Perumahan Print HargaJual Data_Stock.MoveNext Wend TotalPembayaran = Sum(JumlahPembayaran) Print TotalPembayaran Else If Data_Pelanggan = ‘click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Report Penjualan Per Sales’ Modul Report_Penjualan_Per_Sales Begin Open tbl_Sales, tbl_SPP Header, t bl_SPP Detail, t bl_Stock Get Data_SPP_Header Bet ween Data_Sales where Data_SPP_Header.KodeSales= Data_Sales.KodeSales From tbl_SPP_Header, tbl_Sales Get Data_SPP_Details Bet ween Data_Stock where Data_SPP_Details.NoBlock=Data_Stock.NoBlock From tbl_SPP_Details, tbl_Stock

Input PrintAll 167

168 If PrintAll = ‘Y’ then Input Salesman End if If Data_Salesman = ‘click Print’ then Print NamaSalesman Print AlamatSalesman Print TeleponSalesman Print KodePosSalesman Print Mobile If Not Data_Stock.EOF then Data_Stock MoveFirst End if While Not Data_Stock.EOF then Print NoBlock Print Perumahan Print HargaJual Data_Stock.MoveNext Wend TotalPembayaran = Sum(JumlahPembayaran) Print TotalPembayaran Else If Data_Salesman = ‘click Close’ then Exit Sub End if 168

169 End if End Spesifikasi Proses ‘Report Penjualan Rumah’ Modul Report_Penjualan_Rumah Begin Open tbl_Stock, tbl_SPP_Header, t bl_SPP_Details Get Data_SPP_Header Bet ween Data_SPP_Details where Data_SPP_Header.NoSPP = Data_SPP_Details.NoSPP from tbl_SPP_Header Get Data_SPP_Details Bet ween Data_Stock where Data_SPP_Details.NoBlock=Data_Stock.NoBlock From tbl_SPP_Details, Choose Stat usRumah If Data_Stock = ‘click Print’ then Do Case Jenis Pemabyaran Case "All" Read Data_Stock Case "T unai Langsung" Read Data_Stock Where Data_Stock.JenisPembayaran = ‘Tunai Langsung’ Case " T unai Bertahap " Read Data_Stock Where Data_Stock.JenisPembayaran = ‘Tunai Bertahap’ Case "Kredit Companyl" Read Data_Stock Where Data_Stock.JenisPembayaran = ‘Kredit Company’ 169

170 Case “KP R Bertahap” Read Data_Stock Where Data_Stock.JenisPembayaran = ‘KPR Bertahap’ Case “KP R Langsung" Read Data_Stock Where Data_Stock.JenisPembayaran = ‘KPR Langsung’ End Case If Not Data_Stock.EOF then Data_Stock MoveFirst End if While Not Data_Stock.EOF then Print NoBlock Print Perumahan Print Harga Standar Print HargaJual Print JenisPem bayaran Data_Stock.MoveNext Wend Else If Data_Stock = ‘click Close’ then Exit Sub End if End if End 170

171 Spesifikasi Proses ‘Report Payment Voucher’ Modul Report_Payment_Voucher Begin Open tbl_PaymentVoucher, tbl_Pelanggan, tbl_bank Get Data_Payment Voucher, Data_Pelanggan, Data_Bank Input NoP V If Report_Payment_Voucher = ‘click print’ then Read Data_PaymentVoucher Where Data_PaymentVoucher.NoPv = NoPv Print NoPv Print Tanggal Print Bank Print Pelanggan If not DataPaymentVoucher EOF then Data_PaymentVoucher MoveFirst End If While Not DataPayment Voucher EOF Print Description Print Debit Print Kredit DataPaymentVoucher MoveNext Wend Else If Report_Payment_Voucher = ‘click Close’ then 171

172 Exit Sub End if End if End Spesifikasi Proses ‘Report Receipt Voucher’ Modul Report_Receipt_Voucher Begin Open tbl_Receipt Voucher, tbl_Pelanggan, t bl_Bank Get Data_Receipt Voucher, Data_Pelanggan, Data_Bank Input NoRV Input NoBlock Input Pelanggan Input NoSpp If Report_ Receipt_Voucher = ‘click print’ then Read Data_Receipt Voucher Where Data_Receipt Voucher.NoRv = NoRv Print NoRv Print Tanggal Print Bank Print Pelanggan If not DataReceipt Voucher EOF then Data_Receipt Voucher MoveFirst End If While Not DataReceipt Vocuher EOF Print Description 172

173 Print Debit Print Kredit DataReceipt Voucher MoveNext Wend Else If Report_Receipt_Voucher = ‘click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Journal Payment Voucher’ Modul Journal_Payment_Voucher Begin Open tbl_Payment_Voucher, tbl_Pelanggan, tbl_bank Get Data_Payment_Voucher, Data_Pelanggan, Data_Bank Input NoP V If Journal_Payment_Voucher = ‘click print’ then Read Data_PaymentVoucher Where Data_Payment_Voucher.NoPv = NoPv Print NoPv Print Tanggal Print Bank Print Pelanggan If not DataPaymentVoucher EOF then 173

174 Data_PaymentVoucher MoveFirst End If While Not DataPayment Voucher EOF Print Tanggal Print NoRef Print Description Print Debit Print Kredit DataPaymentVoucher MoveNext Wend Else If Journal_Payment_Voucher = ‘click Close’ then Exit Sub End if End if End Spesifikasi Proses ‘Journal Receipt Voucher’ Modul Journal_Receipt_Voucher Begin Open tbl_Receipt Voucher, tbl_Pelanggan, t bl_Bank Get Data_Receipt Voucher, Data_Pelanggan, Data_Bank Input NoRV Input NoBlock Input Pelanggan 174

175 Input NoSpp If Journal_ Receipt_Voucher = ‘click print’ then Read Data_Receipt Voucher Where Data_Receipt Voucher.NoRv = NoRv Print NoRv Print Tanggal Print Bank Print Pelanggan If not Data_Receipt Voucher EOF then Data_Receipt Voucher MoveFirst End If While Not DataReceipt Vocuher EOF Print Tanggal Print NoRef Print Description Print Debit Print Kredit DataReceipt Voucher MoveNext Wend Else If Journal_Receipt_Voucher = ‘click Close’ then Exit Sub End if End if End 175

176 Spesifikasi Proses ‘Report Piutang KPR’ Modul Report_Piutang_KP R Begin Open tbl_piutangBank, tbl_pelanggan, tbl_bank Get Data_piutangBank, Data_Pelanggan, Data_Bank from tbl_PiutangBank, tbl_pelanggan, Tbl_bank Input Pelanggan Input Bank Input NoSpp Input NoBlock If Report_ Piutang_Bank = ‘click print’ then Read Data_piutangBank Where Data_Piutang_Bank.kdPelanggan = kdpelanggan and Data_Piutang_Bank.kdBank = kdBank Print NamaPelanggan Print NamaBank Print NoSPP Print NoBlock If Not Data_Piutang_Bank EOF then Data_piutang_Bank MoveFirst End if While Not Data_Piutang_Bank EOF Print TanggalPembayaran Print Description Print JumlahPembayaran 176

177 Data_Piutang_Bank MoveNext Wend TotalPembayaran = Sum(JumlahPembayaran) Print TotalPembayaran Else If Report_Piutang_Bank = ‘Click Close’ then Exit Sub End If End If End Spesifikasi Proses ‘Report Piutang Pelanggan’ Modul Report_ Piutang_Pelanggan_Jat uh_Tempo Begin Open tbl_PiutangPelanggan, t bl_pelanggan Get Data_PiutangPelanggan, Data_pelanggan From tbl_piutangPelanggan, tbl_pelanggan Input NamaPelanggan Input NoSpp Input NoBlock If Report_ Piutang_Pelanggan = ‘click print’ then Read Data_PiutangPelanggan where Data_PiutangPelanggan.kdpelanggan = kdPelanggan Print NamaPelanggan Print NoSpp 177

178 Print NoBlock If not Data_PiutangPelanggan EOF then Data_PiutangPelanggan MoveFirst End If While Not Data_PiutangPelanggan EOF Print TanggalPemabayaran Print JumlahPembayaran Data_PiutangPelanggan Move Next Wend TotalPembayaran = Sum(JumlahPembayaran) Print Total Pembayaran Else If Report_ Piutang_Pelanggan = ‘click Close’ then Exit Sub End if End if End Spesifkasi Proses ‘Report Piutang Pelanggan Jatuh Tempo’ Modul Report_ Piutang_Pelanggan_Jat uh_Tempo Begin Open tbl_PiutangPelanggan, t bl_pelanggan Get Data_PiutangPelanggan, Data_pelanggan From tbl_piutangPelanggan, tbl_pelanggan Input NamaPelanggan 178

179 Input NoSpp Input NoBlock Input FromDate, ToDate If Report_ Piutang_Pelanggan_Jat uh_Tempo = ‘click print’ then Read Data_PiutangPelanggan where Data_PiutangPelanggan.kdpelanggan = kdPelanggan and FromDate >= TanggalPem bayaran and ToDate <= TanggalPembayaran Print NamaPelanggan Print NoSpp Print NoBlock Print TanggalPembayaran If not Data_PiutangPelanggan EOF then Data_PiutangPelanggan MoveFirst End If While Not Data_PiutangPelanggan EOF Print TanggalPembayaran Print JumlahPembayaran Data_PiutangPelanggan Move Next Wend TotalPembayaran = Sum(JumlahPembayaran) Print Total Pembayaran Else If Report_ Piutang_Pelanggan_Jat uh_Tempo = ‘click Close’ then Exit Sub 179

180 End if End if End Spesifikasi Proses ‘Master_ Pelanggan’ Modul Master_ Pelanggan Begin Open tbl_Pelanggan Get Data_Pelanggan From tbl_Pelanggan If not Data_Pelanggan EOF Data_Pelanggan Move First End if While not Data_Pelanggan EOF then Display Data_Pelanggan In Grid_Pelanggan Data Pelanggan Move Next Wend If Grid_Pelanggan_Rows <> 0 then Display KdPelanggan, NamaPelanggan, Alamat, NoAccount, Kota, KodePos, Telepon, Mobile End if If Master_Pelanggan = ‘Click New’ then Input KdPelanggan, NamaPelanggan, Alamat, NoAccount, Kota, KodePos, Telepon, Mobile If KdPelanggan = Data_Pelanggan_KdPelanggan then Message ‘Kode Pelanggan Sudah Ada’ 180

181 Else Add New t bl_Pelanggan End If Else If master_Pelanggan = ‘Click Delete’ then Delete Data_Pelanggan Where Data_Pelanggan_KdPelanggan = kdPelanggan Exit sub End if End if End Spesifikasi Proses ‘Master Salesman’ Modul Master_ Salesman Begin Open tbl_Salesman Get Data_Salesman From tbl_Salesman If not Data_Salesman EOF Data_Salesman Move First End if While not Data_Salesman EOF then Display Data_Salesman In Grid_Salesman Data Salesman Move Next Wend If Grid_Salesman_Rows <> 0 then 181

182 Display KdSalesman, NamaSalesman, Alamat, NoAccount, Kota, KodePos, Telepon, Mobile End if If Master_Salesman = ‘Click New’ then Input KdSalesman, NamaSalesman, Alamat, NoAccount, Kota, KodePos, Telepon, Mobile If KdSalesman = Data_Salesman_KdSalesman then Message ‘Kode Salesman Sudah Ada’ Else Add New t bl_Salesman End If Else If master_Salesman = ‘Click Delete’ then Delete Data_Salesman Where Data_Salesman_KdSalesman = kdSalesman Exit sub End if End if End Spesifikasi Proses ‘Master Stock’ Modul Master_ Stock Begin Open tbl_Stock Get Data_Stock From tbl_Stock 182

183 If not Data_Stock EOF Data_Stock Move First End if While not Data_Stock EOF then Display Data_Stock In Grid_Stock Data Stock Move Next Wend If Grid_Stock_Rows <> 0 then Display NoBlock, Perumahan, Tipe, Harga Standar End if If Master_Stock = ‘Click New’ then Input NoBlock, Perumahan, Tipe, Harga Standar If KdStock = Data_Stock_KdStock then Message ‘No Block Sudah Ada’ Else Add New t bl_Stock End If Else If master_Stock = ‘Click Delete’ then Delete Data_Stock Where Data_Stock_NoBlock = NoBlock Exit sub End if End if End 183

184 Spesifikasi Proses ‘Master Bank’ Modul Master_ Bank Begin Open tbl_Bank Get Data_Bank From tbl_Bank If not Data_Bank EOF Data_Bank Move First End if While not Data_Bank EOF then Display Data_Bank In Grid_Bank Data Bank Move Next Wend If Grid_Bank_Rows <> 0 then Display KdBank, NamaBank, Alamat, NoAccount, Kota, KodePos, Telepon, Fax End if If Master_Bank = ‘Click New’ then Input KdBank, NamaBank, Alamat, NoAccount, Kota, KodePos, Telepon, Fax If KdBank = Data_Bank_KdBank then Message ‘Kode Bank Sudah Ada’ Else Add New t bl_Bank End If 184

185 Else If master_Bank = ‘Click Delete’ then Delete Data_Bank Where Data_Bank_KdBank = kdBank Exit sub End if End if End Spesifikasi Proses ‘Manage Users’ Modul Manage_Users Begin Open tbl_user Display UserName Display FullName If Manage_Users = ‘Right Click New User’ then Display New User Input UserName Input FullName Input Password Input Repeat Password Choose LevelJabatan If Password <> Repeat Password Then Message ‘The passwords do not match’ Exit Sub Else 185

186 Add new tbl_User End if Else If Manage_User = ‘Right Click Properties’ then Display Edit User Input FullName Input Password Input Repeat Password Choose LevelJabatan If Password <> Repeat Password Then Message ‘The passwords do not match’ Exit Sub Else Update tbl_User End if End If End If End Spesifikasi Proses ‘Change Password’ Modul Change_Password Begin Open tbl_user Display UserName Input OldPassword 186

187 Input NewPassword Input ConfirmNewP assword If OldPassword <> tbl_user_password then Message ‘Wrong Password’ Exit Sub End if If NewP assword <> ConfirmNewP assword Then Message ‘The passwords you typed do not match. Type the new password in both text boxes’ Exit Sub End if If OldPassword = tbl_user_password and NewP assword = ConfirmNewPassword Update tbl_User Close t bl_user End if End Spesifikasi Proses ‘Login’ Modul Login Begin Open tbl_user Input UserName Input Pasword If input UserName = username_tbl_user and 187

188 input password = password_tbl_user then Do Case tbl_User_LevelJabatan Case t bl_User_LevelJabatan = ‘Administrator’ Display Menu_Utama_Administrator Case t bl_User_LevelJabatan = ‘Marketing’ Display Menu_Utama_Marketing Case t bl_User_LevelJabatan = ‘Keuangan’ Display Menu_Utama_keuangan Case t bl_User_LevelJabatan = ‘Penangihan’ Display Menu_Utama_Penagihan End Case Else If input UserName != username_tbl_user or Input password != password_tbl_user then Message ‘Invalid User Name or Password’ Else If Login = ‘Click Cancel’ then Exit Sub End if End if End if End

188

189 4.6 Rancangan Keluaran Rancangan keluaran yang dihasilkan oleh sistem ini adalah 1. Dokumen yang terdiri dari: -

Tanda Terima Sementara (TTS)

-

Surat Perset ujuan Pem belian(SPP)

-

Payment Voucher (P V)

-

Receipt Voucher (RV)

-

Surat Kontrak Kredit (SKK)

-

Surat Tolakan Kredit (STK)

-

Surat Kontrak KP R (SKKP R)

-

Surat Tolakan KP R (ST KKP R)

-

Kwitansi

-

Form Pembiayaan (FP)

-

Surat Penagihan Down Payment (SP DP)

-

Surat Tagihan Cicilan Kredit (STCK)

2. Laporan yang terdiri dari: -

Laporan Stock Rumah

-

Laporan Stat us Pem bayaran

-

Laporan Penjualan PerPelanggan

-

Laporan Penjualan Persales

-

Laporan Penjualan T unai

-

Laporan Penjualan Kredit

-

Laporan Penjualan KP R

-

Laporan Piutang KP R 189

190 -

Laporan Piutang Pelanggan

-

Laporan Piutang Jatuh Tempo

-

Laporan Analisis Piutang Tak Tertagih

Dokumen dan laporan tersebut akan dilapirkan pada halaman selanjutnya :

190

191

Gambar 4.72 Rancangan Keluaran Tanda Terima Sementara

191

192

Gambar 4.73 Rancangan Keluaran Surat Perset ujuan Pem belian

192

193

Gambar 4.74 Rancangan Keluaran Receipt Voucher

193

194

Gambar 4.75 Rancangan Keluaran Payment Voucher

194

195

Gambar 4.76 Rancangan Keluaran Surat Kontrak Kredit

195

196

Gambar 4.77 Rancangan Keluaran Surat Tolakan Kontrak Kredit

Gambar 4.78 Rancangan Keluaran Kwitansi

196

197

Gambar 4.79 Rancangan Keluaran Form Pembiayaan

Gambar 4.80 Rancangan Keluaran Surat Tagihan Cicilan Kredit

197

198

Gambar 4.81 Rancangan Laporan Stock Rumah

Gambar 4.82 Rancangan Laporan Penjualan Per Pelanggan

198

199

Gambar 4.83 Rancangan Laporan Penjualan Per Sales

Gambar 4.84 Rancangan Laporan Penjualan Rumah

199

200

Gambar 4.85 Rancangan Laporan Piutang Pelanggan

Gambar 4.86 Rancangan Laporan Piutang KP R

200

201

Gambar 4.87 Rancangan Laporan Piutang Jatuh Tempo

Gambar 4.88 Rancangan Laporan Stat us Pem bayaran

201

202

Gambar 4.89 Rancangan Journal Receipt Voucher

Gambar 4.90 Rancangan Journal Payment Voucher

202

203

Gambar 4.91 Rancangan Surat Survei Kredit

203

204

Gambar 4.92 Rancangan Laporan Analisis Piutang Tak Tertagih

204

205

4.7 Rancangan Masukan Rancangan masukan yang ada pada sistem ini merupakan rancangan layer pada computer unt uk menginput data dan melakukan proses. Rancangan layar yang dipakai dalam sistem penjualan tunai dan penjualan kredit pada PT Kentanix Supra International dapat dilihat pada halaman berikut:

205

206

Gambar 4.93 Rancangan Menu Login

Gambar 4.94 Rancangan Menu Utama

206

207

Gambar 4.95 Rancangan Menu Transaksi Tanda Terima Sementara

207

208

Gambar 4.96 Rancangan Menu Transaksi Surat Persetujuan Pembelian

208

209

Gambar 4.97 Rancangan Menu Transaksi Piutang Pelanggan

Gambar 4.98 Rancangan Menu Transaksi Piutang Bank

209

210

Gambar 4.98 Rancangan Menu Transaksi Payment Voucher

Gambar 4.100 Rancangan Menu Transaksi Receive Voucher

210

211

Gambar 4.101 Rancangan Menu Surat Kontrak kredit, Surat Tolakan Kredit, Surat Kontrak KP R, Surat Tolak KPR, Surat Penagihan Down Payment, Surat Tagihan Cicilan Kredit, Surat Survei Kredit

Gambar 4.102 Rancangan Menu Surat Kwitansi

Gambar 4.103 Rancangan Menu Form Pembiayaan 211

212

Gambar 4.104 Rancangan buat Tanda Terima Sementara

Gambar 4.105 Rancangan buat Surat Persetujuan Pembelian

Gambar 4.106 Rancangan Laporan Stat us Rumah

212

213

Gambar 4.107 Rancangan Laporan Stat us Pem bayaran

Gambar 4.108 Rancangan Laporan Penjulan Perpelanggan

Gambar 4.109 Rancangan Laporan Penjulan PerSales

Gambar 4.110 Rancangan Laporan Penjualan Rumah

213

214

Gambar 4.111 Rancangan Laporan Payment Voucher

Gambar 4.112Rancangan Laporan Receipt voucher

Gambar 4.113 Rancangan Laporan Piutang Bank

214

215

Gambar 4.114 Rancangan Laporan Piutang Pelanggan

Gambar 4.115 Rancangan Laporan Piutang Jatuh Tempo

215

216

Gambar 4.116 Rancangan Master Pelanggan

Gambar 4.117 Rancangan Master Salesman

216

217

Gambar 4.118 Rancangan Master Stock

Gambar 4.119Rancangan Master Bank

217

218

Gambar 4.120Rancangan Manage User

Gambar 4.121 Rancangan Ganti Password

218

219 4.8 Tata Laksana Sistem Yang Diusulkan 4.8.1 Kebutuhan Hardware(Perangkat Keras) Perangkat keras yang dibutuhkan unt uk menjalankan sistem informasi penjualan tunai dan penjualan kredit pada PT Kentanix Supra Internasional adalah sebagai berikut: 1. Komputer Server -Processor Intel Pentium IV(1Ghz) -SDRAM 256 MB -Hardisk 40GB -VGA Card 32 M B -CDRom Drive 50X -Floppdisk 3.5” 144 M B -Monitor SVGA -Keyboard -Mouse -Ethernet 2.Komputer Workstation -Processor Intel Pentium III(600Mhz) -SDRAM 128 MB -Hardisk 20GB -Monitor SVGA -Keyboard -Mouse 3.Printer EPSON atau CANON 4.UP S(Uninterupible Power Supply) 219

220 4.8.2 Kebutuhan Software(Perangkat Lunak) Perangkat lunak yang digunakan untuk menjalankan system yang dirancang adalah sistem operasi Windows XP untuk server san untuk workstation dengan program aplikasinya Microsoft Office 2000, Microsoft Visual Basic 6.0, SQL server, Crystal Report. 4.8.3 Jadwal Implementasi Sistem Bulan Mingguan Instalasi Hardware Instalasi Software Implementasi Coding Testing Konversi Data Evaluasi Data

I 1

2

3

4

II 1

2

3

4

220

III 1

2

3

4