RecuperaDati($qfor) ;
$nomeFornitore = $dfor['Nome'][0] ;
$annoP = $anno - 1 ;
$totDaPagare = 0 ;
$totCifraEnasarco = 0 ;
$totAmmEnasarco = 0 ;
$str = "" ;
$query = "
select
P.*,
F.idfornitori as IdFornitore,
F.Nome as NomeFornitore
from
provvigioni_$anno P
inner join fornitori_$anno F on F.idfornitori = P.Fornitore
where
P.AnnoCompetenza = '$annoProvv'
union
select
P.*,
F.idfornitori as IdFornitore,
F.Nome as NomeFornitore
from
provvigioni_$annoP P
inner join fornitori_$annoP F on F.idfornitori = P.Fornitore
where
P.AnnoCompetenza='$annoProvv'
order by
Data ASC
" ;
list($n, $d) = $db->RecuperaDati($query) ;
$totRecord = $n ;
// print_r($d) ; exit ;
for ($i=0; $i<$n; $i++)
{
$nomeFor = $d['NomeFornitore'][$i] ;
if ($nomeFor != $nomeFornitore)
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_$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] ;
$idFornitore = $d['IdFornitore'][$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['IdProvvigioni'][$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 Fornitore $nomeFornitore, anno amministrativo: $annoProvv" ;
?>
New Document
0) : ?>
(*) = Ammontare Enasarco inserito direttamente e non calcolato percentualmente