<!----------------------------------------------------------------------------
		Procedimentos de segurança de acesso
------------------------------------------------------------------------------>
<!--#include file="templates\templateLogin.asp"-->

<!----------------------------------------------------------------------------
		Se for página de Consulta/Inclusão/Alteração
------------------------------------------------------------------------------>
<!--#include file="templates\templateFormulario.asp"-->


<%
	'On Error Resume Next

	dim acao, objFolhaPonto, objprograma, objFuncionario, objProjetoLst, rsComboProjetos

	acao = request.querystring("ACAO")
	set objFolhaPonto = Server.CreateObject("ACME.ACMEFolhaPonto")
	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.Insert cDbl(request.form("idprojeto")), cDbl(objFuncionario.IDFuncionario)
		if Err.number = 0 then
			if acao = "SALVARSAIR" then
				response.redirect("ACMEFolhaPontoLst.asp")
			else
				response.redirect("ACMEFolhaPontoInclui.asp")
			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=INC";


function salvar(sair) 
{	if (validar())
	{
	(sair)?acao='SALVARSAIR':acao='SALVAR'; 
	document.forminc.action='ACMEFolhaPontoInclui.asp?ACAO='+acao;
	document.forminc.submit();
	}
}
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('Help!');
}
function abreEmail()
{	alert('E-Mail!');
}
</script>
</head>
<body class="corpo">
<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:", "", 20, 20
	myForm.addEdit  "horas", "Horas:", "", 20, 20
	myForm.addEdit  "horasextras", "Horas Extras:", "", 20, 20
	myForm.addCombo "idprojeto", "Projeto:", "", "", "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>
