k8/aisa
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
rory-1314-4
aisa/scripts/quotes_test.pl

2500 lines
96 KiB
Perl
Raw Permalink Normal View History

Initial commit
2025-11-26 09:31:54 +00:00
#!/usr/bin/perl
add local backups
2026-02-03 12:35:43 +00:00
use lib "/home/libs/modules" ;
use lib "/home/libs/html" ;
Initial commit
2025-11-26 09:31:54 +00:00
use CGI qw( :standard );
use CGI::Carp qw(fatalsToBrowser);
require cfg ;
print header; # CGI.pm method
#---------------------------------------------------------------------------------------------------------------------------------------------------------------------
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 $redirtype = 'search' ;
add local backups
2026-02-03 12:35:43 +00:00
our $debug = 1 ;
Initial commit
2025-11-26 09:31:54 +00:00
# our $testing = 1 ;
our $cust_cols = 1 ; # display _blank_3.pm
our $camera_cnt_allowed = 1000 ; our $max_cams = 10 ;
if ($useropts{tickets}{$username}) { print "Content-type: text/html\n\n"; require '401.pm' ; exit ; }
#-------- page opts --------------------------------------------------------------------------------------------------------------------------------------------------
# unless ($username eq 'handre' or $username eq 'rory') { print "<<<<<<<<<<<< MAINTENANCE IN PROGRESS >>>>>>>>>" ; exit ; }
# &db_open_ro;
# $db_ignore_open_close=1;
&page_opts ;
#---------------------------------------------------------------------------------------------------------------------------------------------------------------------
$ignore{"yearly_total"} = 1 ;
$ignore{"yearly_totals_1"} = 1 ;
$ignore{"yearly_totals_2"} = 1 ;
$ignore{"yearly_totals_3"} = 1 ;
$ignore{"yearly_totals_4"} = 1 ;
$ignore{"yearly_totals_5"} = 1 ;
add local backups
2026-02-03 12:35:43 +00:00
if ($iaction eq 'add'){
&add_screen;
&common_min_screen1;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ($iaction eq 'edit'){
Initial commit
2025-11-26 09:31:54 +00:00
&common_min_load_params ;
&edit_screen ;
add local backups
2026-02-03 12:35:43 +00:00
&common_min_screen1;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ($iaction eq 'save'){
Initial commit
2025-11-26 09:31:54 +00:00
&common_min_load_params ;
&insert ;
&edit_or_list ;
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ($iaction eq 'update'){
Initial commit
2025-11-26 09:31:54 +00:00
&common_min_load_params ;
&update ;
&edit_or_list ;
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ($iaction eq 'copy'){
Initial commit
2025-11-26 09:31:54 +00:00
&common_min_load_params ;
add local backups
2026-02-03 12:35:43 +00:00
&copy ;
&edit_screen;
&common_min_screen1;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ($iaction eq 'delete'){
Initial commit
2025-11-26 09:31:54 +00:00
&common_min_load_params ;
add local backups
2026-02-03 12:35:43 +00:00
&delete ;
&common_min_screen2;
Initial commit
2025-11-26 09:31:54 +00:00
}
&common_min_action;
add local backups
2026-02-03 12:35:43 +00:00
&db_min_insert('quotes_min') ;
Initial commit
2025-11-26 09:31:54 +00:00
# $db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
# &db_close_conn ;
exit;
#------------------------------------------------------------------------------------------
sub edit_or_list {
# if ($i{saveandexit} eq 'yes') {
# &list_screen ;
# &common_min_screen3;
# }
# else
# {
&edit_screen ;
&common_min_screen1;
# }
} #------------------------------------------------------------------------------------------
sub insert {
&add_db_fields ;
$i{last_update} = "$now_ccyy_mm_dd $now_hour:$now_min:$now_sec" ;
$i{datetime} = "$now_ccyy_mm_dd $now_hour:$now_min:$now_sec" ;
$i{user_id} = $userid ;
&set_default_i_vals;
# &creat_db_cols;
$i{id} = &db_min_get_max($table,'id') ;
&titles_for_pdf ;
&common_upload_files("costings/$i{id}") ;
&process_upload_ifields;
&db_open_upd ;
our $db_ignore_open_close = 1 ; # do one open and one close instead of repeating it
&switch_table ;
&db_min_insert($table) ;
add local backups
2026-02-03 12:35:43 +00:00
&update_camera;
Initial commit
2025-11-26 09:31:54 +00:00
&new_table ;
&db_min_insert('quotes_min') ;
$db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
&db_close_conn ;
} #------------------------------------------------------------------------------------------
sub update {
unless ($i{id}) { $error = qq(NO ID) ; return ; }
&edit_db_fields ;
# &creat_db_cols;
&titles_for_pdf ;
add local backups
2026-02-03 12:35:43 +00:00
&set_default_i_vals;
Initial commit
2025-11-26 09:31:54 +00:00
$i{last_update} = "$now_ccyy_mm_dd $now_hour:$now_min:$now_sec" ;
&common_upload_files("costings/$i{id}") ;
add local backups
2026-02-03 12:35:43 +00:00
&process_upload_ifields;
Initial commit
2025-11-26 09:31:54 +00:00
&db_open_upd ;
our $db_ignore_open_close = 1 ; # do one open and one close instead of repeating it
&switch_table ;
&log_changes_1 ;
add local backups
2026-02-03 12:35:43 +00:00
&db_min_upd($table,"id='$i{id}'") ;
&update_camera;
Initial commit
2025-11-26 09:31:54 +00:00
&new_table ;
&log_changes_2 ;
add local backups
2026-02-03 12:35:43 +00:00
&db_min_upd('quotes_min',"id='$i{id}'") ;
Initial commit
2025-11-26 09:31:54 +00:00
foreach (keys %ignore_for_now) {
$ignore{$_} = '' ;
}
$db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
&db_close_conn ;
} #------------------------------------------------------------------------------------------
sub log_changes_1 {
&db_min_ro($table,"*","`id`='$i{id}'",'','') ;
our $line = qq~$now_year$now_mm$now_dd$now_hour$now_min$now_sec|$now_year-$now_mm-$now_dd $now_hour:$now_min:$now_sec|quote_id='$i{id}'|user_id=$userid|changed_from|~ ;
my %col_to_be_updated = () ; my %ignore_for_now = () ;
foreach (keys %i) {
$col_to_be_updated{$_} = 1 ;
}
foreach my $col (keys %{$db{$table}{$i{id}}}) {
next if $ignore{$col} or $hidden{$col} == 1 or substr($col,0,3) eq 'new' or not $col_to_be_updated{$col} ;
if (($i{$col} or $db{$table}{$i{id}}{$col}) and $db{$table}{$i{id}}{$col} ne $i{$col}) {
# $line .= qq~$col='$i{$col}',~ ;
$line .= qq~$col='$db{$table}{$i{id}}{$col}',~ ;
} elsif ((not $i{$col} and not $db{$table}{$i{id}}{$col}) or (($i{$col} or $db{$table}{$i{id}}{$col}) and $db{$table}{$i{id}}{$col} eq $i{$col})) {
$ignore{$col} = 1 ; $ignore_for_now{$col} = 1 ;
}
}
} #------------------------------------------------------------------------------------------
sub log_changes_2 {
&db_min_ro('quotes_min','*',"id='$i{id}'",'','') ;
foreach (keys %i) {
$col_to_be_updated{$_} = 1 ;
}
foreach my $col (keys %{$db{quotes_min}{$i{id}}}) {
next if $ignore{$col} or $hidden{$col} == 1 or substr($col,0,3) eq 'new' or not $col_to_be_updated{$col} ;
if (($i{$col} or $db{quotes_min}{$i{id}}{$col}) and $db{quotes_min}{$i{id}}{$col} ne $i{$col}) {
# $line .= qq~$col='$i{$col}',~ ;
$line .= qq~$col='$db{quotes_min}{$i{id}}{$col}',~ ;
} elsif ((not $i{$col} and not $db{quotes_min}{$i{id}}{$col}) or (($i{$col} or $db{quotes_min}{$i{id}}{$col}) and $db{quotes_min}{$i{id}}{$col} eq $i{$col})) {
$ignore{$col} = 1 ; $ignore_for_now{$col} = 1 ;
}
}
chop $line if $line ;
&common_log_changes("events/changes_quotes.dat",$line) if $line ;
# exit ;
} #------------------------------------------------------------------------------------------
sub db_min_upd_raw {
my ($sql) = @_ ;
&common_debug($sql) ;
my $sth = $dbh->prepare($sql) ;
$sth->execute() or die "Could not execute SQL statement $sql ... maybe invalid? $!";
$sth->finish();
} #------------------------------------------------------------------------------------------
sub titles_for_pdf {
my $do_insert = 0;
# our %sec_cnt = ('a_systems' => "3-Systems", 'b_software_licence' => "3-Software Licence (Monthly Fee)", 'c_game_breakdown_analytics' => "2-Game Breakdown and Analytics (Annual Fee)", 'd_installation_kits' => "7-Installation Kits", 'e_hardware_add_ons' => "7-Hardware Add Ons", 'f_additional_services' => "7-Additional Services", 'g_match_credits' => "4-Match Credits", 'h_other' => "5-Other", 'i_rental' => "2-Rental");
$sql_insert_pdf = qq~INSERT INTO `quotes_pdf_titles` (quote_id, old_name, new_name) VALUES ~ ;
db_min_ro('quotes_pdf_titles', '*', "quote_id = $i{id}", '', '') ;
foreach (keys %{$db{quotes_pdf_titles}}){
next unless $db{quotes_pdf_titles}{$_}{quote_id} == $i{id} ;
$quote_id_old_pdf_titles{$db{quotes_pdf_titles}{$_}{quote_id}}{$db{quotes_pdf_titles}{$_}{old_name}} = 1 ;
# &common_debug("ABC: $db{quotes_pdf_titles}{$_}{quote_id}, $db{quotes_pdf_titles}{$_}{old_name} $i{id}\n") ;
}
# &common_debug("ABC: ") ;
$do_insert = 0 ;
foreach(keys %sec_cnt){
$first_name = substr($sec_cnt{$_}, 2) ;
$_k = substr($_,1) ;
$ignore{$_k} = 1 ;
if ($quote_id_old_pdf_titles{$i{id}}{$first_name} and $i{$_k}){
$sql_update_pdf = qq(UPDATE `quotes_pdf_titles` SET new_name = '$i{$_k}' WHERE old_name = '$first_name' and quote_id = $i{id} ;) ;
&db_min_upd_raw($sql_update_pdf) ;
}
elsif (not $quote_id_old_pdf_titles{$i{id}}{$first_name} and $i{$_k}){
$sql_insert_pdf .= qq(($i{id}, '$first_name', '$i{$_k}'),) ;
$do_insert = 1 ;
}
elsif ($quote_id_old_pdf_titles{$i{id}}{$first_name} and not $i{$_k}) {
$sql_update_pdf = qq(UPDATE `quotes_pdf_titles` SET new_name = '$first_name' WHERE old_name = '$first_name' and quote_id = $i{id} ;) ;
&db_min_upd_raw($sql_update_pdf) ;
}
elsif (not $quote_id_old_pdf_titles{$i{id}}{$first_name} and not $i{$_k}) {
$sql_insert_pdf .= qq(($i{id}, '$first_name', '$first_name'),) ;
$do_insert = 1 ;
}
}
if ($do_insert){
chop $sql_insert_pdf ;
$sql_insert_pdf .= ";" ;
&db_min_upd_raw($sql_insert_pdf) ;
}
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
sub switch_table {
%y = () ;
add local backups
2026-02-03 12:35:43 +00:00
for (1 .. 12){
$y{1}{$_} = "curr_amnt_" . "$_" . "_costing_additional_services";
$y{2}{$_} = "curr_amnt_" . "$_" . "_costing_game_breakdown_analytics";
$y{3}{$_} = "curr_amnt_" . "$_" . "_costing_hardware_add_ons";
$y{4}{$_} = "curr_amnt_" . "$_" . "_costing_installation_kits";
$y{5}{$_} = "curr_amnt_" . "$_" . "_costing_match_credits";
$y{6}{$_} = "curr_amnt_" . "$_" . "_costing_other";
$y{7}{$_} = "curr_amnt_" . "$_" . "_costing_rental";
$y{8}{$_} = "curr_amnt_" . "$_" . "_costing_software_licence";
$y{9}{$_} = "curr_amnt_" . "$_" . "_costing_systems";
$y{10}{$_} = "excl_" . "$_" . "_costing_additional_services";
$y{11}{$_} = "excl_" . "$_" . "_costing_game_breakdown_analytics";
$y{12}{$_} = "excl_" . "$_" . "_costing_hardware_add_ons";
$y{13}{$_} = "excl_" . "$_" . "_costing_installation_kits";
$y{14}{$_} = "excl_" . "$_" . "_costing_match_credits";
$y{15}{$_} = "excl_" . "$_" . "_costing_other";
$y{16}{$_} = "excl_" . "$_" . "_costing_rental";
$y{17}{$_} = "excl_" . "$_" . "_costing_software_licence";
$y{18}{$_} = "excl_" . "$_" . "_costing_systems";
$y{19}{$_} = "excl_" . "$_" . "_delivery_times";
$y{20}{$_} = "excl_" . "$_" . "_notes";
$y{21}{$_} = "excl_" . "$_" . "_payment_terms";
$y{22}{$_} = "excl_" . "$_" . "_purchase_summary";
$y{23}{$_} = "excl_" . "$_" . "_roes";
$y{24}{$_} = "excl_" . "$_" . "_terms";
$y{25}{$_} = "item_" . "$_" . "_costing_additional_services";
$y{26}{$_} = "item_" . "$_" . "_costing_game_breakdown_analytics";
$y{27}{$_} = "item_" . "$_" . "_costing_hardware_add_ons";
$y{28}{$_} = "item_" . "$_" . "_costing_installation_kits";
$y{29}{$_} = "item_" . "$_" . "_costing_match_credits";
$y{30}{$_} = "item_" . "$_" . "_costing_other";
$y{31}{$_} = "item_" . "$_" . "_costing_rental";
$y{32}{$_} = "item_" . "$_" . "_costing_software_licence";
$y{33}{$_} = "item_" . "$_" . "_costing_systems";
$y{34}{$_} = "item_" . "$_" . "_purchase_summary";
$y{35}{$_} = "item_ttl_" . "$_" . "_costing_additional_services";
$y{36}{$_} = "item_ttl_" . "$_" . "_costing_game_breakdown_analytics";
$y{37}{$_} = "item_ttl_" . "$_" . "_costing_hardware_add_ons";
$y{38}{$_} = "item_ttl_" . "$_" . "_costing_installation_kits";
$y{39}{$_} = "item_ttl_" . "$_" . "_costing_match_credits";
$y{40}{$_} = "item_ttl_" . "$_" . "_costing_other";
$y{41}{$_} = "item_ttl_" . "$_" . "_costing_rental";
$y{42}{$_} = "item_ttl_" . "$_" . "_costing_software_licence";
$y{43}{$_} = "item_ttl_" . "$_" . "_costing_systems";
$y{44}{$_} = "qty_" . "$_" . "_costing_additional_services";
$y{45}{$_} = "qty_" . "$_" . "_costing_game_breakdown_analytics";
$y{46}{$_} = "qty_" . "$_" . "_costing_hardware_add_ons";
$y{47}{$_} = "qty_" . "$_" . "_costing_installation_kits";
$y{48}{$_} = "qty_" . "$_" . "_costing_match_credits";
$y{49}{$_} = "qty_" . "$_" . "_costing_other";
$y{50}{$_} = "qty_" . "$_" . "_costing_rental";
$y{51}{$_} = "qty_" . "$_" . "_costing_software_licence";
$y{52}{$_} = "qty_" . "$_" . "_costing_systems";
$y{53}{$_} = "usd_amnt_" . "$_" . "_costing_additional_services";
$y{54}{$_} = "usd_amnt_" . "$_" . "_costing_game_breakdown_analytics";
$y{55}{$_} = "usd_amnt_" . "$_" . "_costing_hardware_add_ons";
$y{56}{$_} = "usd_amnt_" . "$_" . "_costing_installation_kits";
$y{57}{$_} = "usd_amnt_" . "$_" . "_costing_match_credits";
$y{58}{$_} = "usd_amnt_" . "$_" . "_costing_other";
$y{59}{$_} = "usd_amnt_" . "$_" . "_costing_rental";
$y{60}{$_} = "usd_amnt_" . "$_" . "_costing_software_licence";
$y{61}{$_} = "usd_amnt_" . "$_" . "_costing_systems";
$y{62}{$_} = "vat_" . "$_" . "_costing_additional_services";
$y{63}{$_} = "vat_" . "$_" . "_costing_game_breakdown_analytics";
$y{64}{$_} = "vat_" . "$_" . "_costing_hardware_add_ons";
$y{65}{$_} = "vat_" . "$_" . "_costing_installation_kits";
$y{66}{$_} = "vat_" . "$_" . "_costing_match_credits";
$y{67}{$_} = "vat_" . "$_" . "_costing_other";
$y{68}{$_} = "vat_" . "$_" . "_costing_rental";
$y{69}{$_} = "vat_" . "$_" . "_costing_software_licence";
$y{70}{$_} = "vat_" . "$_" . "_costing_systems";
Initial commit
2025-11-26 09:31:54 +00:00
foreach my $a (keys %y){
foreach my $b (keys %{$y{$a}}){
add local backups
2026-02-03 12:35:43 +00:00
$ignore{$y{$a}{$b}} = 1 ;
Initial commit
2025-11-26 09:31:54 +00:00
$x{$a}{$b} = $i{$y{$a}{$b}} ;
}
}
}
} #------------------------------------------------------------------------------------------
sub new_table {
# my ($insert_part) = @_ ;
$iid = $i{id} ;
%i = () ;
$i{id} = $iid ;
add local backups
2026-02-03 12:35:43 +00:00
for (1 .. 12){
$i{curr_amnt_costing_additional_services} .= "$x{1}{$_};" ;
$i{curr_amnt_costing_game_breakdown_analytics} .= "$x{2}{$_};" ;
$i{curr_amnt_costing_hardware_add_ons} .= "$x{3}{$_};" ;
$i{curr_amnt_costing_installation_kits} .= "$x{4}{$_};" ;
$i{curr_amnt_costing_match_credits} .= "$x{5}{$_};" ;
$i{curr_amnt_costing_other} .= "$x{6}{$_};" ;
$i{curr_amnt_costing_rental} .= "$x{7}{$_};" ;
$i{curr_amnt_costing_software_licence} .= "$x{8}{$_};" ;
$i{curr_amnt_costing_systems} .= "$x{9}{$_};" ;
$i{excl_costing_additional_services} .= "$x{10}{$_};" ;
$i{excl_costing_game_breakdown_analytics} .= "$x{11}{$_};" ;
$i{excl_costing_hardware_add_ons} .= "$x{12}{$_};" ;
$i{excl_costing_installation_kits} .= "$x{13}{$_};" ;
$i{excl_costing_match_credits} .= "$x{14}{$_};" ;
$i{excl_costing_other} .= "$x{15}{$_};" ;
$i{excl_costing_rental} .= "$x{16}{$_};" ;
$i{excl_costing_software_licence} .= "$x{17}{$_};" ;
$i{excl_costing_systems} .= "$x{18}{$_};" ;
$i{excl_delivery_times} .= "$x{19}{$_};" ;
$i{excl_notes} .= "$x{20}{$_};" if $x{20}{$_};
$i{excl_notes} .= "0;" if not $x{20}{$_};
$i{excl_payment_terms} .= "$x{21}{$_};" ;
$i{excl_purchase_summary} .= "$x{22}{$_};" if $x{22}{$_};
$i{excl_purchase_summary} .= "0;" if not $x{22}{$_};
$i{excl_roes} .= "$x{23}{$_};" ;
$i{excl_terms} .= "$x{24}{$_};" ;
$i{item_costing_additional_services} .= "$x{25}{$_};" ;
$i{item_costing_game_breakdown_analytics} .= "$x{26}{$_};" ;
$i{item_costing_hardware_add_ons} .= "$x{27}{$_};" ;
$i{item_costing_installation_kits} .= "$x{28}{$_};" ;
$i{item_costing_match_credits} .= "$x{29}{$_};" ;
$i{item_costing_other} .= "$x{30}{$_};" ;
$i{item_costing_rental} .= "$x{31}{$_};" ;
$i{item_costing_software_licence} .= "$x{32}{$_};" ;
$i{item_costing_systems} .= "$x{33}{$_};" ;
$i{item_purchase_summary} .= "$x{34}{$_};" ;
$i{item_ttl_costing_additional_services} .= "$x{35}{$_};" ;
$i{item_ttl_costing_game_breakdown_analytics} .= "$x{36}{$_};" ;
$i{item_ttl_costing_hardware_add_ons} .= "$x{37}{$_};" ;
$i{item_ttl_costing_installation_kits} .= "$x{38}{$_};" ;
$i{item_ttl_costing_match_credits} .= "$x{39}{$_};" ;
$i{item_ttl_costing_other} .= "$x{40}{$_};" ;
$i{item_ttl_costing_rental} .= "$x{41}{$_};" ;
$i{item_ttl_costing_software_licence} .= "$x{42}{$_};" ;
$i{item_ttl_costing_systems} .= "$x{43}{$_};" ;
$i{qty_costing_additional_services} .= "$x{44}{$_};" ;
$i{qty_costing_game_breakdown_analytics} .= "$x{45}{$_};" ;
$i{qty_costing_hardware_add_ons} .= "$x{46}{$_};" ;
$i{qty_costing_installation_kits} .= "$x{47}{$_};" ;
$i{qty_costing_match_credits} .= "$x{48}{$_};" ;
$i{qty_costing_other} .= "$x{49}{$_};" ;
$i{qty_costing_rental} .= "$x{50}{$_};" ;
$i{qty_costing_software_licence} .= "$x{51}{$_};" ;
$i{qty_costing_systems} .= "$x{52}{$_};" ;
$i{usd_amnt_costing_additional_services} .= "$x{53}{$_};" ;
$i{usd_amnt_costing_game_breakdown_analytics} .= "$x{54}{$_};" ;
$i{usd_amnt_costing_hardware_add_ons} .= "$x{55}{$_};" ;
$i{usd_amnt_costing_installation_kits} .= "$x{56}{$_};" ;
$i{usd_amnt_costing_match_credits} .= "$x{57}{$_};" ;
$i{usd_amnt_costing_other} .= "$x{58}{$_};" ;
$i{usd_amnt_costing_rental} .= "$x{59}{$_};" ;
$i{usd_amnt_costing_software_licence} .= "$x{60}{$_};" ;
$i{usd_amnt_costing_systems} .= "$x{61}{$_};" ;
$i{vat_costing_additional_services} .= "$x{62}{$_};" ;
$i{vat_costing_game_breakdown_analytics} .= "$x{63}{$_};" ;
$i{vat_costing_hardware_add_ons} .= "$x{64}{$_};" ;
$i{vat_costing_installation_kits} .= "$x{65}{$_};" ;
$i{vat_costing_match_credits} .= "$x{66}{$_};" ;
$i{vat_costing_other} .= "$x{67}{$_};" ;
$i{vat_costing_rental} .= "$x{68}{$_};" ;
$i{vat_costing_software_licence} .= "$x{69}{$_};" ;
$i{vat_costing_systems} .= "$x{70}{$_};" ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
# if ($insert_part){
# $sql_insert_1 = qq~INSERT INTO `quotes_min` (~ ;
# $sql_insert_2 = qq~VALUES (~ ;
# }
add local backups
2026-02-03 12:35:43 +00:00
foreach (keys %i){
next if $_ eq 'id' ;
chop $i{$_} ;
Initial commit
2025-11-26 09:31:54 +00:00
# if ($insert_part){
# $sql_insert_1 .= qq~$_,~ ;
# $sql_insert_2 .= qq~'$i{$_}',~ ;
# }
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
# if ($insert_part){
# chop $sql_insert_1 ;
# chop $sql_insert_2 ;
# $sql_insert_2 .= qq~) ;~ ;
# $final_insert = $sql_insert_1 . $sql_insert_2 ;
# &db_min_upd_raw($final_insert) ;
# }
} #------------------------------------------------------------------------------------------
sub update_camera {
# &common_debug("1. update_camera : $i{quote_nr}");
unless ($i{quote_nr}) { $error = qq~NO QUOTE NR~ ; return ; } # &common_debug("update_camera : $error");
$q{quote_nr} = $i{quote_nr} ;
# $q{quote_ref} = $i{ref} ;
$q{id} = $i{id} ;
%i=();
$i{quote_delivery_date} = NULL ;
$i{quote_active_date} = NULL ;
$i{quote_ew_date_from} = NULL ;
$i{quote_ew_date_to} = NULL ;
$i{quote_cam_desc} = NULL ;
$i{quote_cam_excl} = 0 ;
$i{quote_cam_num} = 0 ;
$i{quote_nr} = 0 ;
$i{quote_ref} = NULL ;
# &db_min_ro('cameras','*',"quote_nr='$q{quote_nr}'",'','') ; # &db_min_ro('quotes','*','','','') ;
&db_min_upd('cameras',"quote_nr='$q{quote_nr}'") ; # remove all previous links to this quote
# $i{quote_nr} = $q{quote_nr} ;
# $i{quote_ref} = $q{quote_ref} ;
for (1 .. $camera_cnt_allowed) {
# &common_debug("$_. camera_nr_$_\_camera_details [".$q{"camera_nr_$_\_camera_details"}."]");
next unless $q{"camera_nr_$_\_camera_details"} ;
%i=();
$i{quote_nr} = $q{quote_nr} ;
$i{quote_delivery_date} = $q{"delivery_date_$_\_camera_details"} if $q{"delivery_date_$_\_camera_details"} ;
$i{quote_active_date} = $q{"active_date_$_\_camera_details"} if $q{"active_date_$_\_camera_details"} ;
$i{quote_ew_date_from} = $q{"ew_date_from_$_\_camera_details"} if $q{"ew_date_from_$_\_camera_details"} ;
$i{quote_ew_date_to} = $q{"ew_date_to_$_\_camera_details"} if $q{"ew_date_to_$_\_camera_details"} ;
$i{quote_cam_desc} = $q{"description_$_\_camera_details"} if $q{"description_$_\_camera_details"} ;
$i{quote_cam_excl} = $q{"excl_$_\_camera_details"} if $q{"excl_$_\_camera_details"} ;
$i{quote_cam_num} = $_ if $_ ;
$i{quote_ref} = $q{"ref_$_\_camera_details"} if $q{"ref_$_\_camera_details"} ;
my @valarr = split(/\:/,$q{"camera_nr_$_\_camera_details"}) ; # $id:camera_nr:camera_system_id:serial_nr:date_delivered:camera_system:item_code:date_active
my $abrv_cam_system = substr($valarr[1],0,3);
# &common_debug("[".$q{"camera_nr_$_\_camera_details"}."] abrv_cam_system=$abrv_cam_system, abrv_prev_cam_system=$abrv_prev_cam_system, prev_cam_nr=$prev_cam_nr, link to: c_excl_$_\_camera_details") ;
if ($abrv_cam_system eq 'VPU' and ($abrv_prev_cam_system eq 'S1' or $abrv_prev_cam_system eq 'S2' or $abrv_prev_cam_system_other eq 'Prime' or $abrv_prev_cam_system_other eq 'Coach')) {
# $trigger_jquery .= qq~\$("#c_excl_$_\_camera_details").append("<i class='glyphicons glyphicons-link fright' title='Linked to camera head $prev_cam_nr' data-toggle='tooltip' data-placement='right'></i>");\$('[data-toggle="tooltip"]').tooltip({html:true}) ;~;
my $s1_cnt = $_-1;
$i{quote_linked_vpu} = $q{"serial_nr_$s1_cnt\_camera_details"} if $q{"serial_nr_$s1_cnt\_camera_details"} ;
}
$abrv_prev_cam_system = substr($abrv_cam_system,0,2);
$abrv_prev_cam_system_other = substr($abrv_cam_system,0,5);
$prev_cam_nr = $valarr[1] ;
my $cam_id = $valarr[0] ;
next unless $cam_id ;
&db_min_upd('cameras',"id='$cam_id'") ; # add the new details from the screen
# $i{quote_linked_vpu} = '' ;
}
$i{id} = $q{id} ;
} #------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
sub copy {
Initial commit
2025-11-26 09:31:54 +00:00
unless ($i{id}) { $error = qq~NO ID~ ; return ; }
local $copy_id = $i{id} ;
&db_min_copy($table,$copy_id) ;
&db_min_copy('quotes_min',$copy_id) ;
} #------------------------------------------------------------------------------------------
sub delete {
my $dbid = 'id' ; if ($uniq_id) { $dbid = $uniq_id ; }
unless ($i{$dbid}) { $error = uc "NO $dbid" ; return ; }
&db_min_delete('quotes',"$dbid='$i{$dbid}'") ;
&db_min_delete('quotes_min',"$dbid='$i{$dbid}'") ;
}#------------------------------------------------------------------------------------------
sub process_upload_ifields {
add local backups
2026-02-03 12:35:43 +00:00
foreach (keys %uploads_file) { $i{$_} = $uploads_file{$_} ; $ignore{$_} = '' ; }
Initial commit
2025-11-26 09:31:54 +00:00
} #------------------------------------------------------------------------------------------
sub set_default_i_vals {
my @camera_details = ('camera_nr_','serial_nr_','description_','active_date_','delivery_date_','ew_date_from_','ew_date_to_','ref_','excl_') ;
add local backups
2026-02-03 12:35:43 +00:00
Initial commit
2025-11-26 09:31:54 +00:00
for (1 .. $camera_cnt_allowed) {
foreach my $cdet_ (@camera_details) {
my $col = "$cdet_$_\_camera_details";
$ignore{$col} = 1 ; # set the value to only be the id
$q{$col} = $i{$col} ; # set the value to only be the id
}
}
my $srch_where_sql = "`id`='$i{id}'" ;
$iaction eq 'save' ? &db_min_ro($table,'*','','id DESC',1) : &db_min_ro($table,'*',$srch_where_sql,'','') ;
foreach (sort { $col_name{$a} cmp $col_name{$b} } keys %col_name) {
$col = $col_name{$_} ;
&common_min_debug("1. [$col] [$i{$col}]");
if (substr($col,0,4) eq 'vat_' or substr($col,0,5) eq 'excl_' or substr($col,0,4) eq 'qty_') {
unless ($i{$col}) { $i{$col} = 0 ; }
} # only create the column if it doesn't exist
if (substr($col,0,9) eq 'usd_amnt_' or substr($col,0,10) eq 'curr_amnt_' or substr($col,0,9) eq 'item_ttl_' or substr($col,-6,6) eq '_total') {
unless ($i{$col}) { $i{$col} = '0.00' ; }
}
# # if (substr($col,0,14) eq 'delivery_date_' or substr($col,0,12) eq 'active_date_') {
# if (substr($col,0,14) eq 'delivery_date_' or substr($col,0,12) eq 'active_date_' or substr($col,0,8) eq 'ew_date_') {
# unless ($i{$col}) { $i{$col} = NULL ; }
# }
# if ((substr($col,6,9) eq '_costing_' and substr($col,0,5) eq 'item_' and $i{$col}) or ($col eq 'quote_to' and $i{$col}) or (substr($col,-15,15) eq '_camera_details' and substr($col,0,10) eq 'camera_nr_' and $i{$col})) {
# if ((substr($col,6,9) eq '_costing_' and substr($col,0,5) eq 'item_' and $i{$col}) or ($col eq 'quote_to' and $i{$col})) {
if (((substr($col,6,9) eq '_costing_' or substr($col,7,9) eq '_costing_') and substr($col,0,5) eq 'item_' and $i{$col}) or ($col eq 'quote_to' and $i{$col})) { # item_1_costing_match_credits
my @valarr = split(/\:/,$i{$col}) ;
$i{$col} = $valarr[0] ; # set the value to only be the id
}
# if (substr($col,-15,15) eq '_camera_details') {
# # if (substr($col,0,9) eq 'camera_nr') {
# # my @valarr = split(/\:/,$i{$col}) ;
# # $q{$col} = $i{$col} ; # set the value to only be the id
# # $i{$col} = $valarr[0] ; # set the value to only be the id
# # } elsif (substr($col,0,5) eq 'excl_') {
# # # do nothing
# # } else {
# $ignore{$col} = 1 ; # set the value to only be the id
# $q{$col} = $i{$col} ; # set the value to only be the id
# # }
# }
# &common_min_debug("2. [$col] [$i{$col}]");
}
add local backups
2026-02-03 12:35:43 +00:00
$i{terms} = 0 unless $i{terms} ;
$i{quote_accepted} = 0 unless $i{quote_accepted} ;
$i{quote_pending} = 0 unless $i{quote_pending} ;
$i{quote_cancelled} = 0 unless $i{quote_cancelled} ;
$i{annual_invoice} = 0 unless $i{annual_invoice} ;
$ignore{invoice_date} = 1 unless length($i{invoice_date}) == 10 ;
Initial commit
2025-11-26 09:31:54 +00:00
} #----------------------------------------------------------------------------------------
sub list_screen {
&db_open_ro ;
our $db_ignore_open_close = 1 ; # do one open and one close instead of repeating it
# my $tables = 'towns,airport_codes' ;
# &db_min_ro($tables,'towns.id,towns.airport_code,airport_codes.name,towns.name','towns.airport_code=airport_codes.iata_code','','') ;
# foreach my $id (keys %{$db{$tables}}) { $user{$id} = $db{$tables}{$id}{name} ; }
# &db_min_ro('users','id,name','','','') ;
# foreach my $id (keys %{$db{users}}) { $user{$id} = $db{users}{$id}{name} ; }
# &db_min_ro('customers','id,name','','','') ;
# foreach my $id (keys %{$db{customers}}) { $customers{$id} = $db{customers}{$id}{name} ; }
# &db_min_ro('camera_systems','*','','','') ;
# foreach my $id (keys %{$db{camera_systems}}) { $camera_system{$id} = $db{camera_systems}{$id}{name} ; }
# &db_min_ro('countries','*','','','') ;
# foreach my $id (keys %{$db{countries}}) { $country{$id} = $db{countries}{$id}{name} ; }
if ($iaction eq 'accepted' or $i{options} eq 'accepted') { push @report_sql, "$table.quote_accepted='1'" ; }
if ($iaction eq 'closed' or $i{options} eq 'closed') { push @report_sql, "($table.quote_cancelled='1' OR ($table.quote_expiry<'$now_year-$now_mm-$now_dd' AND $table.quote_accepted<>'1'))" ; }
if ($iaction eq 'pending' or $i{options} eq 'pending') { push @report_sql, "$table.quote_pending='1'" ; }
if ($iaction eq 'list' or $i{options} eq 'list') { push @report_sql, "$table.quote_cancelled<>'1'" ; }
my $t1 = $table ;
my $t2 = 'countries' ;
my $t3 = 'camera_systems' ;
my $t4 = 'customers' ;
add local backups
2026-02-03 12:35:43 +00:00
our $tables = "$t1,$t2,$t3,$t4" ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
push @report_sql, "($t1.country_shipped=$t2.id)" ;
push @report_sql, "($t1.camera_system_id=$t3.id)" ;
push @report_sql, "($t1.quote_to=$t4.id)" ;
Initial commit
2025-11-26 09:31:54 +00:00
my $srch_where_sql = join(' AND ', @report_sql) ;
add local backups
2026-02-03 12:35:43 +00:00
&db_min_ro($tables,"$t1.id AS 'quote_id',$t1.quote_nr,$t1.ref,$t1.qty,$t1.quote_expiry,$t1.quote_to,$t1.invoice_nr,$t1.quote_date,$t1.type,$t1.currency,$t1.country_shipped,$t1.total_1_purchase_summary,$t1.total_2_purchase_summary,$t1.total_3_purchase_summary,$t1.quote_cancelled,$t1.quote_accepted,$t1.quote_pending,$t1.activetab,$t2.name AS 'country',$t3.name AS 'camera_system',$t4.name AS 'customer'",$srch_where_sql,'','') ;
Initial commit
2025-11-26 09:31:54 +00:00
$db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
&db_close_conn ;
&tab_hash ; # load for PDF links
# &common_load_quote_vars("cameras.quote_nr>0 AND cameras.quote_cam_num='1' AND (cameras.quote_delivery_date IS NOT NULL or cameras.quote_active_date IS NOT NULL) AND cameras.quote_nr=quotes.quote_nr");
&common_load_quote_vars("cameras.quote_nr>0 AND cameras.quote_nr=quotes.quote_nr");
# foreach (keys %quote_cam_delivery_date) {
# $store_quote_cam_delivery_date{$_}{1} = $quote_cam_delivery_date{$_}{1} ;
# }
# foreach (keys %quote_cam_delivery_date) {
# $store_quote_cam_active_date{$_}{1} = $quote_cam_active_date{$_}{1} ;
# }
&quote_list ; # load for PDF links
# our $fnsort = 1 ; # used &common_min_screen3 for fnsort column &common_min_table
if ($iaction eq 'update' or $iaction eq 'save'){
&common_min_extra_crumb("list-$lcpage\s","List $ucfirstpage\s") ;
}
} #------------------------------------------------------------------------------------------
sub quote_list {
add local backups
2026-02-03 12:35:43 +00:00
our @sql_col_display = ("nr","date","customer","ref","country","camera_system_id","qty","curr","amount","invoice_nr","type","date_delivered","date_active","flag","") ;
Initial commit
2025-11-26 09:31:54 +00:00
if ($i{export_to_excel}) { &report_xls_export_header("Quotes",'quotes') ; }
# &common_min_debug("[$table]");
foreach my $id (sort {$b <=> $a} keys %{$db{$tables}}) {
# &common_min_debug("[$id] [$tables] [$db{$tables}{$id}{quote_nr} ]");
unless ($id) { next ; }
add local backups
2026-02-03 12:35:43 +00:00
my $quote_expiry = $db{$tables}{$id}{quote_expiry} ; $quote_expiry =~ s/\-//iog ;
Initial commit
2025-11-26 09:31:54 +00:00
# my $quote_date = $db{$tables}{$id}{quote_date} ; $quote_date =~ s/\-//iog ;
# if ($quote_expiry and $quote_expiry<"$now_year$now_mm$now_dd" and $iaction ne 'report' and $iaction ne 'accepted' and $iaction ne 'closed' and $iaction ne 'all') { next ; }
# $yr = substr($quote_date, 0, 4) ;
# $mm = substr($quote_date, 4, 2) ;
# $dd = substr($quote_date, 6, 2) ;
# my ($yr2,$mm2,$dd2) = Add_Delta_Days($yr,$mm,$dd,60); #
# $mm2 = sprintf("%02s", $mm2) ;
# $dd2 = sprintf("%02s", $dd2) ;
# $quote_date = "$yr2$mm2$dd2" ;
# if ($quote_date and $quote_date<"$now_year$now_mm$now_dd" and $db{$tables}{$id}{quote_accepted}!=1 and
# $iaction ne 'report' and $iaction ne 'accepted' and $iaction ne 'closed' and $iaction ne 'all' and
# $i{options} ne 'accepted' and $i{options} ne 'closed' and $i{options} ne 'all')
# { next ; }
if ($quote_expiry and $quote_expiry<"$now_year$now_mm$now_dd" and $db{$tables}{$id}{quote_accepted}!=1 and
$iaction ne 'report' and $iaction ne 'accepted' and $iaction ne 'closed' and $iaction ne 'all' and
$i{options} ne 'accepted' and $i{options} ne 'closed' and $i{options} ne 'all')
{ next ; }
# &common_min_debug("[$id] [$tables] [$db{$tables}{$id}{quote_nr} ]");
$print_tbody .= qq~<tr>~ ;
$xlscol=0;
my $quote_nr = $db{$tables}{$id}{quote_nr} ;
foreach (@sql_col_display) {
unless ($_) { next ; } # blank for the buttons column
my $val = $db{$tables}{$id}{$_} ;
my $align = '' ; my $nowrap = '' ;
if ($_ eq 'ref') { $nowrap = 'nowrap' ; ; }
if ($_ eq 'customer') { $val = $db{$tables}{$id}{customer} ; $nowrap = 'nowrap' ; ; }
add local backups
2026-02-03 12:35:43 +00:00
if ($_ eq 'date') { $val = $db{$tables}{$id}{quote_date} ; }
Initial commit
2025-11-26 09:31:54 +00:00
if ($_ eq 'date_delivered') { $val = $quote_cam_delivery_date{$quote_nr}{1} ; $align = qq~ class="dt-center"~ ; }
if ($_ eq 'date_active') { $val = $quote_cam_active_date{$quote_nr}{1} ; $align = qq~ class="dt-center"~ ; }
add local backups
2026-02-03 12:35:43 +00:00
if ($_ eq 'type') { $val = ucfirst $db{$tables}{$id}{type} ; $align = qq~ class="dt-center"~ ; }
Initial commit
2025-11-26 09:31:54 +00:00
if ($_ eq 'camera_system_id') { $val = $db{$tables}{$id}{camera_system} ; }
add local backups
2026-02-03 12:35:43 +00:00
if ($_ eq 'curr') { $val = $db{$tables}{$id}{currency} ; $align = qq~ class="dt-center"~ ; }
Initial commit
2025-11-26 09:31:54 +00:00
if ($_ eq 'country') { $val = $db{$tables}{$id}{country} ; }
# if ($_ eq 'qty') { $val = $cnt_cams{$quote_nr} ; }
if ($_ eq 'qty') { $val = $db{$tables}{$id}{qty} ; $val = '' if $val==0; $align = qq~ class="dt-center"~ ; }
if ($_ eq 'currency') { $align = qq~ class="dt-center"~ ; }
if ($_ eq 'amount') {
add local backups
2026-02-03 12:35:43 +00:00
my $ttl = sprintf("%0.2f",($db{$tables}{$id}{total_1_purchase_summary} + $db{$tables}{$id}{total_2_purchase_summary} + $db{$tables}{$id}{total_3_purchase_summary})) ;
$val = &common_commify($ttl) ;
Initial commit
2025-11-26 09:31:54 +00:00
$align = qq~ class="dt-right"~ ;
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
if ($_ eq 'nr') {
add local backups
2026-02-03 12:35:43 +00:00
my $class = 'info' ;
if ($db{$tables}{$id}{quote_cancelled}) {
$class = 'danger' ;
} elsif ($db{$tables}{$id}{quote_accepted}) {
$class = 'success' ;
} elsif ($quote_expiry and $quote_expiry<"$now_year$now_mm$now_dd") {
$class = 'danger' ;
} elsif ($db{$tables}{$id}{quote_pending}) {
$class = 'warning' ;
}
$val = qq~<a class="btn btn-$class btn-xs" href="javascript:editMinItem('$id');">$quote_nr</a>~ ;
Initial commit
2025-11-26 09:31:54 +00:00
}
if ($i{export_to_excel}) {
&report_xls_export_process_cell('','',$val) ; # ------------------------------------------------------------------------- HTML AFTER
$xlscol++;
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
$print_tbody .= qq~<td $nowrap $align>$val</td>~ ;
}
my $delete_butt = '' ; my $edit_butt = '' ;
my $quote_nr = $quote_nr ; $quote_nr =~ s/'//iog; unless ($quote_nr) { $quote_nr = $id ; }
# if ($useropts{boss}{$username} or $useropts{super}{$username}) { }
add local backups
2026-02-03 12:35:43 +00:00
$edit_butt = qq~<a class="btn btn-info btn-xs" href="javascript:editMinItem('$id');"><i class="glyphicon glyphicon-edit icon-white"></i></a>~ ;
$delete_butt = qq~<a class="btn btn-danger btn-xs" href="javascript:deleteMinItem('$quote_nr','$id')"><i class="glyphicon glyphicon-trash icon-white"></i></a>~ ;
Initial commit
2025-11-26 09:31:54 +00:00
$copy_butt = qq~<a class="btn btn-success btn-xs" href="javascript:copyMinItem('$id');" title="Copy" data-toggle="tooltip" data-placement="top"><i class="glyphicon glyphicon-retweet icon-white"></i></a>~;
add local backups
2026-02-03 12:35:43 +00:00
$pdf_butt = qq~<a class="btn btn-primary btn-xs" href="javascript:dlgMdl('$useropts{scripts}/pdf/quote_pdf.pl?$id&$tabcnt{$db{$tables}{$id}{activetab}}&$tabsec{$db{$tables}{$id}{activetab}}','QUOTE $quote_nr','','waybill-dialog');"><i class="glyphicon glyphicon-print"></i></a>~;
Initial commit
2025-11-26 09:31:54 +00:00
$print_tbody .= qq~<td nowrap>&nbsp;$edit_butt&nbsp;$copy_butt&nbsp;$delete_butt&nbsp;$pdf_butt</td></tr>~ ;
if ($i{export_to_excel}) { $xlsrow++ ; }
}
if ($i{export_to_excel}) { &report_xls_export_footer('L',15,'quotes') ; }
# $fnsortcol = 8 ; # order by ol devices col
$print_more_boxes .= qq~<br><button type="button" class="btn btn-default" onclick="history.go(-1);">Back</button><br><br>~ ;
&common_min_extra_crumb("search-$lcpage\s","Search Screen") ;
} #-------------------------------------------------------------------------------
sub thead {
&common_min_thead ;
} #-------------------------------------------------------------------------------
sub add_db_fields {
&hidden_fields ;
$hidden{id} = 2 ;
} #------------------------------------------------------------------------------------------
sub edit_db_fields {
&hidden_fields ;
$hidden{id} = 1 ;
# $readonly{ref} = 'READONLY' ;
} #------------------------------------------------------------------------------------------
sub hidden_fields {
$ignore{iattachcosting_delivery_note} = 1 ;
$ignore{iattachcosting_other_1} = 1 ;
$ignore{iattachcosting_other_2} = 1 ;
$ignore{iattachcosting_other_3} = 1 ;
$ignore{iattachcosting_photos} = 1 ;
$ignore{iattachcosting_po} = 1 ;
$ignore{iattachcosting_signed_quote} = 1 ;
$ignore{iattachcosting_sla} = 1 ;
$ignore{iattachcosting_t_cs} = 1 ;
$ignore{date_to} = 1 ;
$ignore{date_from} = 1 ;
$ignore{iaction} = 1 ;
$required{qty} = 4 ; # number
$required{quote_to} = 1 ;
$required{quote_nr} = 1 ;
$readonly{quote_nr} = 'READONLY' ;
$required{currency} = 1 ;
$required{roe} = 1 ;
$hidden{quote_date} = 2 ;
$hidden{last_update} = 2 ;
$hidden{user_id} = 2 ;
$hidden{datetime} = 2 ;
$ignore{saveandexit} = 1 ;
$trigger_jquery_raw .= qq~var curr_changed=0;~;
$trigger_jquery_raw .= qq~\$.validate();~;
$extra_js .= qq~<script src="$useropts{'js'}/jquery.form-validator.min.js"></script>~;
} #------------------------------------------------------------------------------------------
sub add_screen {
&db_open_ro;
$db_ignore_open_close=1;
$selected{max_cams}{10} = 'SELECTED';
&select_opts('') ;
%col_name = () ;
&db_min_ro($table,'*',"id > 1 AND id < 10",'','') ;
$page_title = substr($page_title,0,-1) ;
$db{$table}{''}{quote_nr} = &db_min_get_max($table,'quote_nr') ;
$db{$table}{''}{qty} = 0 ;
# if ($username eq 'rory') { $db{$table}{''}{quote_nr} = 1000 ; }
&add_db_fields ;
&build_boxes('','save') ;
$db_ignore_open_close=0;
&db_close_conn;
} #------------------------------------------------------------------------------------------
sub edit_screen {
unless ($i{id}) { $warning = qq(NO ID) ; return ; }
&db_open_ro;
$db_ignore_open_close=1;
# DO NOT DELETE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ----------------------------------------------------------------------
#transfer data from event_quotes to event_quotes_min
# &common_debug("DELETE FROM quotes_min WHERE id != 203 ") ;
# &common_debug("") ;
# $sql_insert = "INSERT INTO quotes_min (
# id,
# curr_amnt_costing_additional_services ,
# curr_amnt_costing_game_breakdown_analytics ,
# curr_amnt_costing_hardware_add_ons ,
# curr_amnt_costing_installation_kits ,
# curr_amnt_costing_match_credits,
# curr_amnt_costing_other ,
# curr_amnt_costing_rental ,
# curr_amnt_costing_software_licence ,
# curr_amnt_costing_systems ,
# excl_costing_additional_services ,
# excl_costing_game_breakdown_analytics ,
# excl_costing_hardware_add_ons ,
# excl_costing_installation_kits ,
# excl_costing_match_credits ,
# excl_costing_other,
# excl_costing_rental ,
# excl_costing_software_licence ,
# excl_costing_systems ,
# excl_delivery_times,
# excl_notes,
# excl_payment_terms ,
# excl_purchase_summary ,
# excl_roes ,
# excl_terms ,
# item_costing_additional_services,
# item_costing_game_breakdown_analytics,
# item_costing_hardware_add_ons,
# item_costing_installation_kits,
# item_costing_match_credits,
# item_costing_other,
# item_costing_rental,
# item_costing_software_licence,
# item_costing_systems,
# item_purchase_summary ,
# item_ttl_costing_additional_services,
# item_ttl_costing_game_breakdown_analytics,
# item_ttl_costing_hardware_add_ons,
# item_ttl_costing_installation_kits,
# item_ttl_costing_match_credits,
# item_ttl_costing_other,
# item_ttl_costing_rental,
# item_ttl_costing_software_licence,
# item_ttl_costing_systems,
# qty_costing_additional_services,
# qty_costing_game_breakdown_analytics,
# qty_costing_hardware_add_ons,
# qty_costing_installation_kits,
# qty_costing_match_credits,
# qty_costing_other,
# qty_costing_rental,
# qty_costing_software_licence,
# qty_costing_systems,
# usd_amnt_costing_additional_services,
# usd_amnt_costing_game_breakdown_analytics,
# usd_amnt_costing_hardware_add_ons,
# usd_amnt_costing_installation_kits,
# usd_amnt_costing_match_credits,
# usd_amnt_costing_other,
# usd_amnt_costing_rental,
# usd_amnt_costing_software_licence,
# usd_amnt_costing_systems,
# vat_costing_additional_services,
# vat_costing_game_breakdown_analytics,
# vat_costing_hardware_add_ons,
# vat_costing_installation_kits,
# vat_costing_match_credits,
# vat_costing_other,
# vat_costing_rental,
# vat_costing_software_licence,
# vat_costing_systems
# ) VALUES " ;
# $sql_select = "" ;
# %concat = () ;
# for (1 .. 12){
# $concat{20} .= "excl_" . "$_" . "_notes,';',";
# }
# for (1 .. 7){
# $concat{1} .= "curr_amnt_" . "$_" . "_costing_additional_services,';',";
# $concat{3} .= "curr_amnt_" . "$_" . "_costing_hardware_add_ons,';',";
# $concat{4} .= "curr_amnt_" . "$_" . "_costing_installation_kits,';',";
# $concat{10} .= "excl_" . "$_" . "_costing_additional_services,';',";
# $concat{12} .= "excl_" . "$_" . "_costing_hardware_add_ons,';',";
# $concat{13} .= "excl_" . "$_" . "_costing_installation_kits,';',";
# $concat{25} .= "item_" . "$_" . "_costing_additional_services,';',";
# $concat{27} .= "item_" . "$_" . "_costing_hardware_add_ons,';',";
# $concat{28} .= "item_" . "$_" . "_costing_installation_kits,';',";
# $concat{35} .= "item_ttl_" . "$_" . "_costing_additional_services,';',";
# $concat{37} .= "item_ttl_" . "$_" . "_costing_hardware_add_ons,';',";
# $concat{38} .= "item_ttl_" . "$_" . "_costing_installation_kits,';',";
# $concat{44} .= "qty_" . "$_" . "_costing_additional_services,';',";
# $concat{46} .= "qty_" . "$_" . "_costing_hardware_add_ons,';',";
# $concat{47} .= "qty_" . "$_" . "_costing_installation_kits,';',";
# $concat{53} .= "usd_amnt_" . "$_" . "_costing_additional_services,';',";
# $concat{55} .= "usd_amnt_" . "$_" . "_costing_hardware_add_ons,';',";
# $concat{56} .= "usd_amnt_" . "$_" . "_costing_installation_kits,';',";
# $concat{62} .= "vat_" . "$_" . "_costing_additional_services,';',";
# $concat{64} .= "vat_" . "$_" . "_costing_hardware_add_ons,';',";
# $concat{65} .= "vat_" . "$_" . "_costing_installation_kits,';',";
# }
# for (1 .. 6){
# $concat{21} .= "excl_" . "$_" . "_payment_terms,';',";
# $concat{23} .= "excl_" . "$_" . "_roes,';',";
# }
# for (1 .. 5){
# $concat{6} .= "curr_amnt_" . "$_" . "_costing_other,';',";
# $concat{15} .= "excl_" . "$_" . "_costing_other,';',";
# $concat{30} .= "item_" . "$_" . "_costing_other,';',";
# $concat{40} .= "item_ttl_" . "$_" . "_costing_other,';',";
# $concat{49} .= "qty_" . "$_" . "_costing_other,';',";
# $concat{58} .= "usd_amnt_" . "$_" . "_costing_other,';',";
# $concat{67} .= "vat_" . "$_" . "_costing_other,';',";
# }
# for (1 .. 4){
# $concat{5} .= "curr_amnt_" . "$_" . "_costing_match_credits,';',";
# $concat{14} .= "excl_" . "$_" . "_costing_match_credits,';',";
# $concat{19} .= "excl_" . "$_" . "_delivery_times,';',";
# $concat{29} .= "item_" . "$_" . "_costing_match_credits,';',";
# $concat{39} .= "item_ttl_" . "$_" . "_costing_match_credits,';',";
# $concat{48} .= "qty_" . "$_" . "_costing_match_credits,';',";
# $concat{57} .= "usd_amnt_" . "$_" . "_costing_match_credits,';',";
# $concat{66} .= "vat_" . "$_" . "_costing_match_credits,';',";
# }
# for (1 .. 3){
# $concat{8} .= "curr_amnt_" . "$_" . "_costing_software_licence,';',";
# $concat{9} .= "curr_amnt_" . "$_" . "_costing_systems,';',";
# $concat{17} .= "excl_" . "$_" . "_costing_software_licence,';',";
# $concat{18} .= "excl_" . "$_" . "_costing_systems,';',";
# $concat{22} .= "excl_" . "$_" . "_purchase_summary,';',";
# $concat{32} .= "item_" . "$_" . "_costing_software_licence,';',";
# $concat{33} .= "item_" . "$_" . "_costing_systems,';',";
# $concat{34} .= "item_" . "$_" . "_purchase_summary,';',";
# $concat{42} .= "item_ttl_" . "$_" . "_costing_software_licence,';',";
# $concat{43} .= "item_ttl_" . "$_" . "_costing_systems,';',";
# $concat{51} .= "qty_" . "$_" . "_costing_software_licence,';',";
# $concat{52} .= "qty_" . "$_" . "_costing_systems,';',";
# $concat{60} .= "usd_amnt_" . "$_" . "_costing_software_licence,';',";
# $concat{61} .= "usd_amnt_" . "$_" . "_costing_systems,';',";
# $concat{69} .= "vat_" . "$_" . "_costing_software_licence,';',";
# $concat{70} .= "vat_" . "$_" . "_costing_systems,';',";
# }
# for (1 .. 2){
# $concat{2} .= "curr_amnt_" . "$_" . "_costing_game_breakdown_analytics,';',";
# $concat{7} .= "curr_amnt_" . "$_" . "_costing_rental,';',";
# $concat{11} .= "excl_" . "$_" . "_costing_game_breakdown_analytics,';',";
# $concat{16} .= "excl_" . "$_" . "_costing_rental,';',";
# $concat{26} .= "item_" . "$_" . "_costing_game_breakdown_analytics,';',";
# $concat{31} .= "item_" . "$_" . "_costing_rental,';',";
# $concat{36} .= "item_ttl_" . "$_" . "_costing_game_breakdown_analytics,';',";
# $concat{41} .= "item_ttl_" . "$_" . "_costing_rental,';',";
# $concat{45} .= "qty_" . "$_" . "_costing_game_breakdown_analytics,';',";
# $concat{50} .= "qty_" . "$_" . "_costing_rental,';',";
# $concat{54} .= "usd_amnt_" . "$_" . "_costing_game_breakdown_analytics,';',";
# $concat{59} .= "usd_amnt_" . "$_" . "_costing_rental,';',";
# $concat{63} .= "vat_" . "$_" . "_costing_game_breakdown_analytics,';',";
# $concat{68} .= "vat_" . "$_" . "_costing_rental,';',";
# }
# for (1 .. 1){
# $concat{24} .= "excl_" . "$_" . "_terms,';',";
# }
# for (1 .. 70){
# chop $concat{$_} ;
# chop $concat{$_} ;
# chop $concat{$_} ;
# chop $concat{$_} ;
# chop $concat{$_} ;
# $sql_select .= "concat($concat{$_}) AS 'concat_$_'," ;
# }
# chop $sql_select ;
# &db_min_ro('quotes',"id, $sql_select","",'','') ;
# foreach my $iid (sort keys %{$db{quotes}}){
# next if $iid == 203 ;
# $sql_insert .= "($iid" ;
# for (1 .. 70){
# $c = "concat_" . "$_" ;
# $sql_insert .= qq(,'$db{quotes}{$iid}{$c}') ;
# }
# $sql_insert .= ")," ;
# }
# chop $sql_insert ;
# $sql_insert .= ";" ;
# &common_debug("TRANSFER DATA: $sql_insert") ;
#----------------------------------------------------------------------------
&db_min_ro('quotes_pdf_titles','*',"quote_id='$i{id}'",'','') ;
&db_min_ro('quotes_min','*',"id='$i{id}'",'','') ;
# unless ($iaction eq 'save' or $iaction eq 'update') {
&db_min_ro($table,'*',"id='$i{id}'",'','') ;
# }
$max_cams = $db{$table}{$i{id}}{max_cams} if $db{$table}{$i{id}}{max_cams} ;
$page_title = substr($page_title,0,-1) ;
$page_title .= " : $i{id}" ;
# our $open_new_tab = qq(target="_blank") ; # opens booking page in a new tab
&common_min_footer('id',"$lcpage\s");
&edit_db_fields ;
$selected{max_cams}{$db{$table}{$i{id}}{max_cams}} = 'SELECTED';
&select_opts($i{id}) ;
our $saveandexit = 1 ;
&build_boxes($i{id},'update') ;
$db_ignore_open_close=0;
&db_close_conn;
&common_min_extra_crumb("search-$lcpage\s","Search $ucfirstpage\s") ;
} #------------------------------------------------------------------------------------------
sub build_boxes {
my ($id,$action) = @_ ;
our @jquery_trigger_fields = () ; our @jquery_custom_vat_ids = () ; our @jquery_duty_ids = () ;
push @jquery_trigger_fields, 'inputRoe' ;
push @jquery_trigger_fields, 'selectPeriod' ;
# push @jquery_trigger_fields, 'selectDiscount' ;
&tab_curr_symbols;
foreach $col(keys %required) {
&common_min_forms_required ;
}
add local backups
2026-02-03 12:35:43 +00:00
Initial commit
2025-11-26 09:31:54 +00:00
our $tab_cnt = 0 ;
$print_box_content_rows .= &common_min_forms_start($table) ;
#--------------------------------------------------------------------------
$print_box_content_rows .= qq(<div class='row'><div class='col-md-12'>) ;
&build_boxes_top($id);
$print_box_content_rows .= qq(</div></div>) ;
#--------------------------------------------------------------------------
$print_box_content_rows .= qq(<div class='row'>) ;
&tab_cnt;
$print_box_content_rows .= qq(<div class="box col-md-12">
<ul class="nav nav-tabs" id="myTab">);
foreach (sort {$a<=>$b} keys %cntxt) {
my $tab_name = &tab_names($_) ; my $c_actv = '' ; # if ($_==1) { $c_actv = 'class="active"' ; }
if (($_==1) and ($db{$table}{$id}{activetab} eq '')) {
$c_actv = 'class="active"' ;
}
elsif ($db{$table}{$id}{activetab} eq $tab_name) {
$c_actv = 'class="active"' ;
}
# &common_min_debug("activetab [$tab_name] $c_actv ");
$print_box_content_rows .= qq(<li id="$tab_name" $c_actv><a href="#$cntxt{$_}">$tab_name</a></li>);
$tab_cnt++;
}
$print_box_content_rows .= qq(</ul>
<div id="myTabContent" class="tab-content">);
our %tab_sections = () ;
add local backups
2026-02-03 12:35:43 +00:00
foreach (keys %cntxt) {
Initial commit
2025-11-26 09:31:54 +00:00
my $tab_name = &tab_names($_) ; my $active = '' ;
if (($_==1) and ($db{$table}{$id}{activetab} eq '')) {
$active = 'active' ;
add local backups
2026-02-03 12:35:43 +00:00
}
elsif ($db{$table}{$id}{activetab} eq $tab_name) {
Initial commit
2025-11-26 09:31:54 +00:00
$active = 'active' ;
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
my $colsleft = 12 ; my $showright = '' ;
add local backups
2026-02-03 12:35:43 +00:00
if ($cntxt{$_} eq 'one' or $cntxt{$_} eq 'six') {
Initial commit
2025-11-26 09:31:54 +00:00
$colsleft = 6 ; $showright = 1 ;
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
# &common_min_debug("activetab [$tab_name] $active ");
$print_box_content_rows .= qq~<div class="tab-pane $active" id="$cntxt{$_}">~;
$print_box_content_rows .= qq~<div class='row' style="margin: 2px 4px 0 -10px;">~ ;
$print_box_content_rows .= qq~<div class='col-md-$colsleft'>~ ;
&build_boxes_left($id,$_);
$print_box_content_rows .= qq~</div>~ ;
if ($showright) {
$print_box_content_rows .= qq~<div class='col-md-6'>~ ;
&build_boxes_right($id,$_);
$print_box_content_rows .= qq~</div>~ ;
}
$print_box_content_rows .= qq~</div>~ ;
$print_box_content_rows .= qq~<div class='row' style="margin: 2px 4px 0 -10px;">~ ;
$print_box_content_rows .= qq~<div class='col-md-12'>~ ;
add local backups
2026-02-03 12:35:43 +00:00
if ($id) {
$print_box_content_rows .= qq~<div class='row'><div class="box col-md-12"><div class="box-inner"><div class="box-content" style="height:47px;">~ ;
$print_box_content_rows .= qq~<a class='btn btn-primary btn-xs' href="javascript:dlgMdl('$useropts{scripts}/pdf/quote_pdf.pl?$id&$_&$tab_sections{$_}','QUOTE $db{$table}{$id}{quote_nr}','','waybill-dialog');" data-title="Quote PDF" data-toggle="tooltip" data-placement="right"><i class="glyphicon glyphicon-print"></i></a>~;
# # if ($username eq 'rory') { $print_box_content_rows .= qq~&nbsp;<a class='btn btn-default btn-xs' href="javascript:dlgMdl('$useropts{scripts}/pdf/warranty_pdf.pl?$id&$_&$tab_sections{$_}','EXTENDED WARRANTY $db{$table}{$id}{quote_nr}','','waybill-dialog');" data-title="Extended Warranty PDF" data-toggle="tooltip" data-placement="right"><i class="glyphicon glyphicon-print"></i></a>~; }
# if ($username eq 'rory' or $username eq 'handre') { $print_box_content_rows .= qq~&nbsp;<a class='btn btn-default btn-xs' href="javascript:dlgMdl('$useropts{scripts}/pdf/warranty_pdf.pl?$id&$_&$tab_sections{$_}','EXTENDED WARRANTY $db{$table}{$id}{quote_nr}','','waybill-dialog');" data-title="Extended Warranty PDF" data-toggle="tooltip" data-placement="right"><i class="glyphicon glyphicon-print"></i></a>~; }
# # $print_box_content_rows .= qq~&nbsp;<a class="btn btn-success btn-xs" href="javascript:copyMinItem('$id');" title="Copy" data-toggle="tooltip" data-placement="top"><i class="glyphicon glyphicon-retweet icon-white"></i></a>~;
$print_box_content_rows .= &common_min_box_foot;
}
Initial commit
2025-11-26 09:31:54 +00:00
$print_box_content_rows .= qq~</div>~ ;
$print_box_content_rows .= qq~</div>~ ;
$print_box_content_rows .= qq~</div>~ ;
}
$print_box_content_rows .= qq(
</div>
</div>
<!--/span-->) ;
$print_box_content_rows .= qq(</div>) ;
#--------------------------------------------------------------------------
$print_box_content_rows .= qq(<div class='row'><div class='col-md-12'>) ;
&build_boxes_bottom($id);
$print_box_content_rows .= qq(</div></div>) ;
#--------------------------------------------------------------------------
$print_box_content_rows .= &common_min_forms_end($id,$table,$action,$skip) ;
my $jquery_trigger_ids = '#' . join(",#",@jquery_trigger_fields) ;
my $jq_tab_var = '' ; my $jq_tab = '' ; my $inp_tab_val = '' ; foreach (keys %cntxt) { $jq_tab_var .= qq(var totalTab_$_=0 ; ) ; $jq_tab .= qq(totalTab_$_=0 ; ) ; } # $inp_tab_val .= qq(\$("#inputTotal_tab_$_").val(totalTab_$_.toFixed(2)) ;) ;
add local backups
2026-02-03 12:35:43 +00:00
$trigger_jquery_raw .= qq~
\$("#selectCurrency").change(function() {
curr_changed=1;
// console.log("1. curr_changed: "+curr_changed) ;
calcCurr();
});
\$('#quotes-form:checkbox').change(function() {
calcAll();
});
function calcCosting(excl,item,qty,usd,conv,vat,ttl)
{
var itval = item.val();
var uval = usd.val();
var cval = conv.val(); // currency amount
var qval = qty.val();
var vval = vat.val();
// var tval = ttl.val();
var xval = excl.val();
var dis = \$("#selectDiscount").val();
var roe = \$("#inputRoe").val(); // getNum()
if (!itval) { calcAll(); return ; }
var arrP = itval.split(":"); // 3:0.00:100.00:200.00:223.00:223.00:250.00:250.00:200.00 // id:freight:nett:main_price:gross_10_1_50:gross_10_51_plus:gross_20_1_50:gross_20_51_plus:gross_50 //
// // var list = { freight:arrP[0], nett:arrP[1], main_price:arrP[2], gross_10_1_50:arrP[3], gross_10_51_plus:arrP[4], gross_20_1_50:arrP[5], gross_20_51_plus:arrP[6], gross_50:arrP[7] };
// var list = { freight:arrP[1], nett:arrP[2], main_price:arrP[3], gross_10_1_50:arrP[4], gross_10_51_plus:arrP[5], gross_20_1_50:arrP[6], gross_20_51_plus:arrP[7], gross_50:arrP[8] };
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
var list = { freight:arrP[1], nett:arrP[2], main_price:arrP[3], source_admin:arrP[4], perc3:arrP[5], perc5:arrP[6], perc6:arrP[6], perc8:arrP[7], perc10:arrP[8], perc15:arrP[9], perc20:arrP[10] };
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if (!qval) { qval=1; qty.val(qval); } // set quantity if blank
if (!uval) // set USD amount if no amount
{
var uval = list.main_price;
if (dis==3 && qval>0)
{
uval=list.perc3;
}
else if (dis==5 && qval>0)
{
uval=list.perc5;
}
else if (dis==6 && qval>0)
{
uval=list.perc6;
}
else if (dis==8 && qval>0)
{
uval=list.perc8;
}
else if (dis==10 && qval>0)
{
uval=list.perc10;
}
else if (dis==15 && qval>0)
{
uval=list.perc15;
}
else if (dis==20 && qval>0)
{
uval=list.perc20;
}
}
// console.log('item: '+item+', uval: '+uval) ;
// if (!uval) // set USD amount if no amount
// {
// var uval = list.main_price;
// // alert('main_price:'+uval) ;
// if (dis==10 && qval>0 && qval<=50)
// {
// uval=list.gross_10_1_50;
// }
// else if (dis==10 && qval>50)
// {
// uval=list.gross_10_51_plus;
// }
// else if (dis==20 && qval>0 && qval<=50)
// {
// uval=list.gross_20_1_50;
// }
// else if (dis==20 && qval>50)
// {
// uval=list.gross_20_51_plus;
// }
// else if (dis==50)
// {
// uval=list.gross_50;
// }
// }
var usdAmnt = uval * 1 ;
// var currAmnt = usdAmnt / roe ;
var currAmnt = usdAmnt * roe ;
var ttlAmnt = currAmnt * qval ;
usd.val(usdAmnt.toFixed(2)) ; // set USD currency amount
conv.val(currAmnt.toFixed(2)) ; // set foreign currency amount
ttl.val(ttlAmnt.toFixed(2)) ; // set total amount
calcAll(); // recalculate the entire sheet
// alert(usdAmnt+'(inputUsd_amnt_$field):'+usd+':'+qty+'(inputQty_$field)') ; // 0.00:100.00:200.00:223.00:223.00:250.00:250.00:200.00 //
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function dispCamDetails(excl,camnr,qty,itcode,desc,snr,ddate,adate,f)
{
Initial commit
2025-11-26 09:31:54 +00:00
var camval = camnr.val();
var arrP = camval.split(":");
var qval = qty.val();
if (!camval) {
excl.prop("checked", true);
snr.val("");
adate.val("");
ddate.val("");
desc.val("");
//itcode.val("");
qty.val("");
return ;
}
var prev = getNum(f-1);
var pcamval = \$("#selectCamera_nr_"+prev+"_camera_details").val();
// console.log("#selectCamera_nr_"+prev+"_camera_details"+", pcamval="+pcamval) ;
if (typeof pcamval!="undefined") {
console.log(pcamval) ;
var arrpP = pcamval.split(":");
var checkS1 = arrpP[1].substring(0,2);
var checkOther = arrpP[1].substring(0,5);
if (checkS1=='S1' || checkOther=='Prime' || checkOther=='Coach') { \$("#c_excl_"+f+"_camera_details").append("<i class='glyphicons glyphicons-link fright' title='Linked to camera head"+arrpP[1]+"' data-toggle='tooltip' data-placement='right'></i>");\$('[data-toggle="tooltip"]').tooltip({html:true}) ; }
}
var list = { id:arrP[0], camera_nr:arrP[1], camera_system_id:arrP[2], serial_nr:arrP[3], date_delivered:arrP[4], description:arrP[5], itemcode:arrP[6], date_active:arrP[7] };
if (!qval || qval<1) { qval=1; qty.val(qval); } // set quantity if blank
snr.val(list.serial_nr);
//ddate.val(list.date_delivered);
//adate.val(list.date_active);
desc.val(list.description);
//itcode.val(list.itemcode);
excl.prop("checked", false);
}
add local backups
2026-02-03 12:35:43 +00:00
function calcCurr()
{
var roe = \$("#inputRoe") ;
var curr = \$("#selectCurrency").val() ;
var url = "$useropts{scripts}/get/get_roe.pl?" + curr ;
\$.get(url, function(json) {
\$.each(json, function(key, data) {
roe.val(data.sell_rate);
});
calcAll();
},
'json');
}
~;
$trigger_jquery_raw .= qq(
var currArr = {}; // var vat_total = {} ; var total_total = {} ; var subtotal = {} ; var fs_total = {} ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
$js_curr_arr
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
var currVal = \$("#selectCurrency").val() ;
var prevRoe = '' ;
var curRoe = '' ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
var grandTtl = 0 ; var grandSub = 0 ; var grandVat = 0 ;
$jq_tab_var
\$("$jquery_trigger_ids").change(function() {
calcAll();
});
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
calcAll() ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("#inputYear_1_3_purchase_summary").on("change", function() {
// calcAll() ;
\$(this).val(parseFloat(\$(this).val()).toFixed(2));
calcAll() ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
});
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function calcAll()
{
if (!\$("#selectCurrency").val()) { \$("#selectCurrency").val('ZAR'); \$("#selectCurrency").trigger("chosen:updated"); } // if (!\$("#inputRoe").val()) { \$("#inputRoe").val(1) }
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
grandTtl = 0 ; grandSub = 0 ; grandVat = 0 ;
totalOne_time_fee = 0 ; subtotalOne_time_fee = 0 ; vatOne_time_fee = 0 ;
totalMonthly_recurring_fee = 0 ; subtotalMonthly_recurring_fee = 0 ; vatMonthly_recurring_fee = 0 ;
totalAnnual_fee = 0 ; subtotalAnnual_fee = 0 ; vatAnnual_fee = 0 ;
totalYear_1_2_purchase_summary=0; totalYear_2_2_purchase_summary=0; totalYear_3_2_purchase_summary=0; totalYear_4_2_purchase_summary=0; totalYear_5_2_purchase_summary=0; totalTotal_2_purchase_summary=0;
totalYear_1_3_purchase_summary=0; totalYear_2_3_purchase_summary=0; totalYear_3_3_purchase_summary=0; totalYear_4_3_purchase_summary=0; totalYear_5_3_purchase_summary=0; totalTotal_3_purchase_summary=0;
$jq_tab
$re_calc_jquery
\$("#inputSub_total").val(grandSub.toFixed(2)) ;
\$("#inputVat_total").val(grandVat.toFixed(2)) ;
\$("#inputGrand_total").val(grandTtl.toFixed(2)) ;
\$("#inputTotal_one_time_fee").val(totalOne_time_fee.toFixed(2)) ;
\$("#inputSubtotal_one_time_fee").val(subtotalOne_time_fee.toFixed(2)) ;
\$("#inputVat_one_time_fee").val(vatOne_time_fee.toFixed(2)) ;
\$("#inputTotal_monthly_recurring_fee").val(totalMonthly_recurring_fee.toFixed(2)) ;
\$("#inputSubtotal_monthly_recurring_fee").val(subtotalMonthly_recurring_fee.toFixed(2)) ;
\$("#inputVat_monthly_recurring_fee").val(vatMonthly_recurring_fee.toFixed(2)) ;
\$("#inputTotal_annual_fee").val(totalAnnual_fee.toFixed(2)) ;
\$("#inputSubtotal_annual_fee").val(subtotalAnnual_fee.toFixed(2)) ;
\$("#inputVat_annual_fee").val(vatAnnual_fee.toFixed(2)) ;
\$("#inputYear_1_2_purchase_summary").val(totalYear_1_2_purchase_summary.toFixed(2)) ;
\$("#inputYear_2_2_purchase_summary").val(totalYear_2_2_purchase_summary.toFixed(2)) ;
\$("#inputYear_3_2_purchase_summary").val(totalYear_3_2_purchase_summary.toFixed(2)) ;
\$("#inputTotal_2_purchase_summary").val(totalTotal_2_purchase_summary.toFixed(2)) ;
totalYear_1_3_purchase_summary = totalAnnual_fee ;
totalYear_2_3_purchase_summary = totalAnnual_fee ;
totalYear_3_3_purchase_summary = totalAnnual_fee ;
\$("#inputYear_2_3_purchase_summary").val(totalYear_2_3_purchase_summary.toFixed(2)) ;
\$("#inputYear_3_3_purchase_summary").val(totalYear_3_3_purchase_summary.toFixed(2)) ;
\$("#inputYear_1_1_purchase_summary").val(totalOne_time_fee.toFixed(2)) ;
\$("#inputYear_2_1_purchase_summary").val('0.00') ;
\$("#inputYear_3_1_purchase_summary").val('0.00') ;
\$("#inputYear_4_1_purchase_summary").val('0.00') ;
\$("#inputYear_5_1_purchase_summary").val('0.00') ;
\$("#inputTotal_1_purchase_summary").val(totalOne_time_fee.toFixed(2)) ;
let year_1_tot = totalOne_time_fee + totalYear_1_2_purchase_summary + parseFloat(\$("#inputYear_1_3_purchase_summary").val()) ;
let year_2_tot = totalYear_2_2_purchase_summary + totalAnnual_fee ;
let year_3_tot = totalYear_3_2_purchase_summary + totalAnnual_fee ;
let year_4_tot = totalYear_4_2_purchase_summary + totalAnnual_fee ;
let year_5_tot = totalYear_5_2_purchase_summary + totalAnnual_fee ;
let grand_tot_pur = 0 ;
\$("#inputYearly_totals_1").val(parseFloat(year_1_tot).toFixed(2)) ;
\$("#inputYearly_totals_2").val(year_2_tot.toFixed(2)) ;
\$("#inputYearly_totals_3").val(year_3_tot.toFixed(2)) ;
if (\$("#selectPeriod").val() == 60) {
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("#inputYear_4_2_purchase_summary").val(totalYear_4_2_purchase_summary.toFixed(2)) ;
\$("#inputYear_5_2_purchase_summary").val(totalYear_5_2_purchase_summary.toFixed(2)) ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
totalYear_4_3_purchase_summary = totalAnnual_fee ;
totalYear_5_3_purchase_summary = totalAnnual_fee ;
totalTotal_3_purchase_summary = totalAnnual_fee * 4 + parseFloat(\$("#inputYear_1_3_purchase_summary").val()) ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("#inputYear_4_3_purchase_summary").val(totalYear_4_3_purchase_summary.toFixed(2)) ;
\$("#inputYear_5_3_purchase_summary").val(totalYear_5_3_purchase_summary.toFixed(2)) ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("#inputYearly_totals_4").val(year_4_tot.toFixed(2)) ;
\$("#inputYearly_totals_5").val(year_5_tot.toFixed(2)) ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
grand_tot_pur = year_1_tot + year_2_tot + year_3_tot + year_4_tot + year_5_tot ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
} else if (\$("#selectPeriod").val() == 36) {
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("#inputYear_4_2_purchase_summary").val('0.00') ;
\$("#inputYear_5_2_purchase_summary").val('0.00') ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
totalYear_4_3_purchase_summary = 0 ;
totalYear_5_3_purchase_summary = 0 ;
totalTotal_3_purchase_summary = totalAnnual_fee * 2 + parseFloat(\$("#inputYear_1_3_purchase_summary").val()) ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("#inputYear_4_3_purchase_summary").val('0.00') ;
\$("#inputYear_5_3_purchase_summary").val('0.00') ;
\$("#inputYearly_totals_4").val('0.00') ;
\$("#inputYearly_totals_5").val('0.00') ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
grand_tot_pur = year_1_tot + year_2_tot + year_3_tot ;
}
console.log("inputYear_4_2_purchase_summary : "+\$('#inputYear_4_2_purchase_summary').val()) ;
\$("inputTotal_3_purchase_summary").val() ;
\$("#inputTotal_3_purchase_summary").val(parseFloat(totalTotal_3_purchase_summary).toFixed(2)) ;
\$("#inputYearly_total").val(parseFloat(grand_tot_pur).toFixed(2)) ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
curr_changed=0;
});
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
# $onload .= qq(onload="calcAll();");
if ($iaction eq 'add'){ $onload .= qq~onload="calcCurr();"~ ; }
# $onload .= qq~onload="calcCurr();"~ ;
Initial commit
2025-11-26 09:31:54 +00:00
} #----------------------------------------------------------------------------------------
sub build_boxes_top {
my ($id) = @_ ;
our ($lcol,$fcol) = &common_min_columns(3,6) ;
$add_form_fields = '' ;
$fcol = 8 ;
$add_form_fields .= qq~<div class='col-md-2'>~ ;
# $preferred_title{quote_nr} = "Ref" ;
$preferred_title{quote_nr} = "Nr" ;
$add_form_fields .= &common_min_form_input('quote_nr',$db{$table}{$id}{quote_nr},'') ;
$add_form_fields .= &common_min_form_input('ref',$db{$table}{$id}{ref},'') ;
# $add_form_fields .= &common_min_form_input('po_nr',$db{$table}{$id}{po_nr},'') ;
$add_form_fields .= qq~</div>~ ;
$add_form_fields .= qq~<div class='col-md-3'>~ ;
if (($db{$table}{$id}{quote_date} eq '') or ($db{$table}{$id}{quote_date} eq '0000-00-00')) { $db{$table}{$id}{quote_date} = $now_ccyy_mm_dd ; }
$add_form_fields .= &common_min_form_datepicker('quote_date',$db{$table}{$id}{quote_date}) ;
my $plus_n_days_ccyy_mm_dd = &common_add_delta_days(14) ;
if (($db{$table}{$id}{quote_expiry} eq '') or ($db{$table}{$id}{quote_expiry} eq '0000-00-00')) { $db{$table}{$id}{quote_expiry} = $plus_n_days_ccyy_mm_dd ; }
$add_form_fields .= &common_min_form_datepicker('quote_expiry',$db{$table}{$id}{quote_expiry}) ;
$add_form_fields .= qq~</div>~ ;
$add_form_fields .= qq~<div class='col-md-4'>~ ;
$dlg{quote_to} = qq~ <div class="col-md-1"><a href="javascript:dlgMdl('$useropts{'scripts'}/dialog/add_customer.pl?add&selectQuote_to','Add Customer','','max-dialog');" class="btn btn-primary btn-xs" style="padding:1px 2px 1px 3px;margin-top:0px;" title='Add Customer' data-toggle='tooltip' data-placement='right'><i class="glyphicon glyphicon-plus" style="padding:0;margin-top:0px;"></i></a></div>~ ;
$fcol=8;
$add_form_fields .= &common_min_form_select('quote_to',$db{$table}{$id}{quote_to},'') ;
$required{max_cams} = 1 ;
$select{max_cams} = 1 ;
$opts{max_cams} = qq~
<option $selected{max_cams}{10} value="10">10</option>
<option $selected{max_cams}{20} value="20">20</option>
<option $selected{max_cams}{30} value="30">30</option>
<option $selected{max_cams}{40} value="40">40</option>
<option $selected{max_cams}{50} value="50">50</option>
<option $selected{max_cams}{60} value="60">60</option>
<option $selected{max_cams}{70} value="70">70</option>
<option $selected{max_cams}{100} value="100">100</option>
<option $selected{max_cams}{150} value="150">150</option>
<option $selected{max_cams}{200} value="200">200</option>
<option $selected{max_cams}{300} value="300">300</option>
<option $selected{max_cams}{500} value="500">500</option>
<option $selected{max_cams}{700} value="700">700</option>
<option $selected{max_cams}{1000} value="1000">1000</option>
~ ;
$fcol=6;
# $add_form_fields .= &common_min_form_select('max_cams',$db{$table}{$id}{max_cams},'') ;
$add_form_fields .= qq~<div class='row'>~ ; # <div class="box col-md-5"></div>
$fcol=2;
$add_form_fields .= &common_min_form_label_col('max_cams') ;
add local backups
2026-02-03 12:35:43 +00:00
$fcol=2;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= &common_min_form_select_col('max_cams',$db{$table}{$id}{max_cams},'') ;
add local backups
2026-02-03 12:35:43 +00:00
$fcol=2;$lcol=1;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= &common_min_form_label_col('qty') ;
add local backups
2026-02-03 12:35:43 +00:00
$fcol=2;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= &common_min_form_input_col('qty',$db{$table}{$id}{qty}) ;
# $add_form_fields .= &common_min_form_label_col('period') ;
add local backups
2026-02-03 12:35:43 +00:00
$add_form_fields .= &common_min_form_label_col('prd') ;
Initial commit
2025-11-26 09:31:54 +00:00
$sel = '' ; $sel = 'SELECTED' if $db{$table}{$id}{period} eq '36' ;
$opts{period} .= qq~<option value = '36' $sel>36</option>~ ;
$sel = '' ; $sel = 'SELECTED' if $db{$table}{$id}{period} eq '60' ;
add local backups
2026-02-03 12:35:43 +00:00
$opts{period} .= qq~<option value = '60' $sel>60</option>~ ;
Initial commit
2025-11-26 09:31:54 +00:00
$sel = '' ;
add local backups
2026-02-03 12:35:43 +00:00
$add_form_fields .= &common_min_form_select_col('period',$db{$table}{$id}{period}) ;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= qq~</div>~ ;
$fcol=7;# $add_form_fields .= &common_min_form_select('ship_to',$db{$table}{$id}{ship_to},'') ;
# if ($username eq 'rory') { $add_form_fields .= qq~<div class="col-md-3">&nbsp;</div><div class="col-md-8"><a href="javascript:dlgMdl('$useropts{'scripts'}/dialog/add_customer.pl?add&selectQuote_to','Add Customer','','medium-dialog');" class="btn btn-primary btn-xs" style="padding:1px 2px 1px 3px;margin-top:2px;" title='Add Customer' data-toggle='tooltip' data-placement='right'><i class="glyphicon glyphicon-plus" style="padding:0;margin-top:2px;"></i></a></div>~ ; }
$add_form_fields .= qq~</div>~ ;
$add_form_fields .= qq~<div class='col-md-3'>~ ;
$lcol=3;
$preferred_title{'country_shipped'} = 'Country' ;
$add_form_fields .= &common_min_form_select('country_shipped',$db{$table}{$id}{country_shipped},'') ;
add local backups
2026-02-03 12:35:43 +00:00
$preferred_title{'camera_system_id'} = 'System' ;
$add_form_fields .= &common_min_form_select('camera_system_id',$db{$table}{$id}{camera_system_id},'') ;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= qq~</div>~ ;
$print_box_content_rows .= &common_min_box_top('qrcode',"Quote",'BABEC2');
$print_box_content_rows .= qq~<div class="row">
<div class="col-md-12">
$add_form_fields
</div>
</div>~;
$print_box_content_rows .= qq~<div class='row'><div class='col-md-12' style='height:6px;'>&nbsp;</div></div>~ ;
$print_box_content_rows .= &common_min_box_foot;
} #----------------------------------------------------------------------------------------
sub build_boxes_left {
my ($id,$tab) = @_ ;
our ($lcol,$fcol) = &common_min_columns(3,6) ;
&tab_build_qt_left($id,$tab);
} #----------------------------------------------------------------------------------------
sub build_boxes_right {
my ($id,$tab) = @_ ;
our ($lcol,$fcol) = &common_min_columns(3,6) ;
&tab_build_qt_right($id,$tab);
} #----------------------------------------------------------------------------------------
sub build_boxes_bottom {
my ($id) = @_ ;
our ($lcol,$fcol) = &common_min_columns(2,2) ;
$add_form_fields = '' ;
# --------------- START GRAND TOTAL ----------------------------------------------------------------------------------------------------------------------
$print_box_content_rows .= &common_min_form_input('activetab',$db{$table}{$id}{activetab},'hidden') ;
# # $print_box_content_rows .= &common_min_form_input('grand_total','0.00','hidden') ;
# my @ttlarr = ("sub_total","vat_total","grand_total") ;
# $lcol=1;$fcol=2;
# foreach (@ttlarr) {
# $readonly{$_} = "READONLY";
# $add_form_fields .= qq~<div class='row'>~ ; # <div class="box col-md-5"></div>
# $add_form_fields .= &common_min_form_label_col($_) ;
# $add_form_fields .= &common_min_form_input_col($_,'0.00') ;
# $add_form_fields .= qq~</div>~ ;
# }
# $print_box_content_rows .= qq~<div class='row'><div class="box col-md-12"><div class="box-inner"><div class="box-content">~ ;
# $print_box_content_rows .= $add_form_fields ;
# $print_box_content_rows .= &common_min_box_foot;
# --------------- END RAND TOTAL ------------------------------------------------------------------------------------------------------------------------
} #----------------------------------------------------------------------------------------
sub build_cost_form {
my ($id,$tab,$rcnt,$suffix) = @_ ;
$tab_sections{$tab} .= "$suffix+$rcnt|" ;
$jq_cal = qq~var vat_total$suffix = 0 ; var total_total$suffix = 0 ; var subtotal$suffix = 0 ; var vat_amount = 0 ; ~ ;
$jq_fs = '' ;
%cnt_specific_jquery = () ;
&set_check_boxes_checked($id,$rcnt,"excl",$suffix);
&set_check_boxes_checked($id,$rcnt,"vat",$suffix);
my $cntloop=1;
# my %saved_field = () ;
add local backups
2026-02-03 12:35:43 +00:00
my @prefexes = ("excl", "item", "qty", "usd_amnt", "curr_amnt", "item_ttl", "vat") ;
Initial commit
2025-11-26 09:31:54 +00:00
# my @b = (
# "_costing_additional_services",
# "_costing_game_breakdown_analytics",
# "_costing_hardware_add_ons",
# "_costing_installation_kits",
# "_costing_match_credits",
# "_costing_other",
# "_costing_rental",
# "_costing_software_licence",
# "_costing_systems",
# "_delivery_times",
# "_notes",
# "_payment_terms",
# "_purchase_summary",
# "_roes",
# "_terms") ;
foreach my $prefex (@prefexes){
add local backups
2026-02-03 12:35:43 +00:00
$col_name = "$prefex" . "$suffix" ;
Initial commit
2025-11-26 09:31:54 +00:00
$cnt = 0 ;
add local backups
2026-02-03 12:35:43 +00:00
if($db{quotes_min}{$id}{$col_name}){
foreach my $col_input (split(";", $db{quotes_min}{$id}{$col_name})){
Initial commit
2025-11-26 09:31:54 +00:00
$cnt++ ;
$saved_field{$prefex}{$suffix}{$cnt} = $col_input ;
add local backups
2026-02-03 12:35:43 +00:00
# &common_debug("$aa/$suffix : $cc") ;
Initial commit
2025-11-26 09:31:54 +00:00
}
}
}
for (1 .. $rcnt) {
$display_style = '' ; $display_plus_btn = '' ;
# unless ($_==1 or $db{$table}{$id}{"item_$_$suffix"}) {
add local backups
2026-02-03 12:35:43 +00:00
unless ($_==1 or $saved_field{"item"}{$suffix}{$_}) {
$display_style = qq~style='display:none;'~ ;
$trigger_jquery_raw .= qq~ \$("#btn_$_$suffix").click(function () {
\$("#$_$suffix").toggle();
\$("#btn_$_$suffix").hide();
var v = $_ + 1 ;
\$("#btn_"+v+"$suffix").show();
});~ ;
if ($_>$cntloop) { $display_butt = qq~display:none;~ ; } else { $display_butt = '' ; }
$display_plus_btn = qq~<a id="btn_$_$suffix" href="#" style="padding-left:16px;$display_butt"><i class="glyphicon glyphicon-plus blue"></i></a>~;
} else { $cntloop++ ; }
$add_form_fields .= qq~<div class='row' id='$_$suffix' $display_style>~ ;
Initial commit
2025-11-26 09:31:54 +00:00
#----------------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
$field = "excl_$_$suffix" ; $fcol=1 ;
Initial commit
2025-11-26 09:31:54 +00:00
# if ($checkit{$field} == 1) {
add local backups
2026-02-03 12:35:43 +00:00
if ($saved_field{"excl"}{$suffix}{$_}){
Initial commit
2025-11-26 09:31:54 +00:00
$checked = 'CHECKED'; } elsif (($excl_tick{$_}) and ($iaction eq 'add')) { $checked = 'CHECKED'; } else { $checked = ''; }
$label{$field} = 1 ;
$add_form_fields .= &common_min_form_checkbox_col($field,$checkit{$field},$checked) ;
#----------------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
my $field = "item_$_$suffix" ; $fcol=2 ;
Initial commit
2025-11-26 09:31:54 +00:00
$allow_deselect{$field} = 1 ;
add local backups
2026-02-03 12:35:43 +00:00
$preferred_placeholder{$field} = "Item $_" ;
if ($suffix eq '_costing_other' or $suffix eq '_costing_rental' or ($suffix eq '_costing_systems' and $_>1) or ($suffix eq '_costing_software_licence' and $_>2) or ($suffix eq '_costing_game_breakdown_analytics' and $_>1)) {
Initial commit
2025-11-26 09:31:54 +00:00
# $add_form_fields .= &common_min_form_input_col($field,$db{$table}{$id}{$field}) ;
add local backups
2026-02-03 12:35:43 +00:00
$add_form_fields .= &common_min_form_input_col($field,$saved_field{"item"}{$suffix}{$_}) ;
Initial commit
2025-11-26 09:31:54 +00:00
} else {
# &common_min_debug("[$field] $db{$table}{$id}{$field}") ;
# $add_form_fields .= &common_min_form_select_col($field,$db{$table}{$id}{$field}) ;
add local backups
2026-02-03 12:35:43 +00:00
$add_form_fields .= &common_min_form_select_col($field,$saved_field{"item"}{$suffix}{$_}) ;
Initial commit
2025-11-26 09:31:54 +00:00
}
#----------------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
$field = "qty_$_$suffix" ; $fcol=1 ; $input_style{$field} = qq(style="text-align:right;");
Initial commit
2025-11-26 09:31:54 +00:00
$preferred_placeholder{$field} = "Qty $_" ;
# my $val = $db{$table}{$id}{$field} ;
my $val = $saved_field{"qty"}{$suffix}{$_} ;
unless ($val) { $val = $def_qty{$_} ; } $val = &q_get_val($val) ;
$add_form_fields .= &common_min_form_input_col($field,$val) ;
#----------------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
$field = "usd_amnt_$_$suffix" ; $input_style{$field} = qq(style="text-align:right;");
Initial commit
2025-11-26 09:31:54 +00:00
# my $val = $db{$table}{$id}{$field} ;
add local backups
2026-02-03 12:35:43 +00:00
my $val = $saved_field{"usd_amnt"}{$suffix}{$_} ;
Initial commit
2025-11-26 09:31:54 +00:00
unless ($val) { $val = $def_usd{$_} ;} $val = &q_get_val($val) ;
add local backups
2026-02-03 12:35:43 +00:00
$preferred_placeholder{$field} = "USD Amnt $_" ;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= &common_min_form_input_col($field,$val,1) ;
#----------------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
$field = "curr_amnt_$_$suffix" ; $input_style{$field} = qq(style="text-align:right;"); $readonly{$field} = 'READONLY' ; # $fcol=2 ;
$preferred_placeholder{$field} = "ZAR Amnt $_" ;
# my $val = &q_get_val($db{$table}{$id}{$field}) ;
my $val = &q_get_val($saved_field{"curr_amnt"}{$suffix}{$_}) ;
$add_form_fields .= &common_min_form_input_col($field,$val,1) ;
Initial commit
2025-11-26 09:31:54 +00:00
#----------------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
$field = "item_ttl_$_$suffix" ; $input_style{$field} = qq(style="text-align:right;"); $readonly{$field} = 'READONLY' ; # $fcol=2 ;
$preferred_placeholder{$field} = "Item Total $_" ;
Initial commit
2025-11-26 09:31:54 +00:00
# my $val = &q_get_val($db{$table}{$id}{$field}) ;
add local backups
2026-02-03 12:35:43 +00:00
my $val = &q_get_val($saved_field{"item_ttl"}{$suffix}{$_}) ;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= &common_min_form_input_col($field,$val,1) ;
#----------------------------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
$field = "vat_$_$suffix" ; $fcol=1 ;
Initial commit
2025-11-26 09:31:54 +00:00
# if ($checkit{$field} == 1) { $checked = 'CHECKED'; } elsif (($vat_tick{$_}) and ($iaction eq 'add')) { $checked = 'CHECKED'; } else { $checked = ''; }
if ($saved_field{"vat"}{$suffix}{$_} == 1) {
# if ($checkit{$field} == 1) {
$checked = 'CHECKED'; } elsif ($iaction eq 'add') { $checked = 'CHECKED'; } else { $checked = ''; }
$label{$field} = 1 ;
if ($no_vat{$suffix}) { $style_field{$field} = 'style="display:none;"' ; }
$add_form_fields .= &common_min_form_checkbox_col($field,$checkit{$field},$checked) ;
#----------------------------------------------------------------------------------------------------
# $add_form_fields .= qq~$display_plus_btn~ ;
$add_form_fields .= qq~</div>~ ;
add local backups
2026-02-03 12:35:43 +00:00
$add_form_fields .= qq~<div class='row'><div class="col-md-1">$display_plus_btn</div></div>~ ;
Initial commit
2025-11-26 09:31:54 +00:00
$add_form_fields .= qq~<div class='row'><div class='col-md-12' style="margin:2px 0 0 0"></div></div>~ ;
my $added_ttl_js = '' ;
add local backups
2026-02-03 12:35:43 +00:00
if ($suffix eq '_costing_systems' or $suffix eq '_costing_installation_kits' or $suffix eq '_costing_hardware_add_ons' or $suffix eq '_costing_additional_services' or $suffix eq '_costing_match_credits' or $suffix eq '_costing_other') {
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
# if ($suffix eq '_costing_additional_services' and $db{$table}{$id}{"item_$_$suffix"}) { # OTT Monthly Management fee
# $added_ttl_js = qq~
# totalMonthly_recurring_fee += (amnts[2] + amnts[1]) ;
# subtotalMonthly_recurring_fee += amnts[2] ;
# vatMonthly_recurring_fee += amnts[1] ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
# var yrTtl = (amnts[2] + amnts[1]) * 12
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
# totalYear_1_2_purchase_summary += yrTtl;
# totalYear_2_2_purchase_summary += yrTtl;
# totalYear_3_2_purchase_summary += yrTtl;
# totalTotal_2_purchase_summary += (yrTtl*3); ~;
# } else {
$added_ttl_js = qq~totalOne_time_fee += (amnts[2] + amnts[1]) ;
subtotalOne_time_fee += amnts[2] ;
vatOne_time_fee += amnts[1] ; ~;
# }
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ($suffix eq '_costing_software_licence' or $suffix eq '_costing_rental') {
$added_ttl_js = qq~
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
totalMonthly_recurring_fee += (amnts[2] + amnts[1]) ;
subtotalMonthly_recurring_fee += amnts[2] ;
vatMonthly_recurring_fee += amnts[1] ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
var yrTtl = (amnts[2] + amnts[1]) * 12
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
totalYear_1_2_purchase_summary += yrTtl;
totalYear_2_2_purchase_summary += yrTtl;
totalYear_3_2_purchase_summary += yrTtl;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if (\$("#selectPeriod").val() == 60) {
totalYear_4_2_purchase_summary += yrTtl;
totalYear_5_2_purchase_summary += yrTtl;
totalTotal_2_purchase_summary += (yrTtl*2);
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
totalTotal_2_purchase_summary += (yrTtl*3);
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("#selectPeriod").on("change", function() {
if (\$(this).val() == 36) {
totalYear_4_2_purchase_summary = 0;
totalYear_5_2_purchase_summary = 0;
totalTotal_2_purchase_summary -= (yrTtl*5);
totalTotal_2_purchase_summary += (yrTtl*3);
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
} else if (\$(this).val() == 60) {
totalYear_4_2_purchase_summary += yrTtl;
totalYear_5_2_purchase_summary += yrTtl;
totalTotal_2_purchase_summary -= (yrTtl*3);
totalTotal_2_purchase_summary += (yrTtl*5);
}
});
~;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ($suffix eq '_costing_game_breakdown_analytics') {
$added_ttl_js = qq~totalAnnual_fee += (amnts[2] + amnts[1]) ;
subtotalAnnual_fee += amnts[2] ;
vatAnnual_fee += amnts[1]~;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
$jq_cal .= qq~
var amnts = calcSection('$suffix','$_');
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
vat_total$suffix += amnts[1] ;
subtotal$suffix += amnts[2] ;
total_total$suffix += (amnts[2] + amnts[1]) ;
$added_ttl_js
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
~;
Initial commit
2025-11-26 09:31:54 +00:00
}
add local backups
2026-02-03 12:35:43 +00:00
$jq_cal .= qq~
grandSub+=subtotal$suffix;
grandVat+=vat_total$suffix;
grandTtl+=total_total$suffix;
~ ;
$re_calc_jquery .= qq~calc$suffix();setRoe('$suffix','$rcnt');~;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
$trigger_jquery_raw .= qq~
function calc$suffix()
{
$jq_cal
}
~;
Initial commit
2025-11-26 09:31:54 +00:00
} #----------------------------------------------------------------------------------------
sub q_get_val {
my ($val) = @_ ;
my $disp_val = $val ;
if ($val eq '0.00') {
$disp_val = '' ;
}
return ($disp_val);
} #------------------------------------------------------------------------------------------
sub set_check_boxes_checked {
my ($id,$rcnt,$prefix,$suffix) = @_ ;
# my $dbfield = "$prefix$suffix" ;
# my $val = $db{$table}{$id}{$dbfield} ;
# if ($suffix eq '_camera_details') { &common_min_debug("[$dbfield] $val [$id,$rcnt,$prefix,$suffix]") ; }
for (1 .. $rcnt) {
# my $sstr = $_-1 ;
my $ifield = $prefix . '_' . "$_$suffix" ;
# $checkit{$ifield} = substr($val,$sstr,1) ;
my $val = $db{$table}{$id}{$ifield} ;
$checkit{$ifield} = $val ;
# if ($suffix eq '_camera_details') { &common_min_debug(" --- [$ifield] $checkit{$ifield} [$val]") ; }
}
} #----------------------------------------------------------------------------------------
sub select_opts {
my ($id) = @_ ;
add local backups
2026-02-03 12:35:43 +00:00
$required{type} = 1 ;
$select{type} = 1 ;
$selected{type}{$db{$table}{$id}{type}} = 'SELECTED' ; unless ($db{$table}{$id}{type}) { $selected{type}{purchase} = 'SELECTED' ; }
$opts{type} = qq~<option value="purchase" $selected{type}{purchase}>Purchase</option><option value="rental" $selected{type}{rental}>Rental</option><option value="software" $selected{type}{software}>Software</option><option value="other" $selected{type}{other}>Other</option>~ ;
$trigger_jquery .= qq~\$("#selectType\_chosen").css( "width", "60%" );~ ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
my @currency_arr = qw( currency );
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
foreach my $curr (@currency_arr) {
if ($db{$table}{$id}{$curr}) { $selected{$curr}{$db{$table}{$id}{$curr}} = 'SELECTED'; } else { $selected{$curr}{ZAR} = 'SELECTED'; }
$select{$curr} = 1 ;
$opts{$curr} = qq~
<option value="GBP" $selected{$curr}{GBP}>GBP</option>
<option value="USD" $selected{$curr}{USD}>USD</option><option value="ZAR" $selected{$curr}{ZAR}>ZAR</option><option value="EUR" $selected{$curr}{EUR}>EUR</option>~ ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
$select{discount} = 1 ;
$selected{discount}{$db{$table}{$id}{discount}} = 'SELECTED' ;
Initial commit
2025-11-26 09:31:54 +00:00
# $opts{discount} = qq~<option value="10" $selected{discount}{10}>10%</option><option value="20" $selected{discount}{20}>20%</option><option value="50" $selected{discount}{50}>50%</option>~ ;
add local backups
2026-02-03 12:35:43 +00:00
$opts{discount} = qq~<option value="3" $selected{discount}{3}>3%</option><option value="5" $selected{discount}{5}>5%</option><option value="6" $selected{discount}{6}>6%</option><option value="8" $selected{discount}{8}>8%</option><option value="10" $selected{discount}{10}>10%</option><option value="15" $selected{discount}{15}>15%</option><option value="20" $selected{discount}{20}>20%</option>~ ;
Initial commit
2025-11-26 09:31:54 +00:00
# $trigger_jquery .= qq~\$("#selectItem_$field\_chosen").css( "width", "96%" )
# ~ ;
my $selcntry = $db{$table}{$id}{country_shipped} ; $selcntry = 242 unless $selcntry ; # Default South Africa
&common_min_select_opts('country_shipped','countries','name',$selcntry,1,'country','');
&common_min_select_opts('camera_system_id','camera_systems','name',$db{$table}{$id}{camera_system_id},1,'','');
# &common_min_select_opts('quote_to','customers','name',$db{$table}{$id}{quote_to},1,'','');
&tab_customer_select_opts('customers','name','','quote_to');
# $select{ship_to} = 1 ; $required{ship_to} = 1 ;
# &db_min_ro('towns','*','','','') ;
# foreach (keys %{$db{'towns'}}) {
# my $selected = ''; if ($db{towns}{$_}{name} eq $db{$table}{$id}{ship_to}) { $selected = 'selected="selected"'; }
# $opts{ship_to} .= qq(<option value="$db{towns}{$_}{name}" $selected>$db{towns}{$_}{name}</option>) ;
# }
add local backups
2026-02-03 12:35:43 +00:00
$trigger_jquery_raw .= qq~
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function calcSection(sufx,cnt)
{
var inpItemTtl = \$("#inputItem_ttl_"+cnt+sufx) ;
var inpCurrAmnt = \$("#inputCurr_amnt_"+cnt+sufx) ;
var inpItem = \$("#inputItem_"+cnt+sufx) ;
var initUsdVal = \$("#inputUsd_amnt_"+cnt+sufx).val() ;
var inpUsd = \$("#inputUsd_amnt_"+cnt+sufx) ;
var qty = \$("#inputQty_"+cnt+sufx).val() ;
var vatChkBox = \$("#checkboxVat_"+cnt+sufx) ;
var exclChkBox = \$("#checkboxExcl_"+cnt+sufx) ;
var selCurr = \$("#selectCurrency") ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
var exclChk = 'excl_'+cnt+sufx ;
var vatChk = 'vat_'+cnt+sufx ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
var usdAmnt = 0 ;
var vatAmnt = 0 ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if (selCurr.val()!='ZAR') { vatChkBox.prop("checked", false) ; }
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
// console.log("3. curr_changed: "+curr_changed +" : "+ selCurr.val()) ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if (curr_changed==1 && selCurr.val()=='ZAR') {
vatChkBox.prop("checked", true);
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
//if (selCurr.val() != 'ZAR') { vatChkBox.prop("checked", false) ; } else { vatChkBox.prop("checked", true); } // set VAT checkbox
// if (!inpItem.val()) { exclChkBox.prop("checked", false); } else { exclChkBox.prop("checked", true); } // set EXCL checkbox
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
curRoe = \$("#inputRoe").val();
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ( (qty>0) && (inpUsd.val()>0) ) {
var convPrice = convertCurr(initUsdVal,curRoe) ;
var ttlPrice = convPrice * qty ;
inpCurrAmnt.val(convPrice.toFixed(2));
inpItemTtl.val(ttlPrice.toFixed(2));
exclChkBox.prop("checked", false);
} else {
exclChkBox.prop("checked", true);
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if (\$('input[name='+exclChk+']:checked').length > 0) { // only calculate if included
// inpCurrAmnt.prop('readonly', true); // inpCurrAmnt.val('');
// inpUsd.prop('readonly', true); //inpUsd.val('');
// inpItemTtl.val(''); inpItemTtl.prop('readonly', true);
// \$("#inputQty_"+cnt+sufx).prop('readonly', true);
var ttlPrice = 0 ;
inpItemTtl.val(ttlPrice.toFixed(2));
return [0,0,0];
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
vatAmnt = 0 ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
if ((\$('input[name='+vatChk+']:checked').length > 0) && (selCurr.val() == 'ZAR')) {
// var vat = addVat(inpCurrAmnt.val()) ;
var vat = addVat(inpItemTtl.val()) ;
vatAmnt = vat[0];
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
// usdAmnt = getNum(parseFloat(inpUsd.val()));
currAmnt = getNum(parseFloat(inpCurrAmnt.val()));
ttlAmnt = getNum(parseFloat(inpItemTtl.val()));
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
// return [usdAmnt,vatAmnt];
return [currAmnt,vatAmnt,ttlAmnt];
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function getNum(val)
{
if (isNaN(val)) {
return 0;
}
return val;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function convertCurr(val,curRoe)
{
// val = val / curRoe ;
val = val * curRoe ;
return val;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function addVat(amnt)
{
var vat_amnt = amnt*0.15 ;
var subtotal = amnt - vat_amnt
return [vat_amnt,subtotal];
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function setRoe(sx,rcnt)
{
var labelCurrAmntSx = \$("#lab_curr_amnt$sec"+sx) ;
var curr = \$("#selectCurrency").val() ; if (!curr) { curr = 'Curr' ; }
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
labelCurrAmntSx.html('Price&nbsp;['+curr+']');
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
for (i = 0; i <= rcnt; i++) {
var inpCurrAmntSx = \$("#inputCurr_amnt_"+i+sx) ; ;
inpCurrAmntSx.attr("placeholder",curr+' Amnt '+i);
var inpQcPh = \$("#inputqty_"+i+sx).attr("placeholder");
}
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
function calcTtl(qc,ica,iz)
{
var zar_amnt = getNum(parseFloat(\$("#inputWeight").val())) * getNum(parseFloat(qc.val())) ;
iz.val(zar_amnt.toFixed(2)) ;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
\$("li").click(function(){
var activeTab = \$(this).text();
\$("#inputActivetab").val(activeTab) ;
});
// function selectTabs()
// {
// activeTab = \$("#inputActivetab").val();
// if (!activeTab) { activeTab = 'Quote Details' ; }
// var tabs = \$("#myTab li");
// tabs.each(function(idx, li) {
// var tab = \$(li);
// if (tab.text == activeTab)
// {
// tab.addClass("active");
// } else {
// tab.removeClass("active");
// }
// });
// }
~;
Initial commit
2025-11-26 09:31:54 +00:00
# $trigger_jquery .= qq~
# \$(window).bind('beforeunload', function()
# {
# // window.location = 'https://$ENV{SERVER_NAME}/list-quotes' ;
# alert('beforeunload');
# });
# ~;
$extra_css .= qq(<style>
.checkbox_checked label {
position: absolute;
width: 20px;
height: 20px;
background-color: green;
-webkit-transition: background-color 1s ease-out 1s;
-moz-transition: background-color 1s ease-out 1s;
-o-transition: background-color 1s ease-out 1s;
transition: background-color 1s ease-out 1s;
margin:0;
}
.checkbox_checked input[type=checkbox]:checked + label {
background-color:red;
-webkit-transition: background-color 1s ease-out 1s;
-moz-transition: background-color 1s ease-out 1s;
-o-transition: background-color 1s ease-out 1s;
transition: background-color 1s ease-out 1s;
}
.checkbox_checked label:after {
position: absolute;
bottom: 8px;
width: 18px;
height: 10px;
opacity: 0;
content: '';
background: transparent;
border: 3px solid #000;
border-top: none;
border-right: none;
-webkit-transform: rotate(-50deg);
-moz-transform: rotate(-50deg);
-ms-transform: rotate(-50deg);
-o-transform: rotate(-50deg);
transform: rotate(-50deg);
-ms-filter: "progid:DXImageTransform.Microsoft.Alpha(Opacity=0)";
filter: alpha(opacity=0);
}
.checkbox_checked input[type=checkbox] {
visibility: hidden;
}
.checkbox_checked input[type=checkbox]:checked + label:after {
opacity: 1;
-ms-filter: "progid:DXImageTransform.Microsoft.Alpha(Opacity=100)";
filter: alpha(opacity=100);
}
</style>) ;
} #-------------------------------------------------------------------------------
sub page_opts {
our $glyphicon = 'global' ;
our $lcpage = 'quote' ; $ucpage = uc $lcpage ; $ucfirstpage = ucfirst $lcpage ;
our $table = 'quotes' ;
&common_min_add_box_icon ;
} #-------------------------------------------------------------------------------
add local backups
2026-02-03 12:35:43 +00:00
sub creat_db_cols {
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
&db_min_ro('quotes','*','','','') ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
my %col_exists ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
foreach (sort { $col_name{$a} cmp $col_name{$b} } keys %col_name) {
$col = $col_name{$_} ;
$col_exists{$col} = 1 ;
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
my $mysql = "ALTER TABLE `quotes`" ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
# foreach (sort keys %i) {
# if ($_ =~ /qty_/g) {
Initial commit
2025-11-26 09:31:54 +00:00
# $mysql .= qq~
add local backups
2026-02-03 12:35:43 +00:00
# DROP `$_`,~ ;
Initial commit
2025-11-26 09:31:54 +00:00
# }
# }
add local backups
2026-02-03 12:35:43 +00:00
foreach (sort keys %i) {
if ($_ eq 'iaction') { next ; }
if ($ignore{$_}) { next ; }
if ($col_exists{$_}) { next ; } # only create the column if it doesn't exist
if (((substr($_,0,3) eq 'vat') or (substr($_,0,4) eq 'excl')) and (substr($_,0,9) ne 'vat_total')) {
$mysql .= qq~
ADD `$_` INT(1) NOT NULL DEFAULT '0',~ ;
} elsif ($_ =~ /qty_/g) {
$mysql .= qq~
ADD `$_` INT(3) NULL DEFAULT '0',~ ;
} elsif ($_ =~ /roe_/g) {
$mysql .= qq~
ADD `$_` VARCHAR( 120 ) NOT NULL ,~ ;
} elsif ($_ =~ /description_/g) {
$mysql .= qq~
ADD `$_` VARCHAR( 255 ) NOT NULL ,~ ;
} elsif (substr($_,0,3) eq 'roe') {
$mysql .= qq~
ADD `$_` DECIMAL(4,2) NOT NULL ,~ ; # 999999.99 to -999999.99
} elsif ($_ =~ /date_/g or $_ =~ /_date/g) {
$mysql .= qq~
ADD `$_` DATE DEFAULT NULL ,~ ;
} elsif ($_ =~ /datetime/g) {
$mysql .= qq~
ADD `$_` datetime DEFAULT NULL ,~ ;
} elsif ($_ =~ /_costing_/g or $_ =~ /_total/g or $_ =~ /total_/g or $_ =~ /year_/g or $_ =~ /_amnt_/g) { # } elsif (substr($_,0,5) eq 'item_') {
$mysql .= qq~
ADD `$_` DECIMAL( 8, 2 ) NOT NULL ,~ ; # 999999.99 to -999999.99
} elsif ($_ =~ /_included/g) {
$mysql .= qq~
ADD `$_` TEXT NOT NULL ,~ ;
} elsif ($_ =~ /_id/g) {
$mysql .= qq~
ADD `$_` INT( 6 ) NOT NULL DEFAULT '0',~ ;
} else {
$mysql .= qq~
ADD `$_` VARCHAR( 120 ) NOT NULL ,~ ;
}
}
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
print $mysql ;
exit ;
Initial commit
2025-11-26 09:31:54 +00:00
add local backups
2026-02-03 12:35:43 +00:00
} #------------------------------------------------------------------------------------------
Initial commit
2025-11-26 09:31:54 +00:00
sub report_ifields {
# my $account_sql_where = '' ; if ($i{account_id}) { $account_sql_where = "`id`='$i{account_id}'" ; } elsif ($glob_account_id) { $account_sql_where = "`id`='$glob_account_id'" ; }
# &db_common_ro('account','id,name',$account_sql_where,'','') ;
# foreach my $id (keys %{$db{account}}) { $account_name{$id} = $db{account}{$id}{name} ; }
if ($i{quote_to}) {
push @report_sql, "($table.quote_to = '$i{quote_to}')" ;
push @report_results, "`quote_to` = '$i{quote_to}'" ;
add local backups
2026-02-03 12:35:43 +00:00
}
Initial commit
2025-11-26 09:31:54 +00:00
# if ($i{ship_to}) {
# push @report_sql, "(`ship_to` = '$i{ship_to}')" ;
# push @report_results, "ship_to = $i{ship_to}" ;
# }
if ($i{quotes_from} and $i{quotes_to}) { # check dates
my $quotes_from_check = $i{quotes_from} ;
$quotes_from_check =~ s/\-//g ;
my $quotes_to_check = $i{quotes_to} ;
$quotes_to_check =~ s/\-//g ;
if ($quotes_from_check > $quotes_to_check) { $error = qq(QUOTES FROM ($i{quotes_from}) > QUOTES TO ($i{quotes_to})); &report_screen; }
}
if ($i{quotes_from}) {
push @report_sql, "($table.quote_date >= '$i{quotes_from}')" ;
push @report_results, "`quote_date` >= '$i{quotes_from}'" ;
}
if ($i{quotes_to}) {
push @report_sql, "($table.quote_date <= '$i{quotes_to}')" ;
push @report_results, "`quote_date` <= '$i{quotes_to}'" ;
}
if ($i{po_nr}) {
push @report_sql, "($table.po_nr LIKE '%$i{po_nr}%')" ;
push @report_results, "`po_nr` LIKE '$i{po_nr}'" ;
}
if ($i{invoice_nr}) {
push @report_sql, "($table.invoice_nr LIKE '%$i{invoice_nr}%')" ;
push @report_results, "`invoice_nr` LIKE '$i{invoice_nr}'" ;
}
if ($i{quote_nr}) {
push @report_sql, "($table.quote_nr LIKE '%$i{quote_nr}%')" ;
push @report_results, "`quote_nr` = '$i{quote_nr}'" ;
}
# if ($i{serial_nr}) {
# for (1 .. 10) {
# push @report_sql_or, "(`serial_nr_$_\_camera_details` LIKE '%$i{serial_nr}%')" ;
# }
# push @report_results, "serial_nr LIKE `$i{serial_nr}`" ;
# my $sql_or = join(' OR ', @report_sql_or) ;
# push @report_sql, "($sql_or)" ;
# }
if ($i{country}) {
push @report_sql, "($table.country_shipped = '$i{country}')" ;
push @report_results, "`country_shipped` = '$i{country}'" ;
}
if ($i{customer_name}) {
push @report_sql, "($table.quote_to = '$i{customer_name}')" ;
add local backups
2026-02-03 12:35:43 +00:00
push @report_results, "`customer` = '$i{customer_name}'" ;
Initial commit
2025-11-26 09:31:54 +00:00
}
if ($i{accepted} or $i{options} eq 'accepted') {
push @report_sql, "($table.quote_accepted='1')" ;
push @report_results, "`quote_accepted` = 'Yes'" ;
}
elsif ($i{closed} or $i{options} eq 'closed') {
# push @report_sql, "(`quote_cancelled`='1')" ;
# push @report_sql, "(`quote_cancelled`='1' OR `quote_expiry`<'$now_year-$now_mm-$now_dd')" ;
push @report_sql, "($table.quote_cancelled='1' OR ($table.quote_expiry<'$now_year-$now_mm-$now_dd' AND $table.quote_accepted<>'1'))" ;
push @report_results, "`quote_closed` = 'Yes'" ;
}
elsif ($i{options} && $i{options} ne 'all') {
push @report_results, "`quote` = '$i{options}'" ;
}
elsif ($i{options} && $i{options} eq 'all') {
push @report_results, "(`quote_accepted` = 'Yes' OR `quote_pending` = 'Yes' OR `quote_closed` = 'Yes')" ;
}
if ($i{type}) {
push @report_sql, "($table.type='$i{type}')" ;
push @report_results, "`type` = '$i{type}'" ;
}
$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 report_screen {
&filter_screen if $ENV{QUERY_STRING} eq 'filter' ;
our $lcol = 2 ;
our $fcol = 5 ;
my ($set_year,$set_month,$set_day) = Add_Delta_Days($now_year,$now_mm,$now_dd,-42); # 6 weeks back
$set_month = sprintf("%02s", $set_month) ;
$set_day = sprintf("%02s", $set_day) ;
my $set_ccyy_dd_mm = $set_year . '-' . $set_month . '-' . $set_day ;
$print_box_content_rows .= &common_min_forms_start('report') ;
$allow_deselect{customer_name} = 1 ;
$allow_deselect{camera_system} = 1 ;
$allow_deselect{country} = 1 ;
$allow_deselect{options} = 1 ;
$allow_deselect{type} = 1 ;
&common_min_select_opts('customer_name','customers','name','','','','');
$print_box_content_rows .= &common_min_form_select('customer_name','') ;
# $print_box_content_rows .= &common_min_form_input('customer_name','') ;
$print_box_content_rows .= &common_min_form_input('quote_nr','') ;
$print_box_content_rows .= &common_min_form_datepicker('quotes_from','') ; # $set_ccyy_dd_mm
$print_box_content_rows .= &common_min_form_datepicker('quotes_to','') ; # $now_ccyy_mm_dd
$print_box_content_rows .= &common_min_form_input('po_nr','') ;
$print_box_content_rows .= &common_min_form_input('invoice_nr','') ;
add local backups
2026-02-03 12:35:43 +00:00
&common_min_select_opts('camera_system','camera_systems','name','','','','');
$print_box_content_rows .= &common_min_form_select('camera_system','') ;
Initial commit
2025-11-26 09:31:54 +00:00
# $print_box_content_rows .= &common_min_form_input('serial_nr','') ;
# $print_box_content_rows .= &common_min_form_input('country','') ;
&common_min_select_opts('country','countries','name','','','','');
$print_box_content_rows .= &common_min_form_select('country','') ;
# $print_box_content_rows .= &common_min_form_checkbox('invoiced','','') ; # Display all quotes that is Invoiced
# $print_box_content_rows .= &common_min_form_checkbox('accepted','','') ; # Display all quotes that is Accepted
# $print_box_content_rows .= &common_min_form_checkbox('closed','','') ; # Display all quotes that is Cancelled
my $options_selected = 'SELECTED' if $useropts{boss}{$username} or $useropts{super}{$username} ;
$opts{options} = qq~<option value="all" $options_selected>All</option><option value="accepted">Accepted</option><option value="pending">Pending</option><option value="closed">Closed</option>~ ;
$print_box_content_rows .= &common_min_form_select('options','') ;
$opts{type} = qq~<option value=""></option><option value="purchase">Purchased</option><option value="rental">Rental</option><option value="software">Software</option><option value="other">Other</option>~ ;
$print_box_content_rows .= &common_min_form_select('type','') ;
$print_box_content_rows .= &common_min_forms_end('','','report') ;
&common_min_search_screen ;
} #-------------------------------------------------------------------------------
sub filter_screen {
our $lcol = 2 ;
our $fcol = 5 ;
my ($set_year,$set_month,$set_day) = Add_Delta_Days($now_year,$now_mm,$now_dd,-42); # 6 weeks back
$set_month = sprintf("%02s", $set_month) ;
$set_day = sprintf("%02s", $set_day) ;
my $set_ccyy_dd_mm = $set_year . '-' . $set_month . '-' . $set_day ;
$print_box_content_rows .= &common_min_forms_start('report') ;
&common_min_select_opts('customer_name','customers','name','','','','');
$print_box_content_rows .= &common_min_form_select('customer_name','') ;
$print_box_content_rows .= &common_min_form_datepicker('quotes_from','') ; # $set_ccyy_dd_mm
$print_box_content_rows .= &common_min_form_datepicker('quotes_to','') ; # $now_ccyy_mm_dd
$opts{type} = qq~<option value=""></option><option value="purchase">Purchased</option><option value="rental">Rental</option><option value="software">Software</option><option value="other">Other</option>~ ;
$print_box_content_rows .= &common_min_form_select('type','') ;
my $options_selected = 'SELECTED' if $useropts{boss}{$username} or $useropts{super}{$username} ;
$opts{options} = qq~<option value="all" $options_selected>All</option><option value="accepted">Accepted</option><option value="pending">Pending</option><option value="closed">Closed</option>~ ;
$print_box_content_rows .= &common_min_form_select('options','') ;
$print_box_content_rows .= &common_min_forms_end('','','report') ;
&common_min_search_screen ;
} #-------------------------------------------------------------------------------
# use tabs_test2 ;
add local backups
2026-02-03 12:35:43 +00:00
use tabs ;
Initial commit
2025-11-26 09:31:54 +00:00
use common ;
use today ;
use report ;
use xlsxcreator ;
1;
Reference in New Issue Copy Permalink