Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/money.pm

   1 package OpenILS::Application::Storage::Publisher::money;
   2 use base qw/OpenILS::Application::Storage/;
   3 use OpenSRF::Utils::Logger qw/:level/;
   4
   5 my $log = 'OpenSRF::Utils::Logger';
   6
   7 sub _make_mbts {
   8         my @xacts = @_;
   9
  10         my @mbts;
  11         for my $x (@xacts) {
  12                 my $s = new Fieldmapper::money::billable_transaction_summary;
  13                 $s->id( $x->id );
  14                 $s->usr( $x->usr );
  15                 $s->xact_start( $x->xact_start );
  16                 $s->xact_finish( $x->xact_finish );
  17
  18                 my $to = 0;
  19                 my $lb = undef;
  20                 for my $b ($x->billings) {
  21                         next if ($b->voided);
  22             #$log->debug( "billing is ".$b->amount, DEBUG );
  23                         $to += ($b->amount * 100);
  24                         $lb ||= $b->billing_ts;
  25                         if ($b->billing_ts ge $lb) {
  26                                 $lb = $b->billing_ts;
  27                                 $s->last_billing_note($b->note);
  28                                 $s->last_billing_ts($b->billing_ts);
  29                                 $s->last_billing_type($b->billing_type);
  30                         }
  31                 }
  32
  33                 $s->total_owed( sprintf('%0.2f', ($to) / 100 ) );
  34
  35                 my $tp = 0;
  36                 my $lp = undef;
  37                 for my $p ($x->payments) {
  38             #$log->debug( "payment is ".$p->amount." voided = ".$p->voided, DEBUG );
  39                         next if ($p->voided eq 't');
  40                         $tp += ($p->amount * 100);
  41                         $lp ||= $p->payment_ts;
  42                         if ($p->payment_ts ge $lp) {
  43                                 $lp = $p->payment_ts;
  44                                 $s->last_payment_note($p->note);
  45                                 $s->last_payment_ts($p->payment_ts);
  46                                 $s->last_payment_type($p->payment_type);
  47                         }
  48                 }
  49                 $s->total_paid( sprintf('%0.2f', ($tp) / 100 ) );
  50
  51                 $s->balance_owed( sprintf('%0.2f', (($to) - ($tp)) / 100) );
  52         #$log->debug( "balance of ".$x->id." == ".$s->balance_owed, DEBUG );
  53
  54                 if (action::circulation->retrieve($x->id)) {
  55                     $s->xact_type( 'circulation' );
  56                 } elsif (money::grocery->retrieve($x->id)) {
  57                     $s->xact_type( 'grocery' );
  58                 } elsif (booking::reservation->retrieve($x->id)) {
  59                     $s->xact_type( 'reservation' );
  60                 }
  61
  62                 push @mbts, $s;
  63         }
  64
  65         return @mbts;
  66 }
  67
  68 sub search_mbts {
  69     my $self = shift;
  70     my $client = shift;
  71     my $search = shift;
  72
  73     my @xacts = money::billable_transaction->search_where( $search );
  74     $client->respond( $_ ) for (_make_mbts(@xacts));
  75
  76     return undef;
  77 }
  78 __PACKAGE__->register_method(
  79     method      => 'search_mbts',
  80     api_name    => 'open-ils.storage.money.billable_transaction.summary.search',
  81     stream      => 1,
  82     argc        => 1,
  83 );
  84
  85 sub search_ous {
  86     my $self = shift;
  87     my $client = shift;
  88     my $usr = shift;
  89
  90     my @xacts = $self->method_lookup( 'open-ils.storage.money.billable_transaction.summary.search' )->run( { usr => $usr, xact_finish => undef } );
  91
  92     my ($total,$owed,$paid) = (0.0,0.0,0.0);
  93     for my $x (@xacts) {
  94         $total += $x->total_owed;
  95         $owed += $x->balance_owed;
  96         $paid += $x->total_paid;
  97     }
  98
  99     my $ous = Fieldmapper::money::open_user_summary->new;
 100     $ous->usr( $usr );
 101     $ous->total_paid( sprintf('%0.2f', $paid) );
 102     $ous->total_owed( sprintf('%0.2f', $total) );
 103     $ous->balance_owed( sprintf('%0.2f', $owed) );
 104
 105     return $ous;
 106 }
 107 __PACKAGE__->register_method(
 108     method      => 'search_ous',
 109     api_name    => 'open-ils.storage.money.open_user_summary.search',
 110     argc        => 1,
 111 );
 112
 113
 114 sub new_collections {
 115     my $self = shift;
 116     my $client = shift;
 117     my $age = shift;
 118     my $amount = shift;
 119     my @loc = @_;
 120
 121     my $mct = money::collections_tracker->table;
 122     my $mb = money::billing->table;
 123     my $circ = action::circulation->table;
 124     my $mg = money::grocery->table;
 125     my $res = booking::reservation->table;
 126
 127     my $SQL = <<"    SQL";
 128
 129 select
 130         usr,
 131         MAX(last_billing) as last_pertinent_billing,
 132         SUM(total_billing) - SUM(COALESCE(p.amount,0)) as threshold_amount
 133   from  (select
 134                 x.id,
 135                 x.usr,
 136                 MAX(b.billing_ts) as last_billing,
 137                 SUM(b.amount) AS total_billing
 138           from  action.circulation x
 139                 left join money.collections_tracker c ON (c.usr = x.usr AND c.location = ?)
 140                 join money.billing b on (b.xact = x.id)
 141                 LEFT JOIN actor.usr_setting set ON (set.usr = x.usr and set.name='circ.collections.exempt' and set.value = 'true')
 142           where x.xact_finish is null
 143                 and c.id is null
 144                 and x.circ_lib in (XX)
 145                 and b.billing_ts < current_timestamp - ? * '1 day'::interval
 146                 and not b.voided
 147                 and set.id IS NULL
 148           group by 1,2
 149
 150                   union all
 151
 152          select
 153                 x.id,
 154                 x.usr,
 155                 MAX(b.billing_ts) as last_billing,
 156                 SUM(b.amount) AS total_billing
 157           from  money.grocery x
 158                 left join money.collections_tracker c ON (c.usr = x.usr AND c.location = ?)
 159                 join money.billing b on (b.xact = x.id)
 160                 LEFT JOIN actor.usr_setting set ON (set.usr = x.usr and set.name='circ.collections.exempt' and set.value = 'true')
 161           where x.xact_finish is null
 162                 and c.id is null
 163                 and x.billing_location in (XX)
 164                 and b.billing_ts < current_timestamp - ? * '1 day'::interval
 165                 and not b.voided
 166                 and set.id IS NULL
 167           group by 1,2
 168
 169                   union all
 170
 171          select
 172                 x.id,
 173                 x.usr,
 174                 MAX(b.billing_ts) as last_billing,
 175                 SUM(b.amount) AS total_billing
 176           from  booking.reservation x
 177                 left join money.collections_tracker c ON (c.usr = x.usr AND c.location = ?)
 178                 join money.billing b on (b.xact = x.id)
 179                 LEFT JOIN actor.usr_setting set ON (set.usr = x.usr and set.name='circ.collections.exempt' and set.value = 'true')
 180           where x.xact_finish is null
 181                 and c.id is null
 182                 and x.pickup_lib in (XX)
 183                 and b.billing_ts < current_timestamp - ? * '1 day'::interval
 184                 and not b.voided
 185                 and set.id IS NULL
 186           group by 1,2
 187         ) full_list
 188         left join money.payment p on (full_list.id = p.xact)
 189   group by 1
 190   having SUM(total_billing) - SUM(COALESCE(p.amount,0)) > ?
 191 ;
 192     SQL
 193
 194     my @l_ids;
 195     for my $l (@loc) {
 196         my ($org) = actor::org_unit->search( shortname => uc($l) );
 197         next unless $org;
 198
 199         my $o_list = actor::org_unit->db_Main->selectcol_arrayref( "SELECT id FROM actor.org_unit_descendants(?);", {}, $org->id );
 200         next unless (@$o_list);
 201
 202         my $o_txt = join ',' => @$o_list;
 203
 204         (my $real_sql = $SQL) =~ s/XX/$o_txt/gsm;
 205
 206         my $sth = money::collections_tracker->db_Main->prepare($real_sql);
 207         $sth->execute( $org->id, $age, $org->id, $age, $org->id, $age, $amount );
 208
 209         while (my $row = $sth->fetchrow_hashref) {
 210             #$row->{usr} = actor::user->retrieve($row->{usr})->to_fieldmapper;
 211             $client->respond( $row );
 212         }
 213     }
 214     return undef;
 215 }
 216 __PACKAGE__->register_method(
 217     method      => 'new_collections',
 218     api_name    => 'open-ils.storage.money.collections.users_of_interest',
 219     stream      => 1,
 220     argc        => 3,
 221 );
 222
 223 sub active_in_collections {
 224     my $self = shift;
 225     my $client = shift;
 226     my $startdate = shift;
 227     my $enddate = shift;
 228     my @loc = @_;
 229
 230     my $mct = money::collections_tracker->table;
 231     my $mb = money::billing->table;
 232     my $circ = action::circulation->table;
 233     my $mg = money::grocery->table;
 234
 235     my $SQL = <<"    SQL";
 236 SELECT  usr,
 237         MAX(last_pertinent_billing) AS last_pertinent_billing,
 238         MAX(last_pertinent_payment) AS last_pertinent_payment
 239   FROM  (
 240                 SELECT  lt.usr,
 241                         NULL::TIMESTAMPTZ AS last_pertinent_billing,
 242                         NULL::TIMESTAMPTZ AS last_pertinent_payment
 243                   FROM  booking.reservation lt
 244                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 245                         JOIN money.billing bl ON (lt.id = bl.xact)
 246                   WHERE cl.location = ?
 247                         AND lt.pickup_lib IN (XX)
 248                         AND bl.void_time BETWEEN ? AND ?
 249                   GROUP BY 1
 250
 251                                 UNION ALL
 252                 SELECT  lt.usr,
 253                         MAX(bl.billing_ts) AS last_pertinent_billing,
 254                         NULL::TIMESTAMPTZ AS last_pertinent_payment
 255                   FROM  booking.reservation lt
 256                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 257                         JOIN money.billing bl ON (lt.id = bl.xact)
 258                   WHERE cl.location = ?
 259                         AND lt.pickup_lib IN (XX)
 260                         AND bl.billing_ts BETWEEN ? AND ?
 261                   GROUP BY 1
 262
 263                                 UNION ALL
 264                 SELECT  lt.usr,
 265                         NULL::TIMESTAMPTZ AS last_pertinent_billing,
 266                         MAX(pm.payment_ts) AS last_pertinent_payment
 267                   FROM  booking.reservation lt
 268                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 269                         JOIN money.payment pm ON (lt.id = pm.xact)
 270                   WHERE cl.location = ?
 271                         AND lt.pickup_lib IN (XX)
 272                         AND pm.payment_ts BETWEEN ? AND ?
 273                   GROUP BY 1
 274
 275                                 UNION ALL
 276                  SELECT  lt.usr,
 277                         NULL::TIMESTAMPTZ AS last_pertinent_billing,
 278                         NULL::TIMESTAMPTZ AS last_pertinent_payment
 279                   FROM  money.grocery lt
 280                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 281                         JOIN money.billing bl ON (lt.id = bl.xact)
 282                   WHERE cl.location = ?
 283                         AND lt.billing_location IN (XX)
 284                         AND bl.void_time BETWEEN ? AND ?
 285                   GROUP BY 1
 286
 287                                 UNION ALL
 288                 SELECT  lt.usr,
 289                         MAX(bl.billing_ts) AS last_pertinent_billing,
 290                         NULL::TIMESTAMPTZ AS last_pertinent_payment
 291                   FROM  money.grocery lt
 292                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 293                         JOIN money.billing bl ON (lt.id = bl.xact)
 294                   WHERE cl.location = ?
 295                         AND lt.billing_location IN (XX)
 296                         AND bl.billing_ts BETWEEN ? AND ?
 297                   GROUP BY 1
 298
 299                                 UNION ALL
 300                 SELECT  lt.usr,
 301                         NULL::TIMESTAMPTZ AS last_pertinent_billing,
 302                         MAX(pm.payment_ts) AS last_pertinent_payment
 303                   FROM  money.grocery lt
 304                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 305                         JOIN money.payment pm ON (lt.id = pm.xact)
 306                   WHERE cl.location = ?
 307                         AND lt.billing_location IN (XX)
 308                         AND pm.payment_ts BETWEEN ? AND ?
 309                   GROUP BY 1
 310
 311                                 UNION ALL
 312                 SELECT  lt.usr,
 313                         NULL::TIMESTAMPTZ AS last_pertinent_billing,
 314                         NULL::TIMESTAMPTZ AS last_pertinent_payment
 315                   FROM  action.circulation lt
 316                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 317                   WHERE cl.location = ?
 318                         AND lt.circ_lib IN (XX)
 319                         AND lt.checkin_time BETWEEN ? AND ?
 320                   GROUP BY 1
 321
 322                                 UNION ALL
 323                 SELECT  lt.usr,
 324                         NULL::TIMESTAMPTZ AS last_pertinent_billing,
 325                         MAX(pm.payment_ts) AS last_pertinent_payment
 326                   FROM  action.circulation lt
 327                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 328                         JOIN money.payment pm ON (lt.id = pm.xact)
 329                   WHERE cl.location = ?
 330                         AND lt.circ_lib IN (XX)
 331                         AND pm.payment_ts BETWEEN ? AND ?
 332                   GROUP BY 1
 333
 334                                 UNION ALL
 335                 SELECT  lt.usr,
 336                         NULL::TIMESTAMPTZ AS last_pertinent_billing,
 337                         NULL::TIMESTAMPTZ AS last_pertinent_payment
 338                   FROM  action.circulation lt
 339                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 340                         JOIN money.billing bl ON (lt.id = bl.xact)
 341                   WHERE cl.location = ?
 342                         AND lt.circ_lib IN (XX)
 343                         AND bl.void_time BETWEEN ? AND ?
 344                   GROUP BY 1
 345
 346                                 UNION ALL
 347                 SELECT  lt.usr,
 348                         MAX(bl.billing_ts) AS last_pertinent_billing,
 349                         NULL::TIMESTAMPTZ AS last_pertinent_payment
 350                   FROM  action.circulation lt
 351                         JOIN money.collections_tracker cl ON (lt.usr = cl.usr)
 352                         JOIN money.billing bl ON (lt.id = bl.xact)
 353                   WHERE cl.location = ?
 354                         AND lt.circ_lib IN (XX)
 355                         AND bl.billing_ts BETWEEN ? AND ?
 356                   GROUP BY 1
 357         ) foo
 358   GROUP BY 1
 359 ;
 360     SQL
 361
 362     my @l_ids;
 363     for my $l (@loc) {
 364         my ($org) = actor::org_unit->search( shortname => uc($l) );
 365         next unless $org;
 366
 367         my $o_list = actor::org_unit->db_Main->selectcol_arrayref( "SELECT id FROM actor.org_unit_descendants(?);", {}, $org->id );
 368         next unless (@$o_list);
 369
 370         my $o_txt = join ',' => @$o_list;
 371
 372         (my $real_sql = $SQL) =~ s/XX/$o_txt/gsm;
 373
 374         my $sth = money::collections_tracker->db_Main->prepare($real_sql);
 375         $sth->execute(
 376             # reservation queries
 377             $org->id, $startdate, $enddate,
 378             $org->id, $startdate, $enddate,
 379             $org->id, $startdate, $enddate,
 380
 381             # grocery queries
 382             $org->id, $startdate, $enddate,
 383             $org->id, $startdate, $enddate,
 384             $org->id, $startdate, $enddate,
 385
 386             # circ queries
 387             $org->id, $startdate, $enddate,
 388             $org->id, $startdate, $enddate,
 389             $org->id, $startdate, $enddate,
 390             $org->id, $startdate, $enddate
 391         );
 392
 393         while (my $row = $sth->fetchrow_hashref) {
 394             $row->{usr} = actor::user->retrieve($row->{usr})->to_fieldmapper;
 395             $client->respond( $row );
 396         }
 397     }
 398     return undef;
 399 }
 400 __PACKAGE__->register_method(
 401     method      => 'active_in_collections',
 402     api_name    => 'open-ils.storage.money.collections.users_with_activity',
 403     stream      => 1,
 404     argc        => 3,
 405 );
 406
 407 sub ou_desk_payments {
 408     my $self = shift;
 409     my $client = shift;
 410     my $lib = shift;
 411     my $startdate = shift;
 412     my $enddate = shift;
 413
 414     return undef unless ($startdate =~ /^\d{4}-\d{2}-\d{2}$/o);
 415     return undef unless ($enddate =~ /^\d{4}-\d{2}-\d{2}$/o);
 416     return undef unless ($lib =~ /^\d+$/o);
 417
 418     my $sql = <<"    SQL";
 419
 420     SELECT  ws.id as workstation,
 421         SUM( CASE WHEN p.payment_type = 'cash_payment' THEN p.amount ELSE 0.0 END ) as cash_payment,
 422         SUM( CASE WHEN p.payment_type = 'check_payment' THEN p.amount ELSE 0.0 END ) as check_payment,
 423         SUM( CASE WHEN p.payment_type = 'credit_card_payment' THEN p.amount ELSE 0.0 END ) as credit_card_payment
 424       FROM  money.desk_payment_view p
 425         JOIN actor.workstation ws ON (ws.id = p.cash_drawer)
 426       WHERE p.payment_ts >= '$startdate'
 427         AND p.payment_ts < '$enddate'::TIMESTAMPTZ + INTERVAL '1 day'
 428         AND p.voided IS FALSE
 429         AND ws.owning_lib = $lib
 430      GROUP BY 1
 431      ORDER BY 1;
 432
 433     SQL
 434
 435     my $rows = money::payment->db_Main->selectall_arrayref( $sql );
 436
 437     for my $r (@$rows) {
 438         my $x = new Fieldmapper::money::workstation_payment_summary;
 439         $x->workstation( actor::workstation->retrieve($$r[0])->to_fieldmapper );
 440         $x->cash_payment($$r[1]);
 441         $x->check_payment($$r[2]);
 442         $x->credit_card_payment($$r[3]);
 443
 444         $client->respond($x);
 445     }
 446
 447     return undef;
 448 }
 449 __PACKAGE__->register_method(
 450     method      => 'ou_desk_payments',
 451     api_name    => 'open-ils.storage.money.org_unit.desk_payments',
 452     stream      => 1,
 453     argc        => 3,
 454 );
 455
 456 sub ou_user_payments {
 457     my $self = shift;
 458     my $client = shift;
 459     my $lib = shift;
 460     my $startdate = shift;
 461     my $enddate = shift;
 462
 463     return undef unless ($startdate =~ /^\d{4}-\d{2}-\d{2}$/o);
 464     return undef unless ($enddate =~ /^\d{4}-\d{2}-\d{2}$/o);
 465     return undef unless ($lib =~ /^\d+$/o);
 466
 467     my $sql = <<"    SQL";
 468
 469         SELECT  au.id as usr,
 470         SUM( CASE WHEN p.payment_type = 'forgive_payment' THEN p.amount ELSE 0.0 END ) as forgive_payment,
 471         SUM( CASE WHEN p.payment_type = 'work_payment' THEN p.amount ELSE 0.0 END ) as work_payment,
 472         SUM( CASE WHEN p.payment_type = 'credit_payment' THEN p.amount ELSE 0.0 END ) as credit_payment,
 473         SUM( CASE WHEN p.payment_type = 'goods_payment' THEN p.amount ELSE 0.0 END ) as goods_payment
 474           FROM  money.bnm_payment_view p
 475                 JOIN actor.usr au ON (au.id = p.accepting_usr)
 476           WHERE p.payment_ts >= '$startdate'
 477                 AND p.payment_ts < '$enddate'::TIMESTAMPTZ + INTERVAL '1 day'
 478                 AND p.voided IS FALSE
 479                 AND au.home_ou = $lib
 480         AND p.payment_type IN ('credit_payment','forgive_payment','work_payment','goods_payment')
 481          GROUP BY 1
 482          ORDER BY 1;
 483
 484     SQL
 485
 486     my $rows = money::payment->db_Main->selectall_arrayref( $sql );
 487
 488     for my $r (@$rows) {
 489         my $x = new Fieldmapper::money::user_payment_summary;
 490         $x->usr( actor::user->retrieve($$r[0])->to_fieldmapper );
 491         $x->forgive_payment($$r[1]);
 492         $x->work_payment($$r[2]);
 493         $x->credit_payment($$r[3]);
 494         $x->goods_payment($$r[4]);
 495
 496         $client->respond($x);
 497     }
 498
 499     return undef;
 500 }
 501 __PACKAGE__->register_method(
 502     method      => 'ou_user_payments',
 503     api_name    => 'open-ils.storage.money.org_unit.user_payments',
 504     stream      => 1,
 505     argc        => 3,
 506 );
 507
 508 sub mark_unrecovered {
 509     my $self = shift;
 510     my $xact = shift;
 511
 512     my $x = money::billable_xact->retrieve($xact);
 513     $x->unrecovered( 't' );
 514     return $x->update;
 515 }
 516 __PACKAGE__->register_method(
 517     method      => 'mark_unrecovered',
 518     api_name    => 'open-ils.storage.money.billable_xact.mark_unrecovered',
 519     argc        => 1,
 520 );
 521
 522
 523 1;