blob: 2d9e8773c31ee7a6cf144908cb2128c4f38f1a78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
package FS::part_event::Action::cust_statement;
use strict;
use base qw( FS::part_event::Action );
use FS::cust_statement;
sub description {
'Group invoices into an informational statement.';
}
sub eventtable_hashref {
{ 'cust_main' => 1,
'cust_pkg' => 1,
};
}
sub default_weight {
90;
}
sub do_action {
my( $self, $cust_main ) = @_;
#my( $self, $object ) = @_;
#my $cust_main = $self->cust_main($object);
my $cust_statement = new FS::cust_statement {
'custnum' => $cust_main->custnum
};
my $error = $cust_statement->insert;
die $error if $error;
'';
}
1;
|