%
Set oBDOco = Server.CreateObject("ADODB.Connection")
oBDOco.ConnectionString = sCnnOco : oBDOco.Open
'-------------------------
Acao = Request.Form("Acao")
sData = Request.Form("txtData")
sSerie = Request.Form("cboSerie")
sTurma = Request.Form("cboTurma")
CodOco = Request.Form("cboOCO")
CodDiscip = Request.Form("cboDiscip")
sMsg = ""
'-------------------------
If Acao = "2" Then 'Salva Dados
On Error Resume Next
sDataQry = Split(sData, "/")
Set rsAlunos = oBD.Execute("Select RGM From ALUNOS Where SERIE = '" & sSerie & "' And TURMA = '" & sTURMA & "'")
Do While Not rsAlunos.Eof
sQuery = "Delete from OCORREN Where DATA = '" & _
Right(sDataQry(2),2) & "/" & sDataQry(1) & "/" & sDataQry(0) & "' And RGM = '" & rsAlunos("RGM") & "' And COD_DISCIP = '" & _
CodDiscip & "' And COD_DESCRI = '" & CODOCO & "'"
oBD.Execute(sQuery)
rsAlunos.MoveNext
Loop
sDescDiscip = ""
if CodDiscip <> "000" then
Set rsDiscip = oBD.Execute("Select MATDESMAT From ADEDMAT Where MATCODMAT = '" & CodDiscip & "'")
if not rsDiscip.Eof Then sDescDiscip = rsDiscip(0)
if rsDiscip.State = 1 then rsDiscip.Close
Set rsDiscip = Nothing
end if
Set rsOCOR = oBDOco.Execute("Select DESCRICAO From TIPOCORRENCIA Where CODIGO = " & CodOco)
sDescOco = ""
if not rsOCOR.Eof Then sDescOco = rsOCOR(0)
if rsOCOR.State = 1 then rsOCOR.Close
Set rsOCOR = Nothing
sAno = Year(date)
For Each item In Request.Form
if Left(item, 4) = "chk_" then
sSQL = "Insert Into OCORREN(RGM,DATA,COD_DISCIP,COD_DESCRI,DESCRI,ANO,MES) Values ('" & Right(item, 5) & "','" & _
Right(sDataQry(2),2) & "/" & sDataQry(1) & "/" & sDataQry(0) & "','" & CodDiscip & "','" & CodOco & "','" & _
sDataQry(0) & "/" & sDataQry(1) & "/" & sDataQry(2) & " - " & sDescOco & " " & sDescDiscip & "','" & sAno & "','" & sDataQry(1) & "')"
Response.Write sSQL
oBD.Execute(sSQL)
'& " - " & Request.form(item) & "
")
end if
Next
if err.number = 0 then
sMsg = "Dados Gravados com Sucesso"
else
sMsg = "ERRO - " & err.number & " - " & Replace(err.Description, "'", "")
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
%>