[* $dataref = $param[0]; $recarr = $param[1]; $venarr = $param[2]; $escmode = 0; warn "==============".scalar(@$venarr); *] [+ $dataref->{HEADER} +] [+$dataref->{'leftNavNetwork'}+] [* if($dataref->{showflag}) { *]
 

Review Previous Payments

[* if(scalar(@$venarr)) { $rowcnt = 0; $ven_id = $dataref->{ven_id} || 0; $i = 9; $year = ''; foreach $ha (@$venarr) { $v_id = $ha->{VENDOR_ID} || 0; if($ven_id == $v_id) { $opt.= qq~~; } else { $opt.= qq~~; } $rowcnt ++; } if($dataref->{network_modid} && $dataref->{network_modid} eq 'IMFCP') { $mod_id.= qq~ ~; } elsif($dataref->{network_modid} && $dataref->{network_modid} eq 'HTVENDOR') { $mod_id.= qq~ ~; } else { $mod_id.= qq~ ~; } while($i <= 16) { if($dataref->{year} && $dataref->{year} eq $i) { $year .= qq~~; } else { $year .= qq~~; } $i++; } *]
Search Month [+ $dataref->{monthscombo} +] Year
[* } *]
 

[* $html = ''; my $count = 0; foreach $ha (@$recarr) { $ha->{PAYOUT_BASIC_AMOUNT} = sprintf "%.2f", $ha->{PAYOUT_BASIC_AMOUNT}; $ha->{PAYOUT_BONUS_AMOUNT} = sprintf "%.2f", $ha->{PAYOUT_BONUS_AMOUNT}; $ha->{PAYOUT_TOTAL_AMOUNT} = sprintf "%.2f", $ha->{PAYOUT_TOTAL_AMOUNT}; $html .= qq~ $ha->{VENDOR_PAYOUT_ID} $ha->{VENDOR_FULLNAME} $ha->{PAYOUT_BASIC_AMOUNT} $ha->{PAYOUT_BONUS_AMOUNT} $ha->{PAYOUT_TOTAL_AMOUNT} $ha->{PAYOUT_REFERENCE} $ha->{PAYOUT_TILLDATE} $ha->{PAYOUT_DATE} ~; $count ++; } *] [* if($html ne '') { *] [+ $html +]
PID Vendor Name Amount Total Pay Reff NO. PayOut
Basic Bonus Till Date On Date
[* } else { *] Record Not Found. [* } *]
[* } else { *]
 
 
Search
[* } *]
 

Last Payment Details

Close
 
Payment By
Ref. No.
Amount
 
[+ $dataref->{FOOTER} +]