|
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( |