Ricardo Saraiva

Julho 28, 2011

gostaria de fazer o serviço

meu email de contato é ricsant03@gmail.com

abs e obrigado

Maio 25, 2011

ta treta encontrar progrmadores asp hj em dia ne??
bom tenho 2 vagas asp e tenho 2 vagas para interface
requisitos para programador interface.
html, css, jquery, js, conhecimentos em photoshop será um diferencial

melhor tentar freelancers remotos... ai posso te ajudar com isso...

ricsant03@gmail.com

abs

Maio 25, 2011

Eu gostaria que fizessem contato comigo, informando orcamento e quanto tempo, aqueles que estiverem interessados em fazer uma conversao de meu sistema http://www.alunos.com.br desenvolvido em ASP/MySql para PHP/MySql usando Joomla.
Eu quero que tenha as mesmas funcionalidades mas com a cara toda nova do jeito que for possivel fazer.
Entre em contato comigo por aqui pelo e-mail ou pelo e-mail disponivel no site que é admin@alunos.com.br e informe quanto custará e em quanto tempo estimado.
Obrigado. Otto

te mandei orçamento... você recebeu???

Maio 25, 2011

Preciso de um programador
para criação de um software
me add no MSN
sofjunior@hotmail.com

te mandei orçamento... você recebeu???

Abril 27, 2011

Desde que o arquivo ".DLL" esteja na pasta "C:\WINDOWS\System32" funciona de boa :rolleyes:
se for SO de 32 bits sim. se for de 64, tem q estar em C:\Windows\SysWOW64

eu reinstalei o crystal com outras opções e rolou

vlw galera

abs

Abril 24, 2011

ricardo, poste só uma vez cada tópico.

é que eu postei uma vez no de crystal e uma no de vb...

beleza?

Provavelmente está faltando esta biblioteca em seu PC...
Se for isto, então baixe-a no link abaixo:
http://www.dlldll.com/crviewer.dll_download.html
* Descompacte o arquivo e coloque a "DLL" na pasta do Sistema: C:\WINDOWS\System32;
* Despois registre a mesma digitando no "Executar" ou no "Prompt de Comando":
RegSVR32 /u crviewer.dll
* Reinicie o PC.
Isso deve resolver seu problema ! :)

mas este /u não tira o registro da dll ao invés de registrá-la?

abs e obrigado

Abril 24, 2011

estou com um projeto de vb 6 e dentro deste projeto, tem um form que tem um objeto do Crystal Reports, para visualização de relatórios feitos nele...

eu instalei o crystal e registrei a dll... mas quando abro o projeto, me diz que falta a crviewer.dll

o que poderia ser?

1) versao do crystal (estou com a 11.5, mas desconfio que foi utilizada a 8.5)

2) alguma coisa que devo fazer dentro do proprio vb?

se alguém puder me ajudar, eu agradeço...

meu email é ricsant03@gmail.com

abs e obrigado

Março 31, 2011

eu me interesso

enviar email para ricsant03@gmail.com

abs e obrigado

Setembro 20, 2010

Estou procurando freela para realizar produção de vídeo no estilo tour, como este exemplo no youtube http://www.youtube.com/watch?v=peoztLtRHdU...player_embedded
O vídeo abordará a utilização do módulo de um software , tal qual o exemplo. Duração máxima de 1,5 minuto, com leveza e boa resolução.
Gostaria de receber propostas com preço, forma de pagamento e prazo de entrega. Precisa ter portifólio. Se precisar mais detalhes só me escrever.
sucesso sempre!

me interessei.... se pudermos nos falar para maiores detalhes, segue meu email ricsant03@gmail.com abs e obrigado

Setembro 17, 2009

Ok então !
Qualquer coisa posta aí !
Mas se possível poste como fez pra resolver, a fim de beneficiar outros membros com a mesma dúvida.
Obs.:
O tópico foi marcado como Resolvido.

pra eu postar teria que colocar o jsp inteiro pra que o entendimento fosse completo...

Setembro 16, 2009

Agora não entendi...
Pode explicar melhor ?

Jonathan

consegui resolver o problema... agora tá show

muito obrigado pela força

abs

Setembro 15, 2009

Como já disse, não utilizo muito jQuery, mas acho que funciona. Só que ao invés de procurar inputs com o atributo classe como "txtProcesso" você ainda pode utilizar essa sintaxe: input .txtProcesso.
Testei aí e qualquer coisa poste aqui.

eu fiz assim e funcionou em partes

agora, quero saber como passar o valor de cada elemento do meu array de objetos, para que uma função em java possa utilizar o mesmo... segue exemplo abaixo:

$().ready(function() {
           $("input[name='numBanco']").autocomplete("commonJQueryAction.do?methodToCall=findCobranca", {
            minChars: 2,
            selectFirst: false,
            width: 300,
            max:100,
            matchSubset:false,
            cacheLength:0,
            scrollHeight:200,
            extraParams: {
                filtro: function() { return escape($("input[name='numBanco']").val()); },
                subtotal: function() { return $("#subtotal").val(); }
            }       
        });
});

Setembro 14, 2009

Não uso muito jQuery, mas acho que é possível utilizar classe, nome de tag's e outros.
Tente algo assim:
$(".nome_classe")

Jonathan seria algo parecido com isso???

$("input[class *= 'txtProcesso']").autocomplete(function() {
     $.get("jQueryAutocompletar.aspx",
          function(data, textStatus) {
          var arrProcesso = new Array();
          var listaData = data;
          for (var i = 0; i < data.length; i++) {
               arrProcesso[i] = data[i];
               alert(data[i]);
          }
  });
  }, {
  width: 180,
  max: 5,
  highlight: false,
  multiple: false,
  scroll: true,
  scrollHeight: 300
  });

Setembro 14, 2009

Para entender melhor minha necessidade, vou dizer qual é o funcionamento de parte da minha aplicação:

Eu posso ter mais de uma condição de pagamento e dependendo da condição de pagamento do contrato, eu devo ter que informar o código do Banco...

Neste momento eu quero usar a jQuery para abrir uma lista neste campo, o problema é que posso ter N condições de pagamento e cada uma delas tem o seu input text de banco...

Como faço para a jQuery saber em qual campo estou??? porque a referência da jQuery é somente pelo id do objeto, então eu poderia ter banco1, banco2, banco3... mas isso é muito variável... alguém já passou por isso?

meu email de contato: ricsant03@gmail.com

obrigado e abs

Março 7, 2009

velho... funcionou perfeitamente.. muito obrigado

resolvido

Março 3, 2009

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
%>

Março 3, 2009

Março 2, 2009

manda aí brother... por favor...

obrigado

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

Março 2, 2009

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?

Março 2, 2009

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

Março 2, 2009

tenho uma lista de registros, onde necessito alterar um dos campos, porém, só devo gravar os registros que tiverem seu checkbox marcado...

gostaria de uma idéia, pra ver o que tem de diferente e errado na que eu implementei...

muito obrigado

Ricardo

ricsant03@gmail.com

Entrar

Ricardo Saraiva

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Ricardo Saraiva

preciso do serviço de agendamento online

contrato programador asp junior e pleno Urgente

Orcamento conversao ASP - Joomla PHP

Programador Freelancer

help - erro com dll

help - erro com dll

help - erro com dll

Procuro Programador C

vídeo - animação

(Resolvido) autocomplete em campos do mesmo nome

(Resolvido) autocomplete em campos do mesmo nome

(Resolvido) autocomplete em campos do mesmo nome

(Resolvido) autocomplete em campos do mesmo nome

(Resolvido) autocomplete em campos do mesmo nome

(Resolvido) gravando vários registros de uma vez

(Resolvido) gravando vários registros de uma vez

(Resolvido) gravando vários registros de uma vez

(Resolvido) gravando vários registros de uma vez

(Resolvido) gravando vários registros de uma vez

(Resolvido) gravando vários registros de uma vez

(Resolvido) gravando vários registros de uma vez

Navegação

Atividades