Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) gravando vários registros de uma vez

Ricardo Saraiva

Perguntado por Ricardo Saraiva,

 Share

Pergunta

10 respostass a esta questão

Posts Recomendados

  • 0
jow

jow

Postado
Postado

você tem uma lista e você quer marcar o q você deve alterar é isso ??

olha este exemplo

<form method="POST">
<%
SQL="SELECT * FROM table"
Set rs = cnn.execute (SQL)
response.write "<table>"

while not rs.eof

response.write "<tr>"
response.write "<td>" & rs("nome") & "</td>"
response.write "<td><input type='checkbox' name = "chk" value="<%=rs("id")%>"></td>"
response.write "</tr>"

wend
rs.movenext

response.write "</table>"
%>
</form>

Agora é só capturar o chk e mostrar os dados em um formulário, no formulário você passa o id em um campo oculto, depois você manda atualizar qd o id for igual ao valor do campo oculto

Link para o comentário
Compartilhar em outros sites
  • 0
Ricardo Saraiva

Ricardo Saraiva

Postado
  • Autor
Postado

até este ponto beleza... eu quero saber como recupero, em asp, só os marcados... e os associo ao id para fazer o update

fiz um for i = 1 to request.querystring("ckb").count

mas não tá funcionando direito... só quando marco todos da lista

fico no aguardo se puder me dar mais alguma dica

obrigado

você tem uma lista e você quer marcar o q você deve alterar é isso ??

olha este exemplo

<form method="POST">
<%
SQL="SELECT * FROM table"
Set rs = cnn.execute (SQL)
response.write "<table>"

while not rs.eof

response.write "<tr>"
response.write "<td>" & rs("nome") & "</td>"
response.write "<td><input type='checkbox' name = "chk" value="<%=rs("id")%>"></td>"
response.write "</tr>"

wend
rs.movenext

response.write "</table>"
%>
</form>

Agora é só capturar o chk e mostrar os dados em um formulário, no formulário você passa o id em um campo oculto, depois você manda atualizar qd o id for igual ao valor do campo oculto

Link para o comentário
Compartilhar em outros sites
  • 0
Ricardo Saraiva

Ricardo Saraiva

Postado
  • Autor
Postado

entendi... mas o campo q eu tenho é um input type="text" que é um campo de quantidade... é este que eu quero atualizar...

mas acho q sua idéia é boa tb... pego o valor deste campo e jogo num hidden, junto com o id e depois quebro...

da um response.write com o valor que ta vindo do checkbox você se não me engano você vai ter que quebrolo criando um array com split ok?

Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
Postado

cara tenta fazer o mesmo da response no valor da text e ve como ele ta te retornando e faz a mesma coisa tive que fazer isso tb mas a diferença que eu atualizava uma combo era um valor unico para os outros entendeu se quizer posto um exemplo aqui ok

Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
Postado

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&ecirc; est&aacute; em <strong>Sistema Integrado DTH 25 &raquo; Resultado </strong> <strong>&raquo;</strong> Pesquisar <strong>&raquo; Rotas &raquo; 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&ccedil;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">&nbsp;</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%">&nbsp;</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>&nbsp;</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
%>

Link para o comentário
Compartilhar em outros sites
  • 0
Ricardo Saraiva

Ricardo Saraiva

Postado
  • Autor
Postado

fala brother... entendi, você concatena os valores via javascript e depois pega com o request e faz o split né?

vou tentar seguir por essa mesma linha de raciocínio então...

muito obrigado, depois te falo se rolou

abs

cara eu faço diferente da uma olhada bem mais simples

&lt;script language="javascript" src="jsp/ajax.js"></script>
&lt;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
%>
    &lt;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&ecirc; est&aacute; em <strong>Sistema Integrado DTH 25 &raquo; Resultado </strong> <strong>&raquo;</strong> Pesquisar <strong>&raquo; Rotas &raquo; 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&ccedil;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">&nbsp;</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%">&nbsp;</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>&nbsp;</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
%>

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...