Banks to charge 50 sen to process a cheque from April 2014

KUALA LUMPUR: Banks will impose a cheque processing fee of 50 sen on the issuer of the cheque with effect from April 1, 2014 as Bank Negara Malaysia (BNM) sets a new pricing strategy to promote greater efficiency.

The central bank said on Wednesday this fee would be in addition to the existing stamp duty of 15 sen per cheque leaf.

"During the one-year period, BNM will work closely with the financial industry to further improve the payment infrastructure to ensure payment services are easily accessible, secure and convenient," it said.

"To reduce the cost and inefficiencies associated with the use of cheques, the charge for cheques will be progressively increased to reflect its production cost, which is currently at RM3," it added.

The new pricing strategy for payment services was to address the current price distortion between electronic payments and paper-based payment instruments. BNM said the fee for electronic payment methods would be reduced to incentivise businesses and consumers to adopt the more cost effective electronic payment methods while charges would be levied on cheques to reflect its higher cost.

Effective May 2, 2013, the fee for Interbank GIRO or IBG transactions done online via internet banking and mobile banking, would be at 10 sen.

"The low online IBG fee is aimed at providing the incentive for users to switch from other more costly payment methods to lower cost alternatives," it said.

BNM said online payment would provide significant benefits to individuals and businesses.

It pointed out individuals would enjoy the convenience of transacting anytime anywhere, avoiding the queues at bank counters while businesses can lower the costs of doing business through the reduction or redeployment of resources used for handling cash and cheques.

With more payments done electronically, BNM said there would also be cost savings from manual processes including postage.

In addition to cheques and IBG, adjustments in pricing for the other payment channels and methods, including automatic teller machines (ATM) will be phased in progressively to steer consumers to adopt the more cost effective electronic payment methods.

By 2020, pricing of all payment services would be based on the cost of providing the service.

Source: The Star

Send email in HTML format in asp.net

Reference:
1. http://www.aspsnippets.com/Articles/Create-and-send-HTML-Formatted-Emails-in-ASP.Net-using-C-and-VB.Net.aspx

Auto send email in asp.net

Based on my research this few days, I found that only sql server able to trigger and send email through the database trigger function. while mySQL unable to do that.

another method to do this is create a  .asmx web service

References:

1. http://allen-conway-dotnet.blogspot.com/search/label/.asmx
2. http://msdn.microsoft.com/en-us/library/swas0fwc(v=VS.100).aspx

Reset password in ASP.net Without using email and security question

Here is the good example after several tries.

http://msdn.microsoft.com/en-us/library/d94bdzz2.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

send email in asp.net function

MailMessage mail = new MailMessage();

  mail.To = "receivers@email.address";
  mail.From = "senders@email.address";
  mail.BodyFormat = MailFormat.Text;
  mail.Subject = "Subject of this Email";
  mail.Body = "Body of this message.";

 SmtpMail.Send(mail);

Remove a startup application

Remove a startup application

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]

telerik mouse over

credit to http://demos.telerik.com/aspnet-ajax/controls/examples/integration/chartandtooltip/defaultcs.aspx?product=chart

•  <telerik:RadToolTipManager ID="RadToolTipManager1" runat="server" Skin="Telerik"
            Width="200px" Animation="Slide" Position="TopCenter" EnableShadow="true" ToolTipZoneID="RadChart1" AutoTooltipify="true">
        telerik:RadToolTipManager>

MasterCard Delectable 1-For-1 Deals

Only with Debit or Prepaid MasterCard

Promotion period: 1 July - 30 Sept 2012


Buy 1 FREE 1 Promotion!
Enjoy double the excitement with Debit or Prepaid MasterCard all across Malaysia.


Purchase a Golden Screen Cinemas movie ticket and receive aFREE ticket to share at the same movie session.


Top up RM10 DiGi talktime with your Debit or Prepaid MasterCard and you will receive RM10 FREE when you purchase online.


Not a Debit MasterCard cardholder yet? Sign up now to enjoy a voucher for 1-for-1 regular pizza atPizza Hut.


Terms & conditions apply.

related link:

http://www.mastercard.com/sea/personal/en/promotions/malaysia/debit_malaysia.html

VBA Comparison Operators

VBA Comparison Operators

Comparison operators compare two numbers or strings and return a logical (True or False) result. The main Excel VBA comparison operators are listed in the table below:

Operator	Action
=	Equal To
< >	Not Equal To
<	Less Than
>	Greater Than
<=	Less Than or Equal To
>=	Greater Than or Equal To

references:
http://www.excelfunctions.net/VBA-Operators-And-Functions.html

split integer value from others character

  #!/usr/bin/perl

  use strict;


  my $data = '2323424: 2434324, 3455543543';
  my @ftr =();
  my @values = ();
 
   @values = split(/(\d+)/, $data);

  foreach my $val (0 ..  $#values) {

unless ( $values[$val] =~/^[0-9]+$/)
{
splice(@values, $val, 1);

}

  }

  print " @values\n";
  exit 0;

Perl CGI for beginner

Good post for beginner:
http://www.perlmonks.org/?node_id=44536

Website to download apache : httpd-2.0.64-win32-x86-openssl-0.9.8o.msi
http://httpd.apache.org/download.cgi#apache24

Della丁噹【不是你的錯】MV youtube

好好听噢~~




丁噹 

不是你的錯

作詞：黃婷
作曲：林邁可

音樂停止了 引擎熄火了
窒息的溫柔 尖銳得赤裸
一刀一刀 往我心上割 往傷口裡戳
那麼折磨 為了甚麼

別說你難過 別再安慰我
最爛的理由 是你配不上我
我沒有你想像中脆弱 我會好好的
沒有甚麼 罪不可赦

再痛的痛苦淚水 換不回 一點點感動
我不怪你 不是你的錯
再深的深情容忍 也不能 讓你再愛我
我不怪你 不是你的錯


別說你難過 別再安慰我
最爛的理由 是你配不上我
我沒有你想像中脆弱 我會好好的
沒有甚麼 罪不可赦

再痛的痛苦淚水 換不回 一點點感動
我不怪你 不是你的錯
再深的深情容忍 也不能 讓你再愛我
我不怪你 不是你的錯


再痛的痛苦淚水 換不回 一點點感動
我不怪你 不是你的錯
再深的深情容忍 也不能 讓你再愛我
我不怪你 不是你的錯


我的世界 沒有你 也許更遼闊
就到這裡 錯了又 如何

read text file and store line in array

if (-e $file )

{

open(ori, $file);

while( my $line = )

{

if ($line =~ m/^connect/i)

{

push(@array,$line)

}

}

}

else

{

print" cannot find the file";

}

reference

1.http://stackoverflow.com/questions/1512729/how-can-i-search-multiple-files-for-a-string-in-perl

read excel file in unix PERL module

popular module :- spreadsheet::ParseExcel

able to read xls file

unable to read .xlsx file

Spreadsheet::XLSX

focus on reading value for xlsx file

limited functionality

http://groups.google.com/group/spreadsheet-writeexcel/browse_thread/thread/9a69b3da83db317?pli=1

Excel::reader

read xlsx file (haven't test out)

https://github.com/jmcnamara/excel-reader-xlsx

Spreadsheet-ParseExcel

http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.59/lib/Spreadsheet/ParseExcel.pm

contain many functions

install Spreadsheet::WriteExcel Spreadsheet::ParseExcel

http://cpan.uwinnipeg.ca/htdocs/Spreadsheet-WriteExcel/INSTALL.html

http://www.thegeekstuff.com/2011/12/perl-and-excel/

install manually

http://www.thegeekstuff.com/2008/09/how-to-install-perl-modules-manually-and-using-cpan-command/

verify whether variable is defined in perl

my $variable;

if (defined($variable))

{

print "defined";

}

else

{

print "not defined";

}

#---------------

unless (defined($variable)) {

print " not defined";

}

else

{

print" defined";

}

verify whether array is empty perl

use strict; use warnings;

my @array;

if (@array)

{

print "array not empty";

}

else

{ print "array empty";

}

------------------------------------------

unless (@array)

{

print "There is element inside array.";

exit(1);

}

Disable Copy, Cut,Paste, Paste Special Menu in excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

With Application

.CellDragAndDrop = True

.OnKey "^c"

.OnKey "^v"

.OnKey "^x"

.OnKey "+{DEL}"

.OnKey "^{INSERT}"

.CutCopyMode = False

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = True

Next Ctrl

End Sub

Private Sub Workbook_Open()

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_Activate()

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Cancel = True

MsgBox "Right click menu deactivated." & vbCrLf & _

"For this file:", 16, ""

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Application.CutCopyMode = False

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_Deactivate()

On Error Resume Next

With Application

.CellDragAndDrop = True

.OnKey "^c"

.OnKey "^v"

.OnKey "^x"

.OnKey "+{DEL}"

.OnKey "^{INSERT}"

.CutCopyMode = False

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = True

Next Ctrl

End Sub

sample paste value only

http://www.jkp-ads.com/Download.asp#CatchPaste