RecuperaDati($qfor) ;
$nomeAgente = $dfor['Nome'][0] ;
$annoP = $anno - 1 ;
$totDaPagare = 0 ;
$totCifraEnasarco = 0 ;
$totAmmEnasarco = 0 ;
$str = "" ;
$query = "
select
PA.*,
A.idagenti as IdAgente,
A.Nome as nomeAgente
from
provvigioniAgenti PA
inner join agenti A on A.idagenti = PA.IdAgente
where
PA.Anno = $anno and
PA.AnnoCompetenza = '$annoProvv'
union
select
PA.*,
A.idagenti as IdAgente,
A.Nome as nomeAgente
from
provvigioniAgenti PA
inner join agenti A on A.idagenti = PA.IdAgente
where
PA.Anno = $annoP and
PA.AnnoCompetenza='$annoProvv'
order by
Data ASC
" ;
list($n, $d) = $db->RecuperaDati($query) ;
$totRecord = $n ;
for ($i=0; $i<$n; $i++)
{
$nomeAge = $d['nomeAgente'][$i] ;
if ($nomeAge != $nomeAgente)
continue ;
$annoC = $d['AnnoCompetenza'][$i] ;
$annoData = substr($d['Data'][$i], 0, 4) ;
/********************************************
* In ogni caso questa query la devo fare qui
********************************************/
$qena = "
select
*
from
ParametriGenerali PG
where
PG.Anno = $annoC
" ;
list($nena, $dena) = $dbtmp->RecuperaDati($qena) ;
$arrMaxEnaVis[$annoC] = $dena['MaxAgentePluri'][0] ;
$arrMaxEna[$annoC] = NumToSql($dena['MaxAgentePluri'][0]) ;
$perEnasarco = NumToSql($dena['PercEnasarco'][0]) ;
$perEnasarcoVis = $dena['PercEnasarco'][0] ;
$idAgente = $d['IdAgente'][$i] ;
$annoC = $d['AnnoCompetenza'][$i] ;
$calcEna = $d['Enasarco'][$i] ;
$sommaEna = $d['SommaLireEna'][$i] ;
$cifraEna = $d['CifraEna'][$i] ;
$iva = $d['SommaLire'][$i] * 20 / 100 ;
$totale = $d['SommaLire'][$i] + $iva ;
$ast = "" ;
if ($d['Enasarco'][$i])
{
if ($d['CifraEna'][$i] > 0)
{
$ena = $d['CifraEna'][$i] ;
$ast = " *" ;
}
elseif ($d['SommaLireEna'][$i] != 0.00)
$ena = $d['SommaLireEna'][$i] * $perEnasarco / 100 ;
else
$ena = $d['SommaLire'][$i] * $perEnasarco / 100 ;
}
else
$ena = 0 ;
if ($d['Ritenuta'][$i])
$rit = $d['SommaLire'][$i] * $percrit / 100 ;
else
$rit = 0 ;
$dapagare = round($totale, 2) - round($ena, 2) - round($rit, 2) ;
$str .= "" ;
$str .= "| " . $d['NumProvvigione'][$i] . " / " . $annoData . " | ";
$str .= "" . ItaDate($d['Data'][$i]) . " | " ;
$str .= "" . $d['Testo'][$i] . " | " ;
$str .= "" . nfe($dapagare) . " | " ;
$str .= "" . SiNo($d['Enasarco'][$i]) . " | " ;
$str .= "" . nfe($d['SommaLireEna'][$i]) . " | " ;
$str .= "" . $perEnasarcoVis . " | " ;
$str .= "" . nfe($ena) . $ast . " | " ;
$str .= "
" ;
$totDaPagare += $dapagare ;
$totCifraEnasarco += $d['SommaLireEna'][$i] ;
$totAmmEnasarco += $ena ;
}
$str .= "" ;
$header = "Numero/Anno,Data,Testo,Da Pagare,Enasarco,Cifra per Enasarco,% Enasarco,Amm. Enasarco" ;
$footer = "TOTALI:-#cspan-#cspan-" . nfe($totDaPagare) . "--" . nfe($totCifraEnasarco) . "--" . nfe($totAmmEnasarco) ;
$strSort = "na,na,na,na,na,na,na" ;
$iniWP = "10,10,30,8,8,12,10,10" ;
$setColType = "ro,ro,ro,ro,ro,ro,ro,ro" ;
$setColAlign = "right,center,left,right,center,right,right,right" ;
$titolo = "Controllo Versamenti Enasarco Agente $nomeAgente, anno amministrativo: $annoProvv" ;
?>
New Document
0) : ?>
(*) = Ammontare Enasarco inserito direttamente e non calcolato percentualmente