Cari amici,
ho bisogno di avere un controllo sulle spese che spesso anticipo ai clienti, ad esempio per il rinnovo dei domini e spazi web.
Fino ad oggi ho appuntato su un file excel le spese anticipate ed i lavori fatti, poi ogni tanto emetto fattura.
Ho pensato di creare una pagina riepilogativa che a colpo d'occhio ci permetta di controllare tutti i crediti (spese anticipate e lavori fatti ma da fatturare) che abbiamo in giro.
L'ho pensata così:
Due tabelle, Clienti e Lavori
id_cliente
azienda
nome_referente
indirizzo
telefono
fax
cellulare
email
note
id_lavoro
id_cliente
data_lavoro
descrizione
importo
saldato (si/no)
La pagina sommario_anticipi.asp avrà in testata l'importo totale dei crediti derivante dalla semplice somma dei valori nella colonna importo (tabella lavori) e poi una tabella con la lista dei clienti ordinata per importo (il cliente da cui dobbiamo percepire di più sarà il primo)
Il codice di sommario_anticipi.asp sviluppato fin ora è:
<%@ codepage="65001" language="VBScript" %>
<!--#include file="apriconnessione.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Amministrazione comunicati</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<style>
.form {
font-size : xx-small;
font-family : Verdana;
border-width : 1;
border-style : solid;
border-color : #999999;
background-color : White;
}
.titolo1 {
font-size: 11px; font-family: Verdana, Helvetica, sans-serif; color: #993333; font-weight : bold;
}
</style>
<%
dim totale_crediti
sql = "Select SUM(importo) as totale_crediti from Lavori WHERE saldato=false"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
<body bgcolor="#FFFFFF">
<div align="center">
<p><font size="3" face="Verdana, Arial, Helvetica, sans-serif">Totale crediti
per spese anticipate o lavori effettuati ma ancora da fatturare:</font></p>
<p><strong><font color="#006600" size="6" face="Verdana, Arial, Helvetica, sans-serif">€ <% response.write rs("totale_crediti")
rs.Close
set rs = Nothing
%>
</font></strong><font color="#006600" size="6" face="Verdana, Arial, Helvetica, sans-serif"><strong></strong></font> </p>
<p align="left">
<%
dim intVolta
intVolta="0"
' Stringa di interrogazione sulla tabella pratiche inps, selezionami tutto
sql = "SELECT ??????? FROM ??????? ORDER BY ??????? ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
<TABLE border="0" width="100%">
<TR>
<TD width="48%"><font face="Verdana, Arial, Helvetica, sans-serif"><strong>Nome
cliente</strong></font></TD>
<TD width="41%"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Importo
parziale per cliente</strong></font></TD>
<TD width="11%"><div align="center"></div></TD>
</TR>
<%
do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#00FF99"
intSfondo="#EBEBEB"
else
intVolta="1"
intTesto="#FFFF99"
intSfondo="#DFDFDF"
end if
%>
<TR>
<TD width="48%" bgcolor="<%=intSfondo%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Fabio
Rossi<br>
</strong> </font></TD>
<TD width="41%" bgcolor="<%=intSfondo%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
</font></TD>
<TD width="11%" bgcolor="<%=intSfondo%>"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="dettaglio_anticipi.asp?Id=<%=rs("ID_cliente")%>">Scheda
di dettaglio</a></font></div></TD>
<%
rs.movenext
loop
rs.close
set rs = Nothing
%>
</TR>
</table></p>
</div>
</body>
</html>
<!--#include file="chiudiconnessione.asp"-->
Mi mancano le somme parziali per cliente, purtroppo non le so fare.
Vi ringrazio molto per l'aiuto e spero che questo strumento ci possa consentire di lavorare meglio.
Grazie.
V
p.s. se volete i file (db e pagina) ve li mando, scrivetemi a deepheart79@yahoo.it
