<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="ADMIN,VENDEDOR,GERENTE" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% ' *** Delete Record: declare variables if (CStr(Request("MM_delete")) = "form3" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_maq_STRING MM_editTable = "COTS" MM_editColumn = "IDCOTIZACION" MM_recordId = "" + Request("MM_recordId") + "" MM_editRedirectUrl = "" ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Delete Record: construct a sql delete statement and execute it If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql delete statement MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the delete Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_maq_STRING MM_editCmd.CommandText = MM_editQuery 'response.Redirect("es.asp?cmd="+MM_editQuery) MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim eqs__IDCT eqs__IDCT = "1" If (session("IDCLIENTE") <> "") Then eqs__IDCT = session("IDCLIENTE") End If %> <% Dim eqs Dim eqs_numRows Set eqs = Server.CreateObject("ADODB.Recordset") eqs.ActiveConnection = MM_maq_STRING eqs.Source = "SELECT DISTINCT(COTS.IDMAQUINA), DESCR FROM COTS, MAQUINA WHERE COTS.IDMAQUINA=MAQUINA.IDMAQUINA " eqs.CursorType = 0 eqs.CursorLocation = 2 eqs.LockType = 1 eqs.Open() eqs_numRows = 0 %> <% if request("ustatus")<>"" then Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_maq_STRING MM_editQuery="UPDATE PROSPECTOS SET STATUS=0 ,ULTIMOAC='" + CSTR(date()) + "' WHERE IDCLIENTE=" + request("MM_recordId") MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute end if %> <% Dim ents__VDOR ents__VDOR = "1" If (session("IDCLIENTE") <> "") Then ents__VDOR = session("IDCLIENTE") End If %> <% Dim ents__IDPROSP ents__IDPROSP = "1" If (request("IDPROSP") <> "") Then ents__IDPROSP = request("IDPROSP") End If %> <% Dim ents__IDMAQUINA ents__IDMAQUINA = "0" If (request("IDMAQUINA") <> "") Then ents__IDMAQUINA = request("IDMAQUINA") End If %> <% Dim ents__LCOV ents__LCOV = "LCOTSA" If (lcb <> "") Then ents__LCOV = lcb End If %> <% FLTZONA= " AND USUARIOS.ZONA='" + SESSION("ZONA") + "' AND COTS.WHO=USUARIOS.IDCLIENTE " if Session("MM_UserAuthorization")="ADMIN" THEN FLTZNA="" %> <% Dim ents Dim ents_numRows Set ents = Server.CreateObject("ADODB.Recordset") ents.ActiveConnection = MM_maq_STRING ents.Source = "SELECT * FROM " + strreplace(ents__LCOV, "'", "''") + "('',''," + strreplace(ents__VDOR, "'", "''") + "," + strreplace(ents__IDPROSP, "'", "''") + "," + strreplace(ents__IDMAQUINA, "'", "''") + ")" ents.CursorType = 0 ents.CursorLocation = 2 ents.LockType = 1 ents.Open() ents_numRows = 0 %> <% Dim PROSPECTOS Dim PROSPECTOS_numRows Set PROSPECTOS = Server.CreateObject("ADODB.Recordset") PROSPECTOS.ActiveConnection = MM_maq_STRING PROSPECTOS.Source = "SELECT * FROM PROSPS ORDER BY COMPANIA" PROSPECTOS.CursorType = 0 PROSPECTOS.CursorLocation = 2 PROSPECTOS.LockType = 1 PROSPECTOS.Open() PROSPECTOS_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 30 Repeat1__index = 0 ents_numRows = ents_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim ents_total Dim ents_first Dim ents_last ' set the record count ents_total = ents.RecordCount ' set the number of rows displayed on this page If (ents_numRows < 0) Then ents_numRows = ents_total Elseif (ents_numRows = 0) Then ents_numRows = 1 End If ' set the first and last displayed record ents_first = 1 ents_last = ents_first + ents_numRows - 1 ' if we have the correct record count, check the other stats If (ents_total <> -1) Then If (ents_first > ents_total) Then ents_first = ents_total End If If (ents_last > ents_total) Then ents_last = ents_total End If If (ents_numRows > ents_total) Then ents_numRows = ents_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (ents_total = -1) Then ' count the total records by iterating through the recordset ents_total=0 While (Not ents.EOF) ents_total = ents_total + 1 ents.MoveNext Wend ' reset the cursor to the beginning If (ents.CursorType > 0) Then ents.MoveFirst Else ents.Requery End If ' set the number of rows displayed on this page If (ents_numRows < 0 Or ents_numRows > ents_total) Then ents_numRows = ents_total End If ' set the first and last displayed record ents_first = 1 ents_last = ents_first + ents_numRows - 1 If (ents_first > ents_total) Then ents_first = ents_total End If If (ents_last > ents_total) Then ents_last = ents_total End If End If %> <% dim SZ() dim DT() dim head() dim cpos() KEYFL="IDCOTIZACION" imgfld="VENTA" oclt="IDCLIENTE|IDCOTIZACION|IDDBSCTE" redim SZ(ents.Fields.Count) redim DT(ents.Fields.Count) redim head(ents.Fields.Count) redim cpos(ents.Fields.Count) for n=0 to ents.Fields.Count-1 SZ(n)= cstr(ents.Fields.Item(n).DefinedSize ) DT(n)= cstr(ents.Fields.Item(n).Type ) head(n)=cstr(ents.Fields.Item(n).name) cpos(n)=cstr(ents.Fields.Item(n).name) next %> <%rem response.Redirect("es.asp?cmd="+cpos(4))%> www.promad.com.mx
 
<% WDAYS="30"%>
Resumen de Cotizaciones
<% if ents_total>Repeat1__numRows then rm=0 reps=ents_total/Repeat1__numRows while rm<=reps response.write ("" + cstr(rm+1) + " ") rm=rm+1 wend end if %>
<% If MM_offset <> 0 Then %> <% End If ' end MM_offset <> 0 %> <% If MM_offset <> 0 Then %> <% End If ' end MM_offset <> 0 %> <% If Not MM_atTotal Then %> <% End If ' end Not MM_atTotal %> <% If Not MM_atTotal Then %> <% End If ' end Not MM_atTotal %>
  Cotizaciones <%=(ents_first)%> al <%=(ents_last)%> de <%=(ents_total)%>
<%for i=0 to Ubound(head)%> <% if instr(oclt,head(i))<=0 then %> <%end if %> <% next %> <% While ((Repeat1__numRows <> 0) AND (NOT ents.EOF)) %> " > <%for i=0 to Ubound(head)-1%> <% if instr(oclt,head(i))<=0 then %> <% end if %> <% next %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 ents.MoveNext() Wend %>
Nueva Cotizacion <%=head(i) %>
<% if KEYFL<>"" then %> Imprimir&MM_delete=form3&MM_recordId=<%=ents(KEYFL)%>" onClick="GP_popupConfirmMsg('Esta seguro que desea eliminar esta cotización, esta operación no es reversible');return document.MM_returnValue">Eliminar Cotizacion &Ustatus=1&MM_recordId=<%=ents("IDCLIENTE")%>" onClick="GP_popupConfirmMsg('Esta seguro que desea cambiar el estatus de esta cotización');return document.MM_returnValue">Actualizar Estatus de Cliente <% end if %> " ><%val=ents(cpos(i)) if isnull(val) then val="0" if cpos(i)=imgfld then if (ents("WARN"))-date()>=WDAYS*.33 then val="3" if (ents("WARN"))-date()<=WDAYS*.33 then val="2" if (ents("WARN"))-date()<=0 then val="1" if not isnull(ents("WARN")) THEN response.write("(" +cstr((ents("WARN"))-date())+")") end if IF cpos(i)=imgfld then response.write ("" ) else IF ISNUMERIC(ents(cpos(i))) THEN RESPONSE.Write(FormatCurrency(ents(cpos(i)), 2, -2, -2, -2)) else RESPONSE.WRITE(ents(cpos(i))) %>
<% %>



 
 
<% eqs.Close() Set eqs = Nothing %> <% ents.Close() Set ents = Nothing %> <% PROSPECTOS.Close() Set PROSPECTOS = Nothing %>