<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="ADMIN,VENDEDOR,GERENTE,RESP_ZONA,ESPECIALISTA"
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
%>
<%
if request("ENCA")<>"" and not isnull(request("ENCA")) THEN
Response.Cookies("ENCA")=cstr(request("ENCA"))
END IF
%>
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables
If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then
MM_editConnection = MM_maq_STRING
MM_editTable = "COTS"
MM_editColumn = "IDCOTIZACION"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = ""
MM_fieldsStr = "D1|value|mtr|value|LIBRE|value|D2|value|SAV|value|MLOST|value"
MM_columnsStr = "D1|',none,''|MTR|none,1,0|LIBRE|',none,''|D2|',none,''|SAV|none,none,NULL|MLOST|',none,''|"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' 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
%>
<%'GRABA
IF REQUEST ("SAV")="1" THEN
SQLA="UPDATE COTS set LIBRE='"+REPLACE(left(REQUEST("LIBRED"),8192),"'","''")+"',SAV=1 WHERE IDCOTIZACION=" +Request.Form("MM_recordId")
'Set prmtx = Server.CreateObject("ADODB.Parameter")
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_maq_STRING
MM_editCmd.CommandText = SQLA
prmtx = MM_editCmd.CreateParameter("LIBRE" )
' MM_editCmd.Parameters.Append prmtx
'prmtx.value= request("LIBRED")
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
END IF 'FIN UPDATE INICIAL
%>
<%
' *** Update Record: set variables
If (CStr(Request("MM_update")) = "form1cl" And CStr(Request("MM_recordId")) <> "") Then
MM_editConnection = MM_maq_STRING
MM_editTable = "COTS"
MM_editColumn = "IDCOTIZACION"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = ""
MM_fieldsStr = "RAZON|value|PFINAL|value|FVENTA|value|VCAIDA|value|VENTA|value"
MM_columnsStr = "RAZON|',none,''|PFINAL|none,none,NULL|FVENTA|',none,NULL|VCAIDA|none,none,NULL|VENTA|none,none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' 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
%>
<% 'envia notificacion de Email
If (Request("MM_update") = "form1cl" And Request("MM_recordId") <> "") Then
'Enviar email para autorizar el pedido o salida de inventario
'automatizacion III
recipdata="Fecha:" + cStr(date())
recipdata=recipdata + chr(10) + chr(13)+" ip:" + request.servervariables("REMOTE_ADDR")
recipdata=recipdata + chr(10) + chr(13) +" host:" +request.servervariables("HTTP_HOST")
recipdata=recipdata + chr(10) + chr(13) + " Navegador(Ver,Windows):" + request.servervariables("HTTP_USER_AGENT")
recipdata=recipdata + chr(10) + chr(13) + " Visita desde:" +request.servervariables("HTTP_REFERER")
recipdata=recipdata + chr(10) + chr(13) + " Idioma, Pais:" + request.servervariables("HTTP_ACCEPT_LANGUAGE")
subj="SE REQUIERE AUTORIZACION PARA CONFIRMAR COTIZACION Y VENTA"
if request("VCAIDA")="1" then subj="Notificacion de Venta Caida"
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "crm@promad.com.mx"
objCDO.To = session("GERENTE") 'Cambiar a lista de distribucion.
objCDO.CC = ""
objCDO.BodyFormat=0
objCDO.BCC = "migic@xnet.com.mx"
objCDO.Subject = subj
objCDO.Body = "Este correo fue enviado del Sistema de Ventas PROMAD
servicio proveído por http://xnet.com.mx ."
objCDO.Send()
Set objCDO = Nothing
end if
%>
<%
' *** Update Record: construct a sql update statement and execute it
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & strreplace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
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 tt
Dim tt_numRows
Set tt = Server.CreateObject("ADODB.Recordset")
tt.ActiveConnection = MM_maq_STRING
tt.Source = "SELECT * FROM MAQUINA WHERE IDMAQUINA=" +IDMQ
tt.CursorType = 0
tt.CursorLocation = 2
tt.LockType = 1
tt.Open()
tt_numRows = 0
%>
<%
Dim cte__IDDBS
cte__IDDBS = "05070"
If (IDPROSP <> "") Then
cte__IDDBS = IDPROSP
End If
%>
<%
Dim cte
Dim cte_numRows
Set cte = Server.CreateObject("ADODB.Recordset")
cte.ActiveConnection = MM_maq_STRING
cte.Source = "SELECT * FROM PROSPECTOS WHERE IDCLIENTE='" + strreplace(cte__IDDBS, "'", "''") + "'"
cte.CursorType = 0
cte.CursorLocation = 2
cte.LockType = 1
cte.Open()
cte_numRows = 0
%>
<%
Dim ents
Dim ents_numRows
Set ents = Server.CreateObject("ADODB.Recordset")
ents.ActiveConnection = MM_maq_STRING
ents.Source = "SELECT COTDET.CLAVE, COTDET.DESCR FROM COTDET WHERE COTDET.IDMAQUINA=" +IDMQ +" ORDER BY IDACCESORIO"
ents.CursorType = 0
ents.CursorLocation = 2
ents.LockType = 1
ents.Open()
ents_numRows = 0
%>
<%
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,DESCRIPCION,CONFBC,MODELO FROM MAQUINA WHERE IDMAQUINA=" + strreplace(mqdescr__IDMQ, "'", "''") + ""
mqdescr.CursorType = 0
mqdescr.CursorLocation = 2
mqdescr.LockType = 1
mqdescr.Open()
mqdescr_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 30
Repeat1__index = 0
ents_numRows = ents_numRows + Repeat1__numRows
%>
<%
dim SZ()
dim DT()
dim head()
dim cpos()
KEYFL=""
imgfld="STATUS"
oclt="MAQUINA"
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
<% if NOT ct.EOF then ' Adv Conditional Region %>
<% if ct("SAV")="0" then ' Adv Conditional Region %>
<% end if 'ct("SAV")="0" %>
<% if ct("SAV")="1" then ' Adv Conditional Region %>
<% end if 'ct("SAV")="1" %>
Venta Caida:
<%tun=(ct.Fields.Item("VCAIDA").Value)
if not isnull(tun) then tun =trim(cstr(tun))
if isnull(tun) then tun="0"
response.Write(tun)
%>
Razon <%=(ct.Fields.Item("RAZON").Value)%>
<% end if 'NOT ct.EOF %>
<%
ct.Close()
Set ct = Nothing
%>
<%
ents.Close()
Set ents = Nothing
%>
<%
mqdescr.Close()
Set mqdescr = Nothing
%>
<%
tt.Close()
Set tt = Nothing
%>
<%
cte.Close()
Set cte = Nothing
%>