
Clauido José
Membros-
Total de itens
457 -
Registro em
-
Última visita
Tudo que Clauido José postou
-
(Resolvido) Campo Maiusculo
pergunta respondeu ao Clauido José de Clauido José em Ajax, JavaScript, XML, DOM
resolvido value -
Ola como posso implementar uma função no meu sistema para que um campo preencha somente maiusculo e outro minusculo
-
resolvi essa ficou assim
-
Torneio de Programação em Javascript - Primeira Fase
tópico respondeu ao Jonathan Queiroz de Clauido José em Novidades e Anúncios Script Brasil
parabens pra quem foi vencedor pra todos -
Pessoal é seguinte tenho que implementar num sistema que desenvolvi em asp aqui na empresa um contador de horas. Bom é seguinte quando o usuario entrar numa ordem de serviço ele começa a contar a hora e depois de 3 horas ele tem que marcar uma linha amarela e depois de 4 horas uma linha vermelha isso quer diser que o serviço já é sobra não tem mais lucro alguém pode me ajudar a fazer isso não tenho nem ideia.
-
value obrigado resolvi
-
no globa.asa?
-
Ola pessoal como posso aumentar a vida de uma session valeu
-
eu faço diferente eu coloco o nivel do usario ou pode ser o setor e quando eu logo no sistema eu crio uma session e por ela eu verifcio qual as permissões que ele pode ou não visualizar no sistema mas ou menos isso que você quer né , se tiver duvida eu ajudo ok.
-
ok vou ver
-
cara eu tentei usar session a data até funcionu mas na hora não estou fazendo assim: if session("HoraI")="" then session("HoraI")=time() elseif session("HoraI")<>"" then sHoraI=rsBaixaOs("HoraInicio") if session("HoraI")<>"" then if trim(sHoraI)="" then session("HoraI")=time() else session("HoraI")=rsBaixaOs("HoraTermino") end if end if end if detalhe eu tenho que verificar se o valor do banco hora esta vaisia se estiver ele tem que preencher a hora do sistema e não pode alterar de geito nenhum se tiver preechido tem que puchar o valor do banco.
-
Pessoal gostari de colocar num sistema que fiz uma data e hora estatica quando entrar na pagina ele coloca a hora mas não muda como se fosse uma hora de inicio e outra com hora de fim mas não pode ser atualizada quando der um refresh na tela tem como fazer isso?
-
olha se já deu uma olhada no value da combo da categoria se ele ta trazendo todo é porque em algum lugar você ta trazendo isso como o que você colocou no value da comob?
-
sera que não falta asp simples no final SELECT * FROM fotos WHERE nome LIKE '%corrida mortal%' and idcat= 'todos'
-
da um response na sql pra debugar e posta aqui
-
Ola pessoal é seguinte tenho um sistema que eu fiz pra empresa que tem que importar um arquivo exccell para access bom isso já ta fazendo certinho com um exemplo que pegui aqui do forum. Minha duvida é seguinte são varios tipos de arquivos xls com cabelarios diferentes eu chamo esse arquivos com file field do html uso dundas 2.0 para fazer upload correto, quero saber o seguinte como fazer com que o file field abra na pasta exata que estão os arquivos e para abrir somente os arquivos com extensão xls essa é uma duvida. A outra por exemplo se o usuario escolher por exemplo importa diaria e na hora ele sem querer escolhe um arquivo xls que não é o importa diaria ele vai me dar problema porque são cabeçalhos diferentes, como posso resolver isso. Tipo na hora que escolher errado o arquivo xls o sisteam tem que informar isso. Quem pode me ajudar?
-
vou tentar ok.
-
Tudo bem Rafa eu resolvi este tópico vou postar com calma os meus tópico ok. Obrigado. Estava meio confuso mas resolvi.
-
pessoal resolvi esse aqui não era nada era o arquivo xls que tava com algum problema criei um novo arquivo e colei e copiei o dados do arquivo antigo e coloquei outro nome funcionou valeu cancela ai esse tópico
-
tenta fazer assim ó: If busca = "palavraexata" Then sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' and idcat= " & request.form("filtro") & "" end if if busca = "qualquerpalavra" then sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%' and idcat= " & request.form("filtro") & "" end if if filtro = "todos" then sql = "SELECT * FROM fotos WHERE nome LIKE '%" & RemoveAcentuacao(pesq) & "%'" end if response.write(sql) response.end() poste o resultado.
-
rafa ve se da pra você me ajudar não entendi muito bem mas estou fazendo assim ta dando erro "Erro de sintaxe na expressão de consulta" bom to fazendo assim ve se você entende o que eu quero valeu. <!--#include file="strCon.asp"--> <% dim strSql,Conexao call abreConexao() campos = "tabDth.idStatus,tabDth.idEmpresa,tabDth.DatCompromisso,Count(tabDth.idStatus) AS ContarAb" campos = "tabDth.idStatus,tabDth.idEmpresa,tabDth.DatCompromisso,Count(tabDth.idStatus) AS ContarCa" sSql = "SELECT " & campos & " FROM tabDth GROUP BY tabDth.idStatus, tabDth.idEmpresa, tabDth.DatCompromisso " sSql = sSql & "HAVING tabDth.DatCompromisso=#" & strData & "# AND tabDth.idStatus=1 any (" sSql = sSql & "SELECT " & campos & " FROM tabDth GROUP BY tabDth.idStatus, tabDth.idEmpresa, tabDth.DatCompromisso " sSql = sSql & "HAVING tabDth.DatCompromisso=#" & strData & "# AND tabDth.idStatus=2)" rsBusca.Open sSql,Conexao,3,3 response.Write(rsBusca("ContarAb") & "<br>" & rsBusca("ContarCa")) %>
-
usei o formatnumer funcionou tb value
-
Pessoal não sei o que ta contecendo na minha maquina bom é seguinte tenho um sistema e ta perfeito mas tem uma pagina que não ta abriando, esta pagina eu importo um arquivo xls para o access bom tenho outro tipos de arquivos que importo em outras paginas e funciona esta nem colocando um response.write("teste") response.end() no inicio da pagina funciona ela me da uma mensagem vou postar ok Eu uso o iframe para chamar esse tela sera que ele ?
-
pessoal tb to precisando desse compilador obrigado se poder me enviar agradeço desde já clajmcardoso@hotmail.com
-
(Resolvido) gravando vários registros de uma vez
pergunta respondeu ao Ricardo Saraiva de Clauido José em ASP
cara eu faço diferente da uma olhada bem mais simples <script language="javascript" src="jsp/ajax.js"></script> <script> function voltar(sData,idEmpresa,idTecnico){ if (window.confirm("Deseja sair baixa de os")){ url="objservicoempresatecnicosos.asp?sData="+sData+"&idEmpresa="+idEmpresa+"&idTecnico="+idTecnico; document.frmBaixaOs.action=url document.frmBaixaOs.method="post" document.frmBaixaOs.submit() } } function mostraEsconde(id){ document.getElementById("Sub1").style.display="none" document.getElementById("Sub2").style.display="none" document.getElementById("Sub3").style.display="none" document.getElementById("Sub4").style.display="none" if(document.getElementById(id).style.display=="block") { document.getElementById(id).style.display="none" } else { document.getElementById(id).style.display="block" } } function tabentra(qual,cor) { if (!qual.contains(event.fromElement)) { qual.style.cursor = 'hand'; qual.className = cor; } } function mostraAss(iQtdeVetor){ var s = 0 for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck += frmObjRotas.chkItem[ i ].value + ", " s=s +1 } } if (s<1){ alert("Nenhum item selecionado"); return false }else if (s>1){ alert("Mais de um item selecionado"); return false }else { var ck=new Array(); var ck2 var s = 0 for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck += frmObjRotas.chkItem[ i ].value + ", " } } url = "objrotageralassinatura.asp?NoOs="+ck; document.frmObjRotas.action=url document.frmObjRotas.method="post" document.frmObjRotas.submit(); } } function tabsai(qual,cor) { if (!qual.contains(event.toElement)) { qual.style.cursor = 'default'; qual.className = cor; } } function fechar() { if (window.confirm("Deseja sair da rota?")) { document.location="pesquisarota.asp"; } } function mostraDiv(sOpt,id,iQtdeVetor){ if ((sOpt==1) || (sOpt==2) || (sOpt==3)){ if (sOpt==1) { var validar= validachk(iQtdeVetor) document.frmObjRotas.hiMenu.value=sOpt }else if (sOpt==2){ var validar= validachkre(iQtdeVetor) document.frmObjRotas.hiMenu.value=sOpt } }else{ var validar= true } if ( validar ) { if(document.getElementById(id).style.display=="block") { document.getElementById(id).style.display="none" } else { document.getElementById(id).style.display="block" } } } function fechaDiv(id) { if(document.getElementById(id).style.display=="block") { document.getElementById(id).style.display="none" } else { document.getElementById(id).style.display="block" } document.getElementById("seobjEmpresas").valeu="" document.getElementById("seObjTecnicos").valeu="" } //-->função para validar se o usuario seleiconou um item para reatribuição de tecnios function validachkre(iQtdeVetor){ var bmarcado = false; var atribuido= false; var ck var s = 0 for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ bmarcado = true; if (document.frmObjRotas.Atribuido[ i ].value!="RA"){ atribuido = true; } s = s + 1 } } if (s<1) { alert("Nennhum item selecionado"); return false }else{ if ( atribuido ) { alert("Não foram feitas atribuidões para os items selecionados"); return false }else{ return true } } } //-->Função para validar se o usuario selecionou algum item function validachk(iQtdeVetor) { //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frmObjRotas.chkItem.length == undefined){ if (!document.frm.chkItem.checked){ alert('Selecione pelo menos um item!'); document.frmObjRotas.chkItem.focus(); return false; } }else{ var bmarcado = false; var atribuido= false; var ck for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ bmarcado = true; if (document.frmObjRotas.Atribuido[ i ].value=="RA"){ atribuido = true; } } } //Controles É ARRAY deve ser tratado com o indíce if (!bmarcado){ alert('Selecione pelo menos um item!'); return false; } if ( atribuido ){ alert('Algum item já foi atribuido!') for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ document.frmObjRotas.chkItem[ i ].checked=false } } return false; } } return true } //-->Traz dados da combo da empresa de atribuição function trazdados2(){ var arr = new String(frmObjRotas.seobjEmpresas.value); arr = arr.split('|'); frmObjRotas.codobjEmpresa.value = arr[0]; var objTecnico = createXMLHTTP(); objTecnico.open("post", "objTecnicos.asp", true); objTecnico.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); objTecnico.onreadystatechange=function(){ if (objTecnico.readyState==4){ document.all.divtecnico2.innerHTML = objTecnico.responseText;}} objTecnico.send("idEmpresa=" + frmObjRotas.codobjEmpresa.value + "&sOpcao=1") } //-->Função para trazer dados da combo de atribuição function trazdadosTecnicos2(){ var arr = new String(frmObjRotas.seObjTecnicos.value); arr = arr.split('|'); frmObjRotas.codObjTecnico.value = arr[0]; } //-->Função que chama o programa para gravar dados da atribuição function gravar(sOpt,iQtdeVetor,sData) { if (sOpt==1){ var validou = validaAt() }else{ var validou = validaRe() } if (validou){ var ck=new Array(); var ck2 var s = 0 for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck += frmObjRotas.chkItem[ i ].value + ", " } } var idEmpresa=document.frmObjRotas.codobjEmpresa.value; var idTecnico=document.frmObjRotas.codObjTecnico.value; var sOpcao=document.frmObjRotas.hiMenu.value; url = "objrotageral.asp?atc=ok&sData="+sData+"&idEmpresa="+idEmpresa+"&idTecnico="+idTecnico+"&sOpcao="+sOpcao+"&sNoOs="+ck; document.frmObjRotas.action=url document.frmObjRotas.method="post" document.frmObjRotas.submit(); } } //-->Valida dados da atribuição function validaAt(){ if(document.frmObjRotas.seobjEmpresas.selectedIndex==0) { alert("Selecione uma empresa"); document.frmObjRotas.seobjEmpresas.focus(); return false; } return true } </script> <link href="css/rotageral.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- body { margin-left: 3px; margin-top: 3px; margin-right: 3px; margin-bottom: 3px; } #Atribui{ position:absolute; width:600px; background:#F2F2F2; border:solid 3px #4B4B4B; padding:5px; -moz-opacity: 0.7; opacity: 0.7; height:109px; left: 31px; top: 370px; } #Total{ position:absolute; width:481px; background:#F2F2F2; border:solid 3px #4B4B4B; padding:5px; -moz-opacity: 0.7; opacity: 0.7; height: 250px; left: 113px; top: 86px; } #ReAtribui{ position:absolute; left:401px; top:268px; width:612px; margin: 100px 0 0 -380px; background:#F2F2F2; border:solid 3px #4B4B4B; padding:5px; height: 97px; } #DadosAssi{ position:absolute; left:486px; top:8px; width:475px; margin: 100px 0 0 -380px; background:#F2F2F2; border:solid 3px #4B4B4B; padding:5px; height: 260px; } #Assinatura{ position:absolute; left:375px; top:1px; width:650; margin: 100px 0 0 -380px; background:#F2F2F2; border:solid 3px #4B4B4B; padding:5px; height: 297px; } .fora { background:#81A5C9; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; FONT: bolder 10px Tahoma; cursor: default } .dentro { background: #CBE0F3; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; FONT: bolder 10px Tahoma; cursor: hand; } .Tr { background:#5082B4; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; FONT: bolder 10px Tahoma; } .sub1{ position:absolute; left:-352px; top:30px; width:600; color:#333; background:#F2F2F2; border:solid 2px #4B4B4B; } .sub2{ position:absolute; left:66px; top:106px; width:605px; height: 283px; color:#333; background:#F2F2F2; border:solid 2px #4B4B4B; } .sub3{ position:absolute; left:811px; top:361px; width:676px; color:#333; background:#F2F2F2; border:solid 2px #4B4B4B; height: 248px; overflow: visible; } .sub4{ position:absolute; left:56px; top:360px; width:610px; color:#333; background:#F2F2F2; border:solid 2px #4B4B4B; } --> </style> <%if session("idUsuario")="" then%> <!--#include file="logar.asp"--> <%else%> <!--#include file="strCon.asp"--> <% call abreConexao() sOpcao = Request("sOpcao") data = Request("sData") sStatus = Request("sStatus") idServico = Request("idServico") idEmpresa = Request("idEmpresa") idTecnico = Request("idTecnico") sOrdena = request("sOrdena") dia = datepart ("d", data) mes = datepart ("m", dada) dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) if Request("atc")="ok"then sNoOs=Request("sNoOs") vItensMarcado = split(sNoOs,",") 'Response.Write("teste"&sNoOs) 'response.End() if not IsArray(vItensMarcado) then vItensMarcado = array(vItensMarcado) end if for i = 0 to ubound(vItensMarcado) if vItensMarcado(i) <> "" then strSql = "Select * from tabDTH where DatCompromisso = #" & formataData(strData) & "# " strSql = strSql & " and NoOs = " & vItensMarcado(i) 'Response.Write(strsql) 'response.End() if rsRota.state=1 then rsRota.Close rsRota.Open strSql,Conexao,3,3 'Response.Write(rsRota.RecordCount) if rsRota.RecordCount>0 then if sOpcao=1 then if idEmpresa = "" then idEmpresa = 0 end if if idTecnico = "" then idTecnico = 0 end if if idEmpresa <> "" or idTecnico = "" then atribuido="RE" end if if idEmrpesa <> "" or idTecnico <> "" then atribuido="RA" end if strSql = "Update tabDth Set " strSql = strSql & "atribuido='" & atribuido & "'," strSql = StrSql & "idEmpresa=" & cint(idEmpresa) & "," strsql = strSql & "idTecnico=" & cint(idTecnico) & "," strsql = strsQL & "idUsuario=" & session("idUsuario") & " " strSql = strSql & "where idDth=" & rsRota("idDth") else strSql = "Update tabDth Set " strSql = StrSql & "alteradoEmpresa='" & cint(idEmpresa) & "'," strsql = strSql & "alteradoTecnico='" & cint(idTecnico) & "'," strsql = strsQL & "idUsuario=" & session("idUsuario") & " " strSql = strSql & "where idDth=" & rsRota("idDth") end if Conexao.Execute(StrSql) end if end if next idEmpresa = "" idTecnico = "" op = 1 result="Rota Atribuida com sucesso" end if campo = "tabDth.NoOs,tabDth.DatCompromisso,tabTipoOs.Descricao,tabDth.Periodo,tabStatus.Codigo as sStatus,tabDth.baixado,tabCliente.Endereco,tabCliente.Bairro,tabDth.Atribuido,tabDth.idStatus," campo = campo & "tabCliente.Cep,tabCidades.Cidade,tabEstados.Estado,tabCliente.TipoResidencia,tabServico.Codigo,tabDth.IdEmpresa,tabDth.idTecnico" strSql = "SELECT " & campo & " FROM (tabStatus INNER JOIN (tabEstados INNER JOIN ((tabCidades INNER JOIN tabCliente ON tabCidades.idCidade = tabCliente.idCidade) INNER JOIN (tabDth INNER JOIN tabTipoOs ON tabDth.idTipoOs = tabTipoOs.idTipoOs) ON tabCliente.idCliente = tabDth.idCliente) ON tabEstados.idEstado = tabCidades.idEstado) ON tabStatus.idStatus = tabDth.idStatus) INNER JOIN tabServico ON tabDth.idServico = tabServico.idServico " strSql = strSql & "WHERE tabDth.DatCompromisso=#" & formataData(strData) & "#" if sStatus <> "" Then strSql = strSql & " and tabDth.idStatus = " & sStatus else strSql = strSql & " and tabStatus.Codigo='AB'" end if if idServico <> "" and idServico<>"undefined" then strSql = strSql & " and tabDth.idServico = " & idServico end if if session("idEmpresa")="" or session("idEmpresa")=0 then if idEmpresa <> "" then strSql = strSql & " and tabDth.idEmpresa = " & idEmpresa end if end if if idTecnico <> "" and idTecnico<>"undefined" then strSql = strSql & " and tabDth.idTecnico = " & idTecnico end if if trim(sOrdena)<>"" then if trim(sOrdena)=1 then strSql = strSql & " order by tabDth.Periodo" end if if trim(sOrdena)=2 then strSql = strSql & " order by tabDth.datComprimisso" end if if trim(sOrdena)=3 then strSql = strSql & " order by tabDth.Cep" end if if trim(sOrdena)=1 then strSql = strSql & " order by tabDth.NoOs" end if else strSql = strSql & " order by tabDth.idEmpresa" end if if rsRota.state = 1 then rsRota.Close rsRota.Open strSql, Conexao, 3, 3 status = "Pool" rs = rsRota.RecordCount if op = 1 then result = "" %> <div id="conteudo"> <% if rsRota.RecordCount = 0 then %> <script> alert('Não hove resultado com a busca informada'); document.location.href="pesquisarota.asp"; </script> <% else %> <form name="frmObjRotas" id="frmObjRotas" method="post" action=""> <table width="730" border="0" align="center" cellpadding="2" cellspacing="2" class="Tabela"> <tr> <td><table width="730" border="0" align="center" cellpadding="2" cellspacing="2" class="Tabela"> <tr> <td colspan="4"><span class="SubTitulo">Ola <%=Session("Usuario")%> você está em <strong>Sistema Integrado DTH 25 » Resultado </strong> <strong>»</strong> Pesquisar <strong>» Rotas » Pool </strong></span></td> </tr> <tr> <td height="10" colspan="4"></td> </tr> <tr> <td colspan="4"><table width="700" border="0" cellspacing="2" cellpadding="2"> <tr> <td bgcolor="#B3C1FF" width="55" align="left" class="SubTitulo">No. Os</td> <td bgcolor="#B3C1FF" width="55" align="left" class="SubTitulo">Serviço</td> <td bgcolor="#B3C1FF" width="70" align="left" class="SubTitulo">Tipo Os </td> <td bgcolor="#B3C1FF" width="70" align="left" class="SubTitulo">Periodo</td> <td bgcolor="#B3C1FF" width="39" align="left" class="SubTitulo">Status</td> <td bgcolor="#B3C1FF" width="200" align="left" class="SubTitulo">Endereco</td> <td bgcolor="#B3C1FF" width="80" align="left" class="SubTitulo">Cep</td> <td bgcolor="#B3C1FF" width="90" align="left" class="SubTitulo">Residencia</td> <td bgcolor="#B3C1FF" width="28" align="left" class="SubTitulo"></td> <td bgcolor="#B3C1FF" width="28" align="left" class="SubTitulo"></td> <td bgcolor="#B3C1FF" width="28" align="left" class="SubTitulo"></td> </tr> </table></td> </tr> <tr> <td colspan="4"><div style="width:720;height:275px;overflow:auto;"> <table width="700" border="0" align="center" cellpadding="2" cellspacing="2" class="TrPes"> <% dim i i =0 vVetor = 0 while Not rsRota.EOF sData=rsRota("datCompromisso") if rsRota("idstatus")=1 or rsRota("idStatus")=10 then if Bg="#0033FF" then Bg="#B3C1FF" else Bg="#0033FF" end if if rsRota("baixado")=1 then Bg="#66CCCC" %> <tr bgcolor="<%=Bg%>" > <td width="55" class="SubTitulo" style="cursor:hand" onclick="chamaAssinantes('<%=rsRota("NoOs")%>')"><%=rsRota("NoOs")%></td> <td width="55" align="left" class="SubTitulo" ><%=rsRota("CODIGO")%></td> <td width="70" align="left" bgcolor="<%=Bg%>" class="SubTitulo" ><%=rsRota("Descricao")%></td> <td width="70" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="39" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("sStatus")%></td> <td width="200" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Endereco")%></td> <td width="80" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("CEP")%></td> <td width="90" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("TipoResidencia")%></td> <td width="28" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idEmpresa")%></td> <td width="28" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idTecnico")%></td> <td width="28" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><input name="chkItem" type="checkbox" id="chkItem" value="<%=rsRota("NoOs")%>" /> <input name="Atribuido" type="hidden" value="<%=rsRota("Atribuido")%>" /></td> </tr> <% end if rsRota.MoveNext wEnd %> </table> </div></td> </tr> </table></td> </tr> <tr> <td width="100%" align="center"><div id="Atribui"> <table width="38%" border="0" cellpadding="3" cellspacing="3" class="TrPes"> <tr> <td height="15"><span class="SubTitulo">Empresa:</span></td> <td width="26%" height="15"><select name="seobjEmpresas" class="campo" id="seobjEmpresas" style="width:120px" onchange="trazdados2();"> <option value="0">Selecione</option> <% if session("idEmpresa")=0 then strSql = "Select * from tabEmpresa" else strSql = "Select * from tabEmpresa where Empresa="&session("idEmpresa") idEmpresa =Session("idEmpresa") end if set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="<%=rsEmpresa("Empresa")%>"><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if rsEmpresa.Close %> </select></td> <td width="15%" height="15"></td> <td height="15" colspan="5"><div class="Titulo" id="divAtribuiok" style="height:15px"></div></td> </tr> <tr> <td width="13%" class="SubTitulo">Tecnico:</td> <td colspan="5"><div id="divtecnico2" style="height:15px"> <select name="seObjTecnicos" class="campo" id="seTecnico2" style="width:350px" onchange="trazdadosTecnicos2();"> <option value="0">Selecione uma empresa</option> </select> </div></td> </tr> <%if session("Nivel")<>4 then%> <tr> <td class="SubTitulo"> </td> <td><input name="codObjTecnico" type="hidden" id="codObjTecnico" value="<%=idTecnico%>" /> <input name="codobjEmpresa" type="hidden" id="codobjEmpresa" value="<%=idEmpresa%>" /></td> <td><input name="butGravar" type="button" id="butGravar" value="Gravar" onclick="gravar('1','<%=rs%>','<%=sData%>')" /></td> <td width="9%"><input name="butCancelar2" type="button" id="butCancelar2" value="TOTAL" onclick="mostraDiv('4','Total','<%=rs%>')" /></td> <td width="31%"><input name="butCancelar" type="button" id="butCancelar" value="Sair" onclick="fechaDiv('Atribui')" /></td> <td width="6%"> </td> </tr> <%end if%> </table> </div></td> </tr> <tr> <td><div id="Total" style="display:none"> <table width="100%" border="0" cellpadding="3" cellspacing="3" class="TrPes"> <tr> <td colspan="3" align="center" class="SubTitulo">TOTAL GERAL ATRIBUIDO </td> <td width="13%" align="center" class="SubTitulo"><a href="#" onclick="fechaDiv('Total')">FHECAR</a></td> </tr> <tr> <td width="20%" class="SubTitulo">COMPROMISSO</td> <td width="20%" class="SubTitulo">TOTAL</td> <td colspan="2" class="SubTitulo">EMPRESA</td> </tr> <tr> <td colspan="4"><div style="height:250px;overflow:auto"> <table width="100%" border="0" cellpadding="3" cellspacing="3" class="Texto"> <% campo = "tabDth.DatCompromisso,Count(tabEmpresa.Empresa) AS ContarEmpresa,tabEmpresa.Responsavel" sql="SELECT " & campo & " FROM tabEmpresa INNER JOIN (tabStatus INNER JOIN (tabDth INNER JOIN tabServico ON tabDth.idServico = tabServico.idServico) ON tabStatus.idStatus = tabDth.idStatus) ON tabEmpresa.Empresa = tabDth.idEmpresa " sql=sql&"GROUP BY tabDth.DatCompromisso, tabEmpresa.Responsavel " sql=sql&"HAVING tabDth.DatCompromisso=#" & formataData(strData) & "#" if rsBusca.state=1 then rsBusca.Close rsBusca.Open Sql,Conexao,3,3 if rsBusca.RecordCount>0 then while not rsBusca.Eof %> <tr> <td width="20%" class="SubTitulo"><%=rsBusca("DatCompromisso")%></td> <td width="20%" class="SubTitulo"><%=rsBusca("ContarEmpresa")%></td> <td width="60%" class="SubTitulo"><%=rsBusca("Responsavel")%></td> </tr> <% rsBusca.MoveNext wEnd end if rsBusca.close %> </table> </div></td> </tr> </table></div></td> </tr> <tr> <td width="100%" height="120" align="right" valign="top"><table width="13%" border="0" cellpadding="2" cellspacing="2" class="TrPes"> <tr> <td width="14%"><img src="imagem/icon_seta.gif" width="6" height="11" /></td> <td width="86%" class="SubTitulo"><a href="#" onclick="mostraDiv('1','Atribui','<%=rs%>');">Atribui</a></td> </tr> <tr> <td><img src="imagem/icon_seta.gif" width="6" height="11" /></td> <td class="SubTitulo"><a href="#" class="SubTitulo" onclick="mostraDiv('2','Atribui',<%=rs%>)">Reatribui</a></td> </tr> <tr> <td><img src="imagem/icon_seta.gif" width="6" height="11" /></td> <td class="SubTitulo"><a href="#" class="SubTitulo" onclick="mostraAss(<%=rs%>)">Assinatura</a></td> </tr> <tr> <td><img src="imagem/icon_seta.gif" width="6" height="11" /></td> <td class="SubTitulo"><a href="#" onclick="fechar()">Fechar</a></td> </tr> <tr> <td> </td> <td class="SubTitulo"><input name="hiMenu" type="hidden" id="hiMenu" value="1" /></td> </tr> </table></td> </tr> </table> </form> </div> <% end if end if %>