+39 030 9976484 info@greentire.it

Indicatori di Performance per la Sostenibilità

<% data_iniziale_base = DateSerial(year(date()), 1, 1) data_finale_base = DateSerial(year(date()) + 1, 1, 1) data_iniziale_base = DateSerial(2016, 1, 1) data_finale_base = DateSerial(2017, 1, 1) 'Inizializzazione totale_peso = 0 totale_peso_acciaio = 0 totale_peso_granulo = 0 totale_peso_tela = 0 data_iniziale = data_iniziale_base data_finale = data_finale_base 'Peso totale recuperato SQL = "Select TM.CDTAB1, Coalesce(Sum(CN.LOTPEFC * MT.MATVAL / 100), 0) as LOTPEF" &_ " from USR_PNEUMATICI_RICHIESTE R" &_ " join USR_PNEUMATICI_LOTTI L" &_ " on L.CDAZD0 = R.CDAZD0 and L.LOTIDR = R.ID and L.RECANN = 'N'" &_ " join ADM_TABELLE T" &_ " on T.CDAZD0 = R.CDAZD0 and T.CDTAB0 = 'PN1' and T.ID = R.PNRIDS and T.CDTAB1 = 'E'" &_ " left join EDP_CLIENTI_SL00022 CL1" &_ " on CL1.CDAZD0 = R.CDAZD0 and CL1.CLIIDC = R.PNRIDC" &_ " join USR_PNEUMATICI_LOTTI_ULTIMO_CONFERIMENTO CN" &_ " on CN.CDAZD0 = R.CDAZD0 and CN.LOTIDR = L.LOTIDR and CN.LOTIDS = L.LOTIDS and CN.CNFDTP = 'CR'" &_ " join USR_TRASPORTATORI_SL00022 OP" &_ " on OP.CDAZD0 = R.CDAZD0 and OP.ID = CN.CNFDID and OP.TRAKPI = 'S'" &_ " join USR_TRASPORTATORI_MATERIE_SL00042 MT" &_ " on MT.CDAZD0 = R.CDAZD0 and MT.MATIDO = OP.ID and MT.RECANN = 'N'" &_ " join ADM_TABELLE TM" &_ " on TM.CDAZD0 = R.CDAZD0 and TM.CDTAB0 = 'TRM' and TM.ID = MT.MATIDM and TM.RECANN = 'N'" &_ " where R.CDAZD0 = " & quotedstr(session("adm_azienda_gestionale")) &_ " and R.PNRIDI = 752" &_ " and R.PNRDTE >= " & quotedstr(Format_Date_Tot(data_iniziale)) &_ " and R.PNRDTE < " & quotedstr(Format_Date_Tot(data_finale)) &_ " and R.RECANN = 'N'" &_ " and not (Coalesce(CL1.CLIID1, 0) = 3018)" &_ " Group by TM.CDTAB1" &_ " Order by TM.CDTAB1" 'response.write SQL session("debug_sql") = SQL set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open SQL, conn, 3, 3 if (not rs.eof) then while (not rs.eof) peso = round(rs("LOTPEF"), 0) totale_peso = totale_peso + peso if (rs("CDTAB1") = "A") then totale_peso_acciaio = totale_peso_acciaio + peso if (rs("CDTAB1") = "G") then totale_peso_granulo = totale_peso_granulo + peso if (rs("CDTAB1") = "T") then totale_peso_tela = totale_peso_tela + peso rs.movenext wend end if rs.Close Set rs=Nothing totale_peso_energia = totale_peso_tela + (totale_peso_granulo * 4 / 100) totale_peso_materia = totale_peso_acciaio + (totale_peso_granulo * 96 / 100) perc_energia = 0 if (totale_peso <> 0) then perc_energia = round(totale_peso_energia / totale_peso * 100, 0) end if perc_materia = 100 - perc_energia %>
<% 'Inizializzazione totale_peso = 0 totale_km_percorsi = 0 totale_peso_co2 = 0 totale_peso_co2_min = 0 totale_peso_co2_max = 0 data_iniziale = data_iniziale_base data_finale = data_finale_base 'Peso totale ritirato SQL = "Select Coalesce(Sum(L.LOTPEF), 0) as LOTPEF" &_ " from USR_PNEUMATICI_RICHIESTE R" &_ " join USR_PNEUMATICI_LOTTI L" &_ " on L.CDAZD0 = R.CDAZD0 and L.LOTIDR = R.ID and L.RECANN = 'N'" &_ " join ADM_TABELLE T" &_ " on T.CDAZD0 = R.CDAZD0 and T.CDTAB0 = 'PN1' and T.ID = R.PNRIDS and T.CDTAB1 = 'E'" &_ " join USR_PNEUMATICI_TRASPORTI_SL00042 RT" &_ " on RT.CDAZD0 = R.CDAZD0 and RT.ID = R.PNRITR and RT.TRTCNF = 'S'" &_ " left join EDP_CLIENTI_SL00022 CL1" &_ " on CL1.CDAZD0 = R.CDAZD0 and CL1.CLIIDC = R.PNRIDC" &_ " where R.CDAZD0 = " & quotedstr(session("adm_azienda_gestionale")) &_ " and R.PNRIDI = 752" &_ " and R.PNRDTE >= " & quotedstr(Format_Date_Tot(data_iniziale)) &_ " and R.PNRDTE < " & quotedstr(Format_Date_Tot(data_finale)) &_ " and R.RECANN = 'N'" &_ " and not (Coalesce(CL1.CLIID1, 0) = 3018)" session("debug_sql") = SQL set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open SQL, conn, 3, 3 if (not rs.eof) then totale_peso = totale_peso + round(rs("LOTPEF"), 0) rs.Close Set rs=Nothing 'Peso totale trasportato tra centri SQL = "Select Coalesce(Sum(L.LOTPEF), 0) as LOTPEF" &_ " from USR_TRASPORTI_LOTTI_SL00042 L" &_ " join USR_TRASPORTI_SL00042 TR" &_ " on TR.CDAZD0 = L.CDAZD0 and TR.ID = L.LOTIDT" &_ " and TR.TRSCNF = 'S' and TR.RECANN = 'N'" &_ " join USR_PNEUMATICI_LOTTI L1" &_ " on L1.CDAZD0 = L.CDAZD0 and L1.LOTIDR = L.LOTIDR and L1.LOTIDS = L.LOTIDS and L1.RECANN = 'N'" &_ " join USR_PNEUMATICI_RICHIESTE R" &_ " on R.CDAZD0 = L.CDAZD0 and R.ID = L.LOTIDR and R.RECANN = 'N' and R.PNRIDI = 752" &_ " and R.PNRDTE >= " & quotedstr(Format_Date_Tot(data_iniziale)) &_ " and R.PNRDTE < " & quotedstr(Format_Date_Tot(data_finale)) &_ " join ADM_TABELLE T" &_ " on T.CDAZD0 = R.CDAZD0 and T.CDTAB0 = 'PN1' and T.ID = R.PNRIDS and T.CDTAB1 = 'E'" &_ " left join EDP_CLIENTI_SL00022 CL1" &_ " on CL1.CDAZD0 = R.CDAZD0 and CL1.CLIIDC = R.PNRIDC" &_ " where L.CDAZD0 = " & quotedstr(session("adm_azienda_gestionale")) &_ " and L.RECANN = 'N'" &_ " and not (Coalesce (CL1.CLIID1, 0) = 3018)" session("debug_sql") = SQL set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open SQL, conn, 3, 3 if (not rs.eof) then totale_peso = totale_peso + round(rs("LOTPEF"), 0) rs.Close Set rs=Nothing 'Totale km percorsi ritiri SQL = "Select Coalesce(Sum(A.TRTDST), 0) as TRTDST," &_ " Coalesce(Sum(A.TRTDST * A.FLAG01 * 2.63), 0) as CO2," &_ " Coalesce(Sum(A.TRTDST * A.FLAG01MI * 2.63), 0) as CO2MI," &_ " Coalesce(Sum(A.TRTDST * A.FLAG01MA * 2.63), 0) as CO2MA" &_ " from (" &_ " Select RT.ID, Min(RT.TRTDST) as TRTDST," &_ " Min(Coalesce(E.FLAG01, 0)) as FLAG01," &_ " Min(Coalesce(EMI.FLAG01, 0)) as FLAG01MI," &_ " Min(Coalesce(EMA.FLAG01, 0)) as FLAG01MA" &_ " from USR_PNEUMATICI_RICHIESTE R" &_ " join USR_PNEUMATICI_LOTTI L" &_ " on L.CDAZD0 = R.CDAZD0 and L.LOTIDR = R.ID and L.RECANN = 'N'" &_ " join ADM_TABELLE T" &_ " on T.CDAZD0 = R.CDAZD0 and T.CDTAB0 = 'PN1' and T.ID = R.PNRIDS and T.CDTAB1 = 'E'" &_ " join USR_PNEUMATICI_TRASPORTI_SL00042 RT" &_ " on RT.CDAZD0 = R.CDAZD0 and RT.ID = R.PNRITR and RT.TRTCNF = 'S' and RT.TRTPRC = 'S'" &_ " join USR_TRASPORTATORI_MEZZI_SL00042 M" &_ " on M.CDAZD0 = L.CDAZD0 and M.ID = RT.TRTIDM" &_ " left join ADM_TABELLE E" &_ " on E.CDAZD0 = L.CDAZD0 and E.CDTAB0 = 'PN3' and E.ID = M.TRMIDE" &_ " left join ADM_TABELLE EMI" &_ " on EMI.CDAZD0 = L.CDAZD0 and EMI.CDTAB0 = 'PN3' and EMI.FLAG02 = 'MIN' and EMI.RECANN = 'N'" &_ " left join ADM_TABELLE EMA" &_ " on EMA.CDAZD0 = L.CDAZD0 and EMA.CDTAB0 = 'PN3' and EMA.FLAG02 = 'MAX' and EMA.RECANN = 'N'" &_ " left join EDP_CLIENTI_SL00022 CL1" &_ " on CL1.CDAZD0 = R.CDAZD0 and CL1.CLIIDC = R.PNRIDC" &_ " where R.CDAZD0 = " & quotedstr(session("adm_azienda_gestionale")) &_ " and R.PNRIDI = 752" &_ " and R.PNRDTE >= " & quotedstr(Format_Date_Tot(data_iniziale)) &_ " and R.PNRDTE < " & quotedstr(Format_Date_Tot(data_finale)) &_ " and R.RECANN = 'N'" &_ " and not (Coalesce(CL1.CLIID1, 0) = 3018)" &_ " group by RT.ID" &_ " ) A" session("debug_sql") = SQL set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open SQL, conn, 3, 3 if (not rs.eof) then totale_km_percorsi = totale_km_percorsi + round(rs("TRTDST"), 1) totale_peso_co2 = totale_peso_co2 + round(rs("CO2"), 0) totale_peso_co2_min = totale_peso_co2_min + round(rs("CO2MI"), 0) totale_peso_co2_max = totale_peso_co2_max + round(rs("CO2MA"), 0) end if rs.Close Set rs=Nothing 'Totale km percorsi trasporti SQL = "Select Coalesce(Sum(A.TRSDST), 0) as TRSDST," &_ " Coalesce(Sum(A.TRSDST * A.FLAG01 * 2.63), 0) as CO2," &_ " Coalesce(Sum(A.TRSDST * A.FLAG01MI * 2.63), 0) as CO2MI," &_ " Coalesce(Sum(A.TRSDST * A.FLAG01MA * 2.63), 0) as CO2MA" &_ " from (" &_ " Select TR.ID, Min(TR.TRSDST) as TRSDST," &_ " Min(Coalesce(E.FLAG01, 0)) as FLAG01," &_ " Min(Coalesce(EMI.FLAG01, 0)) as FLAG01MI," &_ " Min(Coalesce(EMA.FLAG01, 0)) as FLAG01MA" &_ " from USR_TRASPORTI_LOTTI_SL00042 L" &_ " join USR_TRASPORTI_SL00042 TR" &_ " on TR.CDAZD0 = L.CDAZD0 and TR.ID = L.LOTIDT and TR.TRSCNF = 'S' and TR.RECANN = 'N' and TR.TRSPRC = 'S'" &_ " join USR_TRASPORTATORI_MEZZI_SL00042 M" &_ " on M.CDAZD0 = L.CDAZD0 and M.ID = TR.TRSMID" &_ " left join ADM_TABELLE E" &_ " on E.CDAZD0 = L.CDAZD0 and E.CDTAB0 = 'PN3' and E.ID = M.TRMIDE" &_ " left join ADM_TABELLE EMI" &_ " on EMI.CDAZD0 = L.CDAZD0 and EMI.CDTAB0 = 'PN3' and EMI.FLAG02 = 'MIN' and EMI.RECANN = 'N'" &_ " left join ADM_TABELLE EMA" &_ " on EMA.CDAZD0 = L.CDAZD0 and EMA.CDTAB0 = 'PN3' and EMA.FLAG02 = 'MAX' and EMA.RECANN = 'N'" &_ " join USR_PNEUMATICI_LOTTI L1" &_ " on L1.CDAZD0 = L.CDAZD0 and L1.LOTIDR = L.LOTIDR and L1.LOTIDS = L.LOTIDS and L1.RECANN = 'N'" &_ " join USR_PNEUMATICI_RICHIESTE R" &_ " on R.CDAZD0 = L.CDAZD0 and R.ID = L.LOTIDR and R.RECANN = 'N' and R.PNRIDI = 752" &_ " and R.PNRDTE >= " & quotedstr(Format_Date_Tot(data_iniziale)) &_ " and R.PNRDTE < " & quotedstr(Format_Date_Tot(data_finale)) &_ " join ADM_TABELLE T" &_ " on T.CDAZD0 = R.CDAZD0 and T.CDTAB0 = 'PN1' and T.ID = R.PNRIDS and T.CDTAB1 = 'E'" &_ " left join EDP_CLIENTI_SL00022 CL1" &_ " on CL1.CDAZD0 = R.CDAZD0 and CL1.CLIIDC = R.PNRIDC" &_ " where L.CDAZD0 = " & quotedstr(session("adm_azienda_gestionale")) &_ " and L.RECANN = 'N'" &_ " and not (Coalesce (CL1.CLIID1, 0) = 3018)" &_ " group by TR.ID" &_ " ) A" session("debug_sql") = SQL set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open SQL, conn, 3, 3 if (not rs.eof) then totale_km_percorsi = totale_km_percorsi + round(rs("TRSDST"), 1) totale_peso_co2 = totale_peso_co2 + round(rs("CO2"), 0) totale_peso_co2_min = totale_peso_co2_min + round(rs("CO2MI"), 0) totale_peso_co2_max = totale_peso_co2_max + round(rs("CO2MA"), 0) end if rs.Close Set rs=Nothing if (trim(request("debug")) = "S") then response.write totale_peso_co2 & " - " & totale_peso & " - " & totale_km_percorsi end if 'Aggiungo tolleranza ai kilometri del 5% totale_km_percorsi = round(totale_km_percorsi * 1.05, 0) risultato_percentuale = 0 if (totale_peso > 0) then risultato_percentuale = round((totale_peso_co2 / totale_peso) * 100, 2) 'if (risultato_percentuale < 2) then risultato_percentuale = 2 %>
Emissioni CO2 derivanti da trasporti

La mission di Greentire è massimizzare il recupero dei derivati degli PFU, dando loro una seconda vita nel rispetto dell'ambiente.

Tweet recenti

Facebook

Newsletter

Iscriviti alla nostra newsletter e resta sempre aggiornato su tutte le novità di Greentire e dei PFU

Invia
Greentire S.c.r.l. - Sede operativa: via Manerbio, 26 - 25021 Bagnolo Mella (BS) Italy | Tel: +39 030 9976484 | E-mail: info@greentire.it | P.IVA 07570790969Privacy Policy Cookie Policy
Torna su