attendere prego...con dettaglio incremento

**mosquito70** · 05-12-2006, 18:28

è un pò lunghetto...

Se hai bisogno mando un schema di quello che faccio.

Nota: Considera che già è presente l'"attendere prego" di cui ti parlavo e che vorrei sostituire con i tuoi script.

Questo è il codice. Ho tolto la select principale perchè il messaggio diventava troppo lungo

codice:

<%@language=vbscript%>

<head>
<link rel="stylesheet" href="CSS/stampe.css" type="text/css" id="fogliodistile">
</head>


<%
	vc_userconn =session("vc_userprop")
   if vc_userconn =""  then
   response.redirect "timeoutt.asp"
   end if

	vn_codibollavvi = Request.QueryString("vn_codibollavvi")

	Set con = Server.CreateObject("ADODB.Connection")
	con.Open  application("ConnDB")

	con.CommandTimeout = 8000
	Server.ScriptTimeout = 9000

%>



<div id="splash" style="position:absolute; top:25%; z-index:1">
  <table width="100%"  border="0" cellspacing="1" cellpadding="0">
    <tr>
      <td align="center">

Caricamento in corso...</p>
      

Attendere, prego...</p>
   </td>
    </tr>
  </table>
</div>
<% Response.Flush %>





	<%
		' Estrazione path assoluto dove scrivere i file pdf 
		' Nota: non presenta la parte bollavvifile e bollprogfile
		
		sqlpathasso= "select DESC_PATH_ASSO_AVVI "_ 
					& "from anagclie "_ 
					& "where rownum=1 ;" 
 
		Set rspathasso = con.Execute(sqlpathasso) 
  
  		'response.write sqlpathasso

 		vc_descpathassoavvi = rspathasso("DESC_PATH_ASSO_AVVI") 
 		
		rspathasso.Close 
		Set rspathasso = Nothing 

	%>


<% ' Verifica se bollettino già elaborato


	sqlprodbolleseg="SELECT to_char(DATA_PROD_FILE,'dd/mm/YYYY') DATA_PROD_FILE_VISU "_
					&" FROM STORBOLLAVVIAZIE "_
					&" WHERE CODI_BOLL_AVVI=" & vn_codibollavvi &" "_
					&" AND DATA_SPED_FILE is null and rownum=1;"

	'response.write sqlprodbolleseg
	
	Set rsprodbolleseg = con.Execute(sqlprodbolleseg)
	
	if not rsprodbolleseg.EOF then

%>

<%
	'response.write vc_dataprodfile

							iStoredProc = 4
							set command = Server.CreateObject("ADODB.Command")
							command.ActiveConnection = con
							command.CommandText = "PR_MODISTORBOLLAVVIAZIE"
							command.CommandType = iStoredProc

							'PAREMETRI INPUT
    						set objParameter = command.CreateParameter ("VN_CODIBOLLAVVI",200,1,10,vn_codibollavvi)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_ROWID",200,1,10,"")
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VN_CODIAZIE",200,1,200,"")
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_PATHFILE",200,1,200,"")
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_NOMEFILE",200,1,2000,"")
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_NOMEFILEASPP",200,1,2000,"")
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_USERPROC",200,1,50,vc_userconn)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_CODITIPOOPER",200,1,2,"D")
    						command.Parameters.Append objParameter

							'PAREMETRI OUTPUT
    						set objParameter = command.CreateParameter ("vc_codierro",200,2,16)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("vc_descerro",200,2,200)
    						command.Parameters.Append objParameter
    						command.Execute , , adExecuteNoRecords

							' VERIFICO EVENTUALI ERRORI
    						vc_risuinse = command.Parameters("vc_descerro")
    						vc_codirisuinse = command.Parameters("vc_codierro")


	end if
	
	
	rsprodbolleseg.Close
	Set rsprodbolleseg = Nothing

%>





<table  border="0" width="100%">
<tr>
	<th class=testolabel ></th>
	<th class=testolabel >File dei Bollettini Avvisi prodotti</th>
	<th class=testolabel ></th>
</tr>
</table>

<table  border="1" width="100%">
<tr>
	<th class=testolabel >Cliente Destinatario</th>
	<th class=testolabel >Bollettino N.</th>
	<th class=testolabel >Nome File Prodotto</th>
</tr>

	<%  ' Estrazione CodiAzie da RelaServAzie


		' passato da Relaservazie a anaguten-anagazie
		
		selectrelaservazie = "select CODI_AZIE "_
							&" from V_ASP_ANAGUTENAZIE "_
							&" where CODI_TIPO_UTEN in (9,7,2,5) and rownum < 5 "_
							&" and DESC_INDI_EMAI is not null "_
							&" ORDER BY CODI_AZIE; "

    	 'response.write selectrelaservazie

		Set rsrelaservazie = con.Execute(selectrelaservazie)

   		if not rsrelaservazie.EOF then
			Do While Not rsrelaservazie.EOF
  				iprinci=0

				vc_listcodiavvi=""
  				vc_listcodiavviapici=""

				vn_codiazie = rsrelaservazie("CODI_AZIE").Value


    			selectprinci= " SELECT X.CODI_AVVI,X.NUME_AVVI, x.ordi_unio "_
.....
.....
				&" order by x.ordi_unio; "
				
				
				
				
				
'				&" order by x.ordi_unio; "
			
				

    			'response.write selectprinci %>  <%

				Set rsprinci2 = con.Execute(selectprinci)

				if not rsprinci2.EOF then
   					Do While Not rsprinci2.EOF

  						iprinci=iprinci+1

  						if (iprinci = 1) then

							' Insert in StorBollavvi
							
							vc_pathfile = "bollavvifile\"
							vc_nomefile = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi &".asp"
							vc_nomefilepdf = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi&".pdf"
							
							vc_nomefilepdfasso=vc_descpathassoavvi&"\"&vc_nomefilepdf
							
							'response.write 	vc_descpathassoavvi
							'response.write   vc_nomefilepdf
							'response.write 	vc_nomefilepdfasso
										
			
							iStoredProc = 4
							set command = Server.CreateObject("ADODB.Command")
							command.ActiveConnection = con
							command.CommandText = "PR_MODISTORBOLLAVVIAZIE"
							command.CommandType = iStoredProc

							'PAREMETRI INPUT
    						set objParameter = command.CreateParameter ("VN_CODIBOLLAVVI",200,1,10,vn_codibollavvi)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_ROWID",200,1,10,"")
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VN_CODIAZIE",200,1,200,vn_codiazie)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_PATHFILE",200,1,200,vc_pathfile)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_NOMEFILE",200,1,2000,vc_nomefilepdf)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_NOMEFILEASPP",200,1,2000,vc_nomefile)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_USERPROC",200,1,50,vc_userconn)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("VC_CODITIPOOPER",200,1,2,"I")
    						command.Parameters.Append objParameter

							'PAREMETRI OUTPUT
    						set objParameter = command.CreateParameter ("vc_codierro",200,2,16)
    						command.Parameters.Append objParameter
    						set objParameter = command.CreateParameter ("vc_descerro",200,2,200)
    						command.Parameters.Append objParameter
    						command.Execute , , adExecuteNoRecords

							' VERIFICO EVENTUALI ERRORI
    						vc_risuinse = command.Parameters("vc_descerro")
    						vc_codirisuinse = command.Parameters("vc_codierro")


							' Al primo giro valorizzo listcodiavvi
    						vc_listcodiavvi=rsprinci2("CODI_AVVI")
    					else
	 						vc_listcodiavvi=vc_listcodiavvi&","&rsprinci2("CODI_AVVI").Value

   		 					'response.write vc_listcodiavvi
   						end if

					rsprinci2.MoveNext
					Loop

				end if

				' Prossimo cliente
				rsrelaservazie.MoveNext

				if iprinci <> 0 then
					' response.write "CODIAVVI - " & vc_listcodiavvi %>


				
			
	



				<%
					end if

   					Loop
   
   					
					end if


'					rsprinci2.Close	
'					Set rsprinci2 = Nothing

					rsrelaservazie.Close
					Set rsrelaservazie = Nothing
		
			
			' Cursore separato per lancio scrittura file .pdf

				selectfilepdf = "select NUME_BOLL,DESC_DENO_AZIE,PATH_FILE, NOME_FILE, NOME_FILE_ASPP "_
							&" from v_asp_storbollavviazieemai "_
							&" WHERE CODI_BOLL_AVVI= " & vn_codibollavvi &" "_
							&" and DESC_INDI_EMAI is not NULL "_ 
							&" ORDER BY DESC_DENO_AZIE, NUME_BOLL, NOME_FILE;"

				' response.write selectfilepdf

				Set rsfilepdf = con.Execute(selectfilepdf)

   				if not rsfilepdf.EOF then
					Do While Not rsfilepdf.EOF

	%>
	<tr >
	 	 <td valign="top" class=testolabel><%=rsfilepdf("DESC_DENO_AZIE").Value%></td>
		 <td valign="top" class=testolabel><%=rsfilepdf("NUME_BOLL").Value%></td>
		 <td valign="top" class=testolabel><%=rsfilepdf("PATH_FILE").Value%><%=rsfilepdf("NOME_FILE").Value%></td>

	</tr>

			<%
			
					rsfilepdf.MoveNext
					Loop
					
			else
			
			%>
			
			</table>
			<p class="errori" ><center>
			Non esistono file da produrre per il bollettino richiesto</p></center>

			<%
				end if


				rsfilepdf.Close
				Set rsfilepdf = Nothing
			%>

<%

	con.Close
	Set con = Nothing
%>


<script language="JavaScript">
 document.getElementById('splash').style.visibility = "hidden";
</script>

**willybit** · 05-12-2006, 18:40

quando posti del codice è meglio se usi il code invece del quote perché un quote io non lo posso quotare

detto questo...
la tua pagina crea il pdf e restituisce dell'output.
Tu dovresti fare una pagina che genera il pdf e come unico output restituisce del codice javascript per fare avanzare la barra.
Questa pagina poi la richiamerai nell'iframe nascosto.

dici di non capire come si usa l'iframe nascosto.... ma hai provato almeno il mio esempio?

**mosquito70** · 05-12-2006, 19:02

Sì, il tuo codice l'ho provato e (chiaramente) funziona.

Scrivi questo

Tu dovresti fare una pagina che genera il pdf e come unico output restituisce del codice javascript per fare avanzare la barra.

1) la pagina che genera il pdf è la seconda.asp (quella che ho postato)
2) l'output dovrebbe essere prima "Attendere prego...sono al file NN" e poi sostituire questo con la lettura di una tabella

Questo dovrebbe fare.

Ciao ciao

ps. Ho messo il codice come "code".

**willybit** · 05-12-2006, 19:20

sì l'ho capito...
se vuoi usare il mio metodo devi cambiare la tua pagina seconda.asp
non deve restituire nessun output, anche perché andrà caricata in un iframe nascosto.
l'unico output deve essere

codice:

...
%><%
percentuale=Round((100*i)/rsrelaservazie.RecordCount)%>
<script>window.parent.ScriviPercentuale(<%=percentuale%>)</script><%
...

che non è altro che il javascript incaricato di visualizzare la barra nella pagina che contiene l'iframe

**mosquito70** · 05-12-2006, 20:30

ok.

A questo punto devo trovare un'altra soluzione per far vedere l'elenco dei file al cliente....che purtroppo gli piace così.

grazie mille!

**mosquito70** · 06-12-2006, 09:44

Proprio non riesco a far funzionare questo meccanismo

Gli step eseguiti sono questi

1. Creazione pagina attecontbollavvi.asp con il seguente codice

codice:

<%@language=vbscript%>
<script language="javascript">
function ScriviPercentuale(perc){
	var str='<table width="100%" height="20"><tr>'
	if(perc==100)str+='<td width="100%" bgcolor="green"> </td></tr><tr><td align="center">'
	else str+='<td width="'+perc+'%" bgcolor="green"> </td><td width="'+(100-perc)+'"> </td></tr><tr><td colspan="2" align="center">'
	str+=perc+'%</td></tr></table>'
	document.getElementById('divPercentuale').innerHTML=str
}
</script>
<BODY>

<%
	vc_userconn =session("vc_userprop")
   if vc_userconn =""  then
   response.redirect "timeoutt.asp"
   end if

	vn_codibollavvi = Request.QueryString("vn_codibollavvi")

	Set con = Server.CreateObject("ADODB.Connection")
	con.Open  application("ConnDB")

	con.CommandTimeout = 8000
	Server.ScriptTimeout = 9000

%>


prova
<iframe name="NomeIframe" src="about :blank" width="0" height="0"></iframe>
<div id="divPercentuale"></div>
</BODY>
</HTML>

dove richiamo così la pagina in cui scrivo il file pdf

codice:

 
<a href="repobollavviprodfile.asp?vn_codibollavvi=<%=vn_codibollavvi%>" target="NomeIframe">

2. MODIFICA DELLA repobollavviprodfile.asp come indicato da Willy, ovvero

codice:

				
				
				<% percentuale=Round((100*i)/rsrelaservazie.RecordCount)%>
				<script>
						window.parent.ScriviPercentuale(<%=percentuale%> )
				</script>			
	



				<%

3. Modifica della pagina padre riceavviprodfile.asp da cui in precedenza lanciavo la repobollavviprodfile.asp

ovvero prima della modifica

codice:

onclick="window.open('repobollavviprodfile.asp?vn_codibollavvi=<%=rs.Fields("CODI_BOLL_AVVI").Value %>')">

dopo la modifica

codice:

onclick="window.open('attecontbollavvi.asp?vn_codibollavvi=<%=rs.Fields("CODI_BOLL_AVVI").Value %>')">

Il risultato è solamente una pagina con scritto "prova" e nient'altro?
Dove è che sbaglio?

Buona giornata a tutti

**willybit** · 06-12-2006, 11:08

hai cliccato su prova?

E' possibile vedere qualcosa online?

**mosquito70** · 06-12-2006, 14:09

scusate il ritardo nel rispondere (il cliente è un pò stressante...come tutti i clienti...)

1. Purtroppo non posso inviare il link al sito del cliente, in quanto protetto da password.

2.Se clicco su "prova" parte (senza cambiare la pagina attecontbollavvi.asp) la procedura presente repobollavviprodfile.asp per la produzione del file, ma...

- mi lascia in primo piano sempre e solo la scritta/link "prova"
- non indica l'incremento dei file prodotti
- i file pdf li produce lo stesso.

Nota: sulla barra in basso di explorer, mi scrive apertura pagina "http://localhost/repobollavviprodfile.asp?vn_codibollavvi=1127"

Grazie ancora per tutti i consigli
un saluto

**mosquito70** · 06-12-2006, 14:13

una cosa...

dopo che la procedura ha terminato di scrivere i file pdf, la pagina finale è la attecontbollavvi.asp che presenta oltre al link "prova", anche questo

1. una riga verde ???!! (sembra un <hr>)
2. e subito sotto al centro -900%

**willybit** · 06-12-2006, 14:43

sicuro di aver messo Response.Buffer=0 all'inizio della pagina repobollavviprodfile.asp ?

Discussione: attendere prego...con dettaglio incremento

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio