<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim ct__VIDCOT ct__VIDCOT = "33" If (request("id") <> "") Then ct__VIDCOT = cstr(request("id")) End If %> <% Dim ct Dim ct_numRows Set ct = Server.CreateObject("ADODB.Recordset") ct.ActiveConnection = MM_maq_STRING ct.Source = "SELECT * FROM COTS WHERE IDCOTIZACION=" + strreplace(ct__VIDCOT, "'", "''") + "" ct.CursorType = 0 ct.CursorLocation = 2 ct.LockType = 1 ct.Open() 'if ct.eof then response.Redirect("es.asp?cmd=" +"SELECT * FROM COTS WHERE IDCOTIZACION=" + strreplace(ct__VIDCOT, "'", "''") + "") ct_numRows = 0 %> <% IDMQ="1" IDPROSP="1" IF NOT ct.EOF then IDMQ=cstr(ct("IDMAQUINA")) IDPROSP=cstr(ct("IDPROSPECTO")) END IF %> <% Dim mqdescr__IDMQ mqdescr__IDMQ = "1" If (IDMQ <> "") Then mqdescr__IDMQ = IDMQ End If %> <% Dim mqdescr Dim mqdescr_numRows Set mqdescr = Server.CreateObject("ADODB.Recordset") mqdescr.ActiveConnection = MM_maq_STRING mqdescr.Source = "SELECT DESCR, MAQUINA FROM MAQUINA WHERE IDMAQUINA=" + strreplace(mqdescr__IDMQ, "'", "''") + "" mqdescr.CursorType = 0 mqdescr.CursorLocation = 2 mqdescr.LockType = 1 mqdescr.Open() mqdescr_numRows = 0 %> www.promad.com.mx
ORDEN DE COMPRA
De:   Fecha:

  Terminos de pago:
Cantidad MODELO Descripción Unitario Suma
1 <%=(mqdescr.Fields.Item("MAQUINA").Value)%>(<%=(ct.Fields.Item("PEDIDO").Value)%>) <%=(mqdescr.Fields.Item("DESCR").Value)%> <%=(ct.Fields.Item("PRECIO").Value)%> <%=(ct.Fields.Item("PRECIO").Value)%>
         
         

Embarcar a:   Enviar Correspondencia a:

  Maquinaria, S.A. de C.V.
Blvd. José Fuentes Mares No.201
Col. Sta. Rosa 31050, Chih., Chih
At´n. Raúl Avitia y/o Marisela Blanco
(614) 429-9913 E-mail raul_avitia@promad.com.mx
marisela_blanco@promad.com.mx



Aprobado por
 



 
 
<% ct.Close() Set ct = Nothing %> <% mqdescr.Close() Set mqdescr = Nothing %>