Tema: No coinciden los tipos: 'rs8'
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/01/2009, 18:25
darkmcloud
 
Fecha de Ingreso: octubre-2007
Mensajes: 191
Antigüedad: 17 años, 6 meses
Puntos: 0
No coinciden los tipos: 'rs8'
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
  1. <%
  2.     if Not IsEmpty(Request("codigo")) then
  3.     codigo = replace(Request("codigo"), "'","" )
  4.     end if
  5.    set Cnn=Server.CreateObject("ADODB.Connection")
  6.     set rs=Server.CreateObject("ADODB.Recordset")
  7.     Cnn.Open Session("cnx")
  8.  
  9. strSQL = "select * from PRODUCTO where CODPROD='" &codigo&"' "
  10.          set rs = Cnn.Execute(strSQL)
  11.          
  12.          If Not rs.EOF then
  13.         codigo   = rs.Fields("CODPROD")
  14.         descripcion  = rs.Fields("DESCRIP")
  15.         fecha_venta = rs.Fields("FECH_VTA")
  16.         fecha_compra = rs.fields("FECH_CPRA")
  17.         unimed = rs.fields ("UNIMED")
  18.         stock = rs.fields ("STOCK")
  19.         costo = rs.Fields("COSTO")
  20.         margen1 = rs.fields ("MARGEN1")
  21.         margen2 = rs.fields ("MARGEN2")
  22.         
  23.     
  24. strSQL8= "select sum (canti) as conteo3 from FACPVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 4 "
  25. set rs8 = Cnn.Execute(strSQL8)
  26. If rs8("conteo3") <>"" Then
  27. strSQL9="select ("&rs8("conteo3")&"* ("&rs("pre_net1")&")) as multi3 "
  28. set rs9 = Cnn.Execute(strSQL9)
  29.     end if
  30.     
  31. strSQL10= "select sum (canti) as conteo6 from FACPVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 7 "
  32. set rs10 = Cnn.Execute(strSQL10)
  33. If rs10("conteo6") <>""  Then
  34. strSQL11="select ("&rs10("conteo6")&"* ("&rs("pre_net1")&")) as multi6 "
  35.     set rs11 = Cnn.Execute(strSQL11)
  36.     end if
  37.     
  38. strSQL12= "select sum (canti) as conteo12 from FACPVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 13 "
  39. set rs12 = Cnn.Execute(strSQL12)
  40. If rs12("conteo12") <>"" Then
  41. strSQL13="select ("&rs12("conteo12")&"* ("&rs("pre_net1")&")) as multi12"
  42. set rs13 = Cnn.Execute(strSQL13)
  43.     end if
  44.     
  45. strSQL14= "select sum (canti) as venta3 from BOLVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 4 "
  46. set rs14 = Cnn.Execute(strSQL14)
  47. If rs14("venta3") <> 0 Then
  48. strSQL15="select ("&rs14("venta3")&" * ("&rs("PRE_VTA2")&")) as mulvta3"
  49. set rs15 = Cnn.Execute(strSQL15)
  50. end if
  51.     
  52. strSQL16= "select sum (canti) as venta6 from BOLVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 7 "
  53. set rs16 = Cnn.Execute(strSQL16)
  54. If rs16("venta6") <> 0 Then
  55. strSQL17="select ("&rs16("venta6")&" * ("&rs("PRE_VTA2")&")) as mulvta6"
  56. set rs17 = Cnn.Execute(strSQL17)    
  57.     end if
  58.     
  59. strSQL18= "select sum (canti) as venta12 from BOLVAL where codigo ='"&codigo&"' AND  DATEDIFF (month,  FECHA, getdate())< 12 "
  60. set rs18 = Cnn.Execute(strSQL18)
  61. If rs18("venta12") <> 0 Then
  62. strSQL19="select ("&rs18("venta12")&" * ("&rs("PRE_VTA2")&")) as mulvta12"
  63. set rs19 = Cnn.Execute(strSQL19)
  64.         end if
  65.     
  66. session("codigo") = rs.fields ("CODPROD")
  67.  
  68. end if
  69.  
  70. %>
  71. <html>
  72. <head>
  73. <body onLoad="document.form.codigo.focus();" >
  74. </head>
  75. <title>Mantenci&oacute;n de Repuestos</title>
  76. <form name="form" method="post" action="man_rep.asp" autocomplete ="off">
  77. <table width="963" height="569" border="1">
  78.   <tr>
  79.     <td width="953"><table width="952" border="1">
  80.         <tr>
  81.           <td width="172">Codigo Repuesto:</td>
  82.           <td width="270"><div align="center">
  83.           <input  name="codigo" value="<%=codigo%>" size=45  maxlength="9">
  84.           </div></td>
  85.           <td width="166">Unidad Medida: </td>
  86.           <td width="316"><input name="unimed" value="<%=unimed%>" size=10 >   </td>
  87.         </tr>
  88.         <tr>
  89.           <td>Descripcion Repuesto: </td>
  90.           <td><input name="descripcion" onpaste="return false" value="<%=descripcion%>" size=45></td>
  91.           <td>Costo:</td>
  92.           <td><input name="costo" value="<%=costo%>" size=10 ></td>
  93.         </tr>
  94.         <tr>
  95.           <td>Familia:</td>
  96.           <td>
  97.           <input name="familia" value="<%=fam%>" size=45 ></td>
  98.           <td>&nbsp;</td>
  99.           <td>&nbsp;</td>
  100.         </tr>
  101.       </table>
  102.       <table width="952" height="29" border="1">
  103.         <tr>
  104.           <td width="942" height="23">&nbsp;</td>
  105.         </tr>
  106.       </table>
  107.       <table width="950" border="1">
  108.         <tr>
  109.           <td width="217" height="24">&nbsp;</td>
  110.           <td width="259"><div align="center">Margen De Utilidad % </div></td>
  111.           <td width="236"><div align="center">Precio Neto </div></td>
  112.           <td width="210"><div align="center">Precio Venta</div></td>
  113.         </tr>
  114.         <tr>
  115.           <td>Precio 1 :</td>
  116.           <td><input name="margen1" value="<%=margen1%>%"   size=30></td>
  117.           <td>
  118.           
  119.           <input name="neto1" <% If Not rs.EOF then%>value="<%=formatCurrency (rs.fields("PRE_NET1"),0) %>"<%end if%>
  120.            size=30>
  121.         
  122.           
  123.           </td>
  124.           <td><input name="venta1" <% If Not rs.EOF then%>  value="<%=formatCurrency (rs.fields("PRE_VTA1"),0) %>"<%end if%>
  125.            size=30 ></td>
  126.         </tr>
  127.         <tr>
  128.           <td>Precio 2 :</td>
  129.           <td><input name="margen2" value="<%=margen2%>%" onChange="costo2();porcentaje()" size=30 ></td>
  130.           <td><input name="neto2" <% If Not rs.EOF then%>value="<%=formatCurrency (rs.fields("PRE_NET2"),0) %>"<%end if%>
  131.            size=30  ></td>
  132.           <td><input name="venta2" <% If Not rs.EOF then%>value="<%=formatCurrency (rs.fields("PRE_VTA2"),0) %>"<%end if%>
  133.           size=30 ></td>
  134.         </tr>
  135.       </table>
  136.       <table width="950" height="29" border="1">
  137.         <tr>
  138.           <td width="940" height="23">&nbsp;</td>
  139.         </tr>
  140.       </table>
  141.       <table width="951" height="57" border="1">
  142.         <tr>
  143.           <td width="152" height="26">Stock Principal: </td>
  144.           <td width="145"><input name="stock" value="<%=stock%>" size=30 ></td>
  145.           <td width="259"><div align="center">Stock General:</div></td>
  146.           <td width="141"><input name="iva" value=""  size=30 ></td>
  147.           <td width="220">&nbsp;</td>
  148.         </tr>
  149.         <tr>
  150.           <td height="23">&nbsp;</td>
  151.           <td>&nbsp;</td>
  152.           <td><div align="center">Stock M&iacute;nimo:</div></td>
  153.           <td>&nbsp;</td>
  154.           <td>&nbsp;</td>
  155.         </tr>
  156.       </table>
  157.       <table width="950" height="29" border="1">
  158.         <tr>
  159.           <td width="940" height="23">&nbsp;</td>
  160.         </tr>
  161.       </table>
  162.       <table width="952" height="29" border="1">
  163.         <tr>
  164.           <td width="484" height="23"><div align="center">Compras Acumuladas: </div></td>
  165.           <td width="447"><div align="center">Ventas Acumuladas: </div></td>
  166.         </tr>
  167.       </table>
  168.       <table width="953" border="1">
  169.         <tr>
  170.           <td width="142">&nbsp;</td>
  171.           <td width="150"><div align="center">Unidades</div></td>
  172.           <td width="180"><div align="center">Total Neto </div></td>
  173.           <td width="243"><div align="center">Unidades</div></td>
  174.           <td width="198"><div align="center">Total Neto</div></td>
  175.         </tr>
  176.         <tr>
  177.           <td>3 Meses </td>
  178.           <td><div align="center">
  179.             <input name="conteo" 
  180.             <% If Not rs.EOF then%>
  181.             value="<%=RS8.Fields("conteo3")%>"<%end if%> style="text-align:center" size=25 >
  182.           </div></td>
  183.           <td> <input name="conteo" 
  184.           <% If rs8("conteo3") <>""  Then%>
  185.           value="<%=formatCurrency(rs9.fields("multi3"),0)%>" <%end if%>
  186.           style="text-align:center" size=30 ></td>
  187.           
  188.           
  189.           <td><div align="center">
  190.             <input name="conteo" 
  191.             <% If Not rs.EOF then%>
  192.             value="<%=RS14.Fields("venta3")%>"<%end if%> style="text-align:center" size=25 >
  193.           </div></td>
  194.           <td> <input name="conteo" <% If rs14("venta3") <> 0 Then%>
  195.           value="<%=formatCurrency(rs15.fields("mulvta3"),0)%>" <%end if%>
  196.           style="text-align:center" size=25 ></td>
  197.         </tr>
  198.         <tr>
  199.           <td>6 Meses </td>
  200.           <td><input name="conteo"<% If Not rs.EOF then%> value="<%=RS10.Fields("conteo6")%>" <%end if%>
  201.           style="text-align:center" size=25 ></td>
  202.           <td><input name="conteo" <% If rs10("conteo6") <> "" Then%>
  203.           value="<%=formatCurrency(rs11.fields("multi6"),0)%>"<%end if%>
  204.            style="text-align:center" size=30 ></td>
  205.           <td><div align="center">
  206.             <input name="conteo" 
  207.             <% If Not rs.EOF then%>
  208.             value="<%=RS16.Fields("venta6")%>"<%end if%> style="text-align:center" size=25 >
  209.           </div></td>
  210.           <td> <input name="conteo" <% If rs16("venta6") <> 0 Then%>
  211.           value="<%=formatCurrency(rs17.fields("mulvta6"),0)%>" <%end if%>
  212.           style="text-align:center" size=25 ></td>
  213.         </tr>
  214.         <tr>
  215.           <td>12 Meses </td>
  216.           <td><input name="conteo" 
  217.           <% If Not rs.EOF then%>
  218.           value="<%=RS12.Fields("conteo12")%>"<%end if%> style="text-align:center" size=25 ></td>
  219.           <td><input name="conteo" 
  220.           <% If rs12("conteo12") <> "" Then%>
  221.           value="<%=formatCurrency(rs13.fields("multi12"),0)%>"<%end if%>
  222.            style="text-align:center" size=30 ></td>
  223.          <td><div align="center">
  224.             <input name="conteo" 
  225.             <% If Not rs.EOF then%>
  226.             value="<%=RS18.Fields("venta12")%>"<%end if%> style="text-align:center" size=25 >
  227.           </div></td>
  228.           <td> <input name="conteo" <% If rs18("venta12") <> 0 Then%>
  229.           value="<%=formatCurrency(rs19.fields("mulvta12"),0)%>" <%end if%>
  230.           style="text-align:center" size=25 ></td>
  231.         </tr>
  232.       </table>
  233.       <div align="center">
  234.         <table width="953" height="29" border="1">
  235.           <tr>
  236.             <td width="943" height="23">&nbsp;</td>
  237.           </tr>
  238.         </table>
  239.        
  240. </form>
  241. <p>&nbsp;</p>
  242. <div align="center">
  243.   <p>&nbsp;  </p>
  244. </div>
  245. </body>
  246. </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..