continue sales person work: customer and package selection, commissions, reporting. RT#23402

1 files changed, 27 insertions, 0 deletions

diff --git a/httemplate/misc/sales.cgi b/httemplate/misc/sales.cgi
new file mode 100644
index 000000000..1e5637173
--- /dev/null
+++ b/httemplate/misc/sales.cgi
@@ -0,0 +1,27 @@
+<% encode_json( \@return ) %>\
+<%init>
+
+my( $agentnum ) = $cgi->param('arg');
+
+my %hash = ( 'disabled' => '' );
+if ( $agentnum > 0 ) {
+  $hash{'agentnum'} = $agentnum;
+}
+my @sales = qsearch({
+  'table'     => 'sales',
+  'hashref'   => \%hash,
+  'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
+  'order_by'  => 'ORDER BY salesperson',
+});
+
+warn scalar(@sales);
+
+my @return = map  {
+                    ( $_->salesnum,
+                      $_->salesperson,
+                    )
+                  }
+                  #sort { $a->salesperson cmp $b->salesperson }
+                  @sales;
+
+</%init>