#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
require cfg ;

use DBI;
use CGI::Carp qw(fatalsToBrowser);
# use Date::Calc qw(:all);
use POSIX;

use PDF::API2::Lite;
use constant mm => 25.4/72;
use constant in =>    1/72;
use constant pt =>    1;

print "Content-type: text/html\n\n";

&today ;

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

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

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

&build_pdf ;
&screen2 ;
    
exit ;

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

sub build_pdf {

my  $wbpdfpath = "$pdfpath/recon" ;
our $pdfname = 'VAT-RECON-' . '-' . $now_ccyymmdd . '.pdf' ;

&pdf_delete_previous_pdf($wbpdfpath) ;
&pdf_initialise($wbpdfpath,$pdfname,'Film Freight Waybill VAT Recon') ; ;
&pdf_initialise_page ;

$up     = 275 ;
$across = 1 ;
&pdf_page_header ;

&pdf_nl;
&pdf_black_line;
&pdf_nl;

&waybill_out_to_vat_recon_pdf ;

&pdf_footer ;

&finish_pdf ;
    
} #------------------------------------------------------------------------------------------
    
 
sub waybill_out_to_vat_recon_pdf {

&pdf_small_bold_text (10,  $up, 'Date') ;
&pdf_small_bold_text (30,  $up, 'HAWB') ;
&pdf_small_bold_text (45,  $up, 'Client') ;
&pdf_small_bold_text (100, $up, 'Customs VAT') ;
&pdf_small_bold_text (130, $up, 'Customs Duty') ;
&pdf_small_bold_text (160, $up, 'Invoice No') ;
&pdf_small_bold_text (185, $up, 'Paid') ;
&pdf_nl_t;
&pdf_dashed_line;

foreach (@ARGV) {
    # print "<br>" . $_  ;
    &pdf_check_value_of_up(30) ;
    &db_load_waybill($_) ;
    &pdf_nl;
    
    my $invno       = sprintf("%.0f",($wb{invno})) ;
    my $invvalue    = &common_commify(sprintf("%.2f",($wb{invvalue}))) ;
    my $customsvat  = &common_commify(sprintf("%.2f",($wb{customsvat}))) ;
    my $customsduty = &common_commify(sprintf("%.2f",($wb{customsduty}))) ;
    
    &pdf_small_text (10,  $up, $wb{capturedate}) ;
    &pdf_small_text (30,  $up, $wb{waybillno}) ;
    &pdf_small_text (45,  $up, $wb{client}) ;
    &pdf_small_text (100, $up, $customsvat) ;
    &pdf_small_text (130, $up, $customsduty) ;
    &pdf_small_text (160, $up, $invno) ;
    &pdf_small_text (185, $up, $invvalue) ;
    }
               
} #------------------------------------------------------------------------------------------
                    
sub screen2 {

print <<ENDOFTEXT;
$dialog{'common'}{'head'}    
    <div id="content" class="col-lg-12 col-sm-12">                       
        <CENTER>
        <table height='100%' width='100%'>
        <tr>
            <td align='center'>
                <iframe src='$useropts{'$domain'}/pdf/recon/$pdfname' width='100%' height='100%' frameborder='0'></iframe>
            </td>
        </tr>
        </table>    
    </div>
</body>
</html>
ENDOFTEXT
#

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

use db ;
use dialog ;
use today ;
use common ;
use pdf ;

1;