<% Session.LCID = 1033 set date_functions = new classDateFunctions Function SELECTED(firstVal, secondVal) If cSTR(firstVal) = cSTR(secondVal) then SELECTED = " SELECTED" End If End Function If request.cookies("Cookie_Overload_2")("valido") <> "ok" Then Response.Redirect ("/mysql/default.asp") End If ID_DIPENDENTE = request.querystring("ID_DIPENDENTE") ID_GEST = request.querystring("ID_GEST") ID_COD = request.querystring("ID_COD") strMESE = request.querystring("Mese") strANNO = request.querystring("Anno") %>
" onsubmit="return(convalidaForm(this));">

>>> <%=Session("NOME_GESTIONE")%> <<<

= Modifica Stipendi Dipendente =
     
Seleziona Dipendente  
     
Seleziona Mese <% ID_DIPENDENTE = request.querystring("ID_DIPENDENTE") ID_GEST = request.querystring("ID_GEST") ID_COD = request.querystring("ID_COD") strMESE = request.querystring("Mese") strANNO = request.querystring("Anno") If ID_DIPENDENTE = "" then strSql = "SELECT " strSQL = strSQL & " MESE " strSQL = strSQL & " FROM " strSQL = strSQL & " SIT_STIPENDI " strSQL = strSQL & " GROUP BY " strSQL = strSQL & " MESE " strSQL = strSQL & " ORDER BY " strSQL = strSQL & " MESE ASC" Else strIDDIPENDENTE = Split(ID_DIPENDENTE, "-") strSql = "SELECT " strSQL = strSQL & " MESE, " strSQL = strSQL & " CODICELOCALE " strSQL = strSQL & " FROM " strSQL = strSQL & " SIT_STIPENDI " strSQL = strSQL & " WHERE " strSQL = strSQL & " CODICELOCALE = "& strIDDIPENDENTE(0) &" " strSQL = strSQL & " GROUP BY " strSQL = strSQL & " MESE " strSQL = strSQL & " ORDER BY " strSQL = strSQL & " MESE ASC" End if %>  
   
Seleziona Anno <% ID_DIPENDENTE = request.querystring("ID_DIPENDENTE") ID_GEST = request.querystring("ID_GEST") ID_COD = request.querystring("ID_COD") strMESE = request.querystring("Mese") strANNO = request.querystring("Anno") If strMESE = "" then strSql = "SELECT " strSQL = strSQL & " ANNO " strSQL = strSQL & " FROM " strSQL = strSQL & " SIT_STIPENDI " strSQL = strSQL & " GROUP BY " strSQL = strSQL & " ANNO " strSQL = strSQL & " ORDER BY " strSQL = strSQL & " ANNO ASC" Else strSql = "SELECT " strSQL = strSQL & " ANNO, " strSQL = strSQL & " CODICELOCALE, " strSQL = strSQL & " MESE " strSQL = strSQL & " FROM " strSQL = strSQL & " SIT_STIPENDI " strSQL = strSQL & " WHERE " strSQL = strSQL & " MESE = "& strMESE &" " strSQL = strSQL & " AND " strSQL = strSQL & " CODICELOCALE = " & strIDDIPENDENTE(0) & " " strSQL = strSQL & " GROUP BY " strSQL = strSQL & " ANNO " strSQL = strSQL & " ORDER BY " strSQL = strSQL & " ANNO ASC" End if %>  
<% If ID_DIPENDENTE <> "" then strSQL = "SELECT * , " strSQL = strSQL & " SUM(TOTALECOMPETENZEBP) AS strTOTALECOMPETENZEBP, " strSQL = strSQL & " SUM(TOTALETRATTENUTEBP) AS strTOTALETRATTENUTEBP, " strSQL = strSQL & " SUM(NETTOBUSTAPAGA) AS strNETTOBUSTAPAGA, " strSQL = strSQL & " SUM(TOTALECOMPETENZEEXTRA) - SUM(TOTALETRATTENUTEEXTRA) AS strTOTALEEXTRA " strSQL = strSQL & " FROM " strSQL = strSQL & " SIT_STIPENDI " strSQL = strSQL & " WHERE 1 = 1 " strSQL = strSQL & " AND " strSQL = strSQL & " ID_GESTIONE_RIFERIMENTO = " & ID_GEST & " " strSQL = strSQL & " AND " strSQL = strSQL & " GESTIONE_RIF = " & ID_COD & " " If ID_DIPENDENTE <> "" then ID_DIPENDENTE = Split(ID_DIPENDENTE, "-") strSQL = strSQL & " AND CODICELOCALE = " & strIDDIPENDENTE(0) & " " End If If strMESE <> "" then strSQL = strSQL & " AND MESE = " & strMESE & " " End If If strANNO <> "" then strSQL = strSQL & " AND ANNO = " & strANNO & " " End If strSQL = strSQL & " GROUP BY " strSQL = strSQL & " CODICELOCALE " strSQL = strSQL & " ORDER BY " strSQL = strSQL & " TOTALECOMPETENZEEXTRA DESC " Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open strSQL, objconn If Not Rs.EOF Then %>

 

<% Do while NOT Rs.EOF %> <% if Rs("TotaleCompetenzeBP") <> "0" then%> <% else %> <% end if %> <% if Rs("TotaleTrattenuteBP") <> "0" then%> <% else %> <% Rs.MoveNext Loop end if %>
Totale competenze
busta paga		 Totale ritenute
busta paga		 Netto
busta paga		 Descrizione
extra		 Importo
base		 Numero
ore		 Competenze
extra		 Totale
Competenze extra		 Descrizione
trattenute		 Importo
base		 Numero
ore		 Trattenute
extra		 Totale
Trattenute extra		 Totale
generale
" size="18" value="<%=Rs("TotaleCompetenzeBP")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)">" size="18" value="<%=Rs("TotaleCompetenzeBP")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)" readonly>" size="15" value="<%=Rs("TotaleTrattenuteBP")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)">" size="15" value="<%=Rs("TotaleTrattenuteBP")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)" readonlytd> <% end if %> " size="10" value="<%=Rs("NettoBustaPaga")%>" readonly> " size="20" value="<%=Rs("DESCRIZIONEEXTRA")%>"> " size="5" value="<%=Rs("IMPORTOBASE")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)"> " size="10" value="<%=Rs("NUMEROORE")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)"> " size="10" value="<%=Rs("CompetenzeExtra")%>" readonly> " size="10" value="<%=Rs("TotaleCompetenzeExtra")%>" readonly> " size="20" value="<%=Rs("DescrizioneTrattenute")%>"> " size="5" value="<%=Rs("ImportoBaseTrattenute")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)"> " size="10" value="<%=Rs("NumeroOreTrattenute")%>" onKeyUp="calcola(this.form, <%=Rs("ID")%>)"> " size="10" value="<%=Rs("TrattenuteExtra")%>" readonly> " size="10" value="<%=Rs("TotaleTrattenuteExtra")%>" readonly> " size="10" value="<%=Rs("TotaleGenerale")%>" readonly>

<% Rs.Close set Rs = nothing end if %>