roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-10 05:56:27 +02:00
Code Issues Projects Releases Packages Wiki Activity

operator accounting Invoices

Browse source
This commit is contained in:
ragu 2022-10-14 08:28:51 +02:00
parent dd84259e6d
commit 819592a77d
14 changed files with 604 additions and 148 deletions
Download patch file Download diff file Expand all files Collapse all files

12
copri4/main/src/Mod/Shareework.pm
View file

@ -341,9 +341,6 @@ sub save_account(){
owner => "198",
};
my $c_id_op = $dbt->insert_contentoid($dbh_operator,$insert_op,"reset_adropkeys");
if($bonus_record->{c_id} > 3){#means if not file greped with static kn c_id
$dbt->update_content4comp($dbh_operator,$bonus_record->{c_id},"-","1");
}
if($bonus_collect->{1}->{int22} && $bonus_collect->{2}->{int22} && $bonus_collect->{3}->{int22}){
@txt30_op = ("$bonus_collect->{1}->{int22}","$bonus_collect->{2}->{int22}","$bonus_collect->{3}->{int22}");
@ -364,8 +361,17 @@ sub save_account(){
owner => $owner,
ret => $ret,
};
$ctadr_operator = $dbt->fetch_record($dbh_operator,$authref);
print FILE "operator adr update preview with bonusnr:\n" . Dumper($adr_bonus) . "\n";
$ret = $pl->set_usertarif($dbh,$operator_conf->{database}->{dbname},$adr_bonus,$bonus_collect);
#count down only if not file greped with static kn c_id and not still used
print FILE "bonus_record update_content4comp by: $bonus_record->{c_id} > 3 && $bonus_record->{int03} > 0 && (!$ctadr_operator->{txt15} || $bonus_record->{ct_name} !~ /$ctadr_operator->{txt15}/i)\n";
if($bonus_record->{c_id} > 3 && $bonus_record->{int03} > 0 && (!$ctadr_operator->{txt15} || $bonus_record->{ct_name} !~ /$ctadr_operator->{txt15}/i)){
$dbt->update_content4comp($dbh_operator,$bonus_record->{c_id},"-","1");
}
}else{
$ret = "failure::txt15#top7";
}