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

Review Complete Report

 
From - [+$network_modid+]
 
[* $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(scalar(@$arr_penalty)) { foreach $pen_ha (@$arr_penalty) { if($pen_ha->{V_ID} == $ha->{V_ID}) { $pen_amount = $pen_ha->{PENLATY_AMT}; $pen_cnt = qq~$pen_ha->{TPENALTY_CNT}~; $pen_amt = qq~$pen_ha->{PENLATY_AMT}~; $pen_vid = $pen_ha->{V_ID}; last; } else { $pen_cnt = 0; $pen_amt = 0; $pen_vid = ''; $pen_amount = 0; } } } else { $pen_cnt = 0; $pen_amt = 0; $pen_amount = 0; } 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->{BENTRY_CNT} != 0) { $back_torework = qq~$ha->{BENTRY_CNT}~; } else { $back_torework = $ha->{BENTRY_CNT}; } $ha->{TOTAL_AMT} = $ha->{TOTAL_AMT} - $pen_amount; $html .= ' '.$ha->{VENDOR_FULLNAME}.' '.$ha->{TENTRY_CNT}.' '.$approve.' '.$reject.' '.$ha->{SENTRY_CNT}.' '.$back_torework.' '.$ha->{BASIC_AMT}.' INR '.$ha->{BONUS_AMT}.' INR '.$pen_cnt.' '.$pen_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->{SENTRY_CNT} += $ha->{SENTRY_CNT} || 0; $total->{BENTRY_CNT} += $ha->{BENTRY_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 +] [* if($dataref->{to_date} && $dataref->{from_date}) { *] [* } else { *] [* } *]
Vendor Name Records Amount Penalty Count Penalty Pay Total Pay
T A R S B Basic Bonus
Total [+ $total->{TENTRY_CNT} +][+ $total->{AENTRY_CNT} +][+ $total->{AENTRY_CNT} +][+ $total->{RENTRY_CNT} +] [+ $total->{SENTRY_CNT} +] [+ $total->{BENTRY_CNT} +] [+ $total->{BASIC_AMT} +] INR [+ $total->{BONUS_AMT} +] INR    [+ $total->{TOTAL_AMT} +] INR
[* } else { *] Record Not Found. [* } *]
 
[+ $dataref->{FOOTER} +]