[ASP] Ciclare i valori di 2 array

GoG

Nuovo Utente
5 Dic 2014
11
0
1
Salve , avrei la necessità di richiamare i valori di un array per eseguire operazioni calcolate tra i 2 array.
Mi spiego meglio, da una select ottengo i valori di fatturato relativi alle pratiche dei mesi dell'anno corrente e li passo ad un array chiamiamolo array_PRA . Lo stesso faccio per l'array_COMM che recupera i valori di fatturato relativi alle commissioni all'anno corrente. Altri 2 ARRAY fanno lo stesso per gli anni precedenti per cui array_PRA_precedente ed array_COMM_precedente. Combino i valori degli array relativi agli anni correnti per avere il fatturato mensile dell'anno in corso e lo stesso faccio per ottenere il fatturato mensile dell'anno precedente. Tutto questo per calcolare l'incremento mensile dell'anno corrente. Il problema è che quando richiamo il valore del mese dell'anno precedente ottengo sempre solo quello del primo mese (come se non mi ciclasse l'anno precedente) per cui ottengo una % incremento errata.
Codice:
             <table width="100%">
                <tr><td>TOTALE ANNO PRECEDENTE</td></tr>
                <%For i=0 to UBound(compreDataArray,2)%>
                <%totaleprece= FormatCurrency(compreDataArray(2,i)+prapreDataArray(2,i),2,,,-1)%>
                <tr><td><A href="#"><%=compreDataArray(0,i)%></A>  <%=compreDataArray(1,i)%> = <%=totaleprece%></td></tr><%next%>
          </table>
       </td>
<td width="18%" class="cascenterContainetable2" valign="top">
             <table width="100%">
                <tr>
                  <td>TOTALE</td></tr>
                  <%For i=0 to UBound(comDataArray,2)%>
                  <%totalecorr= FormatCurrency(comDataArray(2,i)+praDataArray(2,i),2,,,-1)%>
                  <%incrementofin=Formatnumber((((totalecorr-totaleprece)/totaleprece)*100),2)%>
                  <% If incrementofin > 0 then incrementofin = "+"&incrementofin%>
                <%For k=0 to UBound(compreDataArray,2)%>
                <%totaleprece= FormatCurrency(compreDataArray(2,k)+prapreDataArray(2,k),2,,,-1)%><%next%>

                <tr><td><A href="#"><%=comDataArray(0,i)%></A>  <%=comDataArray(1,i)%> = <%=totalecorr%> : <%=totalecorr%> - <%=totaleprece%> / <%=totaleprece%> *100 <A href="#"><%=incrementofin%>%</a></td></tr><%next%>
          </table>

Sicuramente sbaglio l'ultimo For , sapreste aiutarmi?

Grazie
 

marino51

Utente Attivo
28 Feb 2013
3.203
207
63
Lombardia
mi permetto di farti una domanda,
visto che tratti pochi valori, perché non separi i calcoli, dalla presentazione dei valori e dei risultati ?
avresti un codice più comprensibile e più facile da verificare anche se ti costa generare 3 o 4 nuove array

considerazione,
un "if" esclude "incrementi negativi", mi sembra sbagliato, il totale non sarà mai corretto

se con questi suggerimenti non risolvi, riposta il codice "ordinato"
 

GoG

Nuovo Utente
5 Dic 2014
11
0
1
Grazie per la risposta, ho cambiato approccio ma ho ancora delle difficoltà.. ecco il codice:

PHP:
<%
Set RStotm = Server.CreateObject("ADODB.Recordset")
RStotm.CursorLocation=3
RStotm.ActiveConnection = MM_conn_STRING
RStotm.Source = "SELECT qry_totale_mese_fatt.ycdata, Sum(qry_totale_mese_fatt.totale_commissioni) AS totale_annuale, qry_totale_mese_fatt.mdata, qry_totale_mese_fatt.mndata FROM qry_totale_mese_fatt GROUP BY qry_totale_mese_fatt.ycdata, qry_totale_mese_fatt.mdata, qry_totale_mese_fatt.mndata ORDER BY qry_totale_mese_fatt.mndata"
RStotm.open()
totmDataArray  = RStotm.GetRows
%>
<table width="100%">
   <tr><td valign="top">TOTALE</td></tr>
<%
For i=0 to UBound(totmDataArray,2)
formattototalem= FormatCurrency(totmDataArray(1,i),2,,,-1)
datamese=Cstr(totmDataArray(0,i)&totmDataArray(2,i))
conta=len(datamese)
conta=Int(conta)
stanno=Cstr(year(date)-1)
If left(datamese,4) = stanno then datamese = null else datamese = "<tr><td><A href='#'>"&(mid(datamese,5))&" </A> "&Left(datamese,4)&"&nbsp;= &nbsp;"&formattototalem&":"&compreDataArray(2,i)+prapreDataArray(2,i)&"</td></tr>"
response.write(datamese)
next
%>

Ora a differenza di prima ottengo il ciclo ma non capisco per quale motivo dall'array ottengo solo il fatturato dei mesi pari...
 
Ultima modifica:
Discussioni simili
Autore Titolo Forum Risposte Data
I asp | includere un file, indirizzo depositato in un db Classic ASP 0
Paolo69 Risolto reCAPTCHA v2 per ASP Classic ASP 0
P lanciare script asp (o php) da jquery Javascript 1
L Modifica file upload in ASP Classic ASP 2
felino ASP.net MVC: Exception e chiamata AJAX ASP.NET 1
W Rinominare Documenti Con Form Asp Classic ASP 9
G Registrazione utente su pagina asp Classic ASP 14
R Sviluppatore ASP.NET Offerte e Richieste di Lavoro e/o Collaborazione 0
seranto [ASP] Controllare il testo inserito in Textarea Classic ASP 6
F classic asp popolare combo box javascript Presentati al Forum 1
P Passagio dati complessi tra una ASP.NET webapi e Angular ASP.NET 1
A [ASP.Net] Gestire il profilo ADMIN in un progetto ASP NET e pattern MVC ASP.NET 0
P [ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font ASP.NET 4
A [ASP] Confronto tra dati Form e DB Classic ASP 2
A Mantenere la validazione reindirizzandoci su un secondo sito WEb. (ASP.NET) ASP.NET 0
StephenSoftware [ASP.Net] Pagina Master ed eventi... ASP.NET 0
K [ASP] Visualizzare nome del file selezionato Classic ASP 3
S [ASP] rubrica telefonica Classic ASP 2
M MySQL e classic ASP Classic ASP 5
D [ASP] Eliminare gli zeri che nn servono Classic ASP 1
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
S elimina record sql asp classic Classic ASP 5
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
D [ASP] Leggere Campo decimal MYSQL Classic ASP 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
NuviaSoftware [Retribuito] [Cerco] Programmatore ambienti ASP.NET,. Net Azure web apps, Javascript Offerte e Richieste di Lavoro e/o Collaborazione 0
D [ASP] scaricare articoli Classic ASP 8
D [ASP] Mysql insert e update Classic ASP 2
V [ASP.Net] avento keydown crh13 enter ASP.NET 0
A [ASP.Net] Dropdownlist ASP.NET 0
S [ASP.Net] [ASP] Upload Image ASP.NET 6
V Ricevere messaggi email certificata con CDO o altro oggetto in ASP Classic ASP 0
A [ASP] query wish list Classic ASP 3
riminese77 [ASP.Net] Popup Bootstrap in datagrid ASP.NET 0
D [ASP] si può fare? Classic ASP 29
D [ASP] ordinamento query Classic ASP 2
M [ASP] Upload file da form controllo Classic ASP 5
S SQL, ACCESS & ASP CLASSIC - QUERY Classic ASP 3
G [ASP] Incrementare un valore on the fly su selezione select Classic ASP 3
K [ASP.Net] Realizzazione menu a tendina dipendenti ASP.NET 1
Tommy03 Aprire un file .asp nel browser Classic ASP 5
E [ASP.Net] Access 2016 ? Non si usa Microsoft Jet 4.0 ma Engine 2016 o 2010. Non va ! ASP.NET 2
D csrf : Cross Site Request Forgery in classic asp Classic ASP 0
D [ASP] Motore di ricerca interno su 2 tabelle Classic ASP 3
M [ASP.Net] [ASP] geoblocking e web.config ASP.NET 3
N Cerco sviluppatore ASP per aggiornamento sito e-commerce esistente Offerte e Richieste di Lavoro e/o Collaborazione 0
D prima prova con ASP... dove sbaglio? Classic ASP 13
L [ASP.Net] Realizzare modulo contatti PopUp ! ASP.NET 1
P Da ASP a PHP... movenext? do while not? PHP 5
A Retribuito: Sviluppatore Asp classico esperto in sicurezza webserver IIS e SQL Offerte e Richieste di Lavoro e/o Collaborazione 0

Discussioni simili