| Nun | data | ditta | prestazioni | IVA | NO_IVA | Totale
ENDHTML
open (RIEP, "riepilogo") or die "Can't open riepilogo: $!\en";
while () {
chomp ($_);
@riga = split ",- ";
($numero,$data,$ditta,$oggetto,$prestazioni,$iva,$bolli) = @riga;
if ($numero ne "numero") {
if ($prestazioni =~ m/^-/) {
$flag = -1;
$seg = "-";
} else {
$flag = 1;
$seg = "";
}
$totale = $prestazioni * 1.2 + $bolli;
$vprestazioni = $seg . &forval ($prestazioni);
$vbolli = $seg . &forval ($bolli);
$viva = $seg . &forval ($iva);
$vtotale = $seg . &forval ($totale);
$tprestazioni = $tprestazioni + $prestazioni * $flag;
$tbolli = $tbolli + $bolli * $flag;
$tiva = $tiva + $iva * $flag;
$ttotale = $ttotale + $totale * $flag;
$vtprestazioni = &forval ($tprestazioni);
$vtbolli = &forval ($tbolli);
$vtiva = &forval ($tiva);
$vttotale = &forval ($tprestazioni+$tbolli+$tiva);
print <<"ENDHTML";
| $numero | $data | $ditta | $vprestazioni | $viva | $vbolli | $vtotale
ENDHTML
}
}
print <<"ENDHTML";
| | Totale | | | $vtprestazioni | $vtiva | $vtbolli | $vttotale
| |