Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Número do erro: -2147217908 Atualizado em 25/07/2007 ás 09:11:00

Postado em 23/07/2007 ás 16:29:00

Olá Gente,


Estou tentando atualizar meus dados através de páginas asp com BD SQl Server, mas toda vez que tento aparece o erro abaixo:  


Número do erro: -2147217908
Descrição fornecida: Command text was not set for the command object.


Peço a vocês que possuem muito mais experiência,  pois eu nunca havia me deparado com uma situação destas antes, postei os fontes das páginas e da stored procedure, para ver se vcs podem me dar uma luz...


Grato a todos!



cadastroterceirizado.asp
<%
response.cookies("id").expires = DateAdd("d",0,Now)
response.expires=0 'vence instantaneamente
Response.CacheControl = "Private"


Dim sql
sqlADV = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from sapj2000..vw_advogados_terc where ai_nivel in (2,3) order by at_nome"


set objCmm  = CreateObject("ADODB.Connection")
set sqlC  = server.CreateObject("ADODB.Recordset")


objCmm.Open  Application("strConn")


SET sqlC = objCmm.Execute (sqlADV)


codigo = request("codadv")
numContrato = Request("numcontrato")


If request("codadv") <> "0" and request("codadv")<>""  then
    codigo = request("codadv")
    stQuery = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from tbadvogados where ai_Codigo = " & codigo
    SET obRS = objCmm.Execute (stQuery)
 ai_Codigo  = obRS("ai_CODIGO")
 at_END     = obRS("at_END")
 at_UF      = obRS("at_UF")
 at_CEP     = obRS("at_CEP")
 at_TEL_FAX = obRS("at_TEL_FAX")
 at_CID     = obRS("at_CID")  
 controle="2"


else


   ai_Codigo  = ""
   at_END     = ""
   at_UF      = ""
   at_CEP     = ""
   at_TEL_FAX = ""
   at_CID     = ""
   controle="1"
 End if   
 
 if numContrato <> "" and  numContrato <> "0"  then
    stQuery2 = "ConsultaContrato " & Codigo &  " , " & numContrato 


    set obRS2  = server.CreateObject("ADODB.Recordset")
    SET obRS2 = objCmm.Execute (stQuery2)
 at_contrato  = obRS2("numadv_contrato")
 at_jurisdicao = obRS2("vchAdv_Jurisdicao")
 at_objeto = obRS2("vchAdv_Obj")
 at_inicio = obRS2("vchAdv_DatIni")
 at_fim = obRS2("vchAdv_DatFim")
 at_origem= obRS2("vchAdv_OriCon")
 at_dirger= obRS2("vchAdv_GesDir")
 at_gereg =  obRS2("vchAdv_GesGer")
 at_agencia=obRS2("vchAdv_GesAg")


 obRS2.close()
 set obRS2=nothing


else


   at_contrato  = ""
   at_jurisdicao     = ""
   at_objeto      =  ""
   at_inicio=""
   at_fim=""
   at_origem=""
   at_dirger="0"
   at_gereg = "0"
   at_agencia="0"


 End if   
%>



<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>portaljuridico - Portal Juridico</title>
<link rel="stylesheet" type="text/css" href="http://basanet/estilos/css.css">
<link rel="stylesheet" type="text/css" href="estilos/css.css">
<!-- #include file="ValidaData.Inc" -->
</head>
<script language="JavaScript">


function txtBoxFormat(objForm, strField, sMask, evtKeyPress) {
     var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla;


     if(document.all) { // Internet Explorer
       nTecla = evtKeyPress.keyCode; }
     else if(document.layers) { // Nestcape
       nTecla = evtKeyPress.which;
     }


     sValue = objForm[strField].value;


     // Limpa todos os caracteres de formatação que
     // já estiverem no campo.
     sValue = sValue.toString().replace( "-", "" );
     sValue = sValue.toString().replace( "-", "" );
     sValue = sValue.toString().replace( ".", "" );
     sValue = sValue.toString().replace( ".", "" );
     sValue = sValue.toString().replace( "/", "" );
     sValue = sValue.toString().replace( "/", "" );
     sValue = sValue.toString().replace( "(", "" );
     sValue = sValue.toString().replace( "(", "" );
     sValue = sValue.toString().replace( ")", "" );
     sValue = sValue.toString().replace( ")", "" );
     sValue = sValue.toString().replace( " ", "" );
     sValue = sValue.toString().replace( " ", "" );
     fldLen = sValue.length;
     mskLen = sMask.length;


     i = 0;
     nCount = 0;
     sCod = "";
     mskLen = fldLen;


     while (i <= mskLen) {
       bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/"))
       bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " "))


       if (bolMask) {
         sCod += sMask.charAt(i);
         mskLen++; }
       else {
         sCod += sValue.charAt(nCount);
         nCount++;
       }


       i++;
     }


     objForm[strField].value = sCod;


     if (nTecla != 8) { // backspace
       if (sMask.charAt(i-1) == "9") { // apenas números...
         return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9
       else { // qualquer caracter...
         return true;
       } }
     else {
       return true;
     }
   }
//Fim da Função Máscaras Gerais
</script>
<script language="VBScript">


Function reset2()
  navigate("cadastroterceirizado_atualiza.asp")
end function



Function EditarContrato(campo1)
 VAR= ("cadastroterceirizado_atualiza.asp?codadv=" & document.advogados.Adv.value  & "&numContrato='" &  campo1 & "'" )
 navigate(VAR)
 
End function


Function incluir()
   
     if   document.advogados.origem.value =  "" then
  msgbox( "Prencha a origem do contrato!")     
  document.advogados.origem.focus
  exit function
     end if
     
     if   document.advogados.numcontrato.value =  "" or document.advogados.numcontrato.value =  null  then
  msgbox( "Informe o número do Contrato!")
  document.advogados.numcontrato.focus
  exit function
     end if
    
    if document.advogados.dirger.value = "" and document.advogados.gereg.value = "" and document.advogados.agencia.value = "" then
  msgbox("Informe pelo menos uma campo para o gestor!")
  document.advogados.dirger.focus
  exit function
 end if 


 if document.advogados.dirger.value = "0" and document.advogados.gereg.value = "0" and document.advogados.agencia.value = "0" then
  msgbox("Informe pelo menos uma campo para o gestor!")
  document.advogados.dirger.focus
  exit function
 end if
    
      if   document.advogados.jurisdicao.value =  "" then
  msgbox( "Informe a Jurisdição do Contrato!") 
  document.advogados.jurisdicao.focus
  exit function
     end if
    
       if   document.advogados.iniciovig.value =  "" then
  msgbox( "Informe o Inicio da vigência do Contrato!") 
  document.advogados.iniciovig.focus
  exit function
     end if
    
     if   document.advogados.fimvig.value =  "" then
  msgbox( "Informe o Fim da vigência do Contrato!") 
  document.advogados.fimvig.focus
  exit function
     end if
    
     if   document.advogados.fimvig.value <>  ""  then
    if   document.advogados.fimvig.value <  document.advogados.iniciovig.value  then
      msgbox( "A data final não pode ser menor que a data inicial!")
      document.advogados.fimvig.focus
      exit function
    end if  
     end if     
    
      if   document.advogados.objtext.value =  "" then
  msgbox( "Informe o Objeto do Contrato!") 
  document.advogados.objtext.focus
  exit function
     end if
    
     document.advogados.submit1.value = "Atualizando..."
     document.advogados.submit1.disabled = true
     document.advogados.submit2.disabled = true
     document.advogados.submit3.disabled = true
     document.advogados.submit()
     
end function


//função para não deixar
Function VerConteudo(KeyCod)
  If KeyCod <> vbKeyBack Then
  If Not (KeyCod >= 48 And KeyCod <= 57) Then _
   window.event.keyCode = 0
 End If
End Function



Function VerConteudo2(KeyCod)
  If KeyCod <> vbKeyBack Then
  If Not (KeyCod <> 34 And KeyCod <> 39) Then _
   window.event.keyCode = 0
 End If
End Function


</script>


<body leftmargin="0" topmargin="6">
<form name="advogados" id="advogados" method="post" action="CadTer_Atualiza.asp" ENCTYPE="multipart/form-data">


<table width="600" align="center" border="0">
 <tr>
  <td class="textoscenter" background="images/bg_titc.jpg" style="background-repeat:no-repeat; background-position:center">
  CADASTRO TERCEIRIZADO
  </td>
 </tr>
</table>


<br>


<table width="540" class="borda" align="center" border="0">
 <tr>
  <td width="140"><font class="textoss">
   Localizar Advogado:</font>
  </td>
  <td align="left">
  <select name="Adv" id="Adv" onChange="vbscript:buscarAdvogado2()">
    <option selected value="0">Selecione um Nome</option>
   <%while not sqlC.EOF
      if codadv <> "0" Then
     if trim(sqlC("ai_CODIGO")) = trim(ai_CODIGO) Then%>
              <option selected value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><%
           else%>
              <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><%
           end if
        else%>
            <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option>                   
      <%end if
      sqlC.moveNext
   wend%>   
  </select>
  </td>
 </tr>
</table>
<br>
<table width="540" class="borda" align="center" border="0">
 <tr>
  <td width="140"><font class="textoss">
   Endereço:</font>
  </td>
  <td align="left" colspan="5"><input name="endereco" type="text" class="textoss" id="endereco" size="60" maxlength="80" readonly value="<%=at_end%>">
  </td>
 </tr>
 <tr>
  <td width="140"><font class="textoss">Cidade:</font></td>
  <td align="left"><input name="cidade" type="text" class="textoss" id="cidade" size="20" maxlength="30" readonly value="<%=at_CID%>"></td>
  <td align="right"><font class="textoss">UF:</font></td>
  <td align="left"><input name="UF" type="text" class="textoss" id="UF" size="2" maxlength="2" readonly value="<%=at_uf%>"></td>       
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">CEP:</font></td>
  <td align="left"><input name="cep" type="text" class="textoss" id="cep" size="8" maxlength="8" readonly value="<%=at_cep%>"></td>  
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">Tel / Fax:</font></td>
  <td align="left"><input name="tel" type="text" class="textoss" id="tel" size="25" maxlength="25" readonly value="<%=at_TEL_FAX%>"></td>  
 </tr>
</table>


<br>



<%


'Response.write "controle: " & "-" & controle & len(controle)



if controle= " " or  len(controle)= 0 or  controle= "2" then
'if controle= "0" or  len(controle)= 0 then


%>
<div id="carregando" align="center">
<table width="540" class="borda" align="center" border="0">
    <tr>
  <td width="140"><font class="textoss">
   Origem do Contrato:</font>
  </td>
  <td align="left"><select name="origem" id="origem">
      <option selected value="">Selecione</option>
      <option value="CREDENCIADOS">Credenciado</option>
      <option value="DIRETAS">Contratação Direta</option>   
      <option value="EXTRAJUDICIAIS">Cobrança Extrajudicial</option>       
      <option value="LICITADOS">Contratação Licitação</option>               
    </select>
    <script>document.advogados.origem.value="<%=at_origem%>";</script>
    
  </td>
    
  <td rowspan="7" width="10">&nbsp;
  </td>
 </tr>
 <tr>
  <td width="140"><font class="textoss">
   Número do Contrato:</font>
  </td>
  <td align="left"><input name="numcontrato" type="text" class="textoss" id="numcontrato" size="20" maxlength="30" OnKeyPress="vbscript:VerConteudo2 window.event.keycode" value="<%=at_contrato%>" title="Número do Contrato">
  </td>
  <td align="left" colspan="5" rowspan="6">&nbsp;
  
  
   
  </td>
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">
   Gestor:</font>
  </td>
 </tr>
    <tr>
     <td colspan="3">
      <table border="0">
       <tr>
        <td width="33">&nbsp;</td>
        <td align="left" width="188"><font class="textoss">
         Direção Geral:</font>
        </td>
        <td align="left"><select name="dirger" id="dirger">
               <option value="0" selected>Selecione</option>
             <%
              set sqlDir= server.CreateObject("ADODB.Recordset")
            SET sqlDir = objCmm.Execute("select numdg_cod,vchDg_SGl as vchDg_des from tbAuxDiGer  where numdg_cod<>0 order by vchDg_SGl" )
            
              while not sqlDir.EOF
             'if sqlDir("numdg_cod") <> "0" Then
             ' if trim(sqlDir("numdg_cod")) = trim(at_dirger) Then%>
                <option value="<%=sqlDir("numdg_cod")%>"><%=sqlDir("vchDg_des")%></option><%
             ' end if
             'else%>
               <%'end if
              sqlDir.moveNext
            wend
           sqlDir.Close()
           set sqlDir=nothing
           %>   
          </select>
          <script>document.advogados.dirger.value="<%=trim(at_dirger)%>";</script>
          
         </td> 
       </tr>
       <tr>
        <td>&nbsp;</td>    
        <td align="left"><font class="textoss">
         Gereg:</font>
        </td>
        <td align="left"><select name="gereg" id="gereg">
          <option value="0" selected>Selecione</option>
            <%
            set objConBc  = CreateObject("ADODB.Connection")
            set sql= server.CreateObject("ADODB.Recordset")
          objConBc.Open  Application("strConnBC")
          SET sql = objConBc.Execute ("select distinct(ger_den)as ger_den ,run_cod from vw_sbcuni_015 order by ger_den" )
            while not sql.EOF%>
              <option value="<%=sql("run_cod")%>"><%=sql("ger_den")%></option><%
         sql.moveNext
         wend
         
         sql.Close()
         set sql=nothing
         
         %>   
         </select>
         <script>document.advogados.gereg.value="<%=trim(at_gereg)%>";</script>
         
         </td> 
       </tr>
       
      
       
       <tr>
        <td>&nbsp;</td>    
        <td align="left"><font class="textoss">
         Agência:</font>
        </td>
        <td align="left"><select name="agencia" id="agencia">
        <option value="0" selected>Selecione</option>
           <%
            set sqlAg= server.CreateObject("ADODB.Recordset")
          SET sqlAg = objConBc.Execute ("select cast(uni_cod as numeric) as uni_cod,uni_den from vw_sbcuni_008 order by uni_den" )
            while not sqlAg.EOF%>
             <option value="<%=sqlAg("uni_cod")%>"><%=sqlAg("uni_den")%></option><%
          sqlAg.moveNext
         wend
         sqlAg.Close()
         objConBc.Close()
         set objConBc=nothing
         %>   
         </select>
         <script>document.advogados.agencia.value="<%=trim(at_agencia)%>";</script>
         
         </td> 
       </tr>
      </table>
     </td>     
    </tr>
 <tr>
  <td width="140"><font class="textoss">
  Jurisdição:</font>
  </td>
  <td align="left"><input name="jurisdicao" type="text" class="textoss" id="jurisdicao" size="20" maxlength="50" value="<%=at_jurisdicao%>" title="Jurisdição">
  </td>
 </tr>
 
 <%'if controle="2" then%>
     <!--table border="0" width="210" class="borda"-->
        <tr>
         <!--td colspan="2" align="center"><font class="textoss"> Vigência do Contrato:</font>-->
         <td align="left" width="140"><font class="textoss"> Vigência do Contrato:</font>
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Início:</font>
         </td>
         <td align="left"><input name="iniciovig" type="text" class="textoss" id="iniciovig" size="10" onKeyPress="return txtBoxFormat(document.advogados, 'iniciovig', '99/99/9999', event)" maxlength="10" onBlur="javascript:Valida_data(iniciovig,iniciovig,'','','','')" value="<%=at_inicio%>" title="Inicio">
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Término:</font>
         </td>
         <td align="left"><input name="fimvig" type="text" class="textoss" id="fimvig" size="10" onKeyPress="return txtBoxFormat(document.advogados, 'fimvig', '99/99/9999', event)" maxlength="10" onBlur="javascript:Valida_data(fimvig,fimvig,'','','','')" value="<%=at_fim%>" title="Término">
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Objeto:</font>
         </td>
        </tr>
        <tr>
         <td colspan="2" align="center">
           <textarea name="objtext" cols="30" rows="4" class="textoss" id="objtext">
           </textarea>
           <script>document.advogados.objtext.value="<%=trim(at_objeto)%>";</script>
         </td>
        </tr>       
    <!--/table-->
<!--/div--> 
<%'end if%>


</table>
<br><div align="center">
 <input type="button" value="Atualizar" onClick="incluir()" class="bt" onMouseOut="javascript:this.className='bt'" onMouseOver="javascript:this.className='bthover'" id="submit1" name="submit1" >
 &nbsp;&nbsp;
    <input onClick="reset2()" value="Limpar" class="bt" onMouseOut="javascript:this.className='bt'" onMouseOver="javascript:this.className='bthover'" id="submit2" name="submit2" size="20">&nbsp;&nbsp;
    <input type="button" value="Fechar" onClick="self.location='inicial.asp'" class="bt" onMouseOut="javascript:this.className='bt'" onMouseOver="javascript:this.className='bthover'" id="submit3" name="submit3">&nbsp;&nbsp;
<br></div>



<!--CADASTRO-->
<table width="600" class="borda" align="center" border="0">
 <tr>
   <td width="100%" ALIGN="CENTER">
     <div style="position:relative; width:600; height:145;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto">&nbsp;<div class="links">
     <table width="84%" border="0" cellspacing="0" cellpadding="0" bgcolor="#Fffffb" height="40">
       <tr>
         <td height="20" valign="top" width="2%">&nbsp;</td>
        <td height="20" valign="top" width="96%">
          <table width="100%" style="border-bottom: 1 solid #999999" class="textosleft">
            <tr bgcolor="#008000">
          <td width="40%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b><font class="textoss">Número do Contrato</b></font></td>
          <td width="30%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b>Origem do Contrato:</b></font></td>
       <td width="30%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b>Status do Contrato:</b></font></td>
            </tr>
          </table>
        </td>
       <td height="0" valign="top" width="2%">&nbsp;</td>
      </tr> 
        <tr>
    <td height="85" valign="top" bgcolor="#Fffffb" width="2%"></td>
    <td height="85" valign="top" bgcolor="#Fffffb" width="50%">
     <div style="position:relative; width:100%; height:80; visibility: visible;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto">
      <table width="100%" border="0" bgcolor="#Fffffb" cellspacing="0" cellpadding="0">
          <%
          set listagem = server.CreateObject("ADODB.Recordset")
          if codigo <> "" then
         sql2 = "select top 10 * from tbAdvogado where  numAdv_Codigo=" & codigo & "order by dtmAdv_datuma desc"
          else
         sql2 = "select * from tbAdvogado  order by dtmAdv_datuma "
          end if


          SET listagem = objCmm.Execute (sql2)
          IF not listagem.EOF then
            CorAtu = "#FFFFFF"
               while not listagem.EOF%>
           <tr bgcolor="<%=CorAtu%>" style="cursor:hand" onMouseOver="javascript:this.className='linkover'" onMouseOut="javascript:this.className='linkout'">
         <td width="40%" bgcolor="<%=CorAtu%>" class="textosleft" style=" cursor: hand" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="left"><img border="0" src="images/BtnGridEdit.gif" WIDTH="16" HEIGHT="16">&nbsp;<%=listagem("numAdv_contrato").value%></div></font></td>
         <td class="textoscenter" width="30%" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="center"><%=listagem("vchAdv_OriCon").value%></div></font></td>
         <td class="textoscenter" width="30%" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="center"><%=listagem("statusctr").value%></div></font></td>
           <%'codadv
           if CorAtu = "#FFFFFF" then
             CorAtu = "#E9E9E9"
           else
             CorAtu = "#FFFFFF"
           end if
           listagem.MoveNext
           i = i + 1   
           wend
         else
           %> <tr bgcolor="<%=CorAtu%>" border="0">
            <td class="textosleft" width="70%" class="border" bgcolor="#Fffffb">
             <div align="center"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000">O advogado não possui contrato vinculado</font></div>
            </td>
           </tr>
           <% end if
           listagem.Close()
           set listagem=nothing
            %>   
         </table>
        </div> 
      </td>
     </tr>
     </table>
    </div>


  
 </tr>
</table>


 



  
</div>
  


<%end if%>
<script language="vbscript">
function buscarAdvogado2()
    if document.advogados.Adv.value <> "" then
  navigate("cadastroterceirizado_atualiza.asp?codadv=" & document.advogados.Adv.value)
 end if 
end function


</script>



</form>
</body>
</html>



<%
objCmm.Close()
set objCmm=nothing 
%>


------------------------------------------------------------//---------------------------------------


CadTer_Atualiza.asp


<HTML>
<HEAD>
</HEAD>
<BODY>
<%


Dim UserID, wUserName, wDominio, wUser, oUser
UserID = ""
If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then
UserID = Request.ServerVariables("LOGON_USER")
UserID = LCase(UserID)
 If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then
  Response.Status = "401 Acesso Negado"
  Response.Write ("Negado. Você não está autorizado a este site.")
  Response.End
 Else
  UserID = Replace(UserID, "\", "/")
  If InStr(UserID, "/") < 1 Then
   UserID = "defaultdomain/" & UserID
  End If
 End If
End If
GetName = ""
wUserName = "Usuário não cadastrado"
mudar = Split(UserID, "/")
wDominio = mudar(0)
wUser = mudar(1)
Set oUser = GetObject("WinNT://" & wDominio & "/" & wUser)
wUserName = oUser.FullName
If err.Number <> 0 Then
 err.Clear
 wUserName = "erro - Usuário não cadastrado"
End If



Session("UsuarioLogado")  = wUserName
Session("Login") = UCase(wUser)
Session("Dominio") = UCase(wDominio)



sug_dominio = UCase(wDominio)
login =  UCase(wUser)
sisid="1"


on error resume next
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Dim clipConexao , clipSql, DataNot, ano, mes, dia, foto, foto1, n, Assunto, Manchete, Fonte, Noticia
dim ID_ARQ,ID_TIPOARQ
dim doc_nom,doc_caminho
dim materia
dim tipo_doc
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest  RequestBin
 
 'CAMINHO FÍSICO DA INSERÇÃO DO ARQUIVO
 'pasta= (server.mappath("\"))& "\portaljuridico\arquivos\"
 'TIPO DO ARQUIVO(WORD,FOTO)
 'contentType = UploadRequest.Item("foto").Item("ContentType")
 'CAMINHO FÍSICO COMPLETO DO ARQUIVO
 'pega o valor do documento
 'filepathname2 =  UploadRequest.Item("agencia").Item("Value")
'0



'1
 fileEndereco =  UploadRequest.Item("endereco").Item("Value")
 fileCidade =  UploadRequest.Item("cidade").Item("Value")
 fileUf =  UploadRequest.Item("Uf").Item("Value")
 fileCep =  UploadRequest.Item("cep").Item("Value")
 filetel=  UploadRequest.Item("tel").Item("Value")
'2
 fileOrigem =  UploadRequest.Item("origem").Item("Value")
 filenumcontrato =  UploadRequest.Item("numcontrato").Item("Value")
 filedirger =  UploadRequest.Item("dirger").Item("Value")
 filegereg =  UploadRequest.Item("gereg").Item("Value")
 fileAgencia =  UploadRequest.Item("agencia").Item("Value")
 filejurisdicao =  UploadRequest.Item("jurisdicao").Item("Value")
 fileAdv =  UploadRequest.Item("Adv").Item("Value")
 
 fileIniciovig =  UploadRequest.Item("iniciovig").Item("Value")
 if fileIniciovig="" then
  fileIniciovig= "17530101"
    else
  fileIniciovig= right(fileIniciovig,4) &   right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 )
    end if  
 
 
 fileFimvig =  UploadRequest.Item("fimvig").Item("Value")
 if fileFimvig="" then
  fileFimvig= "17530101"
    else
  fileFimvig= right(fileFimvig,4) &   right(left( fileFimvig ,5 ),2) & left(fileFimvig,2 )
    end if  
 
 fileObjtext =  UploadRequest.Item("objtext").Item("Value")
 filedtastatus = UploadRequest.Item("dtastatus").Item("Value")
 
 if filegereg= "" then
  filegereg="0"
 end if
 if fileAgencia= "" then
  fileAgencia="0"
 end if
 
'criando a variavel de conexao
set objCmm = CreateObject("ADODB.Connection")
'criando a variavel do recordset
set sqlC  = server.CreateObject("ADODB.Recordset")
'fazer a minha variavel de conexao receber a conexao do global asa
objCmm.Open     Application("strConn")


if filedirger = "" then
 filedirger="0"
end if
if filegereg = "" then
 filegereg="0"
end if  


if fileAgencia = "" then
 fileAgencia="0"
end if  


if filejurisdicao="" then
filejurisdicao= "0"
end if


sql "exec sp_ATUALIZA_cadctrterceiro  '" & login & "'," & fileAdv & ",'"  & filenumcontrato & "','" & fileOrigem & "','" & filedirger & "' ,'" & filegereg &  "'," & fileAgencia & ",'" & filejurisdicao &"','"  & fileObjtext  & "','" & fileIniciovig  & "','" & fileFimvig  &"','" & filedtastatus & "'"


SET sqlC = objCmm.Execute (sql) 
if objCmm.Errors.Count <> 0 then
      Response.Write "Ocorreu um erro nesta página!<BR>"
      Response.Write "Número do erro: " & Err.number & "<BR>"
      Response.Write "Descrição fornecida: " & Err.Description & "<BR>"
else
      Response.Write "Atualização com Sucesso!"
end if


objCmm.Close()
set objCmm=nothing


 
%>
 <!--#include file="upload.asp"-->
 
   </BODY>
</HTML>


-------------------------------------------------------------//-------------------------------------------------


stored procedure de atualização - sql server 2000


ALTER PROCEDURE sp_ATUALIZA_cadctrterceiro     
-- Criado por Augusto César           
 @Login varchar (50),           
 @numAdv_codigo int,           
 @numAdv_contrato varchar(50),           
 @vchAdv_OriCon varchar (50) ,           
 @vchAdv_GesDir int,           
 @vchAdv_GesGer int,           
 @vchAdv_GesAg int ,           
 @vchAdv_Jurisdicao varchar(50),           
 @vchAdv_Obj varchar (50) = null    ,        
 @vchAdv_DatIni datetime = '17530101',           
 @vchAdv_DatFim datetime = '17530101',           
 @statusctr varchar (50)         
       
as           
           
set nocount on           
declare  @dtmAdv_datuma datetime      ,@vchAdv_Sta varchar (50)     
           
set @dtmAdv_datuma=getdate()           
     
/* EXECUTO O TESTE, UTILIZANDO IF...ELSE */     
IF @vchAdv_DatFim > @dtmAdv_datuma     
BEGIN     
  SET @statusctr = 'ATIVO'     
END     
ELSE     
 IF @vchAdv_DatFim < @dtmAdv_datuma     
 BEGIN     
  SET @statusctr = 'ENCERRADO'     
END     
     
BEGIN TRAN     
  BEGIN      
   update tbAdvogado set vchAdv_OriCon=@vchAdv_OriCon ,vchAdv_GesDir=@vchAdv_GesDir,vchAdv_GesGer=@vchAdv_GesGer           
     ,vchAdv_GesAg=@vchAdv_GesAg ,vchAdv_DatIni=@vchAdv_DatIni ,vchAdv_DatFim=@vchAdv_DatFim ,vchAdv_Obj=@vchAdv_Obj           
     ,vchAdv_Sta=@vchAdv_Sta ,dtmAdv_datuma=@dtmAdv_datuma ,vchAdv_Jurisdicao  =@vchAdv_Jurisdicao ,statusctr=@statusctr               
   where numAdv_codigo=@numAdv_codigo and numAdv_contrato=@numAdv_contrato     
  END     
   BEGIN     
    insert into tbMov_Advogado(numAdv_codigo,numAdv_contrato,vchAdv_OriCon,vchAdv_GesDir,vchAdv_GesGer,vchAdv_GesAg,vchAdv_DatIni,vchAdv_DatFim,vchAdv_Obj,vchAdv_Sta,vchAdv_Login,dtmAdv_datuma,vchAdv_Jurisdicao,statusctr)           
    values(@numAdv_codigo,@numAdv_contrato,@vchAdv_OriCon,@vchAdv_GesDir,@vchAdv_GesGer,@vchAdv_GesAg,@vchAdv_DatIni,@vchAdv_DatFim,@vchAdv_Obj,@vchAdv_Sta,@login,@dtmAdv_datuma,@vchAdv_Jurisdicao,@statusctr)     
   END     
    if @@error=0     
     begin            
      commit tran           
     end            
    else           
     begin           
      rollback           
     end                         


 



Postado em 25/07/2007 ás 09:11:00
 Esta mensagem foi útil ao usuário



Vou postar neste daqui pois no outro não estou conseguindo responder.


Você tem que tratar a sua data, coloque a mesma no padrão Ano-Mes-Dia ( caso necessite de hora basta acrescentar Hora:Minuto:Segundo ) que vai funcionar.

====================================
Eu TRABALHO com Desenvolvimento WEB, e não posso parar uma tarde inteira pra ajudar. Mas orçamentos são bem vindos!!!



Topo

Postado em 23/07/2007 ás 22:01:00



Esse é o problema, não aparece a linha.... esse script tá uma charada pra mim, pois não fui eu que desenvolvi, herdei esse sistema de um outro programador, e a bronca ta na minha mão, não sei se o problema ocorre na stored ou no código asp...


Por favor amigos, sei que fica dificil para vcs, e meu pzo para resolver a bronca ta se esgotando, acho q to ferrado, né...


Agradeço quem poder me ajudar.



Topo

Postado em 23/07/2007 ás 16:53:00
 Esta mensagem não foi útil ao usuário



Em que linha acontece o erro?

====================================
Eu TRABALHO com Desenvolvimento WEB, e não posso parar uma tarde inteira pra ajudar. Mas orçamentos são bem vindos!!!

Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados