- 0
Erro Microsoft OLE DB Provider for ODBC Drivers erro '80040e21' O driver ODBC não oferece suporte para as propriedades solicitadas.
Perguntado por
Marcelo Denisard,
Perguntado por
Marcelo Denisard,
Pergunta
Marcelo Denisard
Bom dia estou tendo um retorno de erro
Microsoft OLE DB Provider for ODBC Drivers erro '80040e21'
O driver ODBC não oferece suporte para as propriedades solicitadas.
/rotinas/rotinas.asp, linha 37
alguém tem alguma informação pra ajudar, desde já agradeço.
segue o script abaixo:
<link href="rotinas/estilo.css" type="text/css" rel="stylesheet">
<script LANGUAGE="JavaScript" SRC="javascript/funcoes.js"></script>
<!--#Include file="funcoesAno.asp"#-->
<%
response.write("<body class=bodycolor>")
Dim conex
Dim rst,rst2
'---Cria e abre o objeto de conexão
sub Wconex()
set conex=server.CreateObject("ADODB.connection")
conex.open ("Driver={MySQL ODBC 8.0 ansi Driver};SERVER=localhost;UID=root;PASSWORD=;PORT=3306;OPTION=3;STMT=;DATABASE=Srh;")
end sub
'---Executa sql-que não retorna registros
sub SqlNoQuery(fsql)
Wconex
conex.execute(fsql)
conex.close
set conex=Nothing
' response.write(fsql)
' response.end
end sub
'---Apagar tabelas
sub Drop_table(ftable)
strSql="DROP TABLE IF EXISTS "& ftable &";"
SqlNoQuery(strSql)
end sub
'---Cria um objeto Recordset
sub Wrst(fsql)
if (session("logado") = "marcio-souza") then
response.write(fsql)
end if
Wconex
set rst=server.CreateObject("ADODB.Recordset")
rst.open fsql,conex,3,3
end sub
'---Cria um outro objeto Recordset
sub Wrst2(fsql)
Wconex
set rst2=server.CreateObject("ADODB.Recordset")
rst2.open fsql,conex,3,3
end sub
'---Fecha a Conexão com o banco de dados
sub fechaConexao()
set rst=nothing
conex.close
set conex=Nothing
end sub
'---Função Dados para caixa de listagem
dim vetor,vetor_aux
function MontaVetor(fSql,vetor,fexit)
' response.write(fSql)
Wrst(fSql)
MontaVetor=-1
If NOT rst.EOF then
vetor=rst.GetRows
'---nro de registros
//response.write(fSql)
MontaVetor=ubound(vetor,2)
else
if fexit=0 then
// response.write(fSql)
response.Write("<h3>Não Há dados para serem exibidos</h3>")
response.end
end if
end if
fechaConexao
end function
'---Item pré-selecionado
'---Rotina de Preenchimento da caixa de listagem/item_list(0,i)"código" e item_list(1,0) "Descrição"
dim Wdt_adm,Wfiltro
sub Montalista(fsql,nome,codigo)
'response.Write(fsql&nome&codigo)
dim final
dim Windice
Wrst(fSql)
Select Case session("atividade")
case 1092
Qsel="TODOS"
Qvalue=""
case else
Qsel="SELECIONE"
Qvalue=""
End Select
%>
<select name="<%=nome%>" "" <%=Qdisabled%> onChange="javascript:cbo(this)" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;">
<% If lcase(nome) <> "def" And lcase(nome) <> "reabilitado" Then %>
<option value="<%=Qvalue%>" <%=selecao%> ><%=Qsel%></option>
<%
End If
If NOT rst.EOF then
lista=rst.GetRows
'---nro de registros
final=ubound(lista,2)
colunas=ubound(lista,1)
if instr(LCase(fsql),"from")=0 then
for n=0 to colunas
Windice=lista(n,0)
selecao=""
if codigo <>"" then
if cstr(Windice)=cstr(codigo) then selecao="selected": nome=Windice
end if
%>
<option value="<%=Windice%>" <%=selecao%> ><%=Windice%> </option>
<%
next
response.write("</select>")
exit sub
end if
for n=0 to final
Windice=lista(0,n)
selecao=""
if codigo <> "" then
if cstr(Windice)=cstr(codigo) then selecao="selected":nome=Windice
end if
cols=""
for k=1 to colunas
cols=cols & left(lista( k,n),60) & " - "
next
cols=limpaCaracter(cols,3)
%>
<option value="<%=Windice%>" <%=selecao%> ><%=cols%></option>
<%
next
else
response.write("<option value="""">NÃO HÁ DADOS</option>")
end if
response.write("</select>")
fechaConexao
end sub
'----
Sub MtTabelaHorario(facao)
'---Monta Tabela conforme os elementos fornecidos
if DadosServidor(RetornaValor("matri")) then
MontaServidor
montahorario(session("matri"))
end if
response.write("<br><Table class=estilo_12 BORDER=0 CELLSPACING=0 CELLPADDING=1>")
response.write("<tr><td colspan=2 align=center>REGISTRO DE HORÁRIOS</td></tr>")
response.write("<tr><td>Matricula</td><td><input name=matri value='"&RetornaValor("matri")&"' class=campos type=text onBlur='fonb8(this)' onKeyDown='if(event.keyCode==13) event.keyCode=9;' size='5' maxlength='5' ></td></tr>")
response.write("<tr><td>Data</td><td><input name=data_i value='"&RetornaValor("data_i")&"' class=campos type=text onBlur='fonb4(this)' onKeyDown='if(event.keyCode==13) event.keyCode=9;' size='10' maxlength='10' ></td></tr>")
response.write("<tr><td>Documento</td><td>")
preenchelista "tipo_d",RetornaValor("tipo_d")
response.write("</td></tr>")
response.write("<tr><td>Nro.</td><td><input name=nrodoc value='"&RetornaValor("nrodoc")&"' class=campos type=text onKeyDown='if(event.keyCode==13) event.keyCode=9;'></td></tr>")
ArrCampos=split(Session("Campos"),",")
ArrAuto_inc=split(Session("Auto_inc"),";")
ArrTabela=split(Session("tbl"),";")
ArrChave=split(Session("Chave"),";")
ArrSize=split(session("size"),";")
Arrfuncao=split(Session("func"),";")
If session("acao")=1 then
RetornaDados("SELECT * FROM Srh.horario_novo WHERE id_horario='"&Request.QueryString("id_horario")&"';")
End if
for i=0 to ubound(ArrCampos,1)
'---Campo Auto Numeração
if Arrfuncao(i) <> "0" then Arrfuncao(i) = Arrfuncao(i) & "(this)"
Wevento=" onBlur="
funcao2=""
Wtype="text"
Wlabel=Labels(i)
if ArrAuto_inc(i)=1 then nVisible(ArrAuto_inc(i))
Wcampo=ArrCampos(i)
if Request.QueryString("id_horario")="" then
valor=Request.Form(Wcampo)
else
valor=dados(i)
end if
if i=4 then
response.write("</table><Table class=estilo_3 BORDER=1 CELLSPACING=0 CELLPADDING=1 bordercolor=blue>")
response.write("<br><br>")
response.write("<tr class=estilo_5><td></td><td>Ent</td><td>Sai</td><td>Ent</td><td>Sai</td></tr>")
end if
if i > 4 then
Qini=right(Arrcampos(i),2)
if Qini="e1" then
response.write("<tr>")
Qest="estilo_3"
if i=5 then Qest="estilo_7"
response.write("<TD class="&Qest&">"&Wlabel&"</TD>")
end if
else
response.write("<tr>")
response.write("<TD>"&Wlabel&"</TD>")
end if
if ArrTabela(i)="0" then
'campos com área maior
%>
<TD width="100" align="center"><input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" size=<%=ArrSize(i)%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;"></TD>
<%
else
if ArrChave(i)=0 or (Arrchave(i)=1 and facao=0) Then
response.write("<td>")
preenchelista ArrTabela(i),valor
response.write("</td>")
else %>
<TD width="450"><input name="<%=Wcampo%>" type="%=Wtype%>" value="<%=valor%>" size="5" onBlur="<%=funcao%>" onFocus="<%=funcao2%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;"></TD>
<%
end if
if i > 3 then
Qfinal=right(Arrcampos(i),2)
if Qfinal="s2" then response.write("</tr>")
else
response.write("</tr>")
end if
end if
next
response.write("</table>")
botoes facao
if request.form("matri")<>"" or request.QueryString("matri")<>"" then call MtLista
end sub
'----
'---Altera Contrato
function fMudaContrato(fcampo,fmatri,facao)
fMudaContrato="UPDATE Srh.contrato SET " & fcampo & "='"
if facao < 2 then
'---inclusão e Alteração
select case cint(session("atividade"))
case 108
fMudaContrato=fMudaContrato & request.form("lotacao")
case 118
'---Reintegração
fMudaContrato=fMudaContrato & "1"
case 123
'---Alteração do Período Aquisitivo
fMudaContrato=fMudaContrato & ConverteData(request.form("data_i"))
case 129
fMudaContrato=fMudaContrato & request.form("nivel")
case 130
fMudaContrato=fMudaContrato & request.form("ch")
end select
else
select case cint(session("atividade"))
case 108
'---transferência
fMudaContrato=fMudaContrato & fultlotacao
case 118
'---Reintegração
fMudaContrato=fMudaContrato & "0"
case 123
'---Alteração do Período Aquisitivo
fMudaContrato=fMudaContrato & ConverteData(request.form("ultimo_pa"))
case 129
'---Mudança de Nível
strSql="SELECT nivel from Srh.historico"
strSql=strSql & " WHERE matri='" & session("matri")
strSql=strSql & "' AND tipo_h='08'"
strSql=strSql & " ORDER BY data_i DESC LIMIT 1;"
strNivel = RetornaDescricao(strSql)
' Correção para evitar que o servidor fique com
' nível 0 ao excluir um registro de alteração de nível
If strNivel <> "" Then
fMudaContrato=fMudaContrato & strNivel
Else
fMudaContrato=fMudaContrato & "1"
End If
Wconex
case 130
'---Mudança de Carga Horária
strSql="SELECT ch from Srh.historico"
strSql=strSql & " WHERE matri='" & session("matri")
strSql=strSql & "' AND subtipo_h='0901'"
strSql=strSql & " ORDER BY data_i DESC LIMIT 1;"
Qch=RetornaDescricao(strSql)
if Qch="" then Qch=40
fMudaContrato=fMudaContrato & Qch
Wconex
end select
end if
fMudaContrato=fMudaContrato & "' WHERE matri='" & fmatri & "';"
'faux(fMudaContrato)
end function
'
'---Montagem das Sqls
function WSql(facao)
Wtbl=session("strTabela")
ArrAuto_inc=split(Session("Auto_inc"),";")
ArrChave=split(Session("Chave"),";")
sqlInc = "INSERT INTO " & Wtbl & " (" & Session("Campos") & ") VALUES ("
sqlAlt = "UPDATE " & Wtbl & " SET "
sqlDel = "DELETE FROM " & Wtbl
ArrCampos=split(Session("Campos"),",")
For i = 0 To ubound(ArrCampos,1)
fcampo=ArrCampos(i)
if facao=0 then
If ArrAuto_inc(i)=1 Then
WSql = WSql & chr(34) & "" & chr(34) & ","
else
WSql= WSql & "'" & ConverteDados(request.Form(fcampo),fcampo) & "',"
End If
else
' 13/06/2014 - Henrique Cordeiro
' Verifica se campo senha está vazio durante a alteração (1) ou exclusão (2) de cadastro e,
' em caso positivo, ignora este campo
If (facao=1 OR facao=2) AND fcampo = "senha" AND Trim(request.Form(fcampo)) = "" Then
For j=i To UBound(ArrCampos)-1
ArrCampos(j) = ArrCampos(j + 1)
Next
ReDim Preserve ArrCampos(UBound(ArrCampos) - 1)
Else
If ArrChave(i)=1 Then
sqlWhere = sqlWhere & fcampo & "='" & ConverteDados(request.Form(fcampo),fcampo) & "' AND "
else
'If request.Form(fcampo)<>"" Then
If(InStr(request.Form(fcampo),"'") > 0) Then
WSql = WSql & fcampo & "='" & ConverteDados(Replace(request.Form(fcampo),CHR(39),CHR(39)&CHR(39)),fcampo) & "',"
Else
WSql= WSql & fcampo & "='" & ConverteDados(request.Form(fcampo),fcampo) & "',"
End If
'End If
'if request.Form(fcampo)<>"" then
' WSql= WSql & fcampo & "='" & ConverteDados(request.Form(fcampo),fcampo) & "',"
'end if
end if
End If
end if
Next
Select Case facao
case 0
WSql=limpaCaracter (WSql,1)
WSql= sqlinc & WSql & ");"
case 1,2
sqlwhere=" WHERE " & limpaCaracter(sqlwhere,5)
if facao=1 then
WSql=limpaCaracter (WSql,1)
WSql= sqlAlt & WSql & sqlWhere & ";"
else
WSql= sqlDel & sqlWhere & ";"
end if
end select
' response.write(WSql)
' response.end()
end function
'
function fsqlWhere()
Dim Arrchavefalsa
Dim fgCF
fgCF=false
Arrchavefalsa=split(Session("Chavefalsa"),";")
for m=0 to ubound(Arrchavefalsa,1)
If Arrchavefalsa(m)=1 Then
fgCF=true
exit for
end if
next
if fgCF then
ArrChave=split(Session("Chavefalsa"),";")
else
ArrChave=split(Session("Chave"),";")
End if
ArrCampos=split(Session("Campos"),",")
For i = 0 To ubound(ArrCampos,1)
fcampo=ArrCampos(i)
If ArrChave(i)=1 Then
fsqlWhere = fsqlWhere & fcampo & "='" & ConverteDados(request.form(fcampo),fcampo) & "' AND "
end if
next
fsqlwhere=" WHERE " & limpaCaracter(fsqlwhere,5) & ";"
end function
'
'---Montagem das SqlPesquisa
'---Lançamento de inclusão
function SqlPesquisa()
SqlPesquisa= "SELECT * FROM " & session("strTabela") & fsqlWhere
end function
'
'
function ConverteDados(frequest,fcampo)
'---Tratamento da Data(Conversão formato inglês)
if isdate(frequest) and instr(frequest,":")=0 then
if instr(frequest,".")=0 and fcampo<>"nrodoc" then
ConverteDados= converteData(frequest)
else
ConverteDados=frequest
end if
else
Select Case fcampo
case "senha"
frequest=Crypt(trim(frequest))
end Select
ConverteDados=frequest
end if
end function
'
function fcmh(fminutos)
if fminutos="00:00" or fminutos="" or isnull(fminutos) then exit function
wminutos=cdbl(fminutos)
whora=right(cstr("00" & cdbl(wminutos\60)),2)
wminutos=left(cstr(wminutos-whora*60) & "00",2)
fcmh=whora & ":" & wminutos
end function
'
function fcmht(fminutos)
if fminutos="00:00" or fminutos="" or isnull(fminutos) then
fcmht="00:00"
exit function
end if
wminutos=cdbl(fminutos)
whora=cstr(cdbl(wminutos\60))
if len(whora)=1 then Whora="0" & Whora
wminutos=right("00"&cstr(wminutos-whora*60),2)
fcmht=whora & ":" & wminutos
end function
function arrfcmht(h)
dim a
a=mid(h,1,instr(h,":")-1)
b=mid(h,instr(h,":")+1,1)
if b > 5 then a=cint(a)+1
arrfcmht=a&":00"
end function
function limpaCaracter(strValorSujo,fnroCter)
limpaCaracter= left(strValorSujo,len(strvalorSujo)-fnroCter)
end function
'---Abre o Recordset e coloca os valores no vetor e cria uma string
'---Alteração e Exclusão de Dados
function RetornaDados(fSql)
RetornaDados=false
Wrst(fSql)
IF NOT rst.EOF then
Wetor=rst.GetRows
rst.close
'---preenche a string valor com os elementos do vetor
for i=0 to ubound(Wetor,1)
ValCampos=ValCampos & Wetor(i,0) & ";"
next
RetornaDados=True
ValCampos=limpaCaracter(ValCampos,1)
dados=split(ValCampos,";")
end if
fechaConexao
end function
'
'---Inclusão de Dados
dim dados
function LimpaCampos()
Wcampos=split(Session("Campos"),",")
nroCampos=ubound(Wcampos)
redim dados(nroCampos)
for K=0 to nroCampos
dados(K)=""
next
end function
'----
function RetornaDescricao(fSql)
RetornaDescricao=""
Wrst(fSql)
If NOT rst.EOF then RetornaDescricao=rst(0)
set rst=nothing
end function
'
'---Apresentações na Tela
function confData(fdata)
if fdata="" then
confData="00-00-0000"
else
Wdia=day(fdata):Wmes=month(fdata)
if Wdia < 10 then Wdia="0" & Wdia
if Wmes < 10 then Wmes="0" & Wmes
confData= Wdia &"-" & Wmes & "-" & year(fdata)
end if
end function
'
'---Data no formato(ddmmyyyy) passada por código
function datacod(fdata)
wdia=mid(fdata,1,2):wmes=mid(fdata,3,2):wano=mid(fdata,5,4)
datacod= wdia & "-" & wmes & "-" & wano
end function
'
function fDtfinal(fdata,fdias)
fDtfinal=ConverteData(cdate(fdata)+cint(fdias)-1)
end function
'
'---Data no formato p/Banco de Dados.
function ConverteData(fdata)
Dim Wdia,Wmes
if fdata="" then
ConverteData="2050-01-01"
else
if fdata="00-00-0000" then
ConverteData="0000-00-00"
else
Wdia=day(fdata):Wmes=month(fdata)
if Wdia < 10 then Wdia="0" & Wdia
if Wmes < 10 then Wmes="0" & Wmes
ConverteData=cstr(year(fdata)& "-" & Wmes & "-" & Wdia)
end if
end if
end function
'
'--->Prepara a Data para o Header/Vale Alimentação
function ConvData(fdata)
Dim fdia,fmes
fdia=day(fdata):fmes=month(fdata)
if fdia < 10 then fdia="0" & fdia
if fmes < 10 then fmes="0" & fmes
ConvData=cstr(fdia & fmes & year(fdata))
end function
'
Dim valor,Wtype,Wlabel
sub nVisible(fcampo)
Wtype="hidden": Wlabel=""
select case fcampo
case "data_l","data_inscricao"
valor=Date
case "tipo_h"
valor=session("intTpHis")
case "pf"
valor=session("pf")
case else
end Select
end sub
'
dim Qdisabled
Sub MtTabela(facao)
intAtv = session("atividade")
'---Monta Tabela conforme os elementos fornecidos
response.write("<Table class=estilo_tbl2 BORDER=0 CELLSPACING=0 CELLPADDING=1>")
response.write("<tr><td class=estilo_13 colspan=10>"&session("titulo")&"</td></tr>")
Watv=session("atividade")
ArrCampos=split(Session("Campos"),",")
ArrAuto_inc=split(Session("Auto_inc"),";")
ArrTabela=split(Session("tbl"),";")
ArrChave=split(Session("Chave"),";")
ArrSize=split(session("size"),";")
Arrfuncao=split(Session("func"),";")
If intAtv = 32 Or intAtv = 33 Then
strsql="SELECT " & listaAno(CStr(Year(Now)+1),"1990") & ";"
Wrst(strsql)
response.write("<tr>")
response.write("<td>Ano:</td>")
response.write("<td><select name='ano' onChange='javascript:cbo(this)' onFocus='' onKeyDown='if(event.keyCode==13) event.keyCode=9;'>")
response.write("<option value='' >SELECIONE</option>")
' Verifica se o filtro de ano foi selecionado
If request.form("ano")<>"" Then
intAno = request.form("ano")
End If
For i = 0 To rst.fields.count - 1
If intMes = rst(i) Then
selected = "selected"
Else
selected = ""
End If
response.write("<option value="&rst(i)&" "&selected&">"&rst(i)&"</option>")
Next
response.write("</select></td></tr>")
strsql="SELECT '01','02','03','04','05','06','07','08','09','10','11','12';"
Wrst(strsql)
response.write("<tr>")
response.write("<td>Mês:</td>")
response.write("<td><select name='mes' onChange='javascript:cbo(this)' onFocus='' onKeyDown='if(event.keyCode==13) event.keyCode=9;'>")
response.write("<option value='' >SELECIONE</option>")
' Verifica se o filtro de mês foi selecionado
If request.form("mes")<>"" Then
intMes = request.form("mes")
End If
For i = 0 To rst.fields.count - 1
If intMes = rst(i) Then
selected = "selected"
Else
selected = ""
End If
response.write("<option value="&rst(i)&" "&selected&">"&rst(i)&"</option>")
Next
response.write("</select></td></tr>")
strsql="SELECT * FROM GERAL.tipo_curso order by nome;"
Wrst(strsql)
response.write("<tr>")
response.write("<td>Tipo:</td>")
response.write("<td><select name='tipo' onChange='javascript:cbo(this)' onFocus='' onKeyDown='if(event.keyCode==13) event.keyCode=9;'>")
response.write("<option value='' >SELECIONE</option>")
' Verifica se o filtro de tipo foi selecionado
If request.form("tipo")<>"" Then
intTipo = CInt(request.form("tipo"))
End If
While Not rst.eof
If intTipo = CInt(rst("codigo")) Then
selected = "selected"
Else
selected = ""
End If
response.write("<option value="&rst("codigo")&" "&selected&">"&rst("Nome")&"</option>")
rst.MoveNext
Wend
response.write("</select></td></tr>")
End If
Qlong=0
for i=0 to ubound(ArrCampos,1)
Qdisabled=""
'---Campo Auto Numeração
if Arrfuncao(i) <> "0" then Arrfuncao(i) = Arrfuncao(i) & "(this)"
Wevento=" onBlur="
funcao2=""
Wtype="text"
Wlabel=Labels(i)
if ArrAuto_inc(i)=1 then nVisible(ArrAuto_inc(i))
Wcampo=ArrCampos(i)
if Request.QueryString("id")="" then
valor=Request.Form(Wcampo)
If Wcampo = "tipo_exame" Then
If valor = "" Or IsNull(valor) Then
valor = "0"
End If
End If
else
valor=dados(i)
If (Wlabel = "Naturalidade") Then
If ((valor = "0") OR (valor = "") OR (IsNull(valor))) Then
valor = "1"
End If
End If
end if
if Wcampo="data_l" then nVisible(Wcampo)
Select Case Wcampo
case "nrodoc","dias","valor","hora_em","hora_sm","hora_et","hora_st","hora_en","hora_sn"
case "hora_d","hora_n","hora_db"
case else
if IsDate(valor) and facao and not instr(":",valor) > 0 then
valor=confdata(valor)
end if
end Select
Select case watv
case 21
If Wcampo="CPF" Then
if valor = "" then
valor = session("cpf")
end if
End If
case 11
'---e-mail do usuário
if Wcampo="pf" then nVisible(Wcampo)
case 12
'---Cadastro no Sistema
If Wcampo="senha" Then
valor=""
Wtype="password"
End If
case 13
'---registro de Salários
if Wcampo="cargo" then nVisible(Wcampo)
if facao=0 then
if Wcampo="cargo" then valor=request.QueryString("cargo")
else
if Wcampo="tbl_sal" then nVisible(Wcampo)
if Wcampo="data_a" then nVisible(Wcampo)
end if
case 22 '---Dependentes
if Wcampo="pf" then nVisible(Wcampo)
case 31
'---Treinamento-Registro do Treinamento
if Wcampo="id_trein" then nVisible(Wcampo)
if facao= 0 then
if Wcampo="ativo" then nVisible(Wcampo)
else
if Wcampo="ativo" then Wtype="checkbox"
end if
case 32
'---Datas do Treinamento
'hora_em,hora_sm,hora_et,hora_st
if facao=0 then
if Wcampo="hora_em" then valor=RetornaValor("hora_em")
if Wcampo="hora_sm" then valor=RetornaValor("hora_sm")
if Wcampo="hora_et" then valor=RetornaValor("hora_et")
if Wcampo="hora_st" then valor=RetornaValor("hora_st")
if Wcampo="hora_en" then valor=RetornaValor("hora_en")
if Wcampo="hora_sn" then valor=RetornaValor("hora_sn")
else
if Wcampo="data_capacitacao" then Qdisabled="readonly"
if Wcampo="id_trein" then Qdisabled="readonly"
end if
case 33
'---Inscrição no Treinamento
if facao > 0 then
if Wcampo="matri" then Qdisabled="readonly"
end if
if Wcampo="data_inscricao" then nVisible(Wcampo)
case 34
'---Freqüência no Treinamento
if facao=0 then
If Wcampo="id_datas" Then
Session("id_datas") = valor
ElseIf Wcampo="id_inscricao" Then
Session("id_inscricao") = valor
End If
If Session("id_datas") <> "" Then
If Left(Wcampo,4) = "hora" Then
strSQL = "SELECT " & Wcampo & " FROM Srh.tr_datas dt "
strSQL = strSQL & "LEFT JOIN Srh.tr_insc i ON dt.id_trein = i.id_trein "
strSQL = strSQL & "WHERE dt.id_datas = " & Session("id_datas") & " AND i.id_inscricao = " & Session("id_inscricao")
valor = RetornaDescricao(strSQL)
If valor <> "" Then
valor = FormatDateTime(valor, 4)
Else
valor = "00:00"
End If
End If
End If
end if
if Wcampo="aproveitamento" then nVisible(Wcampo)
case 37
'---avaliação
if Wcampo="id_avaliacao" then nVisible(Wcampo)
if facao=0 then
if Wcampo="id_avaliacao" then valor=request.QueryString("avaliacao")
else
if Wcampo="id_questao" then nVisible(Wcampo)
end if
case 51
if Wcampo="folha" then nVisible(Wcampo)
'if Wcampo="funcao" then nVisible(Wcampo)
case 101,102,103,105,107,118
'--histórico
'---genérico|Med.Discip.|Atos de Merec.|Mud.Horário|Banco horas
'---reintegração
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=Request.form("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="tempo" then valor=fcmht(valor)
if Wcampo="ultimo_pa" then nVisible(Wcampo)
if Wcampo="lotacao" then
Select Case Watv
case 118
'---reintegração
valor=374
nVisible(Wcampo)
case else
if facao =0 then valor=session("Slotacao")
End select
end if
if Wcampo="origem" then
if facao=0 then
valor=session("SLotacao")
else
session("SLotacao")=valor
end if
nVisible(Wcampo)
end if
case 111
'--histórico:Susp.Contrato
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=Request.form("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
'if Wcampo="data_f" and facao > 0 then nVisible(Wcampo):valor="00-00-0000"
if Wcampo="tipo_h" then nVisible(Wcampo)
case 106
'--histórico|Demissão
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=Request.form("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="dias" then nVisible(Wcampo):valor=1
case 117
'--histórico
'---atrasos
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=Request.form("matri")
end if
end if
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="subtipo_h" then nVisible(Wcampo):valor="1800"
if Wcampo="tipo_d" then nVisible(Wcampo):valor="13"
if Wcampo="nrodoc" then nVisible(Wcampo):valor="atrasos"
if Wcampo="tempo" then valor=fcmht(valor)
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly"
case 114
'SEST-af_funcional
if Wcampo="matri" then nVisible(Wcampo):valor=session("matri")
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="lotacao" then nVisible(Wcampo):valor=session("SLotacao")
if facao > 0 then
if Wcampo="data_e" then valor=confdata(valor)
if Wcampo="data_i" then valor=confdata(valor)
end if
case 119,120,121,122
'--histórico
'---Designação de FG|exoneração de FG|designação de substituição|Alteração de contrato
if Wcampo="matri" then nVisible(Wcampo):valor=session("matri")
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="data_i" and facao > 0 then nVisible(Wcampo)
'if Wcampo="cargo" and Watv=120 then valor=session("cargocomis"):nVisible(Wcampo)
If Wcampo="cargo" and Watv=120 then
If((session("cargocomis") <> 0) AND (session("cargocomis") <> "") AND (NOT IsNull(session("cargocomis")))) Then
valor = session("cargocomis"):nVisible(Wcampo)
Else
valor = session("cargo"):nVisible(Wcampo)
End If
End If
if Wcampo="lotacao" and Watv=120 then valor=Session("SLotacao"):nVisible(Wcampo)
if Wcampo="origem" then
if facao=0 then
valor=session("SLotacao")
else
session("SLotacao")=valor
end if
nVisible(Wcampo)
end if
case 108
'--histórico-transferência
if Wcampo="matri" and facao > 0 then nVisible(Wcampo)
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
if Wcampo="origem" then nVisible(Wcampo)
'---Localizando a origem/Registro de Transferência|
if Wcampo="origem" and facao < 2 then
strSql="SELECT lotacao from Srh.historico,GERAL.unidades" _
& " WHERE matri='" & session("matri")& "' AND tipo_h='10'" _
& " AND data_i <'"& ConverteData(request.form("data_i")) _
& "' ORDER BY data_i DESC LIMIT 1;"
valor=RetornaDescricao(strSql)
end if
'
case 109
'horaextra
if facao=0 then
if Wcampo="data_i" then valor=RetornaValor(Wcampo)
if Wcampo="lotacao" then valor=RetornaValor(Wcampo)
else
if Wcampo="data_i" then valor=confData(valor):Qdisabled="readonly"
if Wcampo="matri" then nVisible(Wcampo)
if left(Wcampo,4)="hora" then valor=fcmht(valor)
if Wcampo="lotacao" then nVisible(Wcampo)
end if
if Wcampo="nrodoc" then nVisible(Wcampo)
if Wcampo="ano_mes" then nVisible(Wcampo)
case 110,113
'--histórico
'---Efetividade|Atestados
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=session("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="nrodoc" and session("atividade")=110 then nVisible(Wcampo)
if Wcampo="lotacao" and facao =0 then valor=fUltLotEfet(session("matri"),request.form("data_i"))
if Wcampo="dias_fs" then
nVisible(Wcampo)
if request.form("subtipo_h")<>"0402" then valor=1
end if
case 115
'--histórico
'---Admissão
if (facao = 0) and (Wcampo="matri") then
novaMatricula = GeraNovaMatricula
end if
if Wcampo="matri" and facao > 0 then nVisible(Wcampo):valor=session("matri")
if Wcampo="matri" and facao = 0 then valor=novaMatricula
if Wcampo="pf" then valor=session("pf") :nVisible(Wcampo)
if Wcampo="servidor" then nVisible(Wcampo)
if Wcampo="folha" then nVisible(Wcampo)
if Wcampo="dt_adm" then nVisible(Wcampo)
if Wcampo="ultimo_pa" then nVisible(Wcampo)
if Wcampo="dt_svg" then nVisible(Wcampo)
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="situacao" then nVisible(Wcampo)
if Wcampo="data_i" and facao > 0 then nVisible(Wcampo)
case 123
'--histórico
'---Alteração do Período Aquisitivo
if Wcampo="matri" then nVisible(Wcampo):valor=session("matri")
if Wcampo="ultimo_pa" then
if facao=0 then valor=Session("ultimo_pa")
nVisible(Wcampo)
end if
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="data_i" and facao > 0 then nVisible(Wcampo)
case 125
'--histórico
'---cedência
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then
Qdisabled="readonly"
valor=confData(dados(i))
end if
if Wcampo="dias" then nVisible(Wcampo)
if Wcampo="tipo_h" then nVisible(Wcampo)
case 126
'---histórico:prorrogação de cedência
if Request.form("matri")<>"" then
strSql="SELECT lotacao,ced_caged,ced_funcao FROM Srh.historico"
strsql=strsql &" WHERE matri='"& session("matri")
strsql=strsql &"' AND INSTR('0501_0502_0503_0504',subtipo_h)<>0 ORDER BY data_i DESC LIMIT 1;"
if MontaVetor(strSql,vetor_aux,-1)<>-1 then
Wlotacao=vetor_aux(0,0)
Wced_caged=vetor_aux(1,0)
Wced_funcao=vetor_aux(2,0)
else
call msgaviso(31)
end if
end if
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly": valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="subtipo_h" then valor="0504":nVisible(Wcampo)
if Wcampo="tipo_d" then valor="03":nVisible(Wcampo)
if Wcampo="lotacao" then nVisible(Wcampo):valor=Wlotacao
if Wcampo="ced_caged" then nVisible(Wcampo):valor=Wced_caged
if Wcampo="ced_funcao" then valor=Wced_funcao:nVisible(Wcampo)
case 127
'--histórico
'---Retorno antecipado de cedência
if Wcampo="lotacao" and request.form("matri")<>"" then
strSql="SELECT lotacao,ced_caged,data_i FROM Srh.historico"
strsql=strsql &" WHERE matri='"& session("matri")
strsql=strsql &"' AND INSTR('0501_0502_0503_0504',subtipo_h)<>0 ORDER BY data_i DESC LIMIT 1;"
if MontaVetor(strSql,vetor_aux,-1)<>-1 then
valor=vetor_aux(0,0)
Wced_caged=vetor_aux(1,0)
nVisible(Wcampo)
session("data_i")=ConverteData(vetor_aux(2,0))
end if
end if
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="subtipo_h" then valor="0505":nVisible(Wcampo)
if Wcampo="tipo_d" then valor="03":nVisible(Wcampo)
if Wcampo="lotacao" then nVisible(Wcampo)
if Wcampo="ced_caged" then nVisible(Wcampo):valor=Wced_caged
case 128
'--Férias
'--->Recibo do Aviso de Férias
if Wcampo="matri" then valor=RetornaValor("matri")
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="data_i" then Qdisabled="readonly"
if Wcampo="data_retorno_doc" then valor=""
case 129
'--histórico
'---Alterção de Nível
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=Request.form("matri")
end if
end if
if Wcampo="data_i" and facao <> 0 then valor=confData(dados(i))
if Wcampo="chave" then nVisible(Wcampo)
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="cargo" and facao=0 then valor=session("cargo")
if Wcampo="cargo" then nVisible(Wcampo)
if Wcampo="tipo_d" then valor="03":nVisible(Wcampo)
case 130
'--histórico
'---Alterção de Carga Horária
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=Request.form("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="subtipo_h" then valor="0901":nVisible(Wcampo)
if Wcampo="tipo_d" then valor="03":nVisible(Wcampo)
if Wcampo="horario" then valor="3":nVisible(Wcampo)
case 136,134
'--histórico
'---adidos
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then
Qdisabled="readonly"
valor=confData(dados(i))
end if
if Wcampo="dias" then nVisible(Wcampo)
if Wcampo="tipo_h" then nVisible(Wcampo)
case 137
'---histórico:prorrogação de adidos
if Request.form("matri")<>"" then
strSql="SELECT lotacao,ced_caged,ced_funcao FROM Srh.historico"
strsql=strsql &" WHERE matri='"& session("matri")
strsql=strsql &"' AND INSTR('2201_2202_2203_2204',subtipo_h)<>0 ORDER BY data_i DESC LIMIT 1;"
if MontaVetor(strSql,vetor_aux,-1) <> -1 then
Wlotacao=vetor_aux(0,0)
Wced_caged=vetor_aux(1,0)
Wced_funcao=vetor_aux(2,0)
else
call msgaviso(31)
end if
end if
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly": valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="subtipo_h" then valor="2204":nVisible(Wcampo)
if Wcampo="tipo_d" then valor="03":nVisible(Wcampo)
if Wcampo="lotacao" then nVisible(Wcampo):valor=Wlotacao
if Wcampo="ced_caged" then nVisible(Wcampo):valor=Wced_caged
if Wcampo="ced_funcao" then valor=Wced_funcao:nVisible(Wcampo)
case 138
'--histórico
'---Retorno antecipado de adidos
if Wcampo="lotacao" and request.form("matri")<>"" then
strSql="SELECT lotacao,ced_caged,data_i FROM Srh.historico"
strsql=strsql &" WHERE matri='"& session("matri")
strsql=strsql &"' AND INSTR('2201_2202_2203_2204',subtipo_h)<>0 ORDER BY data_i DESC LIMIT 1;"
if MontaVetor(strSql,vetor_aux,-1)<>-1 then
valor=vetor_aux(0,0)
Wced_caged=vetor_aux(1,0)
nVisible(Wcampo)
session("data_i")=ConverteData(vetor_aux(2,0))
end if
end if
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matri")
end if
end if
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly":valor=confData(dados(i))
if Wcampo="tipo_h" then nVisible(Wcampo)
if Wcampo="subtipo_h" then valor="2205":nVisible(Wcampo)
if Wcampo="tipo_d" then valor="03":nVisible(Wcampo)
if Wcampo="lotacao" then nVisible(Wcampo)
if Wcampo="ced_caged" then nVisible(Wcampo):valor=Wced_caged
case 203
'--->Pedido Extra
if Wcampo="matri" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matri")
end if
end if
if Wcampo="dtref" and facao =0 and request.form("dtref")<>"00-00-0000" then valor=ConfData(RetornaValor("dtref"))
if request.form("dtref")="00-00-0000" then valor=""
if Wcampo="mes" and facao =0 then valor=RetornaValor("mes")
if Wcampo="ano" and facao =0 then valor=RetornaValor("ano")
if Wcampo="operacao" and facao =0 then valor=RetornaValor("operacao")
if Wcampo="valor" then
if request.form("operacao")="2aVia" then
valor=0
nVisible(Wcampo)
end if
end if
if Wcampo="folhas" then
if request.form("operacao")="2aVia" then
valor=0
else
valor=1
end if
nVisible(Wcampo)
end if
case 207
'acertos_Vavr
if Wcampo="matricula" and facao > 0 then Qdisabled="readonly"
if Wcampo="data_i" and facao > 0 then Qdisabled="readonly"
if Wcampo="data_f" and facao = 0 then valor="2050-01-01":nVisible(Wcampo)
case 209
'vt_servidor
if Wcampo="matricula" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matricula")
end if
end if
if Wcampo="data_i" and facao > 0 then nVisible(Wcampo)
if Wcampo="cod_linha" and facao > 0 then nVisible(Wcampo)
if Wcampo="tipo_d"then nVisible(Wcampo):valor=34
case 210
'---Linhas do VTU
if Wcampo="cod_linha" and facao > 0 then nVisible(Wcampo)
case 211
'---valor das Linhas do VTU
if Wcampo="cod_linha" then nVisible(Wcampo)
if Wcampo="cod_linha" and facao =0 then valor=request.QueryString("cod_linha")
case 212
'---Empresas do Plano de Saúde
if Wcampo="cod_ps" and facao > 0 then nVisible(Wcampo)
case 213
'---Servidores no Plano de Saúde
case 214
'recibos do plano de saúde
if facao =0 then
if Wcampo="plano_ps" then valor=RetornaValor("plano_ps")
if Wcampo="ano" then valor=RetornaValor("ano")
if Wcampo="mes" then valor=RetornaValor("mes")
if Wcampo="ano_pg" then valor=RetornaValor("ano_pg")
if Wcampo="mes_pg" then valor=RetornaValor("mes_pg")
end if
if Wcampo="tipo_d" then nVisible(Wcampo):valor=26
case 216
'---Entrega no Balcão do VTU/movimento do vtu
if Wcampo="matricula" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matricula")
end if
end if
if Wcampo="valor" then
valor=replace(RetornaDescricao("SELECT valor FROM Beneficios.vt_linhas WHERE cod_linha='"&Request.form("cod_linha")&"';"),",",".")
Qdisabled="readonly"
end if
if Wcampo="nro_passes_rec" and Request.form("cod_linha") <>"" then
valor=RetornaDescricao("SELECT nro_passes FROM Beneficios.vt_servidor" _
&" WHERE cod_linha='"& Request.form("cod_linha") _
&"' AND matricula='"& Request.form("matricula")&"';")
Qdisabled="readonly"
end if
if Wcampo="tipo_mov" then valor="retirada":nVisible(Wcampo)
case 217
'---Devolução do VTU/movimento do vtu
if Wcampo="matricula" then
if facao > 0 then
nVisible(Wcampo)
else
valor=RetornaValor("matricula")
end if
end if
if Wcampo="valor" then Qdisabled="readonly"
if Request.form("cod_linha") <>"" and Request.form("ano")<>"" AND Request.form("mes")<>"" then
if Wcampo="valor" then
valor=RetornaDescricao("SELECT valor FROM Beneficios.vt_movimento" _
&" WHERE cod_linha='"&Request.form("cod_linha") _
& "' AND matricula='" & Request.form("matricula") _
& "' AND ano='" & Request.form("ano") _
& "' AND mes='" & Request.form("mes")&"';")
end if
if Wcampo="nro_passes_rec" then
valor=RetornaDescricao("SELECT nro_passes_rec FROM Beneficios.vt_movimento" _
&" WHERE cod_linha='"&Request.form("cod_linha") _
& "' AND matricula='" & Request.form("matricula") _
& "' AND ano='" & Request.form("ano") _
& "' AND mes='" & Request.form("mes")&"';")
end if
end if
if Wcampo="tipo_mov" then valor="devolve":nVisible(Wcampo)
case 218
'---Compra/movimento do vtu
if Wcampo="matricula" and Watv=218 then
'---chefe do Núcleo de Benefícios
valor="00000"
nVisible(Wcampo)
end if
if Wcampo="valor" then
valor=RetornaDescricao("SELECT REPLACE(valor,',','.') AS vlr FROM Beneficios.vt_linhas WHERE cod_linha='"&Request.form("cod_linha")&"';")
Qdisabled="readonly"
end if
if Wcampo="tipo_mov" then valor="compra":nVisible(Wcampo)
case 400
'pcmso
if Wcampo="matricula" and facao >0 then nVisible(Wcampo)
if Wcampo="lotacao" then valor=session("Slotacao"):nVisible(Wcampo)
if Wcampo="repetir" and request.form("data")<>"" then
Widade=datediff("yyyy",session("data_n"),cdate(request.form("data")))
if widade < 45 then
valor="12 m."
else
valor="24 m."
end if
end if
end select
response.write("<tr><td>"&Wlabel&"</td><td>")
'response.write("<td>"&Wlabel&"</td>")
if ArrTabela(i)="0" then
'campos com área maior
if Wcampo="motivo" or (Wcampo="nome" and session("atividade")=36) then%>
<%If((Wcampo = "motivo") AND (session("atividade") = 114)) Then
Dim vl
vl = Trim(valor)
If(vl <> "") Then
If(InStr(1, vl, "|") <> 0) Then
valor = Left(vl, Len(vl) - 2)
Else
valor = vl
End IF
End If
%>
<textarea name="<%=Wcampo%>" class="campos" rows="3" cols="35" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;"><%=valor%></textarea>
<%Else%>
<textarea name="<%=Wcampo%>" class="campos" rows="3" cols="35" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;"><%=valor%></textarea>
<%End If %>
<%'02/04/2014 - Henrique - garante que o campo email será digitado apenas em minúsculas
Elseif((Wcampo = "email") AND (session("atividade") = 21)) Then
%>
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" size=<%=ArrSize(i)%> <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;" onKeyUp="toLCase(this);">
<%'02/04/2014 - Henrique - garante que os campos contenham apenas letras maiúsculas
Elseif((((Wcampo = "Nome") OR (Wcampo = "Endereco") OR _
(Wcampo = "bairro") OR (Wcampo = "pai") OR (Wcampo = "mae") _
OR (Wcampo = "conjuje") OR (Wcampo = "titulacao")) AND (session("atividade") = 21)) _
OR ((Wcampo = "nome") AND (session("atividade") = 51))) Then
%>
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" size=<%=ArrSize(i)%> <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;" onKeyUp="toUCase(this);">
<%'03/04/2014 - Henrique - aplica uma máscara nos campos Fone e Celular
Elseif(((Wcampo = "Fone") OR (Wcampo = "Celular")) AND (session("atividade") = 21)) Then
%>
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" maxlength=<%=ArrSize(i)%> size=<%=ArrSize(i)%> <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;" onKeyUp="if(event.keyCode!=37 && event.keyCode!=39 && event.keyCode!=8) mascara(this, mascaraTelefone);">
<%'04/04/2014 - Henrique - aplica uma máscara no campo CEP
Elseif((Wcampo = "CEP") AND (session("atividade") = 21)) Then
%>
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" maxlength=<%=ArrSize(i)%> size=<%=ArrSize(i)%> <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;" onKeyUp="if(event.keyCode!=37 && event.keyCode!=39 && event.keyCode!=8) mascara(this, mascaraCEP);">
<%'04/04/2014 - Henrique - desabilita edição do CPF
Elseif((Wcampo = "CPF") AND (session("atividade") = 21)) Then
%>
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" readOnly="true" maxlength=<%=ArrSize(i)%> size=<%=ArrSize(i)%> <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;">
<%'24/07/2014 - Henrique - aplica uma máscara apenas para números no campo CBO
Elseif((Wcampo = "cbo") AND (session("atividade") = 51)) Then
%>
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" maxlength=<%=ArrSize(i)%> size=<%=ArrSize(i)%> <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;" onKeyUp="if(event.keyCode!=37 && event.keyCode!=39 && event.keyCode!=8) mascara(this, mascaraNum);">
<% Elseif((Wcampo = "tempo") AND (session("atividade") = 105)) Then %>
<input name='tre_horas' type='hidden' value='<%=valor%>' />
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" size="<%=ArrSize(i)%>" <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;">
<% Elseif((Wcampo = "dias") AND (session("atividade") = 110)) Then %>
<input name='dias_old' type='hidden' value='<%=valor%>' />
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" size="<%=ArrSize(i)%>" <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;">
<%Else%>
<input name="<%=Wcampo%>" class="campos" type="<%=Wtype%>" value="<%=valor%>" size=<%=ArrSize(i)%> <%=Qdisabled%> <%=Wevento%>"<%=Arrfuncao(i)%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;">
<%End If
else
if ArrChave(i) = 0 or (Arrchave(i)=1 and facao=0) Then
if wtype<>"hidden" then
preenchelista ArrTabela(i),valor
else
%>
<input name="<%=Wcampo%>" type="<%=Wtype%>" value="<%=valor%>" size="60" >
<%
end if
else %>
<input name="<%=Wcampo%>" type="<%=Wtype%>" value="<%=valor%>" size="60" onBlur="<%=funcao%>" onFocus="<%=funcao2%>" onFocus="<%=funcao2%>" onKeyDown="if(event.keyCode==13) event.keyCode=9;">
<%
end if
end if
response.write("</td></tr>")
next
response.write("</table>")
botoes facao
end sub
'---inicio
'---fim
'
'
'
Function DadosServidor(fnum)
'---Lotações virtuais:
'---367---Cont.susp.por Solicitação
'---368---cont.susp.Judicialmente
'---374---A disp.da coord.-aguarda lotação
'---375---Aposentadoria por invalidez
'---376---Lic.de Saúde/SAT
DadosServidor=false
if fnum="" then exit function
Watv= session("atividade")
strSql = "SELECT contrato.matri,contrato.pf,pessoafisica.nome,cargos.nome" _
&",unidades.codigo,unidades.nome,ultimo_pa,servidor,DATE_FORMAT(dt_adm,'%d-%m-%Y')," _
& "DATE_FORMAT(data_n,'%d-%m-%Y'),contrato.rc,contrato.ch,IF(contrato.horario=0,1,contrato.horario)AS horar,contrato.cargo_comis,contrato.cargo " _
&",CONCAT(format((period_diff(date_format(now(),'%Y%m'),date_format(data_n,'%Y%m')))/12,0),' anos') AS anos,va_vr, Fazenda.id_Fazenda, Fazenda.vinculo " _
&" FROM Srh.contrato JOIN Srh.pessoafisica pessoafisica ON contrato.pf = pessoafisica.PF " _
&" JOIN GERAL.unidades ON unidades.codigo = contrato.lotacao " _
&" JOIN GERAL.cargos ON contrato.cargo = cargos.id_cargo " _
'&" JOIN Srh.Fazenda contrato.matri = Fazenda.matri " _
'&" WHERE "
If(Len(fnum) = 7) Then
strSql = strSql & " LEFT JOIN Srh.Fazenda ON contrato.matri = Fazenda.matri "
strSql = strSql & " WHERE "
strSql = strSql & " Fazenda.id_Fazenda = '"&fnum&"' ;"
Else
strSql = strSql & " LEFT JOIN Srh.Fazenda ON contrato.matri = Fazenda.matri "
strSql = strSql & " WHERE "
strSql = strSql & " contrato.matri = '" & fnum & "';"
End If
if RetornaDados(strSql) then
DadosServidor=true
'Session("fazenda")=dados(17) & "-" & dados(18)
Session("fazenda")=dados(17)
Session("nv")=dados(18)
Session("matri")=dados(0)
session("pf")=dados(1)
Session("Servidor")=dados(2)
Session("SCargo")=dados(3)
Session("SLotacao")=dados(4)
Session("SLotacao_nome")=dados(5)
Session("ultimo_pa")=dados(6)
Session("ativo")=dados(7)
session("dt_adm")=dados(8)
session("data_n")=dados(9)
session("regime")=dados(10)
session("ch")=dados(11)
session("horario")=dados(12)
session("cargocomis")=dados(13)
session("cargo")=dados(14)
session("idade")=dados(15)
session("plano") = ""
' Obtém o cargo da última adesão de plano do servidor
strSql = "SELECT h.Cargo, c.Nome FROM Srh.historico h, GERAL.cargos c WHERE h.matri = '"& Session("matri") &"' "
strSql = strSql & " AND h.SubTipo_H = '9100'"
strSql = strSql & " AND Cargo = ID_cargo ORDER BY h.Data_I DESC LIMIT 1;"
Wrst(strSql)
If(NOT rst.EOF) Then
Session("SCargo") = rst("Nome")
Session("cargo") = rst("Cargo")
End If
' Obtém o plano da última adesão de plano do servidor
strSql = "SELECT pcs.sigla FROM Srh.adesao_plano ap"
strSql = strSql & " LEFT JOIN Srh.PlanoCargosSalarios pcs ON pcs.Id = ap.id_plano"
strSql = strSql & " WHERE ap.matri = '"& Session("matri") &"'"
strSql = strSql & " ORDER BY ap.dt_adesao DESC LIMIT 1;"
Wrst(strSql)
If(NOT rst.EOF) Then
session("plano") = rst("sigla")
End If
'---Análise p/movimentos '
Select Case Watv
case 122 '---Designação de C.C para servidor fora do quadro.
if session("regime")<>"3" then msgAviso(13)
case 108 '---Transferência de Servidor,Servidor c/contrato susp. por solic/ou judic.
if Session("SLotacao")="367" or Session("SLotacao")="368" then
'---Veifica se tem férias pendentes.
strSql="SELECT data_i,data_f FROM Srh.historico" _
& " WHERE matri='" & Session("matri") _
& "' AND tipo_h='06' ORDER BY data_i DESC LIMIT 1;"
call Retornadados(strSql)
strSql="SELECT COUNT(*) FROM Srh.historico" _
& " WHERE matri='" & Session("matri")& "' AND tipo_h='11'" _
& " AND data_i BETWEEN '"& ConverteData(dados(0)) _
& "' AND '"& ConverteData(dados(1)) & "';"
Wrst(strSql)
if rst(0)<>"0" then msgaviso(22)
end if
case 120
strSql = "SELECT cargo, nome from Srh.historico, GERAL.cargos WHERE matri = '"& Session("matri") &"' " _
& " AND subtipo_h in ('0311','0312') " _
& " AND cargo = id_cargo ORDER BY historico.data_i DESC LIMIT 1;"
Wrst(strSql)
If(NOT rst.EOF) Then
Session("SCargo") = rst("nome")
session("cargo") = rst("cargo")
End If
case 203
if dados(16)="n/r" then msgaviso(41)
End Select
else
msgAviso(4)'---Matrícula/CPF sem registro na tabela contrato.
end if
End Function
'
'
function fmtmatri(fmatri)
fmtmatri=left(fmatri,4)&"."& right(fmatri,1)
end function
Sub MontaServidor()
Watv=session("atividade")
Response.write("<table align=center class=estilo_3>")
Response.write("<tr><td>Matrícula: "&fmtmatri(Session("matri"))&"</td>")
SQL = "select pf.Nome, cg.Nome, u.Nome, c.servidor, h.data_i as admissao, pf.Data_N, "
SQL = SQL & "f.id_fazenda, f.vinculo, "
SQL = SQL & "CONCAT(format((period_diff(date_format(now(),'%Y%m'),date_format(pf.Data_N,'%Y%m')))/12,0),' anos') as idade "
SQL = SQL & "from Srh.contrato c "
SQL = SQL & "left join Srh.pessoafisica pf on pf.pf = c.pf "
SQL = SQL & "left join Srh.Fazenda f on f.matri = c.matri "
SQL = SQL & "left join Srh.historico h on h.matri = c.matri "
SQL = SQL & "left join GERAL.unidades u on u.Codigo = c.lotacao "
SQL = SQL & "left join GERAL.cargos cg on cg.ID_cargo = c.cargo "
SQL = SQL & "where h.Subtipo_h in ('0101','0102','0103','0105','0199') "
SQL = SQL & "and c.matri = '" & Session("matri") & "'"
response.write("Usuario Logado: " + session("logado"))
if (session("logado") = "marcio-souza") then
response.write(SQl)
end if
RetornaDados(SQL)
strNome = dados(0)
strCargo = dados(1)
strLotacao = dados(2)
strAtivo = dados(3)
strDataAdm = dados(4)
strDataNasc = dados(5)
strIdFazenda = dados(6)
strVinculo = dados(7)
strIdade = dados(8)
Response.write("<td>Nome: "&StrNome&"</td>")
Response.write("<tr><td>Cargo: "&strCargo&"</td>")
'---Servidor Demitido/Sem Lotação
If strAtivo ="1" then
Response.write("<td>Lotação: "&strLotacao&"</td></tr>")
Else
SQL = "SELECT subtipo_h, data_i from Srh.historico where matri = '"& Session("matri") &"' ORDER BY data_i DESC limit 1;"
RetornaDados(SQL)
data_i = dados(1)
subtipo_h = dados(0)
SQL = "SELECT nome FROM GERAL.txthis WHERE codigo = '"& subtipo_h &"'"
RetornaDados(SQL)
nome = dados(0)
Response.write("<td class=estilo_7>"& nome &" - "& data_i &"</td></tr>")
End If
Response.write("<tr><td>Admissão: "&strDataAdm&"</td>")
Response.write("<td>Nascimento: "&strDataNasc&"</td></tr>")
Select Case Watv
case 213
Response.write("<td class=estilo_7>idade "&strIdade&"</td></tr>")
End select
'If((session("Fazenda") <> "") AND (Len(session("Fazenda")) = 9)) Then
If(strIdFazenda <> "") Then
id_fazenda = strIdFazenda
nv = strVinculo
Else
id_fazenda = "(não informado)"
nv = "N/I"
End If
Response.write("<tr><td colspan=1>ID funcional: "&id_fazenda&"</td><td colspan=1>NV: "&nv&"</td></tr>")
Response.write("</table>")
End Sub
'
Sub MontaTreinamento(ftreinamento)
strsql="SELECT cursos.nome AS CURSO,unidades.sigla AS LOCAL,DATE_FORMAT(c_DataInicial,'%d-%m-%Y'),turma"
strsql=strsql & " FROM Srh.tr_cursos,GERAL.cursos,GERAL.unidades"
strsql=strsql & " WHERE c_curso=cursos.codigo"
strsql=strsql & " AND c_local=unidades.codigo and ativo = 1 "
strsql=strsql & " AND id_trein='" & ftreinamento & "';"
RetornaDados(strsql)
Response.write("<table align=center class=estilo_6>")
Response.write("<tr><td>"&dados(0)&"</td>")
Response.write("<td>"&dados(1)&"</td>")
Response.write("<tr><td>Início"&dados(2)&"</td>")
Response.write("<tr><td>Turma:"&dados(3)&"</td></tr>")
Response.write("</table>")
end sub
'
function DadosPessoafisica(fnumero,fatv)
session("pf")="":Session("Servidor")="":Session("matri")=""
if len(fnumero) > 5 then
'---Testa na tbl:pessoafisica
strSql = "SELECT pf,nome FROM Srh.pessoafisica"
strSql=strSql & " WHERE cpf='" & fnumero & "';"
if RetornaDados(strSql) then
DadosPessoafisica=true
session("pf")=dados(0)
Session("Servidor")=dados(1)
'---Verificando se o servidor tem contrato ativo.
strSql = "SELECT count(*) FROM Srh.pessoafisica,Srh.contrato"
strSql=strSql & " WHERE pessoafisica.PF=contrato.PF"
strSql=strSql & " AND servidor='1'"
strSql=strSql & " AND contrato.pf='" & dados(0) & "';"
if RetornaDescricao(strSql)=cint(1) then msgaviso(11)
else
'---cadastro da pessoa fisica
if fatv<>21 then msgaviso(9)
end if
else
'Testa na tbl:contrato
strSql = "SELECT contrato.pf,pessoafisica.nome,contrato.matri FROM "
strSql=strSql & " Srh.pessoafisica,Srh.contrato"
strSql=strSql & " WHERE pessoafisica.PF=contrato.PF"
strSql=strSql & " AND contrato.Matri='" & fnumero & "';"
if RetornaDados(strSql) then
DadosPessoafisica=true
session("pf")=dados(0)
Session("Servidor")=dados(1)
Session("matri")=dados(2)
else
msgaviso(10)
end if
end if
end function
'
sub MontaPessoaFisica()
response.write("<table><TR><td><h5>Cadastrado no Sistema:"&Session("Servidor")&"</h5></td></TR></table>")
end sub
'
sub MontaQuestao(fquestao,favaliacao)
if fquestao<>"" then
response.write("<table align=center>")
response.write("<TR><td>Avaliacao:"&favaliacao&"</td></TR>")
response.write("<TR><td>Questão:"&fquestao&"</td></TR>")
response.write("</table>")
end if
end sub
sub botoes(condicao)
Select Case session("Atividade")
case 131
if condicao=0 then
strBotao="INCLUIR"
else
strBotao="ALTERAR"
end if
condicao=4
'case 14
' if condicao=0 then
' strBotao="INCLUIR"
' else
' strBotao="ALTERAR"
' end if
' strBotao=strBotao&",LIMPAR"
' condicao=5
case 14
strBotao=strBotao&"INCLUIR,ALTERAR,EXCLUIR,LIMPAR"
condicao=5
case else
strBotao="INCLUIR,ALTERAR,EXCLUIR,LIMPAR,LISTA,SAIR"
End Select
nomebotao=split(strBotao,",")
nrobotoes=ubound(nomeBotao,1)
redim esmaecido(nrobotoes)
for K=0 to nrobotoes
esmaecido(K)="disabled"
next
Select Case session("Atividade")
case 131
case 14
esmaecido(1)=""
case 111
esmaecido(1) = ""
case else
esmaecido(4)=""
esmaecido(5)=""
End Select
select case condicao
case 0 '---Inclusão
esmaecido(0)=""
esmaecido(3)=""
if session("atividade")=106 and session("ativo")=0 then esmaecido(0) ="disabled"
case 1 '---Alteração/Exclusão
esmaecido(1)=""
esmaecido(2)=""
case 2 '---Exclusão
esmaecido(2)=""
case 3 '---Alteração
esmaecido(1)=""
case 4 '---Botão Confirme
esmaecido(0)=""
case 5 '---horário
esmaecido(0)=""
esmaecido(1)=""
esmaecido(2)=""
esmaecido(3)=""
end select
response.write("<br>")
response.write("<table cellspacing=0 align=center>")
response.write("<tr>")
for K=0 to nrobotoes
%>
<td ><input name="<%=nomebotao(k)%>" value="<%=nomebotao(k)%>"type="button" class="botao" <%=esmaecido(K)%> onClick="javascript:botao(<%=k%>)"></td>
<%
next
response.write("</tr></table>")
end sub
function preparaSql(ftabela,fcampos)
preparaSql="SELECT " & fcampos & " FROM " & ftabela & " WHERE "
end function
'
'
'---prepara os dados para INCLUIR,ALTERAR E EXCLUIR
'---origem:incAltExc.asp
'---Carrega a função montaTabela
function geraSql()
ArrCampos=split(Session("nomeChaves"),",")
Wchaves=split(request.QueryString("id"),";")
For i = 0 To ubound(Wchaves,1)
WsqlWhere = WsqlWhere & ArrCampos(i) & "='" & ConverteDados(Wchaves(i),ArrCampos(i)) & "' AND "
next
Wsqlwhere=" WHERE " & limpaCaracter(Wsqlwhere,5) & ";"
Select case session("atividade")
case 32
'---Datas do treinamento
'---Formato que deve ser utilizado.
fcampos ="id_datas,id_trein,DATE_FORMAT(data_capacitacao,'%d-%m-%Y') ,left(hora_em,5)"
fcampos=fcampos & ",left(hora_sm, 5),left(hora_et,5),left(hora_st,5)"
fcampos=fcampos & ",left(hora_en,5),left(hora_sn,5)"
case 34
'---Freqüência nos Treinamentos
fcampos ="id_freq,id_datas,id_inscricao,left(hora_em,5)"
fcampos=fcampos & ",left(hora_sm, 5),left(hora_et,5),left(hora_st,5)"
fcampos=fcampos & ",left(hora_en,5),left(hora_sn,5),aproveitamento"
case else
fcampos=Session("CamposCons")
end select
geraSql="SELECT " & fcampos & " FROM " & session("strTabela") & Wsqlwhere
'faux(geraSql)
end function
'
function ValChaves(n)
Wchaves=""
for j=0 to NroChaves
Wchaves=Wchaves & Vetor(j,n) & ";"
next
ValChaves=limpaCaracter(Wchaves,1)
end function
'
dim NroChaves
sub MtLista()
Dim Wsoma,Wtempo,Wnrolista
'response.write("1")
session("corpo")=""
Wsoma=0:Wtempo=0
Watv=session("atividade")
Klista="<dt class=estilo_3> "
Kespace=" "
ArrChave=split(Session("nomeChaves"),",")
NroChaves=ubound(ArrChave,1)
response.write("<br>")
response.write("<ol class=listas >")
'---chaves da lista
'---Informações da Lista(cabeçalhos)
Select Case Watv
case 22
'---Pessoa Física|Dependentes
MontaPessoaFisica
case 112
'---Férias
response.write("<h5>Ano-Per.Aquisitivo: "&request.QueryString("Wano")&"</h5>")
end select
'---origem:sql_select/sqllista
Wnrolista=MontaVetor (sqlLista,vetor,0)
for n=0 to Wnrolista
Select case Watv
case 12
'---Cadastro no sistema
if n > 0 then
if vetor(3,n)<>vetor(3,n-1) then
response.write("<dl><dt class=estilo_7>Categoria:"&vetor(2,n)&"</dl>")
end if
else
response.write("<dl><dt class=estilo_7>Categoria:"&vetor(2,n)&"</dl>")
end if
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&digmatri(vetor(0,n))&" "&vetor(1,n)&"</a></li>")
case 13
'---Registro de Salários
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&confData(vetor(0,n))&" Tabela " _
&vetor(1,n)&" "&formatcurrency(vetor(3,n))&"</a></li>")
case 14
'---Registro de horários
response.write("<li><a href=horario.asp?"&vetor(0,n)&">"&vetor(1,n)&"</a></li>")
response.write("<dl><br></dl>")
case 21
'---Pessoa Física
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&vetor(1,n)&"</a></li>")
response.write("<dl><dt>CPF:"&vetor(2,n)&"</dl>")
case 22
'---Dependentes
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&vetor(1,n)&"</a></li>")
response.write("<dl><dt> Nascimento: "&vetor(2,n))
response.write("<dt> "&vetor(3,n)&"</dl>")
case 25 '---Unidades
%>
<li><a href="incAltExc.asp?id=<%=ValChaves(n)%>&classificacao=<%=vetor(6,n)%>"><%=vetor(1,n)%></a>
<ul>
<li>Penosidade:<%=vetor(2,n)%>
<li>Fone:<%=vetor(3,n)%> Fax:<%=vetor(4,n)%> Ramal:<%=vetor(5,n)%>
</ul>
<%case 31
'Treinamento
session("cursos")=request.QueryString("cursos")
session("unidades")=request.querystring("unidades")
session("areas_atuacao")=request.querystring("areas_atuacao")
WmtTrein=vetor(2,n)& ";" & vetor(8,n)& ";" & vetor(3,n)
%>
<li><a href="incAltExc.asp?id=<%=ValChaves(n)%>&WmtTrein=<%=WmtTrein%>"><%=vetor(2,n)%></a>
<%
response.write("<ul>")
%>
<li>Área:<%=vetor(12,n)%>
<li>Início:<%=vetor(3,n)%> Término:<%=vetor(5,n)%>
<li>CH:<%=vetor(6,n)%> HORÁRIO:<%=vetor(14,n)%>
<li>Local:<%=vetor(8,n)%>
<%
response.write("</ul><br>")
case 32
'---Datas do Treinamento
response.Write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&confData(vetor(1,n))&"</a>")
response.Write("<ul><li>Horários:"&vetor(2,n)&" "&vetor(3,n)&" "&vetor(4,n)&" "&vetor(5,n)&" "&vetor(6,n)&" "&vetor(7,n)&"</ul>")
case 33
if n > 0 then
if vetor(3,n)<>vetor(3,n-1)then
response.write("<dt class=estilo_6>"&vetor(3,n)&"</dt>")
end if
else
response.write("<dt class=estilo_6>"&vetor(3,n)&"</dt>")
end if
'---Inscritos no treinamento
response.write("<dt> <a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(1,n)&">"&digmatri(vetor(1,n))&" "&vetor(2,n)&"</a>")
case 34
'---freqüência no treinamento
Qfalta=""
if vetor(3,n)="00:00" And vetor(4,n)="00:00" And vetor(5,n)="00:00" And vetor(6,n)="00:00" And vetor(7,n)="00:00" And vetor(8,n)="00:00" then Qfalta="falta"
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&treinamento="&vetor(1,n)&">"&Confdata(vetor(2,n))&"</a></li>")
response.write("<dt class=estilo_6> Manhã "&vetor(3,n)&"-"&vetor(4,n))
response.write(" Tarde "&vetor(5,n)&"-"&vetor(6,n))
response.write(" Noite "&vetor(7,n)&"-"&vetor(8,n) & " " &Qfalta &"</dt>")
case 35,36
'---Treinamento:nome_avaliação,questões,Avaliação
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&vetor(1,n)&"</a></li>")
case 37
'---Treinamento:Avaliação
%>
<li><a href="incAltExc.asp?id=<%=ValChaves(n)%>&questao=<%=vetor(2,n)%>&aval=<%=vetor(3,n)%>"><%=vetor(2,n)%></a></li>
<%
'---Nacionalidade,Conselho,Nome da Avaliação,Questões da Avaliação,Áreas de Atuação
'---vt_grupo
case 23,24,38,39,40,201
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&vetor(1,n)&"</a></li>")
'---Cargos
case 41
'---participação em cursos
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&vetor(1,n)&"</a></li>")
response.write("<dl class=estilo_6>"&vetor(2,n)&"</dl>")
response.write("<dl class=estilo_6>"&vetor(3,n)&"</dl>")
response.write("</dl><br>")
case 51
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&vetor(1,n)&"</a></li>")
response.write("<dl class=estilo_3>")
response.write(klista &"Padrão: "&vetor(2,n)&" Folha: "&vetor(3,n)&" CBO: "&vetor(4,n))
response.write("</dl>")
response.write("<dl class=estilo_7>")
Wdisponivel=cint(vetor(5,n))-cint(vetor(6,n))
response.write(klista &"Nro Vagas: "&vetor(5,n)&" Ocupados: "&vetor(6,n)&" Disponíveis:"&Wdisponivel)
response.write("</dl><br>")
'---historico:Genérico|Med.Disciplinares|Atos de Merec.|Alt.horário|Demissão|Imp.Sindical
'---transferência|susp.Contrato|atrasos|alteração do P.A
case 101,102,103,107,108,111,118,123,129,130
'response.write("<li class=estilo_7><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
If(Watv = 108) Then
response.write("<li class=estilo_7><a href=../incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
ElseIf(Watv = 129) Then
response.write("<li class=estilo_7><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(1,n)&">"&confData(vetor(3,n))&" "&vetor(4,n)&"</a>")
Else
response.write("<li class=estilo_7><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
End If
Select case Watv
case 102
response.write("<dl class=estilo_6>Dias de Suspensão:")& vetor(7,n)
case 107 '---Imp.sindical
response.write("<dl class=estilo_7> Valor Recolhido R$" & vetor(8,n) &"</dl>")
response.write("<dl class=estilo_6> Sindicato "&vetor(7,n)&"</dl>")
case 108 '---Transferência
response.write("<dl class=estilo_6> Local de Destino:"&vetor(7,n)&"</dl>")
response.write("<dl class=estilo_6> Responsável:"&vetor(8,n)&"</dl>")
if n=0 then
response.write(klista&"<a href=javascript:abrirJanela('../imprimir/MemorandoApresentacaoNPRT.asp?chave="&session("matri")&"memorando&acao="&Watv&"',300,200);><img src=http://info-555/images/print.gif border=0></a></TD></TR>")
end if
case 111 '---Susp.contrato
response.write(klista&"Término:")&confData(vetor(7,n))
case 123 '---Alteração do Perído Aquisitivo
response.write(klista&"Período Anterior:"&confData(vetor(7,n)))
case 129
response.write("<dl class=estilo_6> Processo Nro "&vetor(5,n) &" Nível " & vetor(6,n) &" Referência "&vetor(8, n)&"</dl>")
response.write("<dl class=estilo_6> Registro "&ConfData(vetor(7,n))&"</dl>")
case 130
response.write("<dl class=estilo_6> Processo Nro "&vetor(4,n) &" C.H " & vetor(5,n) &"</dl>")
response.write("<dl class=estilo_6> Registro "&ConfData(vetor(6,n))&"</dl>")
end select
response.write("</dl>")
'---Função gratificada:designação|exoneração|designação de substituição|Alt.Contrato
case 105 '---Banco de Horas
response.write("<li class=estilo_7><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
Wtempo=cdbl(vetor(7,n))
if(vetor(8,n)="2002") OR (vetor(8,n)="2004") OR (vetor(8,n)="2005") OR (vetor(8,n)="2006") then Wtempo=Wtempo*-1
Select Case vetor(8,n)
case "2003","2004","2005","2006"
WsomaTre=WsomaTre+Wtempo
response.write(" "&vetor(7,n)/(8*60))
case "2001","2002"
Wsoma=Wsoma+Wtempo
response.write(" ")&fcmht(vetor(7,n))
End Select
case 106 '---Demissão
if n=0 then
call Graf_matriEfet(vetor(0,n),vetor(1,n))
end if
response.write("<li class=estilo_7><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
case 117 '---Atrasos
response.write("<li class=estilo_7><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&confData(vetor(1,n))&" "&fcmht(vetor(7,n))&"</a>")
Wtempo=cdbl(vetor(7,n))
Wsoma=Wsoma+Wtempo
case 119,120,121,122
if instr(session("subTipohis"),vetor(10,n)) then
response.write("<li class=estilo_7>")
response.write("<a href=incAltExc.asp?id="&ValChaves(n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
else
response.write("<li class=estilo_3>")
response.write(confData(vetor(1,n))&" "&vetor(3,n))
end if
response.write("<dl class=estilo_8>")
call AuxListahist (vetor(4,n),vetor(5,n),vetor(6,n))
response.write(klista&"Designação:"&vetor(7,n))
response.write(klista&"Local:"&vetor(8,n))
response.write("</dl>")
if vetor(9,n)<>"1/1/2050" then
response.write("<dl class=estilo_10> Térm.:"&Confdata(vetor(9,n)))
response.write("</dl>")
end if
'---SEST-af_funcional/Licenças etc ..
case 114
Dim segmento, seg, aviso, aposentadoria, apos
if vetor(13,n)="não" then
Qsit="Encaminhamento"
QData=vetor(12,n)
else
Qsit="Licença"
Qdata=vetor(9,n)
end if
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&Qsit&": "&confData(Qdata)&" "&vetor(1,n)&"</a></li>")
call AuxListahist (vetor(2,n),vetor(3,n),confdata(vetor(4,n)))
response.write(klista &"Lotacao:")&vetor(8,n)
response.write(klista &"Deferimento: "&vetor(13,n))
wtermino=confData(vetor(10,n))
'
if vetor(13,n)<>"não" then
if wtermino="01-01-2050" then
wsituacao=""
wtermino="Em Licença"
else
wsituacao="Término:"
end if
segmento = vetor(14, n)
aposentadoria = vetor(15, n)
If((IsNull(segmento)) OR (segmento = "") OR (segmento = 0)) Then
aviso = "Não"
seg = 0
Else
aviso = "Sim"
seg = 1
End If
If((IsNull(aposentadoria)) OR (aposentadoria = "") OR (aposentadoria = 0)) Then
'aviso = "Não"
apos = 0
Else
'aviso = "Sim"
apos = 1
End If
response.write("<dt class=estilo_7> <a href=alta_ls.asp?id_af="&ValChaves(n)&"&data_f="&confData(vetor(10,n))&"&data_i="&confData(vetor(9,n))&"&seg="&seg&"&apos="&apos&">"&wsituacao&wtermino&"</a></DT>")
Response.Write("<BR><TD> Apto: "& aviso & "</TD>")
end if
if wsituacao="Término:" then
response.write("<dt class=estilo_7> Dias >>"&DateDiff("d",vetor(9,n),vetor(10,n))+1)
end if
response.write("<dt><br>")
response.write("</dl>")
case 115
'Admissão
response.write("<li>")
response.write("<a href=inAlEx_ad.asp?id="&ValChaves(n)&">"&vetor(1,n)&" "&vetor(3,n)&"</a>")
response.write("<dl>")
call AuxListahist (vetor(4,n),vetor(5,n),vetor(6,n))
response.write("</dl>")
case 113
'---SEST-Atestados Médicos
Wintervalo=RetornaValor("intervalo")
Wano=RetornaValor("ano")
if cdate(vetor(1,n)) <=cdate(session("dtFimefe")) then
if n=0 then
call Graf_matriEfet(vetor(0,n),vetor(1,n))
end if
response.write("<dt class=estilo_3><a href=incAltExc_efe.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&"&intervalo="&Wintervalo&"&ano="&Wano&">")
response.write(confData(vetor(1,n))&" Dias "&vetor(3,n)&" "&vetor(4,n)&" Reg "&ConfData(vetor(5,n))&"  "&vetor(6,n)&"</a>")
response.write("<dt class=estilo_6>16 dia ")& confData(dateadd("d",16,vetor(1,n)-1))
else
response.write("<dt><br>")
response.write("<dt class=estilo_7>Registros no Próximo Período")
response.write("<dt><br>")
response.write("<dt class=estilo_6>Início "&confData(vetor(1,n))&" Dias "&vetor(3,n)&" "&vetor(4,n)&" Lançamento "&ConfData(vetor(5,n))&"  "&vetor(6,n)&"</a>")
end if
response.write("<dt class=estilo_6>CID "& vetor(7,n) & kespace & "Descrição "& vetor(8,n))
case 109
'---HoraExtra
response.write("<dt><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&(vetor(3,n))&" Doc. "&vetor(7,n)&"</a>")
response.write("<dt class=estilo_6> "&fcmht(vetor(4,n))&" "&fcmht(vetor(5,n))&" "&fcmht(vetor(8,n))&" "&fcmht(vetor(9,n))&" "&fcmht(vetor(6,n)))
case 110
'---Efetividade
Wintervalo=RetornaValor("intervalo")
Wano=RetornaValor("ano")
if n=0 then
call Graf_matriEfet(vetor(0,n),vetor(1,n))
end if
if instr("9010_9009_9008_9007_0401_0403_0418_0426_0404_0405_0406_0410_0415_0494_0496_0490_0484_0486_1101_1102_1103_1104_1105_1106",vetor(6,n)) <> 0 then
response.write("<dt class=estilo_6>"&confData(vetor(1,n))&" Dias "&menor_10(cint(vetor(3,n)))&"  "&vetor(4,n)&" Reg "&ConfData(vetor(5,n))&"  "&vetor(7,n)&"  Doc "&vetor(8,n))
else
response.write("<dt class=estilo_3><a href=incAltExc_efe.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&"&intervalo="&Wintervalo&"&ano="&Wano&">")
response.write(confData(vetor(1,n))&" Dias "&menor_10(cint(vetor(3,n)))&" "&vetor(4,n)&" Reg "&ConfData(vetor(5,n))&"  "&vetor(7,n)&"  Doc "&vetor(8,n)&"</a>")
end if
case 112,1120 '---Férias
wchave=vetor(6,n)
session("tipo_d")=vetor(11,n)
session("nrodoc")=vetor(3,n)
if instr("1104;1105;1107;1109;1110",vetor(10,n))=0 and vetor(9,n) > "2003" then
%>
<dt><a href="ferias.asp?codigo=<%=wchave%>&nrodoc=<%=vetor(3,n)%>&acao=1"><%=vetor(1,n)%>
Documento:<%=vetor(2,n)%>
Nro:<%=vetor(3,n)%></a>
<%
else
response.write("<dt class=estilo_10>"&vetor(1,n)&" Documento:"&vetor(2,n)&" Nro:"&vetor(3,n))
end if
Wabono="Sim"
if vetor(7,n) =0 then Wabono="Não"
Wantecipa="Sim"
if vetor(8,n) =0 then Wantecipa="Não"
response.write("<dt class=estilo_3> Início: " & vetor(0,n) & Kespace & "Dias:" & vetor(4,n))
response.write("<dt class=estilo_3> Abono: " & Wabono)
response.write("<dt class=estilo_3> Ant.Salarial: "& Wantecipa)
response.write("<dt><br>")
response.write("</dl>")
if(n = Wnrolista) then
chave = vetor(6, n)
For i = 0 To Wnrolista
if(InStr("1101;1102;1103", vetor(10, i))) then
chave = vetor(6, i)
i = Wnrolista + 1
end if
Next
%>
<a href="ferias.asp?codigo=<%=chave%>&nrodoc=<%=vetor(3,n)%>&acao=1">continuar</a>
<%
end if
case 125,126,127
'---Cedência,prorrogação e retorno antecipado
if instr(session("subTipohis"),vetor(9,n)) then
response.write("<li>")
response.write("<a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
else
response.write("<li class=estilo_7>")
response.write(confData(vetor(1,n))&" "&vetor(3,n))
end if
response.write("<dl class=estilo_6>")
response.write(klista &"Local "&vetor(7,n))
if vetor(9,n)<>"0505" then
response.write(klista & "CAGED "& vetor(10,n) & " ATO No. "& vetor(12,n) )
response.write(klista & "Função "& vetor(11,n))
end if
call AuxListahist (vetor(4,n),vetor(5,n),vetor(6,n))
response.write("</dl>")
case 128
'--->Aviso de Férias
Qdata=ConfData(vetor(4,n))
if Qdata="01-01-2050" then Qdata="S/Retorno"
response.write("<dt><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&" Aviso de Férias "&Qdata&"</a>")
case 131
'--->Alteração do Tipo de Vale
response.write("<li class=estilo_7>Tipo de Vale >> "&vetor(1,n)&"</li>")
case 132
'--->Alteração do Tipo de Vale
response.write("<dt class=estilo_3><a href=incAltExc_efe.asp?id="&ValChaves(n)&"&matri="&vetor(0,n)&"&ano="&vetor(0,n)&">")
response.write(vetor(1,n)&vetor(2,n)&"</a>")
case 136,137,138
'---Cedência,prorrogação e retorno antecipado
if instr(session("subTipohis"),vetor(9,n)) then
response.write("<li>")
response.write("<a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&confData(vetor(1,n))&" "&vetor(3,n)&"</a>")
else
response.write("<li class=estilo_7>")
response.write(confData(vetor(1,n))&" "&vetor(3,n))
end if
response.write("<dl class=estilo_6>")
response.write(klista &"Local "&vetor(7,n))
if(vetor(9,n) <> "2208") then
response.write(klista & "CAGED "& vetor(10,n) & " ATO No. "& vetor(12,n) )
response.write(klista & "Função "& vetor(11,n))
end if
call AuxListahist (vetor(4,n),vetor(5,n),vetor(6,n))
response.write("</dl>")
case 203
if n=0 then response.write("<li class=estilo_7>"&vetor(4,n)&"<br>")
response.write("<li class=estilo_7><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matricula="&vetor(0,n)&">"&digmatri(vetor(0,n))&"-"&vetor(1,n)&"</a> ")
if Cint(vetor(3,n))<>0 then
response.write(formatcurrency(vetor(3,n),2,,false)&"</li>")
else
response.write("</li>")
end if
case 207
'---acertos_vAvr
Qclass="estilo_6"
if vetor(3,n) < 0 then Qclass="estilo_7"
response.write("<li ><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matricula="&vetor(0,n)&">"&digmatri(vetor(0,n))&"-"&vetor(4,n)&"</a> " _
&"<li class="&Qclass&"> Período "&vetor(1,n)&" à "& vetor(2,n)&" "&formatcurrency(vetor(3,n),2,,false)&"</li>" _
&"<li class=estilo_3> "&vetor(5,n)&"</li>")
response.Write("<li><br>")
case 209
'---vt_servidor
if n=0 then
response.write(klista &"<a href=javascript:abrirJanela('imprimir/impDesconto.asp?chave="&Session("matri")&"vtu',200,100);><img src=http://info1/desenvolvimento/images/print.gif border=0></a></li>")
end if
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&"Empresa :"& vetor(1,n)& " Linha "&vetor(7,n)&"-"&vetor(6,n)&"</a></li>")
response.write("<dl class=estilo_3>")
response.write(klista &"Data de Início :"&confData(vetor(8,n)))
response.write(klista &"Nro Passagens :"&vetor(4,n) _
&klista &"Ativo:"&vetor(9,n))
call AuxListahist (vetor(2,n),vetor(3,n),vetor(5,n))
response.write("</dl>")
case 210
'---linhas do VTU
if n > 0 then
if vetor(3,n)<>vetor(3,n-1) then
response.write("<dt><hr>")
response.write("<dt><h5>"&vetor(4,n)&"</h5>")
response.write("<dt><br>")
end if
else
response.write("<dt><h5>"&vetor(4,n)&"</h5>")
response.write("<dt><br>")
end if
response.write("<dt class=estilo_6><a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&vetor(1,n)&"</a> Passagem "& formatcurrency (vetor(2,n),2)&"</li>")
response.write("<dt><br>")
response.write("</dl>")
case 212
'---Empresas do Plano de Saúde
if n >0 then
if vetor(2,n)<>vetor(2,n-1) then
Response.Write("<li class=estilo_7>"&vetor(2,n)&"</td></tr>")
wsoma=0
end if
else
Response.Write("<li class=estilo_7>"&vetor(2,n)&"</td></tr>")
end if
Wsoma=Wsoma+1
response.write("<li ><a href=incAltExc_efe2.asp?id="&ValChaves(n)&" class=estilo_3>"&menor_10(Wsoma)&" - "&vetor(0,n)&" >> "&vetor(1,n)&"</a></li>")
response.write("<dl><br></dl>")
case 213
'---Servidores do Plano de Saúde
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&">"&vetor(2,n))
response.write(klista &"Ativo: "&vetor(3,n))
response.write(klista &"Registro no Sistema: "&confData(vetor(1,n)))
response.write("<dt><br>")
response.write("</dl>")
case 214
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&plano_ps="&vetor(8,n)&">"&digmatri(vetor(1,n))&"  "&vetor(2,n)&"</a></li>")
response.write(klista &"Recibo Nro.: "&vetor(3,n))
response.write(klista &"Pagamento: "&vetor(7,n)&"/"& vetor(6,n))
response.write(klista &"Valor Pago: "&formatcurrency(vetor(4,n),2))
response.write("<dt class=estilo_6> Registro no Sistema: "&confData(vetor(5,n)))
response.write("</dl>")
case 216,217
'---Entrega no Balcão do VTU/movimento do vtu
'---Devolução do VTU/movimento do vtu
'---Compra/movimento do vtu
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matricula="&vetor(6,n)&">"&"  "&vetor(1,n))
response.write("</a></li>")
response.write("<dl class=estilo_3>")
response.write(klista &" Nro Passes "&vetor(2,n)&"x"&vetor(3,n)&"  Valor: "&formatcurrency(vetor(4,n),2))
response.write(klista &" Registro no sistema: "&confData(vetor(5,n)))
response.write("<dt><br>")
response.write("</dl>")
case 218
'---Compra/movimento do vtu
response.write("<li><a href=incAltExc.asp?id="&ValChaves(n)&">"&"  "&vetor(1,n))
response.write("</a></li>")
response.write("<dl class=estilo_3>")
response.write(klista &" Nro Passes "&vetor(2,n)&"x"&vetor(3,n)&"  Valor: "&formatcurrency(vetor(4,n),2))
Wsoma=Wsoma+(cdbl(vetor(4,n)))
response.write(klista &" Registro no sistema: "&confData(vetor(5,n)))
response.write("<dt><br>")
response.write("</dl>")
case 400
'---pcmso
response.write("<li><a href=incAltExc_efe2.asp?id="&ValChaves(n)&"&matricula="&vetor(0,n)&">"&confData(vetor(1,n))&"</a></li>")
response.write("<dl class=estilo_3>")
If vetor(8,n) > 0 Then
response.write(klista &"Tipo: "&vetor(9,n))
Else
response.write(klista &"Tipo: Não informado")
End If
response.write(klista &"Resultado: "&vetor(3,n)&" Repetir em: "&vetor(4,n))
response.write(klista &"Observação: "&vetor(5,n))
response.write("</dl>")
case 1122
response.write("<li><a href=cartao.asp?id="&vetor(0,n)&"&matricula="&vetor(1,n)&">"&digmatri(vetor(1,n))&"-"&vetor(2,n)&"</a></li>")
case 1123
response.write("<li><a href=cartao_nircip.asp?id="&vetor(0,n)&"&matricula="&vetor(1,n)&">"&digmatri(vetor(1,n))&"-"&vetor(2,n)&"</a></li>")
case 1124
if j =0 then
response.write(klista &"<a href=javascript:abrirJanela('imprimir/folhaefetiv.asp',200,100);><img src=http://info1/desenvolvimento/images/print.gif border=0></a>")
end if
response.write("<li>"&digmatri(vetor(1,n))&"-"&vetor(2,n)&"</li>")
end select
next
Select case Watv
case 41
aspas = "'"
response.write("<li class=estilo_3>Relação Anual da Carga Horária Utilizada *** Cursos Deferidos</li><li><BR></li>")
strSql=" SELECT year(data_inicial) as ano,sum(ch_curso)*5/ch as soma" _
& " FROM Srh.tr_partcurso p,Srh.contrato c" _
& " WHERE p.matricula=c.matri AND c.matri='" & session("matri") _
& "' AND deferimento <> 'não' "_
& " AND deferimento <> " & aspas&"Pendente"&aspas & " GROUP BY year(data_inicial)"
Wnrolista=MontaVetor (strSql,vetor,0)
for n=0 to Wnrolista
response.write("<li class=estilo_7>Ano "&vetor(0,n)&" Dias "&vetor(1,n)&"</li>")
next
case 105
Dim Wdesc
Wdesc=" Crédito"
if Wsoma < 0 then Wdesc=" Débito":Wsoma=Wsoma*-1
response.write("<br> HORAS "&Wdesc&" "&fcmht(Wsoma))
Wdesc=" Crédito"
WsomaTRE=WsomaTRE/(8*60)
if WsomaTRE < 0 then Wdesc=" Débito":WsomaTRE=WsomaTRE*-1
response.write("<LI class=estilo_6> Dias TRE "&Wdesc&" = " & WsomaTRE & " Dias ")
case 117
response.write("<br><LI class=estilo_6>Total em Horas "&fcmht(Wsoma))
case 203
response.write("<br>")
response.write("<br>")
response.write("<li><a href=acao_vavr.asp?mes="&vetor(5,0)&"&ano="&vetor(6,0) _
&"&datacred="&vetor(7,0)&"&operacao="&vetor(8,0)&"><img src=http://info-555/images/mail_send2.jpg border=0 alt='Gravar/Gerar Pedido'></a>")
response.write("<br>")
response.write("<br>")
response.write("<li><a href=acao_excluir_vavr.asp"&"><img src=http://info-555/images/icn-backspace.gif border=0 alt='Limpar tela do pedido extra'></a>")
case 218
'---Compra do vtu
response.write(" Compra do Mês: "&formatcurrency(Wsoma))
case 31
response.write("<a href=javascript:abrirJanela('imprimir/imptrein.asp',200,100);><img src=http://info1/desenvolvimento/images/print.gif border=0></a>")
end Select
response.write("</ol><hr>")
end sub
'
'---funçoes de para a Lista
sub AuxListahist(fdoc,fnum,fdata_l)
response.write("<dt class=estilo_6> Documento: "&fdoc&" Nro: "&fnum)
response.write("<dt class=estilo_6> Registro no Sistema: "&fdata_l)
end sub
'
sub Graf_matriEfet(fmatri,fdata)
response.write("<dt class=estilo_7>Registros no Período")
response.write(" <a href=graf_efetmatri.asp?numero="&fmatri&"&ano="&year(fdata)&" ><img src=http://info1/desenvolvimento/images/Graph07.ico border=0 width=20></a>")
response.write("<dt><br>")
end sub
'
dim Wdtini_efe,Wdtfin_efe
function finifim(fperiodo,fano)
if fano="" then fano=2000
if fperiodo <> "" then
Wdtini_efe=ConverteData(cdate(mid(fperiodo,1,5)&"/"&fano))
if mid(fperiodo,4,2)="12" then fano=cint(fano)+1
Wdtfin_efe=ConverteData(cdate(mid(fperiodo,7,5)&"/"&fano))
session("dtIniefe")=Wdtini_efe
session("dtFimefe")=Wdtfin_efe
session("Qdias")=DateDiff("d",cdate(Wdtini_efe),cdate(Wdtfin_efe))+1
end if
end function
'
'---Avisos de Cancelamento
sub msgAviso(situacao)
dim msg
select case situacao
case 1
msg="CONFLITO "&Waviso
case 2
msg="ESTE REGISTRO NÃO PODE SER EXCLUIDO OU ALTERADO!!!"
case 3
msg="SERVIDOR DEMITIDO - ESTE REGISTRO NÃO É PERMITIDO!!!"
case 4
msg="MATRÍCULA/CPF NÃO RECONHECIDO!!!"
case 5
msg="NRO DE DIAS EM L.S/SAT ULTRAPASSA 180 DIAS!!!"
case 6
msg="NRO DE DIAS DE FALTAS ULTRAPASSA 32 DIAS!!!"
case 7
msg="SERVIDOR DO QUADRO!!!"
case 8
msg="Servidor "& Waviso
case 9
msg="CPF NÃO CADASTRADO NO SISTEMA!!!"
case 10
msg="NÃO EXISTE CONTRATO PARA ESTA MATRÍCULA!!!"
case 11
msg="ESTE CPF TEM UM CONTRATO COM A FUNDAÇÃO," & vbcrlf
msg=msg & "PARA NOVA ADMISSÃO É PRECISO DEMITI-LO."
case 12
msg="ESTA MATRÍCULA JÁ ESTÁ RELACIONADA COM O CONTRATO DE" & vbcrlf & Wnome_contrato
case 13
msg="O SERVIDOR DO QUADRO/REGISTRO NÃO PERMITIDO!!!"
case 14
msg="O SERVIDOR TEM CADASTRO COM ESTA EMPRESA DESDE :" & Wdatacred
case 15
msg="O SERVIDOR NÃO TEM CADASTRO COM ESTA EMPRESA !!!"
case 16
msg="A DATA DA SOLICITAÇÃO TEM QUE SER " & Wdata_cred
case 17
msg="ESTA MATRÍCULA JÁ POSSUI UMA SOLICITAÇÃO !!! "
case 18
msg="Servidor encaminhado p/Lic.Saúde Em:" & confData(rst(0)) & "."
case 19
msg="Servidor em "& rst(1)&" A partir de " & confData(rst(0))
case 20
msg="Não Existe Lançamento de Atestado anterior!!!"
case 21
msg="A Lic.de Saúde Não Foi Deferida!!!"
case 22
msg="Servidor com Férias em Haver Deverá passar no Núcleo de Pagamento Pessoal!!!"
case 23
msg="Servidor não tem horário neste Sistema!!!"
case 24
msg="Este cargo está ocupado por "& rst(0)&"-"&rst(1)
case 25
msg="A data deve estar entre "& confData(dados(0))&" e "&confData(dados(1))
case 26
msg="O horário de Entrada da Manhã é após as " & timevalue(dados(0))
case 27
msg="O horário de saída da Manhã é até as " & timevalue(dados(1))
case 28
msg="O horário de Entrada da Tarde é após as " & timevalue(dados(2))
case 29
msg="O horário de saída da Tarde é até as " & timevalue(dados(3))
case 31
msg="A Prorrogação Exige uma Cedência Anterior!!!"
case 32
msg="O Servidor Não Encontra-se Cedido!!!"
case 33
msg="O Servidor tem data de Admissão posterior ao início deste período!!!"
case 34
msg="Servidor Demitido desde "& ConfData(rst.fields(0))
case 35
msg="O Servidor Não Tem direito a este Período Aquisitivo !!!"
case 36
msg="Você não pode mais Atualizar este Período !!!"
case 37
msg="Você deve Antes atualizar o perído " & Qperiodo
case 38
msg="O servidor " & rst(0) &" está com os Dados Incompletos Verifique os dados c/NIRCIP "
case 39
msg="Não foram Registradas as datas deste treinamento!!!"
case 40
msg="Servidor Tem outro Registro Até o final desta Efetividade :"& rst(1)&" A partir de " & confData(rst(0))
case 41
msg="O Servidor consta como não retira Vale Alimentação!!!"
case 42
msg="O horário de Entrada da Noite é após as " & timevalue(dados(4))
case 43
msg="O horário de saída da Noite é até as " & timevalue(dados(5))
case else
msg="ESTE REGISTRO JÁ FOI LANÇADO!!!"
end select
Select Case session("atividade")
case 33,109,110,203,204,1122
Wvoltar=-2
case else
Wvoltar=-1
end Select
response.write("<h3>"&msg&"</h3>")
Select Case session("atividade")
case 34
case 203
response.end
case else
response.write("<h3><a href=javascript:history.go("&Wvoltar&")>Voltar</a></h3>")
end Select
response.write("<hr>")
response.end
end sub
'
Function TestaRelacionamentos(FCampoOrigem)
dim QcampoOrigem
dim strSql
if FCampoOrigem="" then exit function
TestaRelacionamentos = False
strSql = "SELECT BDDestino,TabelaDestino,Campodestino FROM GERAL.relacionamentos "
strSql=strSql & "WHERE CampoOrigem='" & FCampoOrigem & "' ORDER BY CampoOrigem;"
Wrst(strSql)
With rst
Do While Not .EOF
QcampoOrigem= request.form(FcampoOrigem)
if isDate(request.form(FcampoOrigem)) then QcampoOrigem=ConverteData(request.form(FcampoOrigem))
strSql = "SELECT COUNT(*) FROM " & .Fields("BDDestino") & "." & .Fields("TabelaDestino")
strSql=strSql & " WHERE " & .Fields("Campodestino") & "='" & QcampoOrigem & "';"
'faux(strSql)
Wrst2(strSql)
If rst2.Fields(0) > 0 Then
TestaRelacionamentos = True
exit do
End If
.MoveNext
Loop
End With
End Function
'---Histórico:efetividade
'
function testa_ls(fmatri,fdtini)
'---testa Lic.Saúde/Sat/Aposent.por Invalidez
testa_ls=""
strSql="SELECT data_e,data_i,txthis.nome,tipo_h FROM Srh.af_funcional,GERAL.txthis" _
& " WHERE af_funcional.subtipo_h=txthis.codigo AND data_f ='2050-01-01' AND deferimento='sim'" _
&" AND matri='" &fmatri& "';"
Wrst(strSql)
With rst
IF Not .EOF then
Waviso=" Em "&.fields(2) & " Desde "& ConfData(.fields(0))
if session("atividade")=2101 then
testa_ls=Waviso
else
'---Demissão/aposentadoria por Invalidez
if session("atividade") <> 106 and .fields(3) <>"19" and 2 = 3 then
if cdate(.fields(0))<= cdate(fdtini) then call msgAviso(8)
end if
end if
end if
End With
fechaConexao
end function
'
function testa_Demissao(fmatri,fdtini)
strSql="SELECT data_i,txthis.nome,tipo_h FROM Srh.historico,GERAL.txthis" _
& " WHERE historico.subtipo_h=txthis.codigo" _
& " AND tipo_h IN('07','01') " _
& " AND matri='" &fmatri& "' ORDER BY data_i DESC LIMIT 1;"
'retirado ::::::::>> AND data_i <='"& ConverteData(fdtini)
Wrst(strSql)
With rst
IF Not .EOF then
'--->reintegração
if session("atividade")=118 then
if .fields(2)<>"07" then call msgAviso(7)
else
if .fields(2)<>"01" then call msgAviso(34)
end if
end if
End With
fechaConexao
end function
'
dim wAviso
function fConcDatas(fdtini,fdias,fmatri,facao,ftipo)
fConcDatas=false
if CInt(fdias)<>0 then
Dim Wdtfin
Wdtfin=ConverteData(cdate(fdtini)+cint(fdias)-1)
call testa_demissao(fmatri,Wdtfin)
call testa_ls(fmatri,Wdtfin)
strSql="SELECT DATE_FORMAT(data_i,'%d-%m-%Y'),DATE_FORMAT(DATE_ADD(data_i,INTERVAL dias-1 DAY),'%d-%m-%Y') AS dt_final,txthis.nome,tipo_h FROM Srh.historico,GERAL.txthis" _
& " WHERE tipo_h IN("&ftipo&")" _
& " AND historico.subtipo_h=txthis.codigo AND data_i <='" & Wdtfin _
& " ' AND date_add(data_i,interval dias-1 day)>='" & ConverteData(fdtini) _
& "' AND matri='"&fmatri&"' AND dias<>0 LIMIT 1"
Wrst(strSql)
With rst
IF Not .EOF then
'---Pular o próprio registro na alteração
if not(Cdate(fdtini)=cdate(.fields(0)) and .fields(3)=session("intTpHis") and facao=1) then
wAviso=.fields(2) & " De " & .fields(0) & " à " & .fields(1)
fConcDatas = True
end if
End if
End With
end if
End Function
'---Criptografia
function Crypt(Senha)
Dim strTempChar
For i = 1 To Len(Senha)
If Asc(Mid(Senha, i, 1)) < 128 Then
strTempChar = Asc(Mid(Senha, i, 1)) + 128
Else
strTempChar = Asc(Mid(Senha, i, 1)) - 128
End If
Crypt = Crypt & strTempChar
Next
End Function
'
'---gera uma data com um mês maior
function fdtfinEF(fdata)
dia=day(fdata)
mes=month(fdata)
ano=year(fdata)
if dia >=15 then
if mes=12 then
mes=1
ano=ano+1
else
mes=mes+1
end if
end if
fdtfinEF=cdate(15 & "-" & mes & "-" & ano)
end function
'
'---Configura Digito
function digmatri(fmatri)
digmatri=left(fmatri,4)&"."&right(fmatri,1)
end function
function faux(ftexto)
response.write(ftexto)
response.End()
end function
'
'
Sub PreparaCampos(fcampos)
WArr=split(fCampos,",")
WstrChave="":WStrtbl="":WStrAuto_inc="":WnomeChaves="":WstrFunc="":WstrChavefalsa=""
Redim WArrCons(ubound(WArr,1))
For i = 0 To ubound(WArr,1)
fcampos=WArr(i)
Wfunc=0
if Instr(fcampos,"/") then
Wpos=Instr(fcampos,"/")
Wfunc=mid(fcampos,Wpos+1,len(fcampos))
fcampos=limpaCaracter(fcampos,len(fcampos)-(Wpos-1))
end if
Wchave=0
If InStr(fcampos, "*") <> 0 Then
fcampos = limpaCaracter(fcampos, 1)
Wchave=1
end if
Wchavefalsa=0
If InStr(fcampos, "!") <> 0 Then
fcampos = limpaCaracter(fcampos, 1)
Wchavefalsa=1
end if
Wtbl="0"
if instr(fcampos,"#") then
fcampos=limpaCaracter(fcampos,1)
Wtbl=fcampos
end if
Wauto_inc=0
If InStr(fcampos, "*") <> 0 Then
fcampos = limpaCaracter(fcampos, 1)
Wauto_inc=1
end if
if Wchave=1 then
WnomeChaves=WnomeChaves & session("strTabela") & "." & fcampos & ","
end if
WArr(i)=fcampos
'
'---Formatação para consulta.Sql
if fcampos="data_i" then fcampos="DATE_FORMAT(data_i,'%d-%m-%Y')"
if fcampos="data_f" then fcampos="DATE_FORMAT(data_f,'%d-%m-%Y')"
WArrCons(i)=fcampos
'
WstrChavefalsa=WstrChavefalsa & Wchavefalsa & ";"
WstrChave=WstrChave & Wchave & ";"
WStrtbl=WStrtbl & Wtbl & ";"
WStrAuto_inc=WStrAuto_inc & Wauto_inc & ";"
WstrFunc=WstrFunc & Wfunc &";"
Next
Session("CamposCons")=join(WArrCons,",")
Session("Campos")=join(WArr,",")
Session("Chave")=limpaCaracter(WstrChave,1)
Session("Chavefalsa")=limpaCaracter(WstrChavefalsa,1)
Session("tbl")=limpaCaracter(WStrtbl,1)
Session("Auto_inc")=limpaCaracter(WStrAuto_inc,1)
Session("nomeChaves")=limpaCaracter(WnomeChaves, 1)
Session("func")=limpaCaracter(WstrFunc, 1)
end Sub
function unidades(num)
dim vet_unidades, str, aux
vet_unidades = Array("um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove", "dez", "onze", "doze", "treze", "quatorze", "quinze", "dezesseis", "dezessete", "dezoito", "dezenove")
aux = Right(num,2)
if int(aux) < 20 then
if int(aux) > 0 then
str = vet_unidades(int(aux)-1)
else
str = ""
end if
else
str = vet_unidades(int(right(num,1)) - 1)
end if
unidades = str
end function
function dezenas(num)
dim vet_dezenas, aux, str
vet_dezenas = Array(VBNullString, "vinte", "trinta", "quarenta", "cinquenta", "sessenta", "setenta", "oitenta", "noventa")
aux = Right(num,2)
aux = Left(aux,1)
if len(num) >= 2 then
if int(aux) >= 2 then
str = vet_dezenas(int(aux)-1)
if right(num,1) > 0 then
str = str &" e "&unidades(num)
end if
else
str = unidades(num)
end if
else
str = unidades(num)
end if
dezenas = str
end function
function centenas(num, numero)
dim vet_centenas, aux, str
vet_centenas = Array("cem", "duzentos", "trezentos", "quatrocentos", "quinhentos", "seiscentos", "setecentos", "oitocentos", "novecentos")
if int(num) > 99 then
aux = Right(num, 3)
aux = Left(aux, 1)
if int(right(num,2)) > 0 then
vet_centenas(0) = "cento"
end if
str = vet_centenas(aux-1)
if int(right(num, 2)) > 0 then
str = str & " e "
end if
else
str = ""
end if
centenas = str & dezenas(num)
end function
function milhares(num, numero)
dim str, aux, auxstr
aux = right(numero,3)
aux = left(aux,1)
if int(aux) > 0 then
auxstr = ", "
else
auxstr = " e "
end if
if int(num) <> 0 then
str = centenas(num, numero)&" mil"&auxstr
else
str = ""
end if
milhares = str
end function
function milhoes(num, numero)
dim str, aux, strmilhao
aux = int(num)
if aux > 0 then
if aux = 1 then
strmilhao = "milhão,"
else
strmilhao = "milhões,"
end if
str = centenas(num, numero)&" "&strmilhao&" "
else
str = ""
end if
milhoes = str
end function
function bilhoes(num, numero)
dim str, aux, strbilhao
aux = int(num)
if aux > 0 then
if aux = 1 then
strbilhao = "bilhão,"
else
strbilhao = "bilhões,"
end if
str = centenas(num, numero)&" "&strbilhao&" "
else
str = ""
end if
bilhoes = str
end function
function centavos(num)
dim str, aux, strcent
num = "0"&num
if int(num) > 0 then
if int(num) = 1 then
strcent = " centavo"
else
strcent = " centavos"
end if
str = centenas(num, num)&strcent
else
str = ""
end if
centavos = str
end function
function extenso(num)
dim sizenum, strsinal, inteiro, cents, aux_array, aux, bilhar, milhao, milhar, centena, dezena
dim strreal, strvirgula
dim strextenso
num = Replace(num, ".", "")
aux_array = split(num, ",")
if num = "" then
extenso = ""
exit function
end if
if UBound(aux_array) > 0 then
inteiro = aux_array(0)
cents = left(aux_array(1),2)
else
inteiro = aux_array(0)
cents = "00"
end if
if InStr(1, inteiro, "-") > 0 then
inteiro = right(inteiro, len(inteiro) - 1)
strsinal = "menos "
else
strsinal = ""
end if
sizenum = len(inteiro)
aux = string(12 - sizenum, "0")
inteiro = aux & inteiro
bilhar = mid(inteiro, 1, 3)
milhao = mid(inteiro, 4, 3)
milhar = mid(inteiro, 7, 3)
centena = mid(inteiro, 10, 3)
if int(inteiro) = 1 then
strreal = " real "
else
if int(inteiro) = 0 then
strreal = ""
else
strreal = " reais "
end if
end if
if int(cents) > 0 and int(inteiro) > 0 then
strvirgula = "e "
else
strvirgula = ""
end if
strextenso = bilhoes(bilhar, inteiro)
strextenso = strextenso & milhoes(milhao, inteiro)
strextenso = strextenso & milhares(milhar, inteiro)
strextenso = strextenso & centenas(centena, inteiro)
strextenso = strsinal & strextenso & strreal & strvirgula & centavos(cents)
extenso = strextenso
end function
'
sub cadatroAtualVtu(fmatri)
call Drop_table("Beneficios.cadastro_temp2")
'
strSql="CREATE TABLE Beneficios.cadastro_temp1"
strSql=strSql & " SELECT matricula AS m,cod_linha AS c,MAX(data_i) AS d"
strSql=strSql & " FROM Beneficios.vt_servidor"
strSql=strSql & " GROUP BY matricula,cod_linha;"
SqlNoQuery(strSql)
'
strSql="CREATE TABLE Beneficios.cadastro_temp2"
strSql=strSql & " SELECT vt_servidor.matricula,vt_servidor.cod_linha,nro_passes"
strSql=strSql & " FROM Beneficios.cadastro_temp1,Beneficios.vt_servidor"
strSql=strSql & " WHERE vt_servidor.data_i=cadastro_temp1.d"
strSql=strSql & " AND vt_servidor.cod_linha=cadastro_temp1.c"
strSql=strSql & " AND vt_servidor.matricula=cadastro_temp1.m"
if fmatri<>"%" then
strSql=strSql & " AND vt_servidor.matricula='"& fmatri &"';"
else
strSql=strSql & ";"
end if
'
SqlNoQuery(strSql)
'
call Drop_table("Beneficios.cadastro_temp1")
'
strSql="ALTER TABLE Beneficios.cadastro_temp2 ADD PRIMARY KEY(matricula,cod_linha);"
SqlNoQuery(strSql)
end sub
'
function RetornaValor(fcampo)
if request.form(fcampo)<>"" then
RetornaValor=request.form(fcampo)
else
if request.querystring(fcampo)<>"" then
RetornaValor=request.querystring(fcampo)
end if
end if
end function
'---Salário Básico|Penosidade|Tempo de serviço dos servidores Ativos
Sub Sal_folhaTodos()
'---última tabela criada.
call Drop_table("Srh.Servidor_temp2")
'
Qmes=month(date):if Qmes < 9 then Qmes="0"& Qmes
Qper=year(date)&Qmes
strSql="CREATE TABLE Srh.Servidor_temp1 SELECT matri,dt_adm,cargos.folha,penosidade,"
strSql=strSql & " format((period_diff('"&Qper&"',date_format(dt_adm,'%Y%m')))/12,0) AS tempo,nivel,ch"
strSql=strSql & " FROM Srh.contrato,GERAL.unidades,GERAL.cargos"
strSql=strSql & " WHERE contrato.servidor='1'"
strSql=strSql & " AND unidades.codigo=contrato.lotacao"
strSql=strSql & " AND cargos.id_cargo=contrato.cargo"
strSql=strSql & " ORDER BY matri;"
SqlNoQuery(strSql)
'
'---salário Básico
'
strSql="CREATE TABLE GERAL.sal_temp1"
strSql=strSql & " SELECT folha as f,MAX(data_a) as d"
strSql=strSql & " FROM GERAL.salarios"
strSql=strSql & " GROUP BY folha;"
SqlNoQuery(strSql)
'
strSql="CREATE TABLE GERAL.sal_temp2"
strSql=strSql & " SELECT folha AS f,sal_basico"
strSql=strSql & " FROM GERAL.salarios,GERAL.sal_temp1"
strSql=strSql & " WHERE salarios.data_a=sal_temp1.d"
strSql=strSql & " AND salarios.folha=sal_temp1.f"
'
SqlNoQuery(strSql)
'
strSql="CREATE TABLE Srh.Servidor_temp2 SELECT Servidor_temp1.*,sal_basico"
strSql=strSql & " FROM Srh.Servidor_temp1,GERAL.sal_temp2"
strSql=strSql & " WHERE Servidor_temp1.folha=sal_temp2.f ORDER BY matri"
SqlNoQuery(strSql)
'
call Drop_table("GERAL.sal_temp1")
'
call Drop_table("Srh.Servidor_temp1")
'
call Drop_table("GERAL.sal_temp2")
end sub
Dim Qsal
Sub Sal_folhaInd(fmatri)
Qmes=month(date):if Qmes < 10 then Qmes="0"& Qmes
Qper=year(date)&Qmes
strSql="SELECT cargos.id_cargo,penosidade,"
strSql=strSql & " format((period_diff('"&Qper&"',date_format(dt_adm,'%Y%m')))/12,0) AS tempo,nivel,cbo,letra.nome,ch"
strSql=strSql & " FROM Srh.contrato,GERAL.unidades,GERAL.cargos,GERAL.letra"
strSql=strSql & " WHERE contrato.servidor='1'"
strSql=strSql & " AND unidades.codigo=contrato.lotacao"
strSql=strSql & " AND cargos.id_cargo=contrato.cargo"
strSql=strSql & " AND letra.codigo=contrato.nivel"
strSql=strSql & " AND matri='"& fmatri & "';"
'
call MontaVetor(strSql,vetor,-1) '
'---salário Básico
strSql="SELECT sal_basico FROM GERAL.salarios"
strSql=strSql & " WHERE cargo='" & vetor(0,0)
strSql=strSql & "' ORDER BY data_a DESC limit 1 "
Qsal=RetornaDescricao(strSql)
end sub
'---Gráficos
function fFontColor(fcor)
Select Case fcor
case "#666666","#006600","#000000","#9966FF","#663399","#BB5454","#3DD33D","#0000FF","#FF0000","#00AA00"
fFontColor="#FFFFFF"
case "#FFFFFF"
fFontColor="red"
case "#FFFF99"
fFontColor="blue"
case "#CCCCCC"
fFontColor="#CCCCCC"
case else
fFontColor="#000000"
End Select
end function
sub legenda_graf()
Response.write("<br>")
Response.write("<Table class=estilo_3>")
Response.write("<tr><td bgcolor=white>S/Inf.</td>")
Response.write("<td bgcolor=#FFFF99>Férias</td>")
Response.write("<td bgcolor=#CCCC00>Atest</td>")
Response.write("<td bgcolor=#006600><font color=#FFFFFF>Ls/Gest</td>")
Response.write("<td bgcolor=#00CC00>Ls</td>")
Response.write("<td bgcolor=#663399><font color=#FFFFFF>Sat</td>")
Response.write("<td bgcolor=#009999>Lic.Div</td>")
Response.write("<td bgcolor=#00FF99>Faf-F</td>")
Response.write("<td bgcolor=#9966FF><font color=#FFFFFF>Faf-D</td>")
Response.write("<td bgcolor=black ><font color=#FFFFFF>Falta</td>")
Response.write("<td bgcolor=#666666 ><font color=#FFFFFF>M.D.S</td>")
Response.write("<td bgcolor=#999999 ><font color=#FFFFFF>S.Cont</td>")
Response.write("<td bgcolor=#FFCCCC>Trein.</td>")
Response.write("<td bgcolor=#33CCFF>Disp.</td>")
Response.write("<td bgcolor=#6699CC>Efetivo</td>")
Response.write("<td bgcolor=#996600><font color=#FFFFFF>ApInv</td>")
Response.write("<td bgcolor=#FF9933>Dem.</td>")
Response.write("<td bgcolor=#8B419>Folga Extra</td></tr>")
Response.write("<td bgcolor=#8B4513>Atest.Apos</td>")
Response.write("<td bgcolor=#778899>LS.Reativ.Jud</td>")
Response.write("<td bgcolor=#CD661D>SAT.Reativ.Jud</td>")
Response.write("<td bgcolor=#CD2626>SAT.Doença Reativ.Jud</td>")
Response.write("<td bgcolor=#BB5454><font color=#FFFFFF>SAT. 15 DIAS</font></td>")
Response.write("<td bgcolor=#3DD33D><font color=#FFFFFF>SAT. 30 DIAS</font></td>")
Response.write("<td bgcolor=#F4A460><font color=#FFFFFF>Faf-Trein.</td>")
Response.write("<td bgcolor=#0000FF><font color=#FFFFFF>Ativ. Sindical Curso</td>")
Response.write("<td bgcolor=#FF0000><font color=#FFFFFF>Ativ. Sindical Reunião Ordinária</td>")
Response.write("<td bgcolor=#00AA00><font color=#FFFFFF>Ativ. Sindical Reunião Extra</td></tr>")
end sub
'
sub legenda_grafFG()
Response.write("<Table>")
Response.write("<tr align=center><td ><font color=red>Legenda</td></tr>")
Response.write("<tr><td bgcolor=white>S/Inf.</td>")
Response.write("<td bgcolor=#FFFF99>Diretor</td>")
Response.write("<td bgcolor=#CCCC00>CC1-Dir.E</td>")
Response.write("<td bgcolor=#00CC00>CC2-A.Dir</td>")
Response.write("<td bgcolor=#009999>GF1-Coord.</td>")
Response.write("<td bgcolor=#00FF99>GF2-Ch.Núcleo</td>")
Response.write("<td bgcolor=black ><font color=#FFFFFF>GF3-Ch.Eq.</td>")
Response.write("<td bgcolor=#999999 ><font color=#FFFFFF>GF4-Ch.Set.</td>")
Response.write("<td bgcolor=#FFCCCC>GAS-1</td>")
Response.write("<td bgcolor=#33CCFF>GAS-2</td>")
Response.write("<td bgcolor=#6699CC>GAS-3</td></tr>")
end sub
'
function fcorFG(fcargo)
Select Case fcargo
case "83"'---Assessor C
fcorFG="#6699CC"
case "94","95","1010"'---Dir.Admin./Dir.Exec./Dir.Qual.Prof
fcorFG="#FFFF99"
case "74","1017"'---Chefe de Núcleo/Chefe do SesT
fcorFG="#00FF99"
case "86"'---Assist.de Direção
fcorFG="#00CC00"
case "93"'---Coordenador
fcorFG="#009999"
case "1011"'---Chefe de Equipe
fcorFG="black"
case "87","1016"'---Diretor de Estab./Dir. CSE
fcorFG="#CCCC00"
case "85"'---Assessor A
fcorFG="#FFCCCC"
case "73"'---Chefe de Setor
fcorFG="#999999"
case "84"'---Assessor B
fcorFG="#33CCFF"
case else
fcorFG="red"
End Select
end function
'
'---Efetividade
function perEfetiv(fano,fintervalo)
Dim Qano
Qano=fano
if mid(fintervalo,4,2)="12" then Qano=Qano+1
perEfetiv=left(Wintervalo,5) &"-"& fano & " à " & right(Wintervalo,5) & "-"& Qano
end function
'---Fim da Efetividade
'---Férias
Redim Wetapa(2),wdias(2),Wcancela(2),Wdata_i(2)
Dim Wperaquis,Wap,Was,Waut
Dim Wcod
sub codferias(fcod)
Wcod=split(fcod,"|")
Wetapa(0)=datacod(Wcod(0)):Wdias(0)=Wcod(1)
Wetapa(1)=datacod(Wcod(2)):Wdias(1)=Wcod(3)
Wetapa(2)=datacod(Wcod(4)):Wdias(2)=Wcod(5)
Waut=Wcod(6):Wap=Wcod(7):Was=Wcod(8)
Wperaquis=datacod(Wcod(9))
end sub
'
function dtcodigo(fdada)
dtcodigo=mid(fdada,1,2) & mid(fdada,4,2) & mid(fdada,7,4)
end function
'
dim WiniPer,wfimPer,WiniGozo,WfimGozo
sub periodos(fdia,fmes,fano)
WiniPer=confData(fdia & "-" & fmes & "-" & cstr(fano-1))
wfimPer=confData(dateadd("d",-1,cdate(fdia & "-" & fmes & "-" & fano)))
'
WiniGozo=confData(cdate(fdia & "-" & fmes & "-" & fano))
WfimGozo=confData(dateadd("d",-1,cdate(fdia & "-" & fmes & "-" & fano+1)))
end sub
'
function fdiasAutferias(ffaltas)
'---Número de Dias Autorizados
if ffaltas < 6 then fdiasAutferias=30
if ffaltas >=6 and ffaltas < 15 then fdiasAutferias=24
if ffaltas >=15 and ffaltas < 24 then fdiasAutferias=18
if ffaltas >=24 and ffaltas < 33 then fdiasAutferias=12
' 25/03/2015 - Henrique Cordeiro - Permite registro de férias
' para servidores com mais de 32 faltas no PA
'if ffaltas > 32 then msgAviso(6)
if ffaltas > 32 then fdiasAutferias=11
end function
'
'---Fim das Férias
'---Html
sub cabecalho_html()
response.write("<html>")
response.write("<head><title>"&session("frmname")&"</title></head>")
end sub
'
sub titulo_html()
response.write("<b class=estilo_3>"&session("titulo")&"<br><br>")
end sub
'
sub rodape_html
response.write("</form></body></html>
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.