<% Set Cn = Server.CreateObject("ADODB.Connection") Cn.ConnectionString = sCnnOco : Cn.Open '------------------------- Acao = Request.Form("Acao") CodOco = Request.Form("CodOco") sMsg = "" '------------------------- If Acao = "2" Then 'Salva Dados sDescOco = Replace(Request.Form("txtDescOco"), "'", "''") Discip = Request.Form("chkAssocia") if Discip = "" then Discip = "0" 'Response.Write((Discip = "") & Request.Form("chkAssocia")) If Request.Form("EhNovo") = "T" Then sQuery = "Insert Into TIPOCORRENCIA(DESCRICAO,EHDIGITAVEL) " sQuery = sQuery & "Values ('" & sDescOco & "','" & CBool(Discip) & "')" Else sQuery = "Update TIPOCORRENCIA Set DESCRICAO = '" & sDescOco & "',EHDIGITAVEL = " & CBool(Discip) & " Where CODIGO = " & CodOco End If On Error Resume Next 'Response.Write(sQuery) : Response.End() Cn.Execute sQuery 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() Cn.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 If CodOco = "0" then 'Set rsCodPro = cn.Execute("Select Max(Codigo) + 1 From TIPOCORRENCIA") 'CodOco = rsCodPro(0) EhNovo = "T" sDescOco = "" Discip = "" Else Set rsCodPro = cn.Execute("Select DESCRICAO,EHDIGITAVEL From TIPOCORRENCIA Where CODIGO = " & CodOco) sDescOco = rsCodPro("DESCRICAO") Discip = rsCodPro("EHDIGITAVEL") EhNovo = "F" if rsCodPro.State = 1 then rsCodPro.Close Set rsCodPro = Nothing End If%>
Código: Descrição:
checked="checked" <% end if %> id="chkAssocia" value="1"> É digitável?

<% end if 'Acao = 1 %> <% if Acao = "" then %>
Clique no nome para Editar <% Set rsProf = cn.Execute("SELECT CODIGO,DESCRICAO FROM TIPOCORRENCIA ORDER BY CODIGO") Do While Not rsProf.EOF%> <% rsProf.MoveNext Loop if rsProf.State = 1 then rsProf.Close Set rsProf = Nothing %>
');"><%= rsProf("DESCRICAO") %>
<% End If 'Acao = "" %> <% if cn.State=1 then cn.Close Set cn = Nothing %>