Macro Untuk Printscreen Data Tabungan

Salah satu pekerjaan yang cukup merepotkan adalah mencetak Printscreen pembukaan rekening.. nah.. setelah utak-atik dikit ternyata ada cara praktis untuk membuat printscreen tersebut yakni memanfaatkan VBScript. Setelah utak-atik sedikit akhirnya saya menemukan script yang bisa  dimanfaatkan untuk menggantikan klik mouse ke menu copy append.

Sebelumnya untuk melakukan pencetakan printscreen tersebut kita harus melakukan klik berkali-kali ke menu copy, f7 dan copy append.. alhamdulillah dengan script dibawah kini bisa lebih praktis dan menghemat waktu.

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=COPY APPEND REKENING INDIVIDU
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
‘(C)2018 Hasrul Rahman 085228181888
subSub1_

sub subSub1_()
autECLMacro “[edit-copy]”

autECLSession.autECLPS.SendKeys “[pf4]”

autECLSession.autECLPS.SendKeys “[pf7]”
autECLMacro “[edit-copyappend]”

autECLSession.autECLPS.SendKeys “[pf7]”
autECLMacro “[edit-copyappend]”

autECLSession.autECLPS.SendKeys “[pf7]”
autECLMacro “[edit-copyappend]”
autECLSession.autECLPS.SendKeys “[pf7]”

autECLSession.autECLPS.SendKeys “[pf7]”
autECLMacro “[edit-copyappend]”

autECLSession.autECLPS.SendKeys “[pf7]”
autECLMacro “[edit-copyappend]”

autECLSession.autECLPS.SendKeys “[pf7]”
autECLSession.autECLPS.SendKeys “[pf7]”
autECLMacro “[edit-copyappend]”
autECLSession.autECLPS.SendKeys “[pf3]”
end sub

 

Advertisements

Macro untuk pembukaan rekening massal

Macro adalah deretan perintah yang dikumpulkan bersama menjadi satu perintah untuk menjalankan deretan perintah tersebut secara otomatis atau bisa dibilang suatu program dasar sebagai pembantu/mempermudah dalam suatu pengerjaan baik di MS Office seperti MS.Word/MS.Excel maupun IBM Personal Communications / Alphabit.

macro1

Sekarang bayangkan mendadak dapat pekerjaan melakukan pembukaan ratusan atau ribuan rekening, kalau secara manual akan memakan waktu yang sangat lama dan ada kemungkinan terjadinya human error misalnya salah ketik nomor nasabah atau nomor dan tipe rekening..

Untuk itu diperlukan adanya macro untuk mempermudah pekerjaan kita yang sifatnya berulang…

oke.. saya contohkan Pembukaan rekening BANTUAN STIMULAN PERUMAHAN SWADAYA (BSPS) yang total rekening yang harus dibuka ratusan rekening.. saya ambil contoh 10 data dulu.. simpan file ini dengan nama Sambas.xlsx

NO NO BNBA NAMA L/P NO KTP ALAMAT TEMPAT TINGGAL DESA
1 496 MISLAH P 6101166107830003 DUSUN BUKIT RAYA JAWAI LAUT
2 497 JAYADI L 6101160202640002 DUSUN BUKIT RAYA JAWAI LAUT
3 498 JUM’ADI L 6101160204720001 DUSUN BUKIT RAYA JAWAI LAUT
4 499 M.ZAINI L 6101161010590003 DUSUN BUKIT RAYA JAWAI LAUT
5 500 MUNADI L 6101160510830001 DUSUN BUKIT RAYA JAWAI LAUT
6 501 HAMDI L 6101160808690001 DUSUN BUKIT RAYA JAWAI LAUT
7 502 SAMSUDIN L 6101161212690003 DUSUN BUKIT RAYA JAWAI LAUT
8 503 YATIMAH P 6101164402600003 DUSUN BUKIT RAYA JAWAI LAUT
9 504 INTOT P 6101164904700004 DUSUN BUKIT RAYA JAWAI LAUT
10 505 ARTONI L 6101160604920004 DUSUN BUKIT RAYA JAWAI LAUT

 

Langkah 1: Buka CIF, jadi data yg diatas kita tambahkan tabel CIF dan REK9DIGIT serta tabel REKENING.. mengapa harus ada tabel REK9DIGIT? Karena angka terakhir rekening merupakan angka random… jadi cukup masukkan 9 digit saja. Simpan file ini dengan nama rekening.xlsx

NO NO BNBA NAMA CIF REK9DIGIT REKENING
1 496 MISLAH 82011488 822105561
2 497 JAYADI 82011489 822105562
3 498 JUM’ADI 82011490 822105563
4 499 M.ZAINI 82011491 822105564
5 500 MUNADI 82011492 822105565
6 501 HAMDI 82011493 822105566
7 502 SAMSUDIN 82011494 822105567
8 503 YATIMAH 82011495 822105568
9 504 INTOT 82011496 822105569
10 505 ARTONI 82011497 822105570

 

Langkah 2 : mempersiapkan file mail merge di MS Word.. silahkan copy-paste file berikut.. ini untuk Pembukaan CIF Nasabah baru.

 

“«cif»

“«NAMA»

[tab field]

“«ALAMAT»

[tab field]

[tab field]

“«DESA»

[tab field]

“79454

[field+]

“JAWAI SELATAN

[tab field]

“SAMBAS

[tab field]

“KALIMANTAN BARAT

[tab field]

“«ALAMAT»

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

[tab field]

“0

[field+]

[tab field]

[tab field]

[tab field]

“I

[tab field]

“00

[tab field]

“0

[ENTER]

[ENTER]

 

 

Setelah dicopy di MS Word, masuk ke menu Mailings – Start Mail Merge – Step by step mail merge wizard.

mail merge1

Di step 3 Lalu pilihlah  file Rekening.xlsx tadi, kalau lancar tulisan «cif» «nama» dan  akan berubah menjadi isi file tersebut:

 

“82011488

“MISLAH

[tab field]

“DUSUN BUKIT RAYA

[tab field]

[tab field]

“JAWAI LAUT

[tab field]

 

Lanjutkan hingga di step 6, copy seluruh tulisannya ke Notepad lalu simpan filenya dengan akhiran nama .MAC di C:\Program Files (x86)\IBM\Client Access\Emulator\Private

macro2

Langkah berikutnya tinggal jalankan macronya, masuk dahulu ke menu Pendaftaran Data Nasabah

macro3

Cara Install AlphaBITS di PC

Sebenarnya yang ingin saya bahas disini adalah program untuk menjalankan core banking di komputer client. Program tersebut adalah IBM i Access for Windows. Versi master yang diberikan masternya ke cabang-cabang adalah Client Acess400 V5R4, Hanya memang kalau pakai bahasa awam AlphaBITS ini adalah display untuk kerja..

Sebelum mulai menginstall, terlebih dahulu pastikan PC bisa melakukan ping ke server. Gunakan command promt untuk pelakukan ping ke alamat 10.131.6.1

cmd ping ke server

lakukan tes ping ke 10.131.6.1

 

Kalau ping nya lancar barulah kita install Client Acess400 tersebut.

Jalankan file Setup.EXE dari folder instalasi

 

Ini tampilan kalau sebelumnya iSeries Access sudah pernah terinstall, klik next untuk melanjutkan

 

Klik Next untuk masuk ke menu pilihan instalasi

 

Pilih yang Basic , lalu ikuti langkah berikutnya dan restart dulu komputer

Setelah komputer terinstall iSeries Access maka berikutnya kita melakukan setting koneksi ke server.

Tambahkan koneksi dengan cara klik kanan pada My Connection lalu pilih Connection to Servers-> Add Connection

Ada 2 server yang akan kita tambahkan yakni server konvensional dan server syariah

Ketikkan 10.131.6.1 untuk konven dan 10.131.5.226 untuk yang syariah.

 

Tampilan kalau sudah berhasil

 

Langkah berikutnya adalah menambahkan Display dan Printer. Berikut langkahnya:

konfigurasi4

Klik kanan pada IP Server yang diinginkan pada My Connection lalu Pilih Display Emulator

konfigurasi5

System name: pilih 10.131.3.1 untuk display konvensional dan 10.131.5.226 untuk display yang syariah Masukkan nama Workstation ID. Disini saya contohkan D23082TL01.

tampilan display alphabits

Berikut tampilan jika seluruh settingan sudah benar.

Selanjutnya adalah cara setting emulator printer.

konfigurasi6

Untuk settingan printer pastikan nama printer disetting dengan benar, saya contohkan P23082TL01 untuk printer Teller. Untuk CS Masukkan P23082CS01, untuk Printer Syariah diawali dengan P21. Pada Type of emulation pilih Printer dan klik Setup

Untuk settingan printer

konfigurasi7

Printer modelnya pilih IBM 42012

Kemudian kita akan memilih printer yang digunakan untuk pencetakan. Pada Display Printer, pilih FilePrinter Setup

konfigurasi8

Pilihlah printer yang sesuai, untuk validasi pada Teller dan CS menggunakan Epson PLQ-20 dan untuk cetak laporan pilih Epson LQ-2190

berikut tampilan kalau seluruh settingan printer sudah benar

konfigurasi9

jika printer sudah benar semua settingannya maka tampilannya akan seperti ini

Baik, sekian dulu bahasan tentang cara installasi serta konfigurasi display dan printer. semoga tulisan ini bermanfaat dan akan direvisi jika memang masih ada kekurangan

 

 

Mengenal AlphaBITS pada Bank Kalbar

Aplikasi Core Banking System (CBS) adalah aplikasi inti yang merupakan jantung dari sistem perbankan. Core Banking ini digunakan untuk memproses berbagai layanan perbankan seperti customer information file, saving, loan, dan sebagainya.

Bank Kalbar melakukan transformasi teknologi yang bertujuan meningkatkan kapasitas sistem perbankan. Peningkatan kapasitas sistem ini dilakukan dengan mengganti core banking system lama (MODULA) dengan core banking AlphaBITS pada sejak tahun 2007.

Contoh antarmuka AlphaBITS pada yang digunakan sehari-hari oleh teller Bank Kalbar:

Tampilannya memang kurang menarik dan pengoperasionalannya didesain untuk full-keyboard, namun menurut saya penggunaannya cocok untuk Bank Kalbar yang memiliki cabang-cabang yang lokasinya tersebar di daerah agak jauh dari perkotaan yang koneksi jaringannya mengandalkan satelit dan kecepatannya agak lambat, dimana pada pertengahan tahun 2017  jaringan pelayanan Bank Kalbar tersebar di seluruh wilayah Kalimantan Barat dan juga di Jakarta Pusat, terdiri dari 1 Kantor Pusat, 21 Kantor Cabang, 59 Kantor Cabang Pembantu, 1 Unit Usaha Mikro, 58 Kantor Kas, 22 Kas Mobil, 63 Payment Point, 65 Layanan Syariah dimana akan terus bertambah seiring dengan komitmen Bank Kalbar yang ingin menjadi Regional Champion sehingga akan terus melakukan perluasan pelayanan.

Baru-baru ini sudah gencar promo AlphaBITS Next-G yang memiliki standard interface untuk meningkatkan kemampuan integrasi dengan berbagai aplikasi maupun platform yang sudah menerapkan interface modern. Menurut perkiraan saya Bank Kalbar akan segera melakukan upgrade core bankingnya ke AlphaBITS Next-G dalam waktu dekat.

 

Sumber:

Bank Kalbar, 2017, Sekilas Perusahaan, http://bankkalbar.co.id/sekilas_perusahaan.php (diakses tanggal 4 Oktober 2017)

PT. Sigma Cipta Caraka, 2007, User Guide AlphaBITS Untuk BPD Kalbar Cabang Modula (Off-Line)

PT. Sigma Cipta Caraka, 2007, Retail Manual AlphaBITS

Sahabat

Ini sebuah kisah tentang dua orang sahabat karib yang sedang berjalan melintasi gurun pasir.

Di tengah perjalanan, mereka bertengkar, dan salah seorang menampar temannya. Orang yang kena tampar, merasa sakit hati, tapi dengan tanpa berkata-kata, dia menulis di atas pasir :

HARI INI, SAHABAT TERBAIK KU MENAMPAR PIPIKU.

Mereka terus berjalan, sampai menemukan sebuah oasis, dimana mereka memutuskan untuk mandi. Orang yang pipinya kena tampar dan terluka hatinya, mencoba berenang namun nyaris tenggelam, dan berhasil diselamatkan oleh sahabatnya. Ketika dia mulai siuman & rasa takutnya sudah hilang, dia menulis di sebuah batu:

HARI INI, SAHABAT TERBAIK KU MENYELAMATKAN NYAWAKU.

Orang yang menolong dan menampar sahabatnya, bertanya, “Kenapa setelah saya melukai hatimu, kau menulisnya di atas pasir, dan sekarang kamu menulis di batu ?”

Temannya sambil tersenyum menjawab, “Ketika seorang sahabat melukai kita, kita harus menulisnya diatas pasir agar angin maaf datang berhembus dan menghapus tulisan tersebut. Dan bila sesuatu yang luar biasa baik terjadi, kita harus memahatnya diatas batu hati kita, agar takkan pernah bisa hilang tertiup angin.”

Sudahkah anda memaafkan kerabat dekat anda yang pernah menyakiti anda ?


“Never take someone for granted, Hold every person close to your heart, because you might make up one day n realize that you’ve lost a diamond while you were to busy to collect the stones”

 

Naik Kuda

Kisah ini bercerita tentang orang tua dan anak laki2 yang paling disayanginya pergi dengan membawa kuda mereka yang kecil lagi kurus kering;

Suatu saat, si ayah menuntun kuda dengan si anak naik diatas kuda tersebut, ditengah jalan mereka berpapasan dengan 2 orang laki laki yang menggunjingkan mereka, “Dasar anak kurang ajar! masak si bapak yang udah tua itu disuruh jalan sementara si anak enak2an naik diatas kuda!”

Disaat berikutnya, karena lelah si bapak bergantian naik ke atas punggung kuda tersebut, sementara si anak turun bergantian menuntun kuda, di tengah jalan mereka berpapasan dengan sekuumpulan wanita yang pulang dari pasar “Memang orang tua nggak tau diri, anaknya yang masih kecil disuruh nuntun kuda, sementara dia enak2an duduk diatas kudanya, orangtua macam apa itu ?!!”

Setelah jauh berjalan mereka merasa lelah, maka si orang tua menyuruh si anak untuk naik ke atas punggung kuda bersama dirinya, lagi lagi di perjalanan mereka berpapasan dengan pemuda yang melihat kearah mereka dengan mata nanar sambil berkata, “dasar manusia nggak mengerti rasa belas kasihan, masak kuda kurus kering begitu mereka naiki berdua, kasihan sekali kuda itu, dasar manusia nggak tau diri!!”

Karena merasa sudah enakan dan penat karena duduk terus diatas kuda, maka orang tua dan anaknya tersebut berdua turun dan menuntun kudanya ke tempat tujuan akhir mereka, menjelang gerbang desa yang di tuju mereka berpapasan dengan pedagang yang juga menatap mereka dengan heran,… “Dasar manusia Goblog! buat apa mereka punya kuda kalo mereka harus jalan, kudanya cuma dituntun! dasar..!!”

Kawan, semua apa yang kita lakukan untuk keluarga hanya kitalah yang tau alasannya, orang lain hanya melihat dari luar, tidak bisa merasakan derita, airmata, senang , susah atas pencapaian yang telah kita dapat oleh keluarga kita.
Intinya, biarlah orang bicara apa tentang kita, selama kita berniat baik terhadap diri kita, keluarga dan orang lain, jangan pedulikan omongan & gunjingan orang luar yang bisa membuat kita merasa tidak nyaman atas usaha dan perbuatan baik kita untuk orang2 yang kita sayangi.

Kisah Uang Rp 1000 dan Rp 100.000

Uang Rp 1000 dan Rp 100.000 sama-sama terbuat dari kertas, sama-sama dicetak dan diedarkan oleh dan dari Bank Indonesia… pada saat bersamaan mereka keluar dan berpisah dari Bank dan beredar dimasyarakat. Empat bulan kemudian mereka bertemu lagi secara tdk sengaja di dalam dompet seorang pemuda.

Kemudian diantara kedua uang tsb terjadilah percakapan yg Rp 100.000 bertanya kepada yang Rp 1000; “Kenapa badan kami begitu lusuk, kotor dan bau amis…?” dijawablah olehnya” karena aku begitu keluar dari Bank langsung ditangan orang-orang bawahan dari tukang becak, tukang sayur, penjual ikan dan ditangan pengemis”

Lalu Rp.1000.bertanya balik pada Rp 100.000; “Kenapa kamu kelihatan begitu baru, rapi dan masih bersih?” dijawabnya; “Karena begitu aku keluar dari Bank, langsung disambut perempuan cantik dan beredarnyapun di restauran mahal, di mall dan juga hotel-hotel berbintang serta keberadaanku selalu di jaga dan jarang keluar dari dompet”

lalu Rp 1000 bertanya lagi; “Pernahkah engkau mampir di tempat ibadah? “Dijawablah… “Belum pernah”. Rp 1000 pun berkata lagi; “Ketahuilah walaupun keadaanku seperti ini adanya, hampir setiap Jum’at aku selalu mampir di Mesjid2 dan ditangan anak-anak yatim, bahkan aku selalu bersyukur kepada Tuhan. Aku tidak dipandang manusia bukan sebuah nilai tapi yang dipandang adalah sebuah manfaat… ”

Akhirnya menangislah uang Rp 100.000 karena merasa besar, hebat, tinggi tapi tdk begitu bermanfaat selama ini. jadi….Bukan seberapa besar penghasilan Anda, tapi seberapa bermanfaat penghasilan Anda itu.karena kekayaan bukanlah untuk kesombongan. Semoga kita termasuk golongan orang-orang yang selalu mensyukuri nikmat dan memberi manfaat untuk semesta alam serta dijauhkan dari sifat sombong…