print "
|
\n";
#print " | \n";
print " | \n";
print " |
\n";
print " |
\n";
&get_yesterday;
open(RPTDET, ";
close(RPTDET);
foreach $line (@rptdet) {
$r_line = split(/\n/,$line);
($rpt_dt,$dsrd,$rpt_nts,$dsr_notes,$repcr_dt,$repcr_date,$rpt_cd,$rep,$sess_nbr,$session,$rpt_usr,$user,$tdy_pre_coh,$pre_coh,$td_sls_d,$td_sls,$tot_exp_d,$tot_exp,$fin_coh_d,$fin_coh,$tdy_grpft_d,$tdy_grpft,$cash_xfr_desc,$cash_xfr_d,$cash_xfr_v,$tdy_cscnt_d,$tdy_custcnt,$groc_d,$groc,$meats_desc,$meats_d,$meats_v,$fish_desc,$fish_d,$fish_v,$rice_d,$rice,$trans_d,$trans,$phwf_d,$phwf,$elec_d,$elec,$wtr_bill_d,$wtr_bill,$loan_d,$loan,$pyrlA_desc,$pyrlA_d,$pyrlA_v,$van_desc,$van_d,$van_v,$legal2_desc,$legal2_d,$legal2_v,$legal3_desc,$legal3_d,$legal3_v,$misc1_desc,$misc1_d,$misc1_v,$misc2_desc,$misc2_d,$misc2_v) = split(/\,/,$r_line);
if($dsrd eq $yesterday) {
$Lcoh = $pre_coh;
}else {
next;
}
}
print " | \n";
print "$Lcoh |
\n";
print " | \n";
print " |
\n";
print "| Enter \"Current Cash on Hand\" Amount or you will have to start over! |
\n";
print " | \n";
print "$User |
\n";