From 34c9b9f788546382cfa1164d9039876932475f7c Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Tue, 19 May 2015 14:57:33 -0700 Subject: [PATCH] add "skip customers without postal billing" option to invoice spool csv event, RT#35023 --- FS/FS/part_event/Action/cust_bill_spool_csv.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/FS/FS/part_event/Action/cust_bill_spool_csv.pm b/FS/FS/part_event/Action/cust_bill_spool_csv.pm index 250c83042..0d84e77c4 100644 --- a/FS/FS/part_event/Action/cust_bill_spool_csv.pm +++ b/FS/FS/part_event/Action/cust_bill_spool_csv.pm @@ -33,6 +33,10 @@ sub option_fields { empty_label => '(do not upload)', order_by => 'targetnum', }, + 'skip_nopost' => { label => 'Skip customers without postal billing enabled', + type => 'checkbox', + value => 'Y', + }, ); } @@ -44,6 +48,9 @@ sub do_action { #my $cust_main = $self->cust_main($cust_bill); my $cust_main = $cust_bill->cust_main; + return if $self->option('skip_nopost') + && ! grep { $_ eq 'POST' } $cust_main->invoicing_list; + $cust_bill->spool_csv( 'time' => $cust_event->_date, 'format' => $self->option('spoolformat'), -- 2.11.0