#!/usr/bin/perl

use CGI;
use Vallet4;

$form = new CGI;

# Assegnazione delle variabili

$elenco_ditte='/var/www/cgi-bin/gc/elenco_ditte';
$elenco_imprese='/var/www/cgi-bin/gc/elenco_imprese';
$oggetto="Legge 457\/78 - 5' piano biennale.\nLavori per la costruzione di due fabbricati di civile\nabitazione per complessivi n. 62 alloggi. Appalto concorso.";

print $form->header('text/html');

print <<'ENDHTML';

<HTML> 
<HEAD>
<TITLE>Relazione Genio Civile</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF" background="/icons/paper_bg.gif">

<HR>
<br>
<CENTER><H1>Relazioni per il Genio Civile.</H1></CENTER>
<HR>
<br>

<p><em><B>Immettere i dati e i testi per la redazione e i calcoli automatici delle relazioni.</B></em></p>

<FORM METHOD=POST ACTION="/cgi-bin/gc/contr01.cgi">

<hr>

<center><H3>All'ufficio del Genio Civile di 
<SELECT NAME="gc" value="">
<OPTION>Pistoia
<OPTION>Firenze
<OPTION>Siena
<OPTION>Pisa
<OPTION>Grosseto
<OPTION>Prato
<OPTION>Arezzo
<OPTION>Lucca
<OPTION>Livorno
<OPTION>Massa Carrara
</SELECT>
</h3>
</CENTER>

<br>

<center><H3><b>Data della relazione.</b></H3></center>

<br>
<p><B>Attenzione:</B> se la data della relazione viene lasciata in bianco, essa sar&agrave; assegnata uguale a quella corrente alla conferma del documento, nella forma <em>"gg mese anno"</em>.</p>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Data del documento:</FONT></TD>
<TD ALIGN="center"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="datafat" size=18 value="">
</FONT></TD>
</TR>
</Table>
</CENTER>

<br>
<center><H3><b>Committente dei lavori.</b></H3></center>

<br>
<p><B>Attenzione:</B> se il committente non &egrave; nel men&ugrave; a tendina, scegliere l'opzione "Nuova Ditta" e riempire gli appositi moduli.</p>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Scegli la ditta:</FONT></TD>
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>

<SELECT NAME="ditta" value="">
<OPTION>Nuova Ditta

ENDHTML

open (DITTA, "$elenco_ditte") or die "Can't open $elenco_ditte: $!\en";  

while (<DITTA>) {
chop;
@ditta = split ",";
print "<OPTION>", $ditta[0];

}

print <<'ENDHTML';

</SELECT>
</FONT></TD>
</TR>
</Table>
</CENTER>

<br>

<center>
oppure
</center>

<br>

<CENTER>
<Table border="4">
<TR VALIGN="bottom">
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1>

<br>
<p><B>Attenzione:</B> se il committente non &egrave; ancora stato utilizzato, riempire gli appositi moduli. La nuova ditta verr&agrave; memorizzata al momento della conferma del documento e comparir&agrave; in seguito nel men&ugrave; a tendina.</p>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Denominazione</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="nome" size=50 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Indirizzo</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="via" size=35 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
codice postale</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="cap" size=8 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Localit&agrave; e provincia</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="citta" size=30 value=""></FONT></TD>
</TR>
</Table>
</CENTER>

<br>

<p><B>Attenzione:</B> se il committente &egrave; un privato non ha la partita I.V.A. e per questa ragione sar&agrave; identificato come soggetto privato (non impresa).</p>

<br>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Partita I.V.A.</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="p_iva" size=20 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Codice Fiscale</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="codice" size=20 value=""></FONT></TD>
</TR>
</Table>
</CENTER>

<br>
<center>
campo opzionale
</center>
<br>

<center>
<table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Persona da contattare: Signor</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="signor" size=35 value=""></FONT></TD>
</tr>
</table>
</center>

</TR>
</Table>
</CENTER>


<center><H3><b>Oggetto delle relazioni.</b></H3></center>

<br>

<p>Scrivere una breve sintesi delle opere.</p>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="center"><FONT FACE="Arial" SIZE=-1>
Descrizione delle opere:</FONT></TD></TR>
<TR VALIGN="bottom">
<TD ALIGN="center"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>

ENDHTML

print "<textarea name=oggetto rows=6 cols=60>$oggetto</textarea>";

print <<'ENDHTML';

</FONT></TD>
</TR>
</Table>
</CENTER>

<br>
<center><H3><b>Impresa esecutrice dei lavori.</b></H3></center>

<br>
<p><B>Attenzione:</B> se l'impresa non &egrave; nel men&ugrave; a tendina, scegliere l'opzione "Nuova Impresa" e riempire gli appositi moduli.</p>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Scegli l'impresa:</FONT></TD>
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>

<SELECT NAME="impresa" value="">
<OPTION>Nuova Impresa
<OPTION>Economia diretta

ENDHTML

open (IMPRESA, "$elenco_imprese") or die "Can't open $elenco_imprese: $!\en";  

while (<IMPRESA>) {
chop;
@impresa = split ",";
print "<OPTION>", $impresa[0];

}

print <<'ENDHTML';

</SELECT>
</FONT></TD>
</TR>
</Table>
</CENTER>

<br>

<center>
oppure
</center>

<br>

<CENTER>
<Table border="4">
<TR VALIGN="bottom">
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1>

<br>
<p><B>Attenzione:</B> se l'impresa non &egrave; ancora stata utilizzata, riempire gli appositi moduli. La nuova impresa verr&agrave; memorizzata al momento della conferma del documento e comparir&agrave; in seguito nel men&ugrave; a tendina.</p>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Denominazione</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="impnome" size=50 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Indirizzo</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="impvia" size=35 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
codice postale</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="impcap" size=8 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Localit&agrave; e provincia</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="impcitta" size=30 value=""></FONT></TD>
</TR>
</Table>
</CENTER>

<br>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Partita I.V.A.</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="impp_iva" size=20 value=""></FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Codice Fiscale</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="impcodice" size=20 value=""></FONT></TD>
</TR>
</Table>
</CENTER>

<br>

<center>
<table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Legale Rappresentate: Signor</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="impsignor" size=35 value=""></FONT></TD>
</tr>
</table>
</center>

</TR>
</Table>
</CENTER>

<br>

<center><H3><b>Ubicazione dei lavori.</b></H3></center>

<br>
<p><B>Attenzione:</B> se le seguenti due indicazioni vengono lasciata in bianco, esse saranno assegnate uguali a quelle della residenza del committente.</p>

<CENTER>
<Table border="2">
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Indirizzo:</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="lavorivia" size=36 value="">
</FONT></TD>
</TR>
<TR VALIGN="bottom">
<TD ALIGN="right"><FONT FACE="Arial" SIZE=-1>
Localit&agrave; e provincia:</FONT></TD>
<TD ALIGN="left"><FONT FACE="Arial" SIZE=-1 COLOR=#FF0000>
<INPUT NAME="lavoricitta" size=36 value="">
</FONT></TD>
</TR>
</Table>
</CENTER>

<br>

<CENTER><table border=3><tr><td>
<INPUT TYPE="submit" VALUE="Continua">
</td><td> oppure </td><td>
<INPUT TYPE="reset" VALUE="Cancella">
</td><tr>
</table>
</CENTER>
</FORM>

<hr>

<center><table border=3>
<tr><td>Premere qui per andare alla homepage </td>
<td><a href="/index.html">
<img src=/icons/freccia.gif border=0 alt="Tab"></a></td></tr>
</table></center>
<br>
<FONT SIZE=-1><I>
Data ultimo aggiornamento 

ENDHTML

print &adesso;

print <<'ENDHTML';


<BR>Aggiornato da amministratore
<BR>Indirizzo di posta elettronica: 
<A HREF = "mailto:palloni@tol.it">palloni@tol.it</A>
</I></FONT>
</BODY>
</HTML>

ENDHTML

# rel.cgi









