No coinciden los tipos: 'rs8'

darkmcloud · #1 (**permalink**) 11/01/2009, 18:25

Buenas amigos de foros del web....tengo el siguiente problema:
me aparece el error del titulo del mensaje en este formulario :

Código asp:

Ver original<%
    if Not IsEmpty(Request("codigo")) then
    codigo = replace(Request("codigo"), "'","" )
    end if
   set Cnn=Server.CreateObject("ADODB.Connection")
    set rs=Server.CreateObject("ADODB.Recordset")
    Cnn.Open Session("cnx")
 
strSQL = "select * from PRODUCTO where CODPROD='" &codigo&"' "
         set rs = Cnn.Execute(strSQL)
         
         If Not rs.EOF then
        codigo   = rs.Fields("CODPROD")
        descripcion  = rs.Fields("DESCRIP")
        fecha_venta = rs.Fields("FECH_VTA")
        fecha_compra = rs.fields("FECH_CPRA")
        unimed = rs.fields ("UNIMED")
        stock = rs.fields ("STOCK")
        costo = rs.Fields("COSTO")
        margen1 = rs.fields ("MARGEN1")
        margen2 = rs.fields ("MARGEN2")
        
    
strSQL8= "select sum (canti) as conteo3 from FACPVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 4 "
set rs8 = Cnn.Execute(strSQL8)
If rs8("conteo3") <>"" Then
strSQL9="select ("&rs8("conteo3")&"* ("&rs("pre_net1")&")) as multi3 "
set rs9 = Cnn.Execute(strSQL9)
    end if
    
strSQL10= "select sum (canti) as conteo6 from FACPVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 7 "
set rs10 = Cnn.Execute(strSQL10)
If rs10("conteo6") <>""  Then
strSQL11="select ("&rs10("conteo6")&"* ("&rs("pre_net1")&")) as multi6 "
    set rs11 = Cnn.Execute(strSQL11)
    end if
    
strSQL12= "select sum (canti) as conteo12 from FACPVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 13 "
set rs12 = Cnn.Execute(strSQL12)
If rs12("conteo12") <>"" Then
strSQL13="select ("&rs12("conteo12")&"* ("&rs("pre_net1")&")) as multi12"
set rs13 = Cnn.Execute(strSQL13)
    end if
    
strSQL14= "select sum (canti) as venta3 from BOLVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 4 "
set rs14 = Cnn.Execute(strSQL14)
If rs14("venta3") <> 0 Then
strSQL15="select ("&rs14("venta3")&" * ("&rs("PRE_VTA2")&")) as mulvta3"
set rs15 = Cnn.Execute(strSQL15)
end if
    
strSQL16= "select sum (canti) as venta6 from BOLVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 7 "
set rs16 = Cnn.Execute(strSQL16)
If rs16("venta6") <> 0 Then
strSQL17="select ("&rs16("venta6")&" * ("&rs("PRE_VTA2")&")) as mulvta6"
set rs17 = Cnn.Execute(strSQL17)    
    end if
    
strSQL18= "select sum (canti) as venta12 from BOLVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 12 "
set rs18 = Cnn.Execute(strSQL18)
If rs18("venta12") <> 0 Then
strSQL19="select ("&rs18("venta12")&" * ("&rs("PRE_VTA2")&")) as mulvta12"
set rs19 = Cnn.Execute(strSQL19)
        end if
    
session("codigo") = rs.fields ("CODPROD")
 
end if
 
%>
<html>
<head>
<body onLoad="document.form.codigo.focus();" >
</head>
<title>Mantenci&oacute;n de Repuestos</title>
<form name="form" method="post" action="man_rep.asp" autocomplete ="off">
<table width="963" height="569" border="1">
  <tr>
    <td width="953"><table width="952" border="1">
        <tr>
          <td width="172">Codigo Repuesto:</td>
          <td width="270"><div align="center">
          <input  name="codigo" value="<%=codigo%>" size=45  maxlength="9">
          </div></td>
          <td width="166">Unidad Medida: </td>
          <td width="316"><input name="unimed" value="<%=unimed%>" size=10 >   </td>
        </tr>
        <tr>
          <td>Descripcion Repuesto: </td>
          <td><input name="descripcion" onpaste="return false" value="<%=descripcion%>" size=45></td>
          <td>Costo:</td>
          <td><input name="costo" value="<%=costo%>" size=10 ></td>
        </tr>
        <tr>
          <td>Familia:</td>
          <td>
          <input name="familia" value="<%=fam%>" size=45 ></td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="952" height="29" border="1">
        <tr>
          <td width="942" height="23">&nbsp;</td>
        </tr>
      </table>
      <table width="950" border="1">
        <tr>
          <td width="217" height="24">&nbsp;</td>
          <td width="259"><div align="center">Margen De Utilidad % </div></td>
          <td width="236"><div align="center">Precio Neto </div></td>
          <td width="210"><div align="center">Precio Venta</div></td>
        </tr>
        <tr>
          <td>Precio 1 :</td>
          <td><input name="margen1" value="<%=margen1%>%"   size=30></td>
          <td>
          
          <input name="neto1" <% If Not rs.EOF then%>value="<%=formatCurrency (rs.fields("PRE_NET1"),0) %>"<%end if%>
           size=30>
        
          
          </td>
          <td><input name="venta1" <% If Not rs.EOF then%>  value="<%=formatCurrency (rs.fields("PRE_VTA1"),0) %>"<%end if%>
           size=30 ></td>
        </tr>
        <tr>
          <td>Precio 2 :</td>
          <td><input name="margen2" value="<%=margen2%>%" onChange="costo2();porcentaje()" size=30 ></td>
          <td><input name="neto2" <% If Not rs.EOF then%>value="<%=formatCurrency (rs.fields("PRE_NET2"),0) %>"<%end if%>
           size=30  ></td>
          <td><input name="venta2" <% If Not rs.EOF then%>value="<%=formatCurrency (rs.fields("PRE_VTA2"),0) %>"<%end if%>
          size=30 ></td>
        </tr>
      </table>
      <table width="950" height="29" border="1">
        <tr>
          <td width="940" height="23">&nbsp;</td>
        </tr>
      </table>
      <table width="951" height="57" border="1">
        <tr>
          <td width="152" height="26">Stock Principal: </td>
          <td width="145"><input name="stock" value="<%=stock%>" size=30 ></td>
          <td width="259"><div align="center">Stock General:</div></td>
          <td width="141"><input name="iva" value=""  size=30 ></td>
          <td width="220">&nbsp;</td>
        </tr>
        <tr>
          <td height="23">&nbsp;</td>
          <td>&nbsp;</td>
          <td><div align="center">Stock M&iacute;nimo:</div></td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="950" height="29" border="1">
        <tr>
          <td width="940" height="23">&nbsp;</td>
        </tr>
      </table>
      <table width="952" height="29" border="1">
        <tr>
          <td width="484" height="23"><div align="center">Compras Acumuladas: </div></td>
          <td width="447"><div align="center">Ventas Acumuladas: </div></td>
        </tr>
      </table>
      <table width="953" border="1">
        <tr>
          <td width="142">&nbsp;</td>
          <td width="150"><div align="center">Unidades</div></td>
          <td width="180"><div align="center">Total Neto </div></td>
          <td width="243"><div align="center">Unidades</div></td>
          <td width="198"><div align="center">Total Neto</div></td>
        </tr>
        <tr>
          <td>3 Meses </td>
          <td><div align="center">
            <input name="conteo" 
            <% If Not rs.EOF then%>
            value="<%=RS8.Fields("conteo3")%>"<%end if%> style="text-align:center" size=25 >
          </div></td>
          <td> <input name="conteo" 
          <% If rs8("conteo3") <>""  Then%>
          value="<%=formatCurrency(rs9.fields("multi3"),0)%>" <%end if%>
          style="text-align:center" size=30 ></td>
          
          
          <td><div align="center">
            <input name="conteo" 
            <% If Not rs.EOF then%>
            value="<%=RS14.Fields("venta3")%>"<%end if%> style="text-align:center" size=25 >
          </div></td>
          <td> <input name="conteo" <% If rs14("venta3") <> 0 Then%>
          value="<%=formatCurrency(rs15.fields("mulvta3"),0)%>" <%end if%>
          style="text-align:center" size=25 ></td>
        </tr>
        <tr>
          <td>6 Meses </td>
          <td><input name="conteo"<% If Not rs.EOF then%> value="<%=RS10.Fields("conteo6")%>" <%end if%>
          style="text-align:center" size=25 ></td>
          <td><input name="conteo" <% If rs10("conteo6") <> "" Then%>
          value="<%=formatCurrency(rs11.fields("multi6"),0)%>"<%end if%>
           style="text-align:center" size=30 ></td>
          <td><div align="center">
            <input name="conteo" 
            <% If Not rs.EOF then%>
            value="<%=RS16.Fields("venta6")%>"<%end if%> style="text-align:center" size=25 >
          </div></td>
          <td> <input name="conteo" <% If rs16("venta6") <> 0 Then%>
          value="<%=formatCurrency(rs17.fields("mulvta6"),0)%>" <%end if%>
          style="text-align:center" size=25 ></td>
        </tr>
        <tr>
          <td>12 Meses </td>
          <td><input name="conteo" 
          <% If Not rs.EOF then%>
          value="<%=RS12.Fields("conteo12")%>"<%end if%> style="text-align:center" size=25 ></td>
          <td><input name="conteo" 
          <% If rs12("conteo12") <> "" Then%>
          value="<%=formatCurrency(rs13.fields("multi12"),0)%>"<%end if%>
           style="text-align:center" size=30 ></td>
         <td><div align="center">
            <input name="conteo" 
            <% If Not rs.EOF then%>
            value="<%=RS18.Fields("venta12")%>"<%end if%> style="text-align:center" size=25 >
          </div></td>
          <td> <input name="conteo" <% If rs18("venta12") <> 0 Then%>
          value="<%=formatCurrency(rs19.fields("mulvta12"),0)%>" <%end if%>
          style="text-align:center" size=25 ></td>
        </tr>
      </table>
      <div align="center">
        <table width="953" height="29" border="1">
          <tr>
            <td width="943" height="23">&nbsp;</td>
          </tr>
        </table>
       
</form>
<p>&nbsp;</p>
<div align="center">
  <p>&nbsp;  </p>
</div>
</body>
</html>

en la linea 405....que es esta :

<% If rs8("conteo3") <>"" Then%>
sera que estoy llamando mal a la variable de la consulta 8 "conteo3"
es que necesito comprobar que ese valor sea distinto de 0 para mostrar el valor de ese campo.....
De antemano muchas gracias..

JuanRAPerez · #2 (**permalink**) 11/01/2009, 23:57

y el error ees???

pruena un

variable = trim(rs("talcosa")

pero cual s tu error?

darkmcloud · #3 (**permalink**) 12/01/2009, 07:52

EDIT: el problema estaba aca :

<% If rs8("conteo3") <>"" Then%>
en vez de eso tenia que declararlo asi:

<%if not rs8.fields("conteo3")= "" Then %>

veo que me equivoque en una tontera....debe haber sido que ya tenia sueño....jajaja
Muchas gracias de todas maneras JuanRAPerez porque eres uno de los primeros que me responde....hasta pronto!!

JuanRAPerez · #4 (**permalink**) 12/01/2009, 08:03

oki
suerte