[* $dataref = $param[0]; $recarr = $param[1]; $venarr = $param[2]; $arr_penalty = $param[3]; $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'}+]
[* if($dataref->{showflag}) { *]
 

Review Pending Payment

 
[* if(scalar(@$venarr)) { $rowcnt = 0; foreach $ha (@$venarr) { if($dataref->{ven_id} && $dataref->{ven_id} == $ha->{VENDOR_ID}) { $opt.= qq~~; } else { $opt.= qq~~; } $rowcnt ++; } *]
Search Pending Payments [+ $dataref->{pendingpay} +] [+ $network_modid +]
[+ $dataref->{paytill} +]
[* } *]
 

[* $html = ''; my $count = 0; my $pen_cnt = ''; my $pen_amt = ''; my $reject = ''; my $approve = ''; 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}; 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}; $pen_amt1 = $pen_ha->{PENLATY_AMT}; last; } else { $pen_cnt = 0; $pen_amount = 0; $pen_amt1 = 0; $pen_vid = ''; $pen_amt = 0; } } } else { $pen_cnt = 0; $pen_amt = 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->{FK_VENDOR_PAYMODE_ID} == 1) { $mode = 'Pay Pal'; } elsif($ha->{FK_VENDOR_PAYMODE_ID} == 3) { $mode = 'Cash'; } elsif($ha->{FK_VENDOR_PAYMODE_ID} == 4) { $mode = 'Draft'; } elsif($ha->{FK_VENDOR_PAYMODE_ID} == 5) { $mode = 'Bank Transfer'; } else { $mode = 'Cheque'; } $ha->{TOTAL_AMT} = $ha->{TOTAL_AMT} - $pen_amount; $html .= qq~ $ha->{V_ID} $ha->{VENDOR_FULLNAME} $ha->{TENTRY_CNT} $approve $reject $ha->{SENTRY_CNT} $ha->{BENTRY_CNT} $ha->{BASIC_AMT} INR $ha->{BONUS_AMT} INR $pen_cnt $pen_amt INR $ha->{TOTAL_AMT} INR NA pay now ~; $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; $total->{ABCP_CURR_NAME}= $ha->{ABCP_CURR_NAME} || ''; $count ++; } *] [* 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 +]
ID Vendor Name Records Amount Penalty Count Penalty Pay Total Pay Last Pay Date Pay Now
T A R S B Basic Bonus
    Total [+ $total->{TENTRY_CNT} +] [+ $total->{AENTRY_CNT} +] [+ $total->{RENTRY_CNT} +] [+ $total->{SENTRY_CNT} +] [+ $total->{BENTRY_CNT} +] [+ $total->{BASIC_AMT} +] [+ $total->{ABCP_CURR_NAME} +] [+ $total->{BONUS_AMT} +] [+ $total->{ABCP_CURR_NAME} +] [+ $total->{TOTAL_AMT} +] [+ $total->{ABCP_CURR_NAME} +]
[* } else { *] Record Not Found. [* } *]
[* } else { *]
 
 
Search
[* } *]
 

Last Payment Details

Close
 
Payment By
Ref. No.
Amount
 

Make Payment Now

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