#!/usr/bin/perl

use lib "/home/libs/modules" ;
use lib "/home/libs/html" ;
    
require cfg ;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

use CGI::Carp qw(fatalsToBrowser);
use CGI;
use Mail::Sendmail;
use Fcntl qw(:flock);
use File::Copy;
use File::Basename;
use Date::Calc qw(:all);
use Excel::Writer::XLSX;

&today;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

@ARGV   = split(/\\*\&/, $ENV{'QUERY_STRING'});
$action = $ARGV[0] ;

our ($q)                 = CGI -> new() ;
our $iaction             = $q -> param('iaction')                || $action ;
our $isaved              = $q -> param('isaved')                 || '' ;

our $debug = 1 ;

our $cnt_match_credits = 4 ; # used in common_load_quote_vars

#-------- page opts --------------------------------------------------------------------------------------------------------------------------------------------------

&page_opts ;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

print "Content-type: text/html\n\n";
	
our $srchscr   = 1 ;

&db_open_ro ;
    our $db_ignore_open_close = 1 ; # do one open and one close instead of repeating it
	if ($iaction eq ''){ &report_screen ; }
	&common_min_action;
	$db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
&db_close_conn ;

exit;

#------------------------------------------------------------------------------------------

sub report_ifields {
	
&load_search_vars ;
	
if ($i{camera_system_id}) {
    push @report_sql, "(`camera_system_id`='$i{camera_system_id}')" ;
    push @report_results, "camera_system = $camera_system{$i{camera_system_id}}" ;
	# our $acc_id_sql_where = "`camera_id`='$i{camera_id}'"
}

# push @report_sql, "(`camera_system_id`='12')" ;
# push @report_results, "camera_system = $camera_system{12}" ;
	
if ($i{date_from} and $i{date_to}) { # check dates
    my $date_from_check = $i{date_from} ;
       $date_from_check =~ s/\-//g ;
    my $date_to_check = $i{date_to} ;
       $date_to_check =~ s/\-//g ;
    if ($date_from_check > $date_to_check) { $error = qq(CAMERAS FROM ($i{date_from}) > CAMERAS TO ($i{date_to})); &report_screen; }
    }
    
if ($i{date_from}) {
    push @report_sql, "(`quote_date` >= '$i{date_from}')" ;
    push @report_results, "quote_date >= $i{date_from}" ;
    }

if ($i{date_to}) {
    push @report_sql, "(`quote_date` <= '$i{date_to}')" ;
    push @report_results, "quote_date <= $i{date_to}" ;
    }
	
if ($i{client_id}) {    
	push @report_sql, "(`quote_to`='$i{client_id}')" ;
    push @report_results, "Client = $client{$i{client_id}}" ;
    }
	
# if ($i{stock}) {    
	# push @report_results, "Stock = $i{stock}" ;
    # }
	
if ($i{type}) {    
	push @report_results, "Type = $i{type}" ;
	}

push @report_sql, "(`quote_accepted`=1)" ;	
push @report_results, "Quote Accepted = 'Yes'" ;
push @report_sql, "(`invoice_nr`>0)" ;
push @report_results, "Invoice Nr exists" ;
	
$report_results_msg = uc join(', ', @report_results) ;

unless ($report_results_msg) { $error = qq(ENTER AT LEAST ONE SEARCH PARAMETER); &report_screen; } else { $isaved = qq(SELECT WHERE $report_results_msg) ; }
 
} #------------------------------------------------------------------------------------------

sub load_search_vars {

	# my $camera_systems_sql_where = "`id`='$i{camera_system_id}'" if $i{camera_system_id} ;
	# &db_min_ro('camera_systems','id,name',$camera_systems_sql_where,'','') ;
	if ($i{camera_system_id}) {
		&db_min_ro('camera_systems','id,name',"id='$i{camera_system_id}'",'','') ;
		foreach my $id (keys %{$db{camera_systems}}) { $camera_system{$id} = $db{camera_systems}{$id}{name} ; } 
	}

	if ($i{client_id}) {
		my $customers_sql_where = "`id`='$i{client_id}'" ;
		&db_min_ro('customers','*',$customers_sql_where,'','') ;
		foreach my $id (keys %{$db{customers}}) { $client{$id} = $db{customers}{$id}{name} ; }
	}

} #------------------------------------------------------------------------------------------

sub list_screen {

my $srch_where_sql = join(' AND ', @report_sql) ;

my $add_sql_where = '' ;
    
# our @sql_col_display = ("id","camera_nr","camera_serial_nr","date_received","amount_usd","amount_zar","in_stock") ;
# our @sql_col_display = ("camera_nr","camera_system_id","camera_serial_nr","date_received","amount_usd","amount_zar","in_stock") ;
our @sql_col_display = ("invoice_date","invoice_nr","client_id","ref","type","qty","roe","amount_usd","amount_zar","total") ;

&report_xls_export_header("Match_Credits_Report$xlsreportname",'matchcreditsreport') ;

&load_list_vars("$srch_where_sql$add_sql_where") ;

my @prefexes = ("item", "usd_amnt", "curr_amnt") ;

foreach my $prefex (@prefexes){
	
	$col_name = "$prefex" . "_costing_match_credits" ;
	$cnt = 0 ; 
	if($db{quotes_min}{$id}{$col_name}){
		foreach my $col_input (split(";", $db{quotes_min}{$id}{$col_name})){
			$cnt++ ; 
			$saved_field{$prefex}{$suffix}{$cnt} = $col_input ;  
			# &common_debug("$aa/$suffix : $cc") ; 
		}	
	}	
}

foreach my $id (sort {$b <=> $a} keys %{$db{$table}}) {
	
	# next unless $db{$table}{$id}{quote_accepted} ;
	# next unless $db{$table}{$id}{invoice_nr} ;
	
	if ($i{type}) {
		
		# my $sql_match_credits = '' ;	
		# if ($cnt_match_credits) { # match_credits_report.pl
			# for (1 .. $cnt_match_credits) {
				# $sql_match_credits .= qq~,$t2.item_$_\_costing_match_credits~ ;
			# }
		# }
		
		# &common_debug("type=$i{type} -> next unless $quote_camera_system_id{$id} eq $i{type}  ;") ;
		
		my $quote_match_credit_found = 0 ;
		for (1 .. $cnt_match_credits) {
			# my $type = $db{$table}{$id}{"item_$_\_costing_match_credits"} ;
			my $type = $saved_field{"item"}{"_costing_match_credits"}{$_} ;
			$quote_match_credit_found = 1 if $type eq $i{type} ;
		}
		next unless $quote_match_credit_found  ;
	}
	
	my $quote_match_credit = '' ;
	for (1 .. $cnt_match_credits) {
		# my $type = $db{$table}{$id}{"item_$_\_costing_match_credits"} ;
		my $type = $saved_field{"item"}{"_costing_match_credits"}{$_} ;
		$quote_match_credit .= $price_list{$type} . " " if $type ;
	}
	
	my $usd_match_credit = '' ; my $zar_match_credit = '' ;
	for (1 .. $cnt_match_credits) {
		# my $usd = $db{$table}{$id}{"usd_amnt_$_\_costing_match_credits"} ;
		my $usd = $saved_field{"usd_amnt"}{"_costing_match_credits"}{$_} ;
		$usd_match_credit += $usd if $usd ;
		# my $zar = $db{$table}{$id}{"curr_amnt_$_\_costing_match_credits"} ;
		my $zar = $saved_field{"curr_amnt"}{"_costing_match_credits"}{$_} ;
		$zar_match_credit += $zar if $zar ;
	}
	
	# if ($i{client_id}) { next unless $client{$i{client_id}} eq $quote_customer{$id} ; }
	# if ($i{client_id}) { next unless $db{$table}{$id}{client_id} eq $i{client_id} ; }
	# if ($i{stock})     { next unless $i{stock} eq lc $quote_type{$id} ; }
	
	$print_tbody .= qq~<tr>~ ;
	
	$xlscol=0;
	
	foreach (@sql_col_display) { 
		unless ($_) { next ; } # blank for the buttons column
        my $val = $db{$table}{$id}{$_} ;
		my $align = '' ;
		
		my $center = qq~ class="dt-center"~ ;
		my $right  = qq~ class="dt-right"~ ;
		
		# if ($_ eq 'date_received')    { $align = $center ;  }  
		# if ($_ eq 'amount_zar')       { $val   = $db{$table}{$id}{cur_amount}                                           ; }
		if ($_ eq 'amount_usd')         { $val   = &common_commify(sprintf("%0.2f",$usd_match_credit)) ; $align = $right  ; }
		if ($_ eq 'amount_zar')         { $val   = &common_commify(sprintf("%0.2f",$zar_match_credit)) ; $align = $right  ; }
		# if ($_ eq 'amount_usd')       { $val   = $db{$table}{$id}{usd_amount}                                           ; }
		# if ($_ eq 'quote_total_zar')  { $val   = $quote_amount{$id}                                                     ; }
		if ($_ eq 'total')              { $val   = &common_commify(sprintf("%0.2f",($db{$table}{$id}{total_1_purchase_summary} + $db{$table}{$id}{total_2_purchase_summary} +  $db{$table}{$id}{total_3_purchase_summary}))) ; $align = $right ; }
		# if ($_ eq 'camera_serial_nr') { $val   = $db{$table}{$id}{serial_nr}                                            ; }
		# if ($_ eq 'camera_system_id') { $val   = $camera_system{$val}                                                   ; }
		# if ($_ eq 'invoice_date')     { $val   = $invoice_date{$id}                                                     ; }
		if ($_ eq 'invoice_date')       { $val   = $db{$table}{$id}{invoice_date}                                         ; }
		if ($_ eq 'invoice_nr')         { $val   = $db{$table}{$id}{invoice_nr} ; $align = $center                        ;}
		# if ($_ eq 'type')             { $val   = $quote_type{$id}                                                       ; }
		# if ($_ eq 'type')               { $val   = ucfirst $db{$table}{$id}{type}                                       ; }
		if ($_ eq 'type')               { $val   = $quote_match_credit                                                    ; }
		# if ($_ eq 'qty')              { $val   = $quote_qty{$id}                                                        ; }
		if ($_ eq 'roe')                { $val   = $db{$table}{$id}{roe} ; $align = $center                               ; }
		if ($_ eq 'qty')                { $val   = $db{$table}{$id}{qty} ; $align = $center                               ; }
		if ($_ eq 'ref')                { $val   = $db{$table}{$id}{quote_nr} ; $align = $center                          ; }
		# if ($_ eq 'client_id')        { $val   = $quote_customer{$id}                                                   ; }
		if ($_ eq 'client_id')          { $val   = $customer{$db{$table}{$id}{quote_to}}                                  ; }
		# if ($_ eq 'in_stock')         { if ($db{$table}{$id}{quote_nr}) { $val = 0 ; } else { $val = 1 ; } }
		# if ($_ eq 'in_stock')         { if ($db{$table}{$id}{quote_nr} or $db{$table}{$id}{demo_recipient} or $db{$table}{$id}{replacement_date}) { $val = 0 ; } else { $val = 1 ; } }
		
        &report_xls_export_process_cell('','',$val) ; # ------------------------------------------------------------------------- HTML AFTER
        $xlscol++; 
		
		$val = &common_camera_links($table,$id,$val) if $_ eq 'camera_nr' or $_ eq 'ref_nr' ;
		
		if ($_ eq 'in_stock') { if ($val==1) { $val = &set_tick('green', '') ; } else { $val = &set_tick('red', '') ; } $align = $center ; }
		
		$val = &common_camera_links($table,$id,$val) if $_ eq 'ref' ;
		
		$print_tbody .= qq~<td $align>$val</td>~ ;  
        }
		
	$print_tbody .= qq~</tr>~ ;
    $xlsrow++ ;
	}
	
&report_xls_export_footer('L',15,'matchcreditsreport') ;

$fnsortcol   = 3 ; 
$fnsortorder = 'asc' ;

$print_more_boxes .= qq~<br><button type="button" class="btn btn-default" onclick="history.go(-1);">Back</button><br><br>~ ;

&common_min_extra_crumb("$lcpage-report","Search Screen") ;
	
} #------------------------------------------------------------------------------------------

sub set_tick {
	
my ($color,$tooltip) = @_ ;
	
$tick{green}  = qq~<span style="display:none;">2</span><span class="label label-success"><i $tooltip class="glyphicon glyphicon-ok"></i></span>~ ;
$tick{orange} = qq~<span style="display:none;">1</span><span class="label label-warning"><i $tooltip class="glyphicon glyphicon-ok"></i></span>~ ;
$tick{red}    = qq~<span style="display:none;">0</span><span class="label label-danger"><i $tooltip class="glyphicon glyphicon-ok"></i></span>~ ;

return ($tick{$color}) ;
		
} #------------------------------------------------------------------------------------------

sub load_list_vars {
	
my ($where) = @_ ;
	
# &db_min_ro('camera_systems','id,name','','','') ;
# foreach my $id (keys %{$db{camera_systems}}) { $camera_system{$id} = $db{camera_systems}{$id}{name} ; } 
	
&db_min_ro('customers','id,name','','','') ;
foreach my $id (keys %{$db{customers}}) { $customer{$id} = $db{customers}{$id}{name} ; } 

&db_min_ro('price_list','id,description',"type='match_credits'",'','') ;
foreach my $id (keys %{$db{price_list}}) { $price_list{$id} = $db{price_list}{$id}{description} ; } 

# &common_load_quote_vars('>0');
# &common_load_quote_vars("cameras.quote_nr>0 AND cameras.quote_nr=quotes.quote_nr");
	
&db_min_ro($table,'*',$where,'','') ;

} #------------------------------------------------------------------------------------------

sub thead {

&common_min_thead ;
    
} #-------------------------------------------------------------------------------

sub page_opts {

our $glyphicon = 'list' ;
our $lcpage    = 'match-credits' ;

&common_page_name ;
   
# our $table     = 'cameras' ;
our $table     = 'quotes' ;
$page_title    = 'Match Credits' ;

} #-------------------------------------------------------------------------------

sub report_screen {

our $lcol = 3 ;
our $fcol = 5 ;

$print_box_content_rows .= &common_min_forms_start('report') ;

# &common_camera_opts ;

# &common_min_select_opts('camera_system_id','price_list','description','','') ;
&common_min_select_opts('client_id','customers','name','','') ;
&common_min_select_opts('type','price_list','description','','','',"`type`='match_credits'",'') ;

# &common_camera_opts ;

&common_min_select_opts('camera_system_id','camera_systems','code','12','','',"id='12'") ; # LIGR only

my @datefrom = &common_add_delta_ymd(-2,0,0) ;

$print_box_content_rows  .= &common_min_form_datepicker('date_from',"$datefrom[0]-01-01") ;  
$print_box_content_rows  .= &common_min_form_datepicker('date_to',"$now_year-$now_mm-$now_dd") ; 
$print_box_content_rows  .= &common_min_form_select('camera_system_id','') ; 
# $opts{stock}              = qq~<option value=""></option>
# <option value="stock">In Stock</option>
# <option value="purchased">Purchased</option>
# <option value="rental">Rental</option>
# <option value="demo">Demo</option>~ ; 
# $print_box_content_rows  .= &common_min_form_select('stock','','',1,'') ; 
$print_box_content_rows  .= &common_min_form_select('client_id','') ; 
$print_box_content_rows  .= &common_min_form_select('type','') ; 
$print_box_content_rows  .= &common_min_forms_end('','','report') ;

&common_min_search_screen ;

} #-------------------------------------------------------------------------------

use common ;
use report ;
use xlsxcreator ;
use today ;

1;