Tema: Problema Mshtml.dll
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 08/04/2010, 08:41
anjubama
 
Fecha de Ingreso: abril-2010
Mensajes: 4
Antigüedad: 14 años, 1 mes
Puntos: 0
Respuesta: Problema Mshtml.dll
Código ASP: 
Ver original
  1. <input name="repeso" type="text" size="10"  value= 
  2.     <% if orsrepeso("repeso")="" or isnull(orsrepeso("repeso")) then
  3.     
  4.     response.write "0"
  5.     else
  6.     
  7.     response.write orsrepeso("repeso")
  8.     end if
  9.      %> ></td>
  10.   <td colspan=2 class=xl5129424 width=59 style='border-left:none;width:45pt'>ESCOLTA</td>
  11.   <td colspan=3 class=xl4129424 width=187 style='border-right:.5pt solid black;
  12.   width:141pt'><%
  13.     if sw=1 then
  14.     'response.write "no es de medellin"
  15.     Response.Write "&nbsp;" & ucase(cstr(Pro_Dato(ors("valorEscolta")))) & "&nbsp;&nbsp;$"
  16.     else 
  17.     response.write "0 Pesos"
  18.     end if
  19.     %></td>
  20.  </tr>
  21.  <tr class=xl2329424 height=31 style='mso-height-source:userset;height:23.25pt'>
  22.   <td colspan=2 height=31 class=xl2429424 width=205 style='height:23.25pt;
  23.   width:154pt'>INSTRUCCIONES DE SEGURIDAD:</td>
  24.   <td colspan=9 class=xl8729424 width=559 style='border-right:1.0pt solid black;
  25.   width:420pt'><%Response.Write ucase(cstr(Pro_Dato(ors(29))))%></td>
  26.  </tr>
  27.   <tr class=xl2329424 height=40 style='mso-height-source:userset;height:23.25pt;border-right:1.0pt solid black;border-left:1.0pt solid black'>
  28.   <td colspan="1" height="45" style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Cargue 
  29.     <input name="cargue" type="text" size="13" value="<%if orsrepeso("cargue")="" or isnull(orsrepeso("cargue")) then   
  30.     response.write "0"
  31.     else        
  32.     response.write Pro_Dato(orsrepeso("cargue"))
  33.     end if
  34.      %> ">  
  35.   </strong></div></td>
  36.   <td colspan="2" style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Descargue
  37.     <input name="descargue" type="text" size="13" value="<% if orsrepeso("descargue")="" or isnull(orsrepeso("descargue")) then     
  38.     response.write "0"
  39.     else        
  40.     response.write Pro_Dato(orsrepeso("descargue"))
  41.     end if
  42.      %> ">  
  43.   </strong></div></td> 
  44.   <td colspan="2" style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Stand By 
  45.     <input name="standby" type="text" size="13" value="<% if orsrepeso("standby")="" or isnull(orsrepeso("standby")) then
  46.     response.write "0"
  47.     else        
  48.     response.write Pro_Dato(orsrepeso("standby"))
  49.     end if
  50.      %> ">  
  51.   </strong></div></td> 
  52.   <td colspan="2"  style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Bodegaje 
  53.     <input name="bodegaje" type="text" size="13" value="<% if Pro_Dato(orsrepeso("bodegaje"))="" or isnull(Pro_Dato(orsrepeso("bodegaje"))) then        
  54.     response.write "0"
  55.     else        
  56.     response.write Pro_Dato(orsrepeso("bodegaje"))
  57.     end if
  58.      %> ">  
  59.   </strong></div></td>
  60.   <td colspan="2"  style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Otros 
  61.     <input name="otros" type="text" size="13" value="<%if Pro_Dato(orsrepeso("otros"))="" or isnull(Pro_Dato(orsrepeso("otros"))) then
  62.     mifichero.writeline "entro if otros "
  63.     response.write "0"
  64.     else        
  65.     response.write Pro_Dato(orsrepeso("otros"))
  66.     mifichero.writeline "entro else otros "
  67.     end if
  68.      %> ">  
  69.   </strong></div></td>
  70. </tr>
  71.  <tr class=xl2329424 height=27 style='mso-height-source:userset;height:20.25pt'>
  72.   <td colspan=3 height=27 class=xl2429424 width=219 style='height:20.25pt;
  73.   width:165pt'>PÓLIZA DE SEGURO ESPECIFICA:</td>
  74.   <td colspan=3 class=xl7029424 width=168 style='border-right:.5pt solid black;
  75.   width:127pt'><%if ucase(cstr(Pro_Dato(ors(30)))) = "1" then    
  76.         Response.Write "SI"
  77.       ELSE  
  78.         Response.Write "NO"
  79.       END IF
  80.     %></td>
  81.   <td colspan=3 class=xl7229424 width=226 style='border-left:none;width:169pt'>COBRAR
  82.   COSTO DE PÓLIZA / VALOR:</td>
  83.   <td colspan=2 class=xl13429424 width=151 style='border-right:1.0pt solid black;
  84.   width:113pt'><%
  85.   Response.Write ucase(cstr(Pro_Dato(ors(31))))
  86.     %></td>
  87.  </tr>
  88.  <tr class=xl2329424 height=29 style='mso-height-source:userset;height:21.75pt'>
  89.       <td colspan=3 height=29 class=xl2429424 width=219 style='height:21.75pt;
  90.   width:165pt'>INSTRUCCIONES DE PRODUCCIÓN:</td>
  91.   <td colspan=8 class=xl5629424 width=545 style='border-right:1.0pt solid black;
  92.   width:409pt'><%Response.Write ucase(cstr(Pro_Dato(ors(32))))%></td>
  93.  </tr>
  94.  <tr class=xl2329424 height=30 style='mso-height-source:userset;height:22.5pt'>
  95.       <td colspan=3 height=30 class=xl2429424 width=219 style='height:22.5pt;
  96.   width:165pt'>INSTRUCCIONES ESPECIALES DE FACTURACIÓN:</td>
  97.   <td colspan=8 class=xl8429424 width=545 style='border-right:1.0pt solid black;
  98.   width:409pt'><%Response.Write ucase(cstr(Pro_Dato(ors(33))))%></td>
  99.  </tr>
  100.  <tr class=xl2329424 height=25 style='mso-height-source:userset;height:18.75pt'>
  101.   <td colspan=3 height=25 class=xl2429424 width=219 style='height:18.75pt;
  102.   width:165pt'>NOMBRE DE QUIEN PAGA EL FLETE:</td>
  103.   <td colspan=4 class=xl5629424 width=232 style='border-right:.5pt solid black;
  104.   width:175pt'>  <%Response.Write ucase(cstr(Pro_Dato(ors(34))))%></td>
  105.   <td colspan=2 class=xl7229424 width=162 style='border-left:none;width:121pt'>CONDICIONES
  106.   DE PAGO:</td>
  107.   <td colspan=2 class=xl5629424 width=151 style='border-right:1.0pt solid black;
  108.   width:113pt'> <%Response.Write ucase(cstr(Pro_Dato(ors(35))))%></td>
  109.  </tr>
  110.  <tr class=xl2329424 height=17 style='height:12.75pt'>
  111.       <td colspan=11 height=17 class=xl5829424 width=764 style='border-right:1.0pt solid black;
  112.   height:12.75pt;width:574pt'><strong> 
  113.         <label languaje= javascript onClick="return obser_onclick()">OBSERVACIONES</label>
  114.         : </strong></td>
  115.  </tr>
  116.  <tr class=xl2329424 height=74 style='mso-height-source:userset;height:55.5pt'>
  117.   <td colspan=11 height=74 class=xl5329424 width=764 style='border-right:1.0pt solid black;
  118.   height:80.5pt;width:574pt'><textarea cols="160" rows="5"  name="observaciones" style="background-color: #E5E5E5;font-family: Bookman Old Style, serif;">
  119.   <%=Pro_Dato(ors("observaciones"))%></textarea></td>
  120.  </tr>
  121.  <tr class=xl2329424 height=20 style='mso-height-source:userset;height:height:22.5pt'>
  122.   
  123.   <td colspan=5 rowspan=4 class=xl10129424 width=232 style='width:175pt'><%Response.Write ucase(cstr(Pro_Dato(ors("ElaboradoPor"))))%></td>
  124.    <td colspan=2 rowspan=4 class=xl10129424>&nbsp;</td>
  125.   <td colspan=7 rowspan=4 class=xl10129424 width=313 style='border-right:1.0pt solid black;
  126.   width:234pt'>&nbsp;</td>
  127.  </tr>
  128.  
  129.  <tr style='mso-height-source:userset;height:10.5pt'> </tr>
  130.  <tr> </tr>
  131.  <tr > </tr>
  132.  <tr class=xl2329424 height=15 style='height:20.25pt'>
  133.   
  134.  
  135.       <td colspan=5 class=xl10229424 width=250 style='width:175pt;border-left:1.0pt solid black;'>ELABOR&Oacute;</td>
  136.        <td colspan=2 class=xl10229424 width=232 >V° B° DIRECTOR OPERATIVO</td>
  137.       <td colspan=7 class=xl10229424 width=313 style='border-right:1.0pt solid black;
  138.   border-left:1.0pt solid black;width:234pt'> V&deg;B&deg; CLIENTE</td>
  139.  </tr>
  140.  
  141.  <tr class=xl2329424 height=17 style='height:12.75pt'> </tr>
  142.  
  143.  <tr class=xl2329424 height=21 style='mso-height-source:userset;height:15.75pt;border-left:1.0pt solid black;'>
  144.   <td colspan=11 height=21 class=xl9629424 width=613 style='height:15.75pt;
  145.   width:461pt;border-right:1.0pt solid black;'><strong>
  146.         <label languaje= javascript onClick="return test_onclick()">OBSERVACIONES 
  147.         FACTURACI&Oacute;N:</label>
  148.         </strong></td>
  149.  </tr>
  150.  <tr class=xl2329424 height=17 style='height:12.75pt'>
  151.    <td colspan=11 rowspan=4 height=75 class=xl3329424 width=613 style='border-right:1.0pt solid black;height:56.25pt;width:461pt'><span class="xl33294241" style="border-right:1.0pt solid black;height:56.25pt;width:461pt;">
  152.      <textarea cols="90" rows="5" style="overflow:auto;" name="modificaciones"><%=Pro_Dato(ors("modificaciones"))%></textarea>
  153.    </span></td>
  154.  </tr>
  155.  <tr class=xl2329424 height=17 style='height:12.75pt'> </tr>
  156.  <tr class=xl2329424 height=18 style='height:13.5pt'> </tr>
  157.  <tr class=xl2329424 height=23 style='mso-height-source:userset;height:17.25pt'> </tr>
  158.  <![if supportMisalignedColumns]>
  159.  <tr height=0 style='display:none'>
  160.   <td width=113 style='width:85pt'></td>
  161.   <td width=92 style='width:69pt'></td>
  162.   <td width=14 style='width:11pt'></td>
  163.   <td width=45 style='width:34pt'></td>
  164.   <td width=54 style='width:41pt'></td>
  165.   <td width=69 style='width:52pt'></td>
  166.   <td width=64 style='width:48pt'></td>
  167.   <td width=95 style='width:71pt'></td>
  168.   <td width=67 style='width:50pt'></td>
  169.   <td width=63 style='width:47pt'></td>
  170.   <td width=88 style='width:66pt'></td>
  171.  </tr>
  172.  <![endif]>
  173. </table>
  174.  
  175. </div>
  176. </form>
  177. <%
  178. codepto1 = Pro_Dato(ors("codepto1"))
  179. codepto2 = Pro_Dato(ors("codepto2"))
  180. if cstr(codepto1) = "" then
  181. codepto1 = 200
  182. end if
  183. if cstr(codepto2) = "" then
  184. codepto2 = 200
  185. end if
  186. end if ' de por alla arriba
  187. %>
  188. </div>
  189. <%
  190.  
  191. if session("cedula") <> "" then ' cedula de julian 71516577'
  192.     if session("cedula") = ucase(cstr(Pro_Dato(ors(2)))) or session("cedula") =1020393122  then  'ojo esto es nuevo orden de produccion'
  193.     %>
  194.     <a HREF="Modificar_Orden.asp?nroOrden=<%=cual%>,<%=codepto1%>,<%=codepto2%>">Modificar</a>   
  195.     <%end if%>
  196.     <%end if%>  
  197. <%
  198. set ors = nothing
  199. set ors2 = nothing
  200. set ors3 = nothing
  201. set orsrepeso = nothing
  202. %>
  203. </body>
  204. </html>
  205.  
  206. Aca esta el resto del cod, muchas gracias.