[* $dataref = $param[0]; $site_url = $param[1]; $venarr = $param[2]; $escmode = 0; *] [+ $dataref->{HEADER} +] [+ $dataref->{leftNavNetwork} +] [* $entry_type = ''; $network_modid = ''; if($dataref->{'network_id'} == 3) { if($dataref->{'noe'} eq 'new') { $entry_type = qq~ ~; } elsif($dataref->{'noe'} eq 'existing') { $entry_type = qq~ ~; } else { $entry_type = qq~ ~; } 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~ ~; } $entry_type = qq~ ~; } *]
 

[+$dataref->{'title'}+]

 
[+ $entry_type +]
From -   
 
[* $dataref->{'todays_date1'} = $dataref->{'todays_date1'} || ''; $dataref->{'todays_date2'} = $dataref->{'todays_date2'} || ''; $dataref->{'vendor_id'} = $dataref->{'vendor_id'} || ''; $html = ''; foreach $ha (@$venarr) { $dataref->{'from_date'} = $dataref->{'from_date'} || ''; $dataref->{'to_date'} = $dataref->{'to_date'} || ''; $ha->{TENTRY_CNT} = $ha->{TENTRY_CNT} || 0; $ha->{AENTRY_CNT} = $ha->{AENTRY_CNT} || 0; $ha->{PENTRY_CNT} = $ha->{PENTRY_CNT} || 0; $ha->{RENTRY_CNT} = $ha->{RENTRY_CNT} || 0; $ha->{BENTRY_CNT} = $ha->{BENTRY_CNT} || 0; $ha->{SENTRY_CNT} = $ha->{SENTRY_CNT} || 0; if($ha->{BASIC_AMT}) { $ha->{BASIC_AMT} = sprintf "%.2f", $ha->{BASIC_AMT} || 0; } else { $ha->{BASIC_AMT} = 0; } if($ha->{BONUS_AMT}) { $ha->{BONUS_AMT} = sprintf "%.2f", $ha->{BONUS_AMT} || 0; } else { $ha->{BONUS_AMT} = 0; } if($ha->{TOTAL_AMT}) { $ha->{TOTAL_AMT} = sprintf "%.2f", $ha->{TOTAL_AMT} || 0; } else { $ha->{TOTAL_AMT} = 0; } $html .= qq~ $ha->{V_ID} $ha->{VENDOR_SCREENNAME}~; if($ha->{TENTRY_CNT}) { $html .= qq~$ha->{TENTRY_CNT}~; } else { $html .= qq~0~; } if($ha->{AENTRY_CNT}) { if($dataref->{to_date} && $dataref->{from_date}) { $html .= qq~ $ha->{AENTRY_CNT}~; $html .= qq~STATUS~; $sha = qq~FCP~; } else { $html .= qq~$ha->{AENTRY_CNT} ~; $sha = qq~ ~; } } else { $html .= qq~0~; } if($ha->{PENTRY_CNT}) { $html .= qq~$ha->{PENTRY_CNT}~; } else { $html .= qq~0~; } if($ha->{RENTRY_CNT}) { $html .= qq~$ha->{RENTRY_CNT}~; } else { $html .= qq~0~; } if($ha->{BENTRY_CNT}) { $html .= qq~$ha->{BENTRY_CNT}~; } else { $html .= qq~0~; } if($ha->{SENTRY_CNT}) { $html .= qq~$ha->{SENTRY_CNT}~; } else { $html .= qq~0~; } $html .= qq~$ha->{BASIC_AMT} $ha->{BONUS_CNT} $ha->{BONUS_AMT} $ha->{TOTAL_AMT} ~; $total->{TENTRY_CNT} += $ha->{TENTRY_CNT}; $total->{AENTRY_CNT} += $ha->{AENTRY_CNT}; $total->{PENTRY_CNT} += $ha->{PENTRY_CNT}; $total->{RENTRY_CNT} += $ha->{RENTRY_CNT}; $total->{BENTRY_CNT} += $ha->{BENTRY_CNT}; $total->{SENTRY_CNT} += $ha->{SENTRY_CNT}; $total->{BASIC_AMT} += $ha->{BASIC_AMT}; $total->{BONUS_AMT} += $ha->{BONUS_AMT}; $total->{TOTAL_AMT} += $ha->{TOTAL_AMT}; $total->{BONUS_CNT} += $ha->{BONUS_CNT}; $total->{VENDOR_CURRENCY_NAME} = $ha->{VENDOR_CURRENCY_NAME} || ''; } *] [* if($html ne '') { if($total->{BASIC_AMT}) { $total->{BASIC_AMT} = sprintf "%.2f", $total->{BASIC_AMT}; } else { $total->{BASIC_AMT} = 0; } if($total->{BONUS_AMT}) { $total->{BONUS_AMT} = sprintf "%.2f", $total->{BONUS_AMT}; } else { $total->{BONUS_AMT} = 0; } if($total->{TOTAL_AMT}) { $total->{TOTAL_AMT} = sprintf "%.2f", $total->{TOTAL_AMT}; } else { $total->{TOTAL_AMT} = 0; } $html .= qq~   Total~; if($total->{TENTRY_CNT}) { $html .= qq~ $total->{TENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{AENTRY_CNT}) { if($dataref->{to_date} && $dataref->{from_date}) { $html .= qq~ $total->{AENTRY_CNT}~; } else { $html .= qq~ $total->{AENTRY_CNT}~; } } else { $html .= qq~ 0~; } $html .= qq~  ~; if($total->{PENTRY_CNT}) { $html .= qq~ $total->{PENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{RENTRY_CNT}) { $html .= qq~ $total->{RENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{BENTRY_CNT}) { $html .= qq~ $total->{BENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{SENTRY_CNT}) { $html .= qq~ $total->{SENTRY_CNT}~; } else { $html .= qq~ 0~; } if($total->{BASIC_AMT}) { $html .= qq~ $total->{BASIC_AMT}~; } else { $html .= qq~ 0~; } if($total->{BONUS_CNT}) { $html .= qq~ $total->{BONUS_CNT}~; } else { $html .= qq~ 0~; } if($total->{BONUS_AMT}) { $html .= qq~ $total->{BONUS_AMT}~; } else { $html .= qq~ 0~; } if($total->{TOTAL_AMT}) { $html .= qq~ $total->{TOTAL_AMT}~; } else { $html .= qq~ 0~; } $html .= qq~ ~; *]
[+ $sha +] [+ $html +]
ID Vendor Name Records Amount (INR) Bonus Total Pay (INR)
T AP R B S Basic Bonus Field Count  
[* } else { *] Report Not Found. [* } *]
 
 
 
[+ $dataref->{FOOTER} +]