Lines 173-185
sub makepayment {
Link Here
|
173 |
my $payment = 0 - $amount; |
173 |
my $payment = 0 - $amount; |
174 |
$payment = 0-$data->{'amountoutstanding'}; |
174 |
$payment = 0-$data->{'amountoutstanding'}; |
175 |
my $finalamount = $amount; |
175 |
my $finalamount = $amount; |
176 |
my $descriptionpayment="Payment for account n°".$accountno.",thanks - ".$user." : ".$data->{'description'}; |
176 |
my $descriptionpayment="Payment for account no.".$accountno.",thanks - ".$user." : ".$data->{'description'}; |
177 |
if($partpaymentamount!=0) |
177 |
if($partpaymentamount!=0) |
178 |
{ |
178 |
{ |
179 |
$newamountoutstanding=$data->{'amountoutstanding'}-$partpaymentamount; |
179 |
$newamountoutstanding=$data->{'amountoutstanding'}-$partpaymentamount; |
180 |
$payment = 0 - $partpaymentamount; |
180 |
$payment = 0 - $partpaymentamount; |
181 |
$finalamount = $partpaymentamount; |
181 |
$finalamount = $partpaymentamount; |
182 |
$descriptionpayment="Part Payment for account n°".$accountno.",thanks - ".$user." : ".$data->{'description'}; |
182 |
$descriptionpayment="Part Payment for account no.".$accountno.",thanks - ".$user." : ".$data->{'description'}; |
183 |
} |
183 |
} |
184 |
|
184 |
|
185 |
$sth = $dbh->prepare( |
185 |
$sth = $dbh->prepare( |