[* $dataref = $param[0]; $recarr = $param[1]; $escmode = 0; $frm_network_modid = ''; if($dataref->{frm_network_modid} && $dataref->{frm_network_modid} eq 'HTVENDOR') { $frm_network_modid = qq~ ~; } else { $frm_network_modid = qq~ ~; } *] [+ $dataref->{HEADER} +] [+$dataref->{'leftNavNetwork'}+]
 

QC Audit Report

 
From -
 
[* $html = ''; foreach $ha (@$recarr) { $ha->{BASIC_AMT} = sprintf "%.2f", $ha->{BASIC_AMT}; $ha->{BONUS_AMT} = sprintf "%.2f", $ha->{BONUS_AMT}; $ha->{TOTAL_AMT} = sprintf "%.2f", $ha->{TOTAL_AMT}; $dataref->{from_date} = $dataref->{from_date} || ''; $dataref->{to_date} = $dataref->{to_date} || ''; if($ha->{AENTRY_CNT} != 0) { $approve = qq~$ha->{AENTRY_CNT}~; } else { $approve = $ha->{AENTRY_CNT}; } if($ha->{RENTRY_CNT} != 0) { $reject = qq~$ha->{RENTRY_CNT}~; } else { $reject = $ha->{RENTRY_CNT}; } if($ha->{PENTRY_CNT} != 0) { $pending = qq~$ha->{PENTRY_CNT}~; } else { $pending = $ha->{PENTRY_CNT}; } $html .= ' '.$ha->{VENDOR_FULLNAME}.' '.$ha->{TENTRY_CNT}.' '.$approve.' '.$reject.' '.$pending.' '.$ha->{BASIC_AMT}.' INR '.$ha->{BONUS_AMT}.' INR '.$ha->{TOTAL_AMT}.' INR '; $total->{TENTRY_CNT} += $ha->{TENTRY_CNT} || 0; $total->{AENTRY_CNT} += $ha->{AENTRY_CNT} || 0; $total->{PENTRY_CNT} += $ha->{PENTRY_CNT} || 0; $total->{RENTRY_CNT} += $ha->{RENTRY_CNT} || 0; $total->{BASIC_AMT} += $ha->{BASIC_AMT} || 0; $total->{BONUS_AMT} += $ha->{BONUS_AMT} || 0; $total->{TOTAL_AMT} += $ha->{TOTAL_AMT} || 0; } *] [* if($html ne '') { $total->{BASIC_AMT} = sprintf "%.2f", $total->{BASIC_AMT}; $total->{BONUS_AMT} = sprintf "%.2f", $total->{BONUS_AMT}; $total->{TOTAL_AMT} = sprintf "%.2f", $total->{TOTAL_AMT}; *] [+ $html +]
Vendor Name Records Amount Total Pay
T A R P Basic Bonus
Total [+ $total->{TENTRY_CNT} +] [+ $total->{AENTRY_CNT} +] [+ $total->{RENTRY_CNT} +] [+$total->{PENTRY_CNT}+] [+ $total->{BASIC_AMT} +] INR [+ $total->{BONUS_AMT} +] INR [+ $total->{TOTAL_AMT} +] INR
[* } else { *] Record Not Found. [* } *]
 
[+ $dataref->{FOOTER} +]