Ciao a tutti,
genero una pagina ASP con una tabella formattata in modo da stampare una pagina di etichette formato 8 righe x 2 colonne (16 etichette formato 105mmx37mm).
Questo e' il codice che uso (ho solo messo le parti essenziali, la connessione al db l'ho fatta)
codice:
<%
Set RSEti = server.CreateObject("ADODB.RecordSet")
SQL = "SELECT richieste.codRichiesta, gest_arch.coddoc, gest_arch.pratica, gest_arch.scatola, gest_arch.progressivo, richieste.codTipoDoc, def_tipo.descrizioneTipoDoc "& _
" FROM (richieste INNER JOIN gest_arch ON richieste.codDoc = gest_arch.coddoc) LEFT JOIN def_tipo ON richieste.codTipoDoc = def_tipo.codTipoDoc "& _
" WHERE (((richieste.codRichiesta)="& codRichiesta &")) ORDER BY "& ord
response.Write sql
RSEti.open SQL, conn, 2, 3
'****** QUI modifica per aggiungere record
'RSEti.moveFirst
RSEti.AddNew
RSEti("codRichiesta").Value = 0
RSEti("codDoc") = 0
RSEti("pratica") = 0
RSEti("scatola") = 0
RSEti("progressivo") = 0
RSEti("codTipoDoc") = 0
RSEti("descrizioneTipoDoc") = "0"
RSEti.Update
'****** QUI modifica per aggiungere record
%>
<table border="0" style="width:17cm" cellpadding="0" cellspacing="0">
<tr>
<%
rowcount=0
eti=0
while NOT RSeti.EOF
eti=eti+1
rowcount=rowcount+1
if (eti mod 16 = 1 or eti mod 16 = 2) or (eti mod 16 = 15 or eti mod 16 = 0) then
%>
<td><table border="1" style="width:10cm;height:3.277cm;"> <!-- 3.277cm-->
<%
else
%>
<td><table border="1" style="width:10cm;height:3.7cm;"> <!-- 3.7cm -->
<%
end if
%>
<tr>
<td align="center"><img src="../image/logo_small_b.jpg"></td>
<td align="center"><input readonly type="text" value="<%=FormatNumber(RSEti("pratica"),0)%>" style="border: 1px dotted #000000;text-align:center;font-weight:bold;font-size:13pt"></td>
</tr>
<tr>
<td valign="top">
<table align="center">
<tr><td style="text-align:center;font-size:9pt;font-family:tahoma" valign="top"><%=right("000" & session("path")(1),3)%>-<%=RSEti("codDoc")%>-<%=RSEti("codTipoDoc")%></td></tr>
<tr><td style="text-align:center;font-size:9pt;font-family:tahoma" valign="top"><%=RSEti("scatola")%>-<%=RSEti("progressivo")%></td></tr>
</table>
</td>
<td valign="top">
<table align="center">
<tr><td style="text-align:center;font-size:9pt;font-family:tahoma"><%=RSEti("descrizioneTipoDoc")%> n°</td></tr>
<tr><td style="text-align:center;font-size:14pt;"><font face="39251">*<%=right("000"& session("path")(1),3)%>-<%=RSEti("codDoc")%>-<%=RSEti("codTipoDoc")%>*</font></td></tr>
</table>
</td>
</tr>
</table>
</td>
<%
if eti mod 2 = 0 then
response.write "</tr><tr>"
elseif rowcount mod 2 = 0 and eti mod 16 = 0 then
response.write "</tr><tr></table>"
end if
if eti mod 16 = 0 then
response.Write "</table><DIV STYLE='page-break-before:always;'></DIV><table border=0 style='width:17cm' cellpadding=0 cellspacing=0><tr>"
end if
RSEti.movenext
wend
RSEti.Close
set RSEti = nothing
conn.Close
set conn = nothing
%>
Io dovrei aggiungere delle caselle bianche in modo da spostare le varie etichette in basso.
Ho pensato a due metodi:
- aggiungere dei record al recordset esistente RSEti prima di quelli della mia query
- con jQuery posso spostare le celle ma credo sia molto piu incasinato
ho provato la prima opzione ma mi da questo errore sull RSEti.Update
Microsoft OLE DB Provider for ODBC Drivers error '80040e2f'
[Microsoft][Driver ODBC Microsoft Access] Il campo non può essere aggiornato.
Mi potete dare una mano?
grazie