adding rental debug log. Check and view receivable amount in the invoice

This commit is contained in:
ragu 2023-09-06 08:17:13 +02:00
parent 4734370702
commit 76fe0eb26a
4 changed files with 17 additions and 5 deletions

View file

@ -154,6 +154,8 @@ sub handler {
}
#Testing, if capture price ne receivable, then capture fails
#2023-09-05, does not work on payone server-error. there is noch further capture
#Look at $pay_state in Address.pm
if($txaction eq "capture" && $update_ctt->{int16} == 0 && $ctt->{int01} != $update_ctt->{int19}){
$update_adr->{int12} = $vde_on_fail;
$update_ctt->{int14} = 1;

View file

@ -290,7 +290,7 @@ sub sig_available {
}
#just like caching
$return2copri->{$bike}->{main_id} = "300102";
$return2copri->{$bike}->{main_id} = "300001" if($bike_id == 1001 || $bike_id == 84);#Contributor bikes
$return2copri->{$bike}->{main_id} = "300001" if($bike_id == 84);#Contributor bikes
$return2copri->{$bike}->{int11} = 3;#system
$return2copri->{$bike}->{int25} = 1;#tracking on
$return2copri->{$bike}->{barcode} = $bike_id;
@ -541,7 +541,7 @@ sub sig_booking {
}
#keep in mind, all other states will be done on REST, hopefully
$update_pos->{txt25} = "$ctpos->{txt25}\n$sig_book->{return_state}";# if($sig_book->{return_state});
$update_pos->{txt25} = "$ctpos->{txt25}\n- $sig_book->{return_state}";
$rows = $dbt->update_record($dbh,$update_pos,$ctpos);
print FILE "<--- rows: $rows, update_pos: $ctpos->{c_id}, with:" . Dumper($update_pos) . "\n";