<!----------------------------------------------------------------------------
		Obrigatório para uso do Guardião
------------------------------------------------------------------------------>
<!--#include file="templates\templateLogin.asp"-->

<!----------------------------------------------------------------------------
		Se for página de Lista e Pesquisa
------------------------------------------------------------------------------>
<!--#include file="templates\templateListaPesquisa.asp"-->

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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<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=LST";
//Rotina chamada ao pressionar o botão de Ajuda da página de título
function abreHelp()
{  }
//Exemplos de funções dos botões da toolbar
function incluir()
{   document.location.href = "ACMEFolhaPontoInclui.asp";  }
function excluir(){
	temMarcado = false;
    if (frm.selecionado) 
    {
        if (document.frm.selecionado.length) 
        {
           for (i=0; i<document.frm.selecionado.length;i++)
           {	
              if (document.frm.selecionado[i].checked)
                 temMarcado = true;
           }
         }
        else (document.frm.selecionado.checked?temMarcado = true:temMarcado = false)	
    }
    if (temMarcado)
    {   if (confirm("Confirma Exclusão dos Itens Selecionados?"))
       {   frm.action='ACMEFolhaPontoExclui.asp?origem=LISTA';
           frm.submit();
           return true;
       }
       return false;
    } 
    else
    { alert("Não existem ítens marcados para exclusão!");	
      return false;
    }
}
function editar(id){
   document.location.href='ACMEFolhaPontoAltera.asp?IDFolhaPonto=' + id;
   return true;
}
function voltar()
{   parent.corpo.location.href = 'ACMESplash.htm';  }
//Função de validação dos campos de pesquisa de uma página de Lista/Pesquisa
function validaCamposPesquisa()
{   return true;   }
//Função de validação dos campos de um formulário
function validaFormulario()
{  return true;   }	
</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 / Lista</td>
</tr>
</table>
<!---------------------------------------------------------------------------->

<form name="frm" method="post" action="ACMEFolhaPontoLst.asp">
<% 
'****************************************************************************************
' Aqui vai o seu código VBScript para montagem do formulário ou lista de seleção
'****************************************************************************************
	'On Error Resume Next
	dim objFolhaPontoLst, objFolha, objFuncionario, objProjetoLst, rsComboProjetos, myForm, myLista
	Set objFuncionario = Server.CreateObject("ACME.ACMEFuncionario")
	objFuncionario.loadA(Session("UserID"))
	
	set objFolha = Server.CreateObject("ACME.ACMEFolha")
	objFolha.LoadA
	
	Set objFolhaPontoLst = objFuncionario.GetFolhaPontoLst((objFolha.mes), (objFolha.ano))
	Set objProjetoLst = Server.CreateObject("ACME.ACMEProjetoLst")
	Set rsComboProjetos = objProjetoLst.getRecordSet
	
	set myForm = new Formulario
	if err.number <> 0 then 
		myForm.addErroMsg(err.description)
	end if

	myForm.addLabel "Nome", "Funcionário", objFuncionario.nome, 30
	myForm.addSeparador

	Set myLista = new ListaPesquisa	
	myLista.Inicializa objFolhaPontoLst, "IDFolhaPonto", true
	myLista.addColuna "data", "Data", "20%"
	myLista.addColuna "horas", "Qtde.Horas", "15%"
	myLista.addColuna "horasextras", "Qtde.Hs.Extras", "15%"
	myLista.addColuna "nome", "Projeto", "50%"
	myLista.ConfiguraGrid true, false
	myLista.addEdit "data", "Data", 30, "data", loEqual
	myLista.addCombo "projeto", "Projeto", "nome", "IDProjeto", rsComboProjetos, "TACMEFolhaPonto.IDProjeto", loEqual, "", true
	myLista.monta	 

	
	
'****************************************************************************************
' Lembre-se de liberar quaisquer recursos alocados
'****************************************************************************************
	Set objWideFlow=nothing
	Set objLista=nothing
	Set objProcess=nothing
	Set lista=nothing
	Set myForm=nothing
	Set myGrupo=nothing

%>
</form>
<br><br><br><br><br><br>
</body>
</html>
