<!--#include file="templates\templateLogin.asp"-->
<!--#include file="templates\templateFormulario.asp"-->
<%  On Error Resume Next
	dim acao, IDFolhaPonto, rsComboProjetos
	dim objFolhaPonto, objprograma, objFuncionario, objProjetoLst
	acao = request.querystring("ACAO")
	IDFolhaPonto = request.querystring("IDFolhaPonto")
	set objFolhaPonto = Server.CreateObject("ACME.ACMEFolhaPonto")
	objFolhaPonto.load(IDFolhaPonto)
	Set objFuncionario = Server.CreateObject("ACME.ACMEFuncionario")
	objFuncionario.loadA(Session("UserID"))
	if acao <> "" then
        objFolhaPonto.data = left(request.form("data"),20)
        objFolhaPonto.horas = left(request.form("horas"),20)
        objFolhaPonto.horasextras = Clng(request.form("horasextras"))
        objFolhaPonto.Update (cDbl(request.form("idprojeto")))
        if Err.number = 0 then
            if acao = "SALVARSAIR" then
               response.redirect("ACMEFolhaPontoLst.asp")
            else
               response.redirect("ACMEFolhaPontoAltera.asp?IDFolhaPonto=" & IDFolhaPonto)
            end if
        else
            Trataerro
        end if
    end if
    Set objProjetoLst = Server.CreateObject("ACME.ACMEProjetoLst")
    Set rsComboProjetos = objProjetoLst.getRecordSet  %>
<html>
<head>
<title>sistemas PROCEMPA</title>
<link rel="STYLESHEET" type="text/css" href="css/padrao.css">
<script language="JavaScript">
//Atualização da Toolbar
parent.toolbar.location.href = "ACMEToolbar.asp?PRG=PONTO&TP=ALT";
function salvar(sair) 
{   if (validar())
    {
    (sair)?acao='SALVARSAIR':acao='SALVAR'; 
    document.forminc.action='ACMEFolhaPontoAltera.asp?ACAO='+acao+
            '&IDFolhaPonto=<%=IDFolhaPonto%>';
    document.forminc.submit();
    }
}
function excluir()
{
    if (confirm("Confirma Exclusão dos Itens Selecionados?"))
       {   forminc.action='ACMEFolhaPontoExclui.asp?origem=LISTA&selecionado=<%=IDFolhaPonto%>';
           forminc.submit();
           return true;
       }
    else
       {
           return false;
       } 
}
function validar()
{
  if ((document.forminc.data.value == "") || 
       (document.forminc.horas.value == "") || 
	   (document.forminc.horasextras.value == ""))
  {
    alert("Data e hora(s) deve(m) ser preenchido(s)")  ;
    return false;
  }
  if (document.forminc.horas.value != "")
  {
     if (isNaN(document.forminc.horas.value))
     {
      alert("Horas devem ser numéricas");
      return false;
     }
   }
  if (document.forminc.horasextras.value != "")
  {
     if (isNaN(document.forminc.horasextras.value))
     {
      alert("Horas Extras devem ser numéricas");
      return false;
     }
   }
  if ((document.forminc.horas.value == "") && (document.forminc.horasextras.value == ""))
  {
    alert("Informe horas ou horas extras");
    return false;
  }
  return true;
}
function voltar()
{  document.location.href = 'ACMEFolhaPontoLst.asp';  }
function abreHelp()
{  alert('Implementar chamada ao Help no contexto!');  }
function abreEmail()
{  alert('Implementar envio de e-mail de acordo com o contexto');  }
</script>
</head>
<body class="corpo2">
<!----------------------------------------------------------------------------
               CRIA A BARRA DE IDENTIFICAÇÃO DA PÁGINA 
------------------------------------------------------------------------------>
<table width="100%" border="0px" cellpadding="5px" cellspacing="0">
<tr>
	<td width="5%" class="barraIdentificacao">&nbsp;</td>
	<td class="barraIdentificacao"> Funcionário / Ponto / Alteração</td>
</tr>
</table>
<form name="forminc" method="post" onsubmit="validar()">
<%	dim myForm
	set myForm = new Formulario
	myForm.addLabel "Nome", "Funcionário", objFuncionario.nome, 30
	myForm.addSeparador
	if err.number <> 0 then 
		myForm.addErroMsg(err.description)
	end if
	myForm.addEdit  "data", "Data:", objFolhaPonto.data, 20, 20
	myForm.addEdit  "horas", "Horas:", objFolhaPonto.horas, 20, 20
	myForm.addEdit  "horasextras", "Horas Extras:", objFolhaPonto.horasextras, 20, 20
	myForm.addCombo "idprojeto", "Projeto:", objFolhaPonto.IDProjeto, "", "nome", "IDProjeto", rsComboProjetos

	set acao  = nothing
	set objFolhaPonto = nothing
	set objprograma = nothing
	set objFuncionario = nothing
	set objProjetoLst = nothing
	set rsComboProjetos = nothing
	set myForm = nothing  %>
</form>  <BR><BR><BR><BR><BR><BR>  </body>  </html>
