492 lines
16 KiB
Perl
492 lines
16 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
|
||
|
|
|
||
|
|
use CGI qw( :standard );
|
||
|
|
use CGI::Carp qw(fatalsToBrowser);
|
||
|
|
use LWP::Simple qw($ua get);
|
||
|
|
use Date::Calc qw(:all);
|
||
|
|
use MIME::Lite;
|
||
|
|
use Mail::Sendmail;
|
||
|
|
use Time::Piece ;
|
||
|
|
|
||
|
|
require cfg ;
|
||
|
|
|
||
|
|
print header; # CGI.pm method
|
||
|
|
|
||
|
|
#-------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
my @ARGV = split(/\&/, $ENV{'QUERY_STRING'});
|
||
|
|
my $type = $ARGV[0] ;
|
||
|
|
|
||
|
|
our ($q) = CGI -> new() ;
|
||
|
|
my $iaction = $q -> param('iaction') ;
|
||
|
|
my $iattachdoc = $q -> param('iattachdoc') ;
|
||
|
|
|
||
|
|
# our $debug = 1 ;
|
||
|
|
# our $testing = 1 ;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
&today ;
|
||
|
|
|
||
|
|
# my $string = qq~6565,2,328.00~ ;
|
||
|
|
|
||
|
|
if ($iaction eq '') {
|
||
|
|
|
||
|
|
&screen1 ;
|
||
|
|
|
||
|
|
} elsif ($iaction eq 'upload') {
|
||
|
|
|
||
|
|
&db_open_ro ;
|
||
|
|
our $db_ignore_open_close = 1 ; # do one open and one close instead of repeating it
|
||
|
|
&read_import ;
|
||
|
|
&read_db ;
|
||
|
|
&process ;
|
||
|
|
&screen4 ;
|
||
|
|
$db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
|
||
|
|
&db_close_conn ;
|
||
|
|
|
||
|
|
}
|
||
|
|
# elsif ($iaction eq 'save') {
|
||
|
|
|
||
|
|
# &common_min_load_params ;
|
||
|
|
# &db_open_upd ;
|
||
|
|
# our $db_ignore_open_close = 1 ; # do one open and one close instead of repeating it
|
||
|
|
# &read_read_import_lines ;
|
||
|
|
# &update ;
|
||
|
|
# $db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
|
||
|
|
# &db_close_conn ;
|
||
|
|
# &screen2 ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
exit;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub read_read_import_lines {
|
||
|
|
|
||
|
|
our $max_unmatched_id = 0 ;
|
||
|
|
|
||
|
|
my $upload_filehandle = $q->upload('iattachdoc') ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub update {
|
||
|
|
|
||
|
|
# &db_min_ro('logistics_costs','event_nr,amounts,file_name_ids,cost_type',"",'','') ;
|
||
|
|
|
||
|
|
# &db_min_ro('logistics_costs_tables',"1,MAX(id)+1 AS 'max_id'","",'','') ;
|
||
|
|
# $db{logistics_costs_tables}{1}{max_id} = 1 unless $db{logistics_costs_tables}{1}{max_id} ;
|
||
|
|
|
||
|
|
# my %ii = %i ; my $updated_logistics_costs_tables = 0 ; my $file_id = 0 ; my %cost_types = () ; my %event_has_diff_cost_types = () ; my %prev_cost_type = () ;
|
||
|
|
|
||
|
|
# foreach (keys %ii) {
|
||
|
|
# if ($_ =~ /costtype_/) {
|
||
|
|
# my ($NA,$event_id,$amnt_cnt) = split(/\_/,$_) ;
|
||
|
|
# $event_id = ($event_id =~ /\d+/) ? $event_id : -1 ;
|
||
|
|
# $cost_types{$event_id}{$amnt_cnt} = $ii{$_} ;
|
||
|
|
# if ($prev_cost_type{$event_id} && $prev_cost_type{$event_id} ne $ii{$_}) {
|
||
|
|
# $event_has_diff_cost_types{$event_id} = 1 ;
|
||
|
|
# }
|
||
|
|
# $prev_cost_type{$event_id} = $ii{$_} ;
|
||
|
|
# }
|
||
|
|
# }
|
||
|
|
|
||
|
|
# foreach (keys %ii) {
|
||
|
|
# if ($_ =~ /breakdownamnts_/) {
|
||
|
|
# unless ($updated_logistics_costs_tables) {
|
||
|
|
# $updated_logistics_costs_tables = 1 ;
|
||
|
|
# %i = () ;
|
||
|
|
# $i{id} = $db{logistics_costs_tables}{1}{max_id} ;
|
||
|
|
# $file_id = $i{id} ;
|
||
|
|
# $i{file_name} = $ii{uploaded_file_name} ;
|
||
|
|
# $i{file_total} = $ii{uploaded_file_total} ;
|
||
|
|
# $i{file_total} = sprintf("%.0f",$i{file_total}) ;
|
||
|
|
# $i{file_nr_of_unique_events} = $ii{file_nr_of_unique_events} ;
|
||
|
|
# $i{file_nr_of_rows} = $ii{file_nr_of_rows} ;
|
||
|
|
# $i{date_uploaded} = "$now_ccyy_mm_dd $now_hour:$now_min:$now_sec" ;
|
||
|
|
# $i{uploaded_by} = $userid ;
|
||
|
|
# # &db_min_insert('logistics_costs_tables') ;
|
||
|
|
|
||
|
|
# }
|
||
|
|
|
||
|
|
# my ($NA,$event_id) = split(/\_/,$_) ;
|
||
|
|
|
||
|
|
# %i = () ;
|
||
|
|
|
||
|
|
# $i{event_nr} = ($event_id =~ /\d+/) ? $event_id : -1 ;
|
||
|
|
|
||
|
|
# $i{cost_type} = ($db{logistics_costs}{$i{event_nr}}{cost_type}) ? "$db{logistics_costs}{$i{event_nr}}{cost_type}::" : "" ;
|
||
|
|
|
||
|
|
# my $added_to_cost_type = 0 ;
|
||
|
|
|
||
|
|
# foreach my $amnt_cnt (sort {$a <=> $b} keys %{$cost_types{$i{event_nr}}}) {
|
||
|
|
# $added_to_cost_type = 1 ;
|
||
|
|
# $i{cost_type} .= qq~$cost_types{$i{event_nr}}{$amnt_cnt};;~ ;
|
||
|
|
# last unless $event_has_diff_cost_types{$i{event_nr}} ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
# $i{cost_type} = substr($i{cost_type},0,-2) if $added_to_cost_type ;
|
||
|
|
|
||
|
|
# # $i{cost_type} = ($db{logistics_costs}{$i{event_nr}}{cost_type} ) ? "$db{logistics_costs}{$i{event_nr}}{cost_type}::" . $ii{"costtype_$event_id"} : $ii{"costtype_$event_id"} ;
|
||
|
|
# $i{file_name_ids} = ($db{logistics_costs}{$i{event_nr}}{file_name_ids}) ? "$db{logistics_costs}{$i{event_nr}}{file_name_ids}:$file_id" : "$file_id" ;
|
||
|
|
# $i{amounts} = ($db{logistics_costs}{$i{event_nr}}{amounts} ) ? "$db{logistics_costs}{$i{event_nr}}{amounts}:$ii{$_}" : "$ii{$_}" ; ;
|
||
|
|
|
||
|
|
# $i{amounts} =~ s/\,//g ;
|
||
|
|
# $i{amounts} =~ s/\.00//g ;
|
||
|
|
|
||
|
|
# if ($i{event_nr} && $db{logistics_costs}{$i{event_nr}}{event_nr}) {
|
||
|
|
# $ignore{event_nr} = 1 ;
|
||
|
|
# # &db_min_upd('logistics_costs',"event_nr='$i{event_nr}'") ;
|
||
|
|
# } else {
|
||
|
|
# &db_min_ro('logistics_costs',"1,MAX(id)+1 AS 'max_id'","",'','') ;
|
||
|
|
# $db{logistics_costs}{1}{max_id} = 1 unless $db{logistics_costs}{1}{max_id} ;
|
||
|
|
# $i{id} = $db{logistics_costs}{1}{max_id} ;
|
||
|
|
# # &db_min_insert('logistics_costs') ;
|
||
|
|
# }
|
||
|
|
# }
|
||
|
|
# }
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub read_import {
|
||
|
|
|
||
|
|
$print_box_content_rows .= &common_min_forms_start('import-bank-transactions-form') ;
|
||
|
|
|
||
|
|
my $upload_filehandle = $q->upload('iattachdoc') ;
|
||
|
|
|
||
|
|
unless ($upload_filehandle) {
|
||
|
|
$warning = "PLEASE UPLOAD A CSV FILE!!!" ;
|
||
|
|
&common_min_alert_type ;
|
||
|
|
&screen1 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
our %totals = () ; my $line_cnt = 0 ; my %event_cnt = () ;
|
||
|
|
|
||
|
|
if ($upload_filehandle !~ /.csv/) {
|
||
|
|
$error = "PLEASE UPLOAD A CSV TYPE FILE!!!" ;
|
||
|
|
&common_min_alert_type ;
|
||
|
|
&screen1 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $file_total_amnt = 0 ; my $file_nr_of_rows = 0 ;
|
||
|
|
|
||
|
|
&db_min_ro('bank_transactions','id','','','') ;
|
||
|
|
|
||
|
|
if ($type eq 'csv') {
|
||
|
|
|
||
|
|
while ( <$upload_filehandle> ) {
|
||
|
|
# foreach (@imported_file_data) {
|
||
|
|
|
||
|
|
next if $_ !~ /\d+/ ;
|
||
|
|
|
||
|
|
$file_nr_of_rows++ ;
|
||
|
|
|
||
|
|
chomp $_;
|
||
|
|
$_ =~ s/\R\z// ;
|
||
|
|
|
||
|
|
my @data_arr = split(/\,/,$_) ;
|
||
|
|
|
||
|
|
next if $db{bank_transactions}{$data_arr[0]}{id} ;
|
||
|
|
|
||
|
|
$data{$data_arr[0]}{date_time} = $data_arr[1] ;
|
||
|
|
$data{$data_arr[0]}{transaction_date} = $data_arr[2] ;
|
||
|
|
$data{$data_arr[0]}{amount} = $data_arr[3] ;
|
||
|
|
$data{$data_arr[0]}{balance} = $data_arr[4] ;
|
||
|
|
$data{$data_arr[0]}{description} = $data_arr[5] ;
|
||
|
|
$data{$data_arr[0]}{account_nr} = $data_arr[6] ;
|
||
|
|
$data{$data_arr[0]}{category_id} = $data_arr[7] ;
|
||
|
|
$data{$data_arr[0]}{client_id} = $data_arr[8] ;
|
||
|
|
$data{$data_arr[0]}{invoice_nr} = $data_arr[9] ;
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $id (sort {$a <=> $b} keys %data) {
|
||
|
|
%i = () ;
|
||
|
|
$i{id} = $id ;
|
||
|
|
foreach my $col (keys %{$data{$id}}) {
|
||
|
|
$i{$col} = $data{$id}{$col} ;
|
||
|
|
}
|
||
|
|
&db_min_insert('bank_transactions') ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# my $col_names = "id,date_time,transaction_date,amount,balance,description,account_nr,category_id,client_id,invoice_nr" ;
|
||
|
|
|
||
|
|
# my $values = join("\n,",map{ "($_,'$data{$_}{date_time}','$data{$_}{transaction_date}','$data{$_}{amount}','$data{$_}{balance}','$data{$_}{description}','$data{$_}{account_nr}',$data{$_}{category_id},$data{$_}{client_id},'$data{$_}{invoice_nr}')" } keys %data) ;
|
||
|
|
|
||
|
|
# print "\n INSERT INTO bank_transactions ($col_names) VALUES \n $values ;" if $values ;
|
||
|
|
|
||
|
|
return ;
|
||
|
|
|
||
|
|
# $file_total_amnt = sprintf("%.0f",$file_total_amnt) ;
|
||
|
|
|
||
|
|
# our @sql_col_display = ("event_nr","cost_type","logistics_totals") ;
|
||
|
|
|
||
|
|
# my $file_total = 0 ; my $file_nr_of_unique_events = 0 ;
|
||
|
|
|
||
|
|
# &db_min_ro('event_quotes','id,quote_completed,quote_accepted,fixed_system_overall_status,event_system_id_multiple,quote_rejected,quote_cancelled,quote_created,quote_pending,sss_quote_nr',"",'','') ;
|
||
|
|
|
||
|
|
# &db_min_ro('event_systems',"*",'','','') ;
|
||
|
|
|
||
|
|
# my %seen_event = () ;
|
||
|
|
|
||
|
|
# foreach my $event_id (sort {$a <=> $b} keys %totals) {
|
||
|
|
|
||
|
|
# next if $event_id eq 'breakdown' ;
|
||
|
|
|
||
|
|
# my $amnt_cnt = 0 ;
|
||
|
|
|
||
|
|
# foreach my $sep_amnt (split(/\;/,$totals{breakdown}{$event_id})) {
|
||
|
|
|
||
|
|
# $print_tbody .= qq~<tr>~ ;
|
||
|
|
|
||
|
|
# $amnt_cnt++ ;
|
||
|
|
|
||
|
|
# foreach (@sql_col_display) {
|
||
|
|
# my $val = '' ;
|
||
|
|
# my $class = qq~class="dt-center"~ ;
|
||
|
|
# if ($_ eq 'event_nr') {
|
||
|
|
# $val = ($event_id eq 'IBT') ? &common_min_get_event_quote_button("N/A") : &common_min_get_event_quote_button($event_id) ;
|
||
|
|
# $file_nr_of_unique_events++ unless $seen_event{$event_id} ;
|
||
|
|
# } elsif ($_ eq 'cost_type') {
|
||
|
|
# $val = ($event_id eq 'IBT') ? $event_id : "" ;
|
||
|
|
# $val = ($val) ? &common_min_table_input("costtype_$event_id\_$amnt_cnt",$val) : "" ;
|
||
|
|
# } elsif ($_ eq 'logistics_totals') {
|
||
|
|
# chop $totals{breakdown}{$event_id} if $totals{breakdown}{$event_id} ;
|
||
|
|
|
||
|
|
# # my $seperate_amnts_tooltip = ($totals{breakdown}{$event_id} =~ /:/) ? $totals{breakdown}{$event_id} : qq~~ ;
|
||
|
|
# # $seperate_amnts_tooltip =~ s/\:/\<br>/g ;
|
||
|
|
# # $seperate_amnts_tooltip = qq~title data-toggle="tooltip" data-placement="right" data-original-title="Seperate Amounts :<br>$seperate_amnts_tooltip"~ if $seperate_amnts_tooltip ;
|
||
|
|
|
||
|
|
# my $breakdownamnts = ($seen_event{$event_id}) ? qq~~ : qq~<input style="display:none;" name="breakdownamnts_$event_id" value="$totals{breakdown}{$event_id}">~ ;
|
||
|
|
# # <input style="display:none;" name="total_$event_id" value="$totals{$event_id}">
|
||
|
|
|
||
|
|
# # $totals{seperate}{$event_id}{$event_cnt{$event_id}}
|
||
|
|
|
||
|
|
# # $totals{seperate}{$event_id}{$amnt_cnt} = &common_commify(sprintf("%.02f",$totals{seperate}{$event_id}{$amnt_cnt})) ;
|
||
|
|
|
||
|
|
# $val = qq~$breakdownamnts~ . qq~<span $seperate_amnts_tooltip>~ . $totals{seperate}{$event_id}{$amnt_cnt} . qq~</span>~ ;
|
||
|
|
|
||
|
|
# $file_total += $totals{$event_id} unless $seen_event{$event_id} ;
|
||
|
|
# }
|
||
|
|
# # style="display:none;
|
||
|
|
|
||
|
|
# $print_tbody .= qq~<td $class>$val</td>~ ;
|
||
|
|
# }
|
||
|
|
# $print_tbody .= qq~</tr>~ ;
|
||
|
|
|
||
|
|
# $seen_event{$event_id} = 1 ;
|
||
|
|
|
||
|
|
# }
|
||
|
|
|
||
|
|
# }
|
||
|
|
|
||
|
|
# &db_min_ro('logistics_costs_tables',"1,id","`file_total`='$file_total_amnt' AND `file_nr_of_unique_events`='$file_nr_of_unique_events' AND `file_nr_of_rows`='$file_nr_of_rows'",'','') ;
|
||
|
|
|
||
|
|
# if ($db{logistics_costs_tables}{1}{id}) {
|
||
|
|
# $warning = "THE FILE UPLOADED HAVE ALREADY BEEN SAVED!!!" ;
|
||
|
|
# &common_min_alert_type ;
|
||
|
|
# # &screen1 ;
|
||
|
|
# # $print_box_content_rows .= qq~<input style="display:none;" name="file_exists" value="1">~ ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
# $file_total = sprintf("%.02f",$file_total) ;
|
||
|
|
|
||
|
|
# $print_box_content_rows .= qq~<input style="display:none;" name="uploaded_file_name" value="$upload_filehandle">~ ;
|
||
|
|
# $print_box_content_rows .= qq~<input style="display:none;" name="uploaded_file_total" value="$file_total">~ ;
|
||
|
|
# $print_box_content_rows .= qq~<input style="display:none;" name="file_nr_of_unique_events" value="$file_nr_of_unique_events">~ ;
|
||
|
|
# $print_box_content_rows .= qq~<input style="display:none;" name="file_nr_of_rows" value="$file_nr_of_rows">~ ;
|
||
|
|
|
||
|
|
# # $db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
|
||
|
|
# # &db_close_conn ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub read_db {
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub process {
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub screen1 {
|
||
|
|
|
||
|
|
&common_min_dialog ;
|
||
|
|
|
||
|
|
$print_box_content_rows .= qq~<div class="col-md-6"><div class="form-group"></div></div>~;
|
||
|
|
|
||
|
|
# my $date_inputs = &common_min_form_datepicker() ;
|
||
|
|
|
||
|
|
print <<ENDOFTEXT;
|
||
|
|
$dialog{'common'}{'head'}
|
||
|
|
|
||
|
|
<div id="content" class="col-lg-12 col-sm-12">
|
||
|
|
<!-- content starts -->
|
||
|
|
|
||
|
|
$alert
|
||
|
|
|
||
|
|
<div class="row">
|
||
|
|
<div class="box col-md-12">
|
||
|
|
<form role="form" name="form_import" id="import-form" action="?$type" method="post" enctype="multipart/form-data">
|
||
|
|
<div class='row'>
|
||
|
|
<div class='col-md-9'>
|
||
|
|
<div class='control-group'>
|
||
|
|
<div class='controls'>
|
||
|
|
<label for="imageInputFile">Import CSV</label>
|
||
|
|
<input type="file" id="imageInputFile" name='iattachdoc' tabindex='1'>
|
||
|
|
<p class="help-block">Upload file from PC.</p>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<input type="hidden" name="iaction" id="action" value="upload">
|
||
|
|
<div class="row"><div class="col-md-12"> </div></div>
|
||
|
|
<div class="row">
|
||
|
|
<div class="col-md-12">
|
||
|
|
<button type="button" class="btn btn-primary" id="importbutt">Upload</button>
|
||
|
|
<button type="button" class="btn btn-default" onclick="parent.BootstrapDialog.closeAll();">Close</button>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="row"><div class="col-md-12"> </div></div>
|
||
|
|
</form>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div><!--/fluid-row-->
|
||
|
|
</div><!--/.fluid-container-->
|
||
|
|
|
||
|
|
<!-- external javascript -->
|
||
|
|
|
||
|
|
<style>body { font-size: 14px; }.control-label { font-size: 14px; }</style>
|
||
|
|
<script src="$useropts{'js'}/jquery.form-validator.min.js"></script>
|
||
|
|
|
||
|
|
$dialog{'common'}{'js'}
|
||
|
|
|
||
|
|
<script>
|
||
|
|
|
||
|
|
\$.validate();
|
||
|
|
|
||
|
|
\$("#importbutt").click(function() {
|
||
|
|
\$('#action').val('upload');
|
||
|
|
\$('#import-form').submit();
|
||
|
|
});
|
||
|
|
|
||
|
|
</script>
|
||
|
|
</body>
|
||
|
|
</html>
|
||
|
|
ENDOFTEXT
|
||
|
|
#
|
||
|
|
|
||
|
|
exit ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
# sub screen2 {
|
||
|
|
|
||
|
|
# # <div class="alert alert-success" id="alertmsg" role="alert"></div>
|
||
|
|
|
||
|
|
# my $jquery = qq~parent.\$("#alertbar").html("<div class='alert alert-success' id='alertmsg' role='alert'><i class='glyphicon glyphicon-ok'></i> CSV SUCCESSFULLY IMPORTED</div>");
|
||
|
|
# parent.location.reload();
|
||
|
|
# parent.BootstrapDialog.closeAll() ;~ unless $debug ;
|
||
|
|
|
||
|
|
# print <<ENDOFTEXT;
|
||
|
|
# <!DOCTYPE html>
|
||
|
|
# <html lang="en">
|
||
|
|
# <head>
|
||
|
|
# <meta charset="utf-8">
|
||
|
|
# <title>$useropts{title}</title>
|
||
|
|
# <script src="$useropts{'bower_components'}/jquery/jquery.min.js"></script>
|
||
|
|
# </head>
|
||
|
|
# <body>
|
||
|
|
# <script>
|
||
|
|
|
||
|
|
# \$(function () {
|
||
|
|
# $jquery
|
||
|
|
# });
|
||
|
|
|
||
|
|
# </script>
|
||
|
|
# </body>
|
||
|
|
# </html>
|
||
|
|
# ENDOFTEXT
|
||
|
|
# #
|
||
|
|
|
||
|
|
# } #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
# sub screen3 {
|
||
|
|
|
||
|
|
# &thead;
|
||
|
|
|
||
|
|
# if ($isaved) { $alert = &common_min_alert('success',"$ucpage $isaved!",'ok') ; } else { &common_min_alert_type ; }
|
||
|
|
|
||
|
|
# # my $page = "$lcpage\s" ;
|
||
|
|
|
||
|
|
# my $page = "event-quotes" ;
|
||
|
|
|
||
|
|
# if ($s{no}) { $page = $lcpage ; }
|
||
|
|
|
||
|
|
# &common_min_thead ;
|
||
|
|
|
||
|
|
# # &common_min_table('id',$page,'list') ;
|
||
|
|
|
||
|
|
# $print_box_content_rows .= qq~
|
||
|
|
# <table id="itv-table" class="table table-striped table-bordered bootstrap-datatable datatable responsive">
|
||
|
|
# $print_thead
|
||
|
|
# <tbody>
|
||
|
|
# $print_tbody
|
||
|
|
# </tbody>
|
||
|
|
# </table>
|
||
|
|
# ~ ;
|
||
|
|
|
||
|
|
# # &common_min_table_select_jquery("#itv-table td:nth-last-child(2),#itv-table td:nth-last-child(10)") ;
|
||
|
|
|
||
|
|
# # our $savjqy = 1 ;
|
||
|
|
|
||
|
|
# # &common_min_extra_crumb("manage-$lcpage\s","Manage $ucfirstpage\s") ;
|
||
|
|
|
||
|
|
# # $extra_form_fields .= qq~<input type="file" id="imageInputFile" name='iattachdoc' tabindex='1'>~ ;
|
||
|
|
|
||
|
|
# # <input type="hidden" name="client_id" value="$i{client_id}">
|
||
|
|
# # <input type="hidden" name="date_from" value="$i{date_from}">
|
||
|
|
# # <input type="hidden" name="date_to" value="$i{date_to}">
|
||
|
|
# # <input type="hidden" name="event_costing_id" value="$i{event_costing_id}">
|
||
|
|
# # <input type="hidden" name="event_quote_id" value="$i{event_quote_id}">
|
||
|
|
# # <input type="hidden" name="paid_status" value="$i{paid_status}">
|
||
|
|
# # ~ ;
|
||
|
|
|
||
|
|
# our $savjqy = 1 ;
|
||
|
|
|
||
|
|
# $trigger_jquery_raw .= qq~
|
||
|
|
# \$("#savebutt").click( function () {
|
||
|
|
# \$("#import-bank-transactions-form").submit() ;
|
||
|
|
# }) ;
|
||
|
|
# ~ ;
|
||
|
|
|
||
|
|
# $print_box_content_rows .= &common_min_forms_end('','','save') ;
|
||
|
|
|
||
|
|
# require _blank_4 ;
|
||
|
|
|
||
|
|
# exit ;
|
||
|
|
|
||
|
|
# } #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub screen4 {
|
||
|
|
|
||
|
|
$trigger_jquery_raw .= qq~
|
||
|
|
if ("$i{analytics}" == "1") {
|
||
|
|
parent.\$("#$i{sel_field}").append("<option SELECTED value='$i{id}'>$i{name}</option>");
|
||
|
|
parent.\$("#$i{sel_field}").trigger("chosen:updated");
|
||
|
|
}
|
||
|
|
parent.BootstrapDialog.closeAll() ;
|
||
|
|
|
||
|
|
~;
|
||
|
|
|
||
|
|
&common_min_dialog_save_screen ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
use today ;
|
||
|
|
use common ;
|
||
|
|
# use production_time ;
|