my (@header, @fields, @sort_fields, $align, @links, @color, @style);
$align = '';
+# Report Column: crednum
+push @header, emt('Ref No');
+push @fields, sub { shift->crednum };
+push @sort_fields, '';
+$align .= 'l';
+push @links, '';
+push @color, '';
+push @style, '';
+
# Report Column: Amount
push @header, emt('Amount');
push @fields, sub { $money_char .sprintf('%.2f', shift->amount) };
push @search, "cust_credit.credbatch = '$1'";
}
+if ( $cgi->param('reasonnum') =~ /^(\d+)$/ && $1 ) {
+ push @search, "cust_credit.reasonnum = $1";
+}
+
# commission_salesnum
if ( $cgi->param('commission_salesnum') =~ /^(\d+)$/ ) {
push @search, "commission_salesnum = $1";
cust_credit.commission_agentnum
cust_credit.commission_salesnum
cust_credit.commission_pkgnum
- cust_credit.commission_invnum
cust_credit.credbatch
),
'Null as void_date',
cust_credit_void.commission_agentnum
cust_credit_void.commission_salesnum
cust_credit_void.commission_pkgnum
- cust_credit_void.commission_invnum
),
'Null as credbatch',
qw(cust_credit_void.void_date