<% '------------------------- Acao = Request.Form("Acao") sData = Request.Form("txtData") sSerie = Request.Form("cboSerie") sTurma = Request.Form("cboTurma") CodOco = Request.Form("cboOCO") CodDiscip = Request.Form("cboDiscip") sTrim = Request.Form("cboTrim") sDescDiscip = Request.Form("hDescDiscip") sMsg = "" '------------------------- If Acao = "2" Then 'Salva Dados '--nome dos campos sNota = "NOTA0" & sTrim sRec = "REC0" & sTrim sFalta = "FALTA0" & sTrim On Error Resume Next oBD.BeginTrans For Each item In Request.Form if Left(item, 4) = "RGM_" then 'varre 1º o hidden p/ pegar o RGM aCampos = Split(item, "_") sRGM = aCampos(1) sCampo = "txt_" & sRGM & "_Not" Nota = Replace(trim(Request.Form(sCampo)), ",", ".") sCampo = "txt_" & sRGM & "_Fal" Falta = Replace(trim(Request.Form(sCampo)), ",", ".") sCampo = "txt_" & sRGM & "_Rec" Rec = Replace(trim(Request.Form(sCampo)), ",", ".") sSQL = "Select count(*) from NOTAS Where RGM = '" & sRGM & "' and CODDISCIPLINA = '" & CodDiscip & "'" Set rsNota = oBD.Execute(sSQL) if CInt(rsNota(0)) = 0 then sSQL = "Insert Into NOTAS(ANO,RGM,CODDISCIPLINA," & sNota & "," & sRec & "," & sFalta & ",DISCIPLINA) Values ('" & year(now) & "','" & sRGM & "','" & CodDiscip & "'," & Nota & "," & Rec & "," & Falta & ",'" & sDescDiscip & "')" oBD.Execute(sSQL) 'Response.Write sSQL & "
" else sSQL = "Insert Into NOTASLOG(RGM,CODDISCIP,NOTA01,REC01,FALTA01,NOTA02,REC02,FALTA02,NOTA03,REC03,FALTA03,QUEM,TIPO) " & _ "select RGM,CODDISCIPLINA,NOTA01,REC01,FALTA01,NOTA02,REC02,FALTA02,NOTA03,REC03,FALTA03,'" & Session("USUARIO") & "','1' from NOTAS Where RGM = '" & sRGM & "' and CODDISCIPLINA = '" & CodDiscip & "'" 'Response.Write sSQL : Response.End() 'oBD.Execute(sSQL) 'Response.Write sSQL & "
" sSQL = "Update NOTAS Set " & sNota & "=" & Nota & "," & sRec & "=" & Rec& "," & sFalta & "=" & Falta & " Where RGM = '" & sRGM & "' and CODDISCIPLINA = '" & CodDiscip & "'" 'Response.Write sSQL & "
" oBD.Execute(sSQL) sSQL = "Insert into NOTASLOG(RGM,CODDISCIP,NOTA01,REC01,FALTA01,NOTA02,REC02,FALTA02,NOTA03,REC03,FALTA03,QUEM,TIPO) " & _ "select RGM,CODDISCIPLINA,NOTA01,REC01,FALTA01,NOTA02,REC02,FALTA02,NOTA03,REC03,FALTA03,'" & Session("USUARIO") & "','2' from NOTAS Where RGM = '" & sRGM & "' and CODDISCIPLINA = '" & CodDiscip & "'" 'Response.Write sSQL & "
" 'oBD.Execute(sSQL) end if if rsNota.State = 1 then rsNota.Close 'Response.Write "Insert into NOTAS values (" & sRGM & "," & Nota & "," & Rec & ")
" end if Next '---------------------- if err.number = 0 then sMsg = "Dados Gravados com Sucesso" oBD.CommitTrans else sMsg = "ERRO - " & err.number & " - " & Replace(err.Description, "'", "") oBD.RollbackTrans end if Acao = "" ElseIf Acao = "3" Then 'Exclue Dados 'sQuery = "Delete from TIPOCORRENCIA Where CODIGO = " & CodOco 'Response.Write(sQuery) : Response.End() 'oBD.Execute sQuery if err.number = 0 then sMsg = "Registro Excluido com Sucesso" else sMsg = "ERRO - " & err.number & " - " & Replace(err.Description, "'", "") end if Acao = "" ElseIf Acao = "4" Then 'Cancelou -> apenas ZERA Acao = "" End If %> <% if sMsg <> "" then Response.Write("") %> <% if Acao = "1" then '----------------------------- Set rsDiscip = oBD.Execute("Select MATDESMAT From ADEDMAT Where MATCODMAT = '" & CodDiscip & "'") 'response.Write("Select MATDESMAT From ADEDMAT Where MATDESMAT = '" & CodDiscip & "'") ': Response.End() sDescDiscip = "" if not rsDiscip.Eof Then sDescDiscip = rsDiscip(0) if rsDiscip.State = 1 then rsDiscip.Close Set rsDiscip = Nothing '----------------------------- sSQL = "Select RGM,NOME,NUMERO From ALUNOS Where SERIE = '" & sSerie & "' And TURMA = '" & sTURMA & "' Order By NOME" 'Response.Write sSQL : Response.End() Set rsAlunos = oBD.Execute(sSQL) If Not rsAlunos.Eof Then%>
<% Dim Nota : Dim Falta : Dim Rec Do While Not rsAlunos.Eof sRGM = rsAlunos("RGM") Nota = 0 : Falta = 0 : Rec = 0 sNota = "NOTA0" & sTrim sRec = "REC0" & sTrim sFalta = "FALTA0" & sTrim sSQL = "Select " & sNota & "," & sRec & "," & sFalta & " from NOTAS Where RGM = '" & sRGM & "' and CODDISCIPLINA = '" & CodDiscip & "'" set rsNota = oBD.Execute(sSQL) if not rsNota.eof then If IsNull(rsNota(sNota)) Then nota=0 else Nota = CSng(rsNota(sNota)) If IsNull(rsNota(sfalta)) Then falta=0 else Falta = CSng(rsNota(sFalta)) If IsNull(rsNota(srec)) Then rec=0 else Rec = CSng(rsNota(sRec)) end if if rsNota.state = 1 then rsNota.Close %> <% rsAlunos.MoveNext Loop Set rsAlunos = Nothing %>
Data: <%= Now %> Série: <%= sSerie %> Turma: <%= sTurma %> Trim.: <%=sTrim %> <%= CodDiscip & " - " & sDescDiscip %>
  Nota Recup. Falta  
<%= rsAlunos("RGM") %> <%= rsAlunos("NUMERO") & " - " & rsAlunos("NOME") %>

<% else response.write "
Nao foi encontrado registros. Reveja os dados e tente novamente.
" End If 'if not rsAlunos.Eof End If 'Acao = 1 %> <% if Acao = "" then %>
Informe os dados p/ digitação notas:
Série:
Turma:
Disciplina:
Bimestre:
<% End If 'Acao = "" %> <% if oBD.State=1 then oBD.Close Set oBD = Nothing 'if oBD.State=1 then oBD.Close 'Set Banco = Nothing %>