<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** 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 = "VALCOTS" MM_editColumn = "IDVAL" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "" 'NIVELRESPCIVIL MM_fieldsStr = "DOLAR|value|TASAP|value|STDLEG|value|STDFIN|value|LIBOR|value|TASAPLANTEO|value|DIASVENC|value|PORCBAD|value|INTERESRENTA|value|PORCSEGURO|value|NIVELRESPCIVIL|value|RESPCIVILINF|value|RESPCIVILSUP|value|NIVELKMFLETES|value|PORCCONSOLIDADO|value|PORCRETORNO|value" MM_columnsStr = "DOLAR|none,none,NULL|TASAP|none,none,NULL|STDLEG|none,none,NULL|STDFIN|none,none,NULL|LIBOR|none,none,NULL|TASAPLANTEO|none,none,NULL|DIASVENC|none,none,NULL|PORCBAD|none,none,NULL|INTERESRENTA|none,none,NULL|PORCSEGURO|none,none,NULL|NIVELRESPCIVIL|none,none,NULL|RESPCIVILINF|none,none,NULL|RESPCIVILSUP|none,none,NULL|NIVELKMFLETES|none,none,NULL|PORCCONSOLIDADO|none,none,NULL|PORCRETORNO|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 %> <% ' *** 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 valcots Dim valcots_numRows Set valcots = Server.CreateObject("ADODB.Recordset") valcots.ActiveConnection = MM_maq_STRING valcots.Source = "SELECT * FROM VALCOTS" valcots.CursorType = 0 valcots.CursorLocation = 2 valcots.LockType = 1 valcots.Open() valcots_numRows = 0 %> www.promad.com.mx
 
Valores de Cotización
 **** Presione Aqui para cambiar los Valores del Libor Segun los Plazos
(Usados en Todos los casos para Dólares)


Dar de Alta Codigos Bloqueados.
PARAMETROS DE FINANCIAMIENTO DE EQUIPO
DOLAR: " size="32">
TASA Cotizacion en Pesos: " size="32">
Base Gastos Legales: " size="32">
Base Gastos Financieros: " size="32">
LIBOR: " size="32">
TASA Planteo PROMAD " size="32">
Dias de Validez (Cotización) " size="32">
Porcentaje Atencion(Reporte Gerencial) " size="32">
PARAMETROS DE COTIZACION DE RENTAS
Tasa Interés para Saldo Vencido de Rentas " size="32">
PARAMETROS DEL SEGURO
Porcentaje Sobre valor de Seguro " size="32">
NIvel de Valor de Equipo para Responsabilidad Civil " size="32">
Responsabilidad Civil para montos inferiores al nivel " size="32">
Responsabilidad Civil para montos superiores al nivel " size="32">
PARAMETROS DE FLETES
Kilometros para Niveles de Flete " size="32">
Reduccion por Consolidacion de Flete " size="32">
Porcentaje para multiplicar retorno de Flete (Ida y vuelta =2) " size="32">
 
">

 

 
Valores en Muevetiera Valores En Montacargas Valores para IR
Dls   Pesos
  Plazo Eng.% Int
Datos
de Libor
Ver Arriba
0 0 0
6 0 0
12 7 10
18 9 12.5
24 10 14
36 15 15
Dls   Pesos
  Plazo Eng.% Int
Datos
de Libor
Ver Arriba
0 0 0
6 0 0
12 15 11
18 15 13
24 15 14
36 15 15
Dls   Pesos
  Plazo Eng.% Int
Datos
de Libor
Ver Arriba
0 0 0
6 0 0
12 25 13
18 25 15
24 25 16
36 25 17

Valoroes en Agricola Valores Usado
 
Dls   Pesos
  Plazo Eng%. Int
Datos
de Libor
Ver Arriba
0 0 0
1 0 0
2 30 16.75
3 30 16.75
4 30 16.75
5 30 16.75
Dls   Pesos
  Plazo Eng.% Int
Datos
de Libor
Ver Arriba
0 0 0
6 0 0
12 7 18
18 9 19
24 10 20
36 15 21



 
 
<% valcots.Close() Set valcots = Nothing %>