[* $dataref = $param[0]; $site_url = $param[1]; $vendor_id = $param[2]; $recarr = $param[3]; $arr_pen = $param[4]; $leftNavVendor = $param[5]; $escmode = 0; $i = 0; *] [+ $dataref->{HEADER} +] [+$leftNavVendor+]
 
[+ $dataref->{welcome_message}+] [* if($dataref->{'request_type'} eq 'welcome') { $html = ''; $ccnt = 0; if(scalar(@$recarr) > 0) { foreach $ha (@$recarr) { $ccnt ++; $html .= qq~ $ccnt $ha->{ADMIN_COMMENT} ~; } $table = qq~

Admin Comment

$html
S.No Comment
~; } } *] [+$table+] [* if($dataref->{'request_type'} eq 'allview') { *]
From -  
[* } *]
 
[* if($dataref->{'request_type'} ne 'welcome') { *]
[* $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_pen)) { foreach $pen_ha (@$arr_pen) { if($pen_ha->{O_ID} == $ha->{OP_ID}) { $pen_amount = $pen_ha->{PENLATY_AMT}; $pen_cnt = qq~ $pen_ha->{TPENALTY_CNT}~; $pen_amt = qq~$pen_ha->{PENLATY_AMT}~; $pen_oid = $pen_ha->{OP_ID}; $pen_cnt1 = $pen_ha->{TPENALTY_CNT}; last; } else { $pen_cnt = 0; $pen_amt = 0; $pen_oid = ''; $pen_amount = 0; } } } else { $pen_cnt = 0; $pen_amt = 0; $pen_amount = 0; } $ha->{TOTAL_AMT} = $ha->{TOTAL_AMT} - $pen_amt; $html .= qq~ $ha->{OPERATOR_NAME}~; if($ha->{TENTRY_CNT}) { $html .= qq~ $ha->{TENTRY_CNT}~; } else { $html .= qq~ 0~; } if($ha->{AENTRY_CNT}) { $html .= qq~ $ha->{AENTRY_CNT}~; } else { $html .= qq~ 0~; } if($ha->{RENTRY_CNT}) { $html .= qq~ $ha->{RENTRY_CNT}~; } else { $html .= qq~ 0~; } if($ha->{SENTRY_CNT}) { $html .= qq~ $ha->{SENTRY_CNT}~; } else { $html .= qq~ 0~; } if($ha->{BENTRY_CNT}) { $html .= qq~ $ha->{BENTRY_CNT}~; } else { $html .= qq~ 0~; } if($ha->{BASIC_AMT}) { $html .= qq~ $ha->{BASIC_AMT} $ha->{ABCP_CURR_NAME}~; } else { $html .= qq~ 0~; } if($ha->{BONUS_AMT}) { $html .= qq~ $ha->{BONUS_AMT} $ha->{ABCP_CURR_NAME}~; } else { $html .= qq~ 0~; } $html .= qq~$pen_cnt~; $html .= qq~$pen_amt~; if($ha->{TOTAL_AMT}) { $html .= qq~ $ha->{TOTAL_AMT} $ha->{ABCP_CURR_NAME}~; } else { $html .= qq~ 0~; } $html .= qq~ ~; $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->{PEN_CNT} += $pen_cnt1 || 0; $total->{PEN_AMT} += $pen_amt || 0; $total->{TOTAL_AMT} += $ha->{TOTAL_AMT} || 0; $total->{ABCP_CURR_NAME}= $ha->{ABCP_CURR_NAME} || ''; } *] [* 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 .= qq~ Total~; if($total->{TENTRY_CNT}) { $html .= qq~ $total->{TENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{AENTRY_CNT}) { $html .= qq~ $total->{AENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{RENTRY_CNT}) { $html .= qq~ $total->{RENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{SENTRY_CNT}) { $html .= qq~ $total->{SENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{BENTRY_CNT}) { $html .= qq~ $total->{BENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{BASIC_AMT}) { $html .= qq~ $total->{BASIC_AMT} $total->{ABCP_CURR_NAME}~; } else { $html .= qq~ 0~; } if($total->{BONUS_AMT}) { $html .= qq~ $total->{BONUS_AMT} $total->{ABCP_CURR_NAME}~; } else { $html .= qq~ 0~; } $html .= qq~ $total->{PEN_CNT} $total->{PEN_AMT}~; if($total->{TOTAL_AMT}) { $html .= qq~ $total->{TOTAL_AMT} $total->{ABCP_CURR_NAME}~; } else { $html .= qq~ 0~; } $html .= qq~ ~; *] [+ $html +]
Operator Name Records Amount Penalty Count Penalty Pay Total Pay
T A R S B Basic Bonus
[* } else { *] Record Not Found. [* } *]
 
[* } *]
 
 
[+ $dataref->{FOOTER} +]