AF/CatTiposServiciosMateriales.aspx.cs

@@ -33,7 +33,7 @@ public partial class AF_CatTiposServiciosMateriales : ClsPaginas
     private void CargaDatos()
     {
         ClsAF ObjAF = new ClsAF();
-        if (ObjAF.GetTiposServiciosMaterial(-1, -1))
+        if (ObjAF.GetTiposServiciosMaterial(-1, -1,UsuarioActual.CveEmpresa ))
         {
             GvDatos.DataSource = ObjAF.DtResultados;
             GvDatos.DataBind();
@@ -85,7 +85,7 @@ public partial class AF_CatTiposServiciosMateriales : ClsPaginas
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         CveTipoServicioMaterial = GvRow.DataKey("CveTipoServicioMaterial").ToEntero();
         ClsAF ObjAF = new ClsAF();
-        if (ObjAF.DeleteTiposServiciosMaterial(CveTipoServicioMaterial))
+        if (ObjAF.DeleteTiposServiciosMaterial(CveTipoServicioMaterial,UsuarioActual.CveEmpresa))
         {
             CargaDatos();
             UpDatos.Update();

App_Code/ClsContabilidad.vb

@@ -5723,8 +5723,8 @@ Public Class ClsContabilidad
     End Function
 
     Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
-                                           Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1,
-                                           Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1) As Boolean
+                                           Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
+                                           Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesAdd")
@@ -5739,6 +5739,7 @@ Public Class ClsContabilidad
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+            .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
         End With
 
         Try
@@ -5773,7 +5774,7 @@ Public Class ClsContabilidad
     Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
                                               Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
                                               Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
-                                              Optional PorcentajeIVA As Decimal = -1) As Boolean
+                                              Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -5789,6 +5790,7 @@ Public Class ClsContabilidad
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+            .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
         End With
 
         Try

App_Code/ClsNominas.vb

@@ -2031,6 +2031,28 @@ Public Class ClsNominas
             End With
 
 
+            SqlAdapter.Fill(DTSet)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function GetCalculoSBC(CveEmpresa As Integer, FechaCalculo As String) As Boolean
+        Dim retorno As Boolean = False
+        Try
+            DTSet = New DataSet()
+            DataAdapter("PA_GetCalculoSBC", CommandType.StoredProcedure)
+            With SqlAdapter.SelectCommand.Parameters
+                .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+                .Add("@Fecha", SqlDbType.Date).Value = FechaCalculo
+            End With
+
             SqlAdapter.Fill(DTSet)
             retorno = True
         Catch sqEx As SqlException

App_Code/ClsPaginas.vb

@@ -3816,7 +3816,8 @@ Public Class ClsPaginas
         If Application("GlobalSIGAppPaginas") Is Nothing Then
             PaginaDict = New System.Collections.Hashtable
 
-            PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916)
+            PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915)
             PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
             PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)
             PaginaDict.Add("/General/CATIEPSxEntidadFed.aspx".ToUpper(), 719)

App_Code/Empresa.vb

@@ -3,7 +3,7 @@ Option Strict On
 
 <Serializable()>
 Public Class Empresa
-
+    Public Property GralSoloProyecto As Boolean
     Public Property CveEmpresa As Integer
     Public Property Empresa As String
     Public Property NombreCorto As String

Bancos/PopIE.aspx.vb

@@ -363,4 +363,44 @@ Partial Class Bancos_PopIE
             End If
         End If
     End Sub
+
+    Protected Sub BtnEliminarCompra_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Protected Sub CVImporteDolares_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+    End Sub
+
+    Protected Sub CVImportePesos_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+    End Sub
+
+    Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Protected Sub ChkPagarPesosDeudores_CheckedChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Protected Sub ChkPagarDolaresDeudores_CheckedChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Protected Sub CvImporteDolaresDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+    End Sub
+
+    Protected Sub CveImportePesosDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+    End Sub
 End Class

Bancos/RepComprobaciones.aspx.cs

@@ -61,7 +61,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
     }
     protected void CargaCuentas()
     {
-        DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros("Banco = 'Empresa'");
+        DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Banco = 'Empresa'");
         DdlCuentas.DataBind();
         DdlCuentas.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlCuentas.SelectedValue = "-1";

Bancos/RepProgramarRecursos.aspx.vb

@@ -160,7 +160,7 @@ Partial Class Bancos_RepProgramarRecursos
             Opcion = IfNull(Request("Op"), "-1").ToString
 
 
-            If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
+            If True Then 'UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
                 TdProyecto.Visible = False
                 TdSubProyectoTitulo.Visible = False
                 Dim script As String = "Sys.Application.add_load(function (s, e) { $('#tsubprocto').slideDown(200); $('#subproyecto').before($('#dropsubproyecto'));  });"

Compras/CatTipoGasto.aspx.cs

@@ -46,7 +46,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
         ClsCompras ObjCompras = new ClsCompras();
         if (ObjCompras.GetTipoGasto(-1, -1))
         {
-            set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
+            set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa,1, ObjCompras.DtResultados);
         }
         ObjCompras.Dispose();
     }

Compras/RepPagado.aspx.cs

@@ -129,7 +129,7 @@ public partial class Compras_RepPagado : ClsPaginas
         DdlCuentaBancaria.Items.Clear();
         if (DdlBanco.SelectedValue.ToEntero() > 0)
         {
-            DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
+            DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
         }
         DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlCuentaBancaria.DataBind();

Compras/RepPagadoPeriodo.aspx.cs

@@ -137,7 +137,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         DdlCuentaBancaria.Items.Clear();
         if (DdlBanco.SelectedValue.ToEntero() > 0)
         {
-            DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
+            DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
         }
         DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlCuentaBancaria.DataBind();

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -24,7 +24,7 @@
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover ScrollAD" 
-                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina" AutoGenerateColumns="False" 
                 Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
@@ -106,6 +106,10 @@
                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtPorcentajeIVA" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨PorcentajeIVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
                                             <label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
                                         </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <label for="<%= DdlConceptoNomina.ClientID.ToString()%>">Concepto nómina: </label>
+                                        </div>
                                     </div>
                                 </div>
                             </div>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -31,6 +31,9 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Private Sub CargaDatosModal()
+
+        DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
+        DdlConceptoNomina.DataBind()
         Dim ObjConta As New ClsContabilidad
 
         If ObjConta.GetConta_ConceptosContables() Then
@@ -60,6 +63,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlClasificacion.DataBind()
         DdlAlmacen.DataBind()
 
+        DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -72,6 +76,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
         DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
         DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
+        DdlConceptoNomina.SelectedValue = GvRow.DataKey("CveConceptoNomina").ToEntero
         DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
         DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
         DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
@@ -123,6 +128,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlProveedor.SelectedValue = -1
         DdlClasificacion.SelectedValue = -1
         DdlAlmacen.SelectedValue = -1
+        DdlConceptoNomina.SelectedValue = -1
         TxtIdCuentaContable.Text = ""
         TxtPorcentajeIVA.Text = ""
         DdlClientes.ddl.DataSource = ""
@@ -143,13 +149,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
-                ErrorString = "Error al Agregar"
+                ErrorString = "Error al agregar"
             End If
         ElseIf LbAgregar.Text = "Actualizar" Then
             If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
-                ErrorString = "Error al Actualizar"
+                ErrorString = "Error al actualizar"
             End If
         End If
         ObjConta.Dispose()

Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb

@@ -270,19 +270,19 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
         End If
     End Sub
 
-    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
-        If Not IsNothing(DtDatos) Then
-            ImprimirReporte()
-        End If
-    End Sub
+    'Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+    '    If Not IsNothing(DtDatos) Then
+    '        ImprimirReporte()
+    '    End If
+    'End Sub
 
-    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
-        If Not IsNothing(DtDatos) Then
-            ImprimirReporte("Excel")
-            'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
-            'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
-        End If
-    End Sub
+    'Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+    '    If Not IsNothing(DtDatos) Then
+    '        ImprimirReporte("Excel")
+    '        'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+    '        'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
+    '    End If
+    'End Sub
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
         'ubicacion del rdlc
         Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"

Contabilidad2/RepAnexoCatalogoVertical.aspx.vb

@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12) Then
+        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12, UsuarioActual.CveUsuario) Then
             Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
             GvCC.DataSource = Conta.DSResultados.Tables(1)
 

Contratos/ContratosSecciones.aspx

@@ -1,6 +1,6 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratosSecciones.aspx.vb" Inherits="Contratos_ContratosSecciones" %>
 
-<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>
+<%--<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>--%>
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -13,7 +13,7 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
+    <%--<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:Panel ID="PnlFiltros" runat="server" DefaultButton="CmdConsultar">
                 <table border="0" cellpadding="0" cellspacing="0" width="100%" style="display: none;">
@@ -244,7 +244,7 @@
                 <cc1:Map Visible="False" ID="MapGeom" runat="server" Height="350px" Width="350px" MapUnit="Meter" ImageFormat="Png" EnableSession="false" PixelPerInch="100" ImageTempDirectory="/Temp" BackColor="#f2efe9" FontQuality="ClearType" ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />
             </td>
         </tr>
-    </table>
+    </table>--%>
     <br />
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Contratos/ContratosSecciones.aspx.vb

@@ -15,504 +15,504 @@ Partial Class Contratos_ContratosSecciones
     Inherits ClsPaginas
 
 
-#Region "Propiedades"
-    Private Property PorBoton As Boolean
-    Private Property CveContratoSeccion As Integer
-        Get
-            Return ViewState("CveContratoSeccion").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveContratoSeccion") = value
-        End Set
-    End Property
-
-    Private Property CveContrato As Integer
-        Get
-            Return ViewState("CveContrato").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveContrato") = value
-        End Set
-    End Property
-
-    Private Property CveClasificacion As Integer
-        Get
-            Return ViewState("CveClasificacion").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveClasificacion") = value
-        End Set
-    End Property
-
-    Private Property Tipo As String
-        Get
-            Return ViewState("Tipo").ToString
-        End Get
-        Set(value As String)
-            ViewState("Tipo") = value
-        End Set
-    End Property
-
-    Private Property Modalidad As Integer
-        Get
-            Return ViewState("Modalidad").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("Modalidad") = value
-        End Set
-    End Property
-
-    Private Property DtDatos As DataTable
-        Get
-            Return CType(ViewState("DtDatos"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtDatos") = value
-        End Set
-    End Property
-
-    Private Property Seleccionado As String
-        Get
-            Return ViewState("Seleccionado").ToString
-        End Get
-        Set(value As String)
-            ViewState("Seleccionado") = value
-        End Set
-    End Property
-#End Region
-
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-
-            ViewState("Orden") = ""
-
-            PorBoton = False
-            Modalidad = Request("Contratos").ToEntero
-            ConfiguraModalidad()
-            'CveContratoSeccion = -1
-            'CargaSeccion()
-            'CargaContratos()
-            'CargaClasificacion()
-
-            Seleccionado = ""
-            CargaMapaGeom(-52441177.6239012, 3577172.53285846)
-            CveContrato = IfNull(Request("CveContrato"), -1).ToString.ToEntero
-            CveClasificacion = IfNull(Request("CveClasificacion"), -1).ToString.ToEntero
-            Tipo = IfNull(Request("Tipo"), "Con").ToString
-            CargaDatos()
-
-            DdlPS.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
-
-
-            'Me.txtFechaF.Text = Now.ToShortDateString
-            'Dim Row() As DataRow = GlobalDTFechasContratosSecciones.Select("CveContratosQueja = -1 AND CveEstatus = 1")
-            'If Row.Length > 0 Then
-            '	txtFechaI.Text = Row(0)("Fecha").ToString.ToDate.ToShortDateString()
-            'End If
-            'RegistraScript("try { Browser();Acomoda(); } catch (e) {alert(e);}")
-        End If
-        CargaMapa()
-
-    End Sub
-
-    Private Sub ConfiguraModalidad()
-        'If Modalidad = 1 Then
-        '	TrProgramar.Visible = True
-        LblTitulo.Text = "Contratos Secciones"
-        'ElseIf Modalidad = 2 Then
-        '	TrBitacora.Visible = True
-        '	LblTitulo.Text = "Bitácoras"
-        '	Page.Title = "SAT - Imprimir Bitácoras"
-        '	TxtFechaIBit.Text = Now.ToShortDateString
-        '	TxtFechaFBit.Text = Now.ToShortDateString
-        'End If
-    End Sub
-
-    Private Sub CargaSeccion()
-        Dim dt As DataTable = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlSeccion.DataSource = dt
-        DdlSeccion.DataBind()
-        DdlSeccion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
-        DdlSeccionAdd.DataSource = dt
-        DdlSeccionAdd.DataBind()
-
-    End Sub
-
-    Protected Sub ChkPermitirAvance_CheckedChanged(sender As Object, e As EventArgs)
-        Dim ObjContrato As New ClsContratos
-        Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
-        ObjContrato.PermitirAvance(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
-        ObjContrato.Dispose()
-        Alert("Se ha permitido avance a la sección")
-        CargaDatos()
-    End Sub
-
-    Protected Sub ChkPermitirEstimacion_CheckedChanged(sender As Object, e As EventArgs)
-        Dim ObjContrato As New ClsContratos
-        Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
-        ObjContrato.PermitirEstimacion(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
-        ObjContrato.Dispose()
-        Alert("Se ha permitido estimar en la sección")
-        CargaDatos()
-    End Sub
-
-#Region "C O M B O S"
-    Private Sub CargaContratosAdd()
-        DdlContratoAdd.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlContratoAdd.DataBind()
-        ' DdlContratoAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
-    End Sub
-    Private Sub CargaClasificacionAdd()
-        DdlClasificacionAdd.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlClasificacionAdd.DataBind()
-        ' DdlClasificacionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
-    End Sub
-    Private Sub CargaPSAdd()
-        Dim ObjPS As New ClsProductosServicios
-        If ObjPS.GetPS(-1, DdlClasificacionAdd.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
-            DdlPSAdd.DataSource = ObjPS.DtResultados
-        Else
-            DdlPSAdd.DataSource = Nothing
-        End If
-        DdlPSAdd.DataBind()
-
-        ObjPS.Dispose()
-        'DdlPSAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
-    End Sub
-    Private Sub CargaSeccionAdd()
-        'DdlSeccionAdd.DataSource = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        'DdlSeccionAdd.DataBind()
-        'DdlSeccionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
-        Dim ObjSecciones As New ClsContratos
-        If ObjSecciones.GetSecciones() Then
-            DdlSeccionAdd.DataSource = ObjSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            DdlSeccionAdd.DataBind()
-
-        End If
-
-        ObjSecciones.Dispose()
-
-    End Sub
-    Private Sub CargaContratos()
-        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlContrato.DataBind()
-        DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlContrato.SelectedValue = "7"
-    End Sub
-    Private Sub CargaClasificacion()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
-        DdlClasificacion.DataBind()
-        DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
-    End Sub
-    'Private Sub CargaCategorias()
-    '    DdlPartidas.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
-    '    DdlPartidas.DataBind()
-    '    DdlPartidas.Items.Insert(0, New ListItem("Todas", "-1"))
-    'End Sub
-    Private Sub CargaPS()
-        Dim ObjPS As New ClsProductosServicios
-        If ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
-            DdlPS.DataSource = ObjPS.DtResultados.FiltraParametros("", "PS")
-        Else
-            DdlPS.DataSource = Nothing
-        End If
-        DdlPS.DataBind()
-
-        ObjPS.Dispose()
-        DdlPS.Items.Insert(0, New ListItem("Todas", "-1"))
-    End Sub
-#End Region
-    Protected Sub CmdConsultar_Click(sender As Object, e As System.EventArgs) Handles CmdConsultar.Click
-        CargaDatos()
-    End Sub
-
-    Private Sub CargaDatos()
-        PorBoton = True
-        Dim ContratosSecciones As New ClsContratos()
-
-
-        If ContratosSecciones.GetRepContratosAvancesDetalle(-1, CveContrato, CveClasificacion, Tipo, UsuarioActual.CveEmpresa) Then
-            'If ContratosSecciones.GetContratosSecciones(-1, DdlEstatus.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, -1, -1, FechaI, FechaF) Then
-            DtDatos = ContratosSecciones.DtResultados
-            'DtDatos.Rows.RemoveAt(0)
-            'DtDatos.Rows.RemoveAt(0)
-            ' Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()) = ContratosSecciones.DtResultados
-            GV.DataSource = DtDatos
-
-
-            LblTitulo.Text = "Cliente: " & DtDatos.MAX("Cliente")
-
-            DtDatos = DtDatos.FiltraParametros("CveContratoSeccion > 0")
-
-        Else
-            GV.DataSource = Nothing
-        End If
-        ContratosSecciones.Dispose()
-        GV.DataBind()
-        CargaMapa()
-        mapa.ZoomFull()
-        UpDatos.Update()
-    End Sub
-
-    Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand
-        If e.CommandName = "Sel" Then
-            Seleccionado = e.CommandArgument.ToString
-            'GV.SelectRow(e.CommandArgument.ToString.ToEntero - 1)
-            CargaMapa()
-        End If
-
-    End Sub
-
-    'Protected Sub GV_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GV.RowCreated
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
-    '        e.Row.ClientIDMode = ClientIDMode.Static
-    '        e.Row.ID = String.Format("Tr-{0}", e.Row.DBCampo("ID_GIS"))
-    '    End If
-
-    'End Sub
-
-    Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(300) 'Seccion
-                e.Row.Cells(1).Width = Unit.Pixel(100) 'SubSeccion
-                e.Row.Cells(2).Width = Unit.Pixel(120) 'Cantidad
-                e.Row.Cells(3).Width = Unit.Pixel(100) 'PU
-                e.Row.Cells(4).Width = Unit.Pixel(100) 'Permitir Avance
-                e.Row.Cells(5).Width = Unit.Pixel(100) 'Permitir Estimacion
-                'e.Row.Cells(6).Width = Unit.Pixel(100) 'Número Estimación
-                ' e.Row.Cells(7).Width = Unit.Pixel(100) 'Factura
-            End If
-
-            e.Row.ClientIDMode = ClientIDMode.Static
-            e.Row.ID = String.Format("Tr{0}", e.Row.DBCampo("ID_GIS"))
-
-            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
-
-            If e.Row.DBCampo("NumeroContrato") = "" Then
-                e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
-            ElseIf e.Row.DBCampo("Partida") = "" Then
-                e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
-            ElseIf e.Row.DBCampo("PS") = "" Then
-                e.Row.CssClass = "SubTotales" : e.Row.Height = 25
-            ElseIf e.Row.DBCampo("Seccion") = "" Then
-                e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
-            End If
-
-        End If
-    End Sub
-
-    Private Sub CargaGrid(ByVal Orden As String)
-
-        If Orden <> String.Empty Then
-            Dim DV As New DataView(CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable), "", Orden, DataViewRowState.CurrentRows)
-            GV.DataSource = DV.ToTable()
-            DV.Dispose()
-        Else
-            GV.DataSource = CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable)
-        End If
-
-        GV.DataBind()
-        UpDatos.Update()
-
-    End Sub
-
-    'Protected Sub CmdBuscar_Click(sender As Object, e As System.EventArgs) Handles CmdBuscar.Click
-    '	Dim ObjBitacora As New ClsBitacora()
-
-    '	Dim FechaI, FechaF As String
-    '	FechaI = If(IsDate(TxtFechaIBit.Text.Trim()), TxtFechaIBit.Text.Trim(), "-1")
-    '	FechaF = If(IsDate(TxtFechaFBit.Text.Trim()), TxtFechaFBit.Text.Trim(), "-1")
-
-    '	If ObjBitacora.GetBitacora(DdlContratos.SelectedValue, FechaI, FechaF) Then
-    '		GVBitacora.DataSource = ObjBitacora.DtResultados
-    '	Else
-    '		GVBitacora.DataSource = Nothing
-    '	End If
-    '	ObjBitacora.Dispose()
-
-    '	GVBitacora.DataBind()
-    'End Sub
-    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-        CargaPS()
-    End Sub
-
-    Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregar.Click
-        RegistraScript("PosicionaObjeto('BtnAgregar','divContrato','');")
-        TrContratos.Visible = True
-        divContrato.Visible = True
-        CargaContratosAdd()
-        CargaClasificacionAdd()
-        CargaSeccionAdd()
-        UpContratos.Update()
-        'Dim con As New ClsContratos
-        'con.AddContratosSecciones(DdlContrato.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero, 5, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-        'con.Dispose()
-    End Sub
-
-    Protected Sub DdlClasificacionAdd_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacionAdd.SelectedIndexChanged
-        CargaPSAdd()
-    End Sub
-
-    Protected Sub BtnAgregarContratoSeccion_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarContratoSeccion.Click
-        Dim ObjContratosSecciones As New ClsContratos
-        If ObjContratosSecciones.AddContratosSecciones(DdlContratoAdd.SelectedValue.ToEntero, DdlSeccionAdd.SelectedValue.ToEntero, DdlPSAdd.SelectedValue.ToEntero, TxtCantidad.Text.Trim.ToDouble, TxtPU.Text.Trim.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            TxtCantidad.Text = ""
-            TxtPU.Text = ""
-            Alert("El Nuevo Contrato Sección se Agregó Correctamente.", TipoMensaje.MsgInformacion)
-            UpContratos.Update()
-            ViewState("DTContratosSecciones") = ObjContratosSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            CargaDatos()
-
-        End If
-        ObjContratosSecciones.Dispose()
-
-    End Sub
-
-    Protected Sub LBFoto_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
-
-        Dim LB As LinkButton = CType(Sender, LinkButton)
-        divFotos.Visible = True
-
-        Dim Con As New ClsContratos
-        If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
-            Dim dt As DataTable = Con.DtResultados
-            RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divFotos','');")
-            If dt.Rows.Count > 0 Then
-                Img1.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img1").ToString
-                If dt.Rows(0)("Img2").ToString <> "" Then
-                    Img2.Visible = True
-                    Img2.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img2").ToString
-                End If
-                If dt.Rows(0)("Img3").ToString <> "" Then
-                    Img3.Visible = True
-                    Img3.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img3").ToString
-                End If
-            End If
-            UPFoto.Update()
-        End If
-        Con.Dispose()
+    '#Region "Propiedades"
+    '    Private Property PorBoton As Boolean
+    '    Private Property CveContratoSeccion As Integer
+    '        Get
+    '            Return ViewState("CveContratoSeccion").ToString.ToEntero
+    '        End Get
+    '        Set(value As Integer)
+    '            ViewState("CveContratoSeccion") = value
+    '        End Set
+    '    End Property
+
+    '    Private Property CveContrato As Integer
+    '        Get
+    '            Return ViewState("CveContrato").ToString.ToEntero
+    '        End Get
+    '        Set(value As Integer)
+    '            ViewState("CveContrato") = value
+    '        End Set
+    '    End Property
+
+    '    Private Property CveClasificacion As Integer
+    '        Get
+    '            Return ViewState("CveClasificacion").ToString.ToEntero
+    '        End Get
+    '        Set(value As Integer)
+    '            ViewState("CveClasificacion") = value
+    '        End Set
+    '    End Property
+
+    '    Private Property Tipo As String
+    '        Get
+    '            Return ViewState("Tipo").ToString
+    '        End Get
+    '        Set(value As String)
+    '            ViewState("Tipo") = value
+    '        End Set
+    '    End Property
+
+    '    Private Property Modalidad As Integer
+    '        Get
+    '            Return ViewState("Modalidad").ToString.ToEntero
+    '        End Get
+    '        Set(value As Integer)
+    '            ViewState("Modalidad") = value
+    '        End Set
+    '    End Property
+
+    '    Private Property DtDatos As DataTable
+    '        Get
+    '            Return CType(ViewState("DtDatos"), DataTable)
+    '        End Get
+    '        Set(value As DataTable)
+    '            ViewState("DtDatos") = value
+    '        End Set
+    '    End Property
+
+    '    Private Property Seleccionado As String
+    '        Get
+    '            Return ViewState("Seleccionado").ToString
+    '        End Get
+    '        Set(value As String)
+    '            ViewState("Seleccionado") = value
+    '        End Set
+    '    End Property
+    '#End Region
+
+    '    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+    '        If Not IsPostBack Then
+
+    '            ViewState("Orden") = ""
+
+    '            PorBoton = False
+    '            Modalidad = Request("Contratos").ToEntero
+    '            ConfiguraModalidad()
+    '            'CveContratoSeccion = -1
+    '            'CargaSeccion()
+    '            'CargaContratos()
+    '            'CargaClasificacion()
+
+    '            Seleccionado = ""
+    '            CargaMapaGeom(-52441177.6239012, 3577172.53285846)
+    '            CveContrato = IfNull(Request("CveContrato"), -1).ToString.ToEntero
+    '            CveClasificacion = IfNull(Request("CveClasificacion"), -1).ToString.ToEntero
+    '            Tipo = IfNull(Request("Tipo"), "Con").ToString
+    '            CargaDatos()
+
+    '            DdlPS.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+
+
+    '            'Me.txtFechaF.Text = Now.ToShortDateString
+    '            'Dim Row() As DataRow = GlobalDTFechasContratosSecciones.Select("CveContratosQueja = -1 AND CveEstatus = 1")
+    '            'If Row.Length > 0 Then
+    '            '	txtFechaI.Text = Row(0)("Fecha").ToString.ToDate.ToShortDateString()
+    '            'End If
+    '            'RegistraScript("try { Browser();Acomoda(); } catch (e) {alert(e);}")
+    '        End If
+    '        CargaMapa()
+
+    '    End Sub
+
+    '    Private Sub ConfiguraModalidad()
+    '        'If Modalidad = 1 Then
+    '        '	TrProgramar.Visible = True
+    '        LblTitulo.Text = "Contratos Secciones"
+    '        'ElseIf Modalidad = 2 Then
+    '        '	TrBitacora.Visible = True
+    '        '	LblTitulo.Text = "Bitácoras"
+    '        '	Page.Title = "SAT - Imprimir Bitácoras"
+    '        '	TxtFechaIBit.Text = Now.ToShortDateString
+    '        '	TxtFechaFBit.Text = Now.ToShortDateString
+    '        'End If
+    '    End Sub
+
+    '    Private Sub CargaSeccion()
+    '        Dim dt As DataTable = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '        DdlSeccion.DataSource = dt
+    '        DdlSeccion.DataBind()
+    '        DdlSeccion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+    '        DdlSeccionAdd.DataSource = dt
+    '        DdlSeccionAdd.DataBind()
+
+    '    End Sub
+
+    '    Protected Sub ChkPermitirAvance_CheckedChanged(sender As Object, e As EventArgs)
+    '        Dim ObjContrato As New ClsContratos
+    '        Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
+    '        ObjContrato.PermitirAvance(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
+    '        ObjContrato.Dispose()
+    '        Alert("Se ha permitido avance a la sección")
+    '        CargaDatos()
+    '    End Sub
+
+    '    Protected Sub ChkPermitirEstimacion_CheckedChanged(sender As Object, e As EventArgs)
+    '        Dim ObjContrato As New ClsContratos
+    '        Dim Row As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
+    '        ObjContrato.PermitirEstimacion(GV.DataKeys(Row.RowIndex).Value.ToString.ToEntero, DirectCast(sender, CheckBox).Checked)
+    '        ObjContrato.Dispose()
+    '        Alert("Se ha permitido estimar en la sección")
+    '        CargaDatos()
+    '    End Sub
+
+    '#Region "C O M B O S"
+    '    Private Sub CargaContratosAdd()
+    '        DdlContratoAdd.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '        DdlContratoAdd.DataBind()
+    '        ' DdlContratoAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+    '    End Sub
+    '    Private Sub CargaClasificacionAdd()
+    '        DdlClasificacionAdd.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '        DdlClasificacionAdd.DataBind()
+    '        ' DdlClasificacionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+    '    End Sub
+    '    Private Sub CargaPSAdd()
+    '        Dim ObjPS As New ClsProductosServicios
+    '        If ObjPS.GetPS(-1, DdlClasificacionAdd.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+    '            DdlPSAdd.DataSource = ObjPS.DtResultados
+    '        Else
+    '            DdlPSAdd.DataSource = Nothing
+    '        End If
+    '        DdlPSAdd.DataBind()
+
+    '        ObjPS.Dispose()
+    '        'DdlPSAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+    '    End Sub
+    '    Private Sub CargaSeccionAdd()
+    '        'DdlSeccionAdd.DataSource = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '        'DdlSeccionAdd.DataBind()
+    '        'DdlSeccionAdd.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
+    '        Dim ObjSecciones As New ClsContratos
+    '        If ObjSecciones.GetSecciones() Then
+    '            DdlSeccionAdd.DataSource = ObjSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '            DdlSeccionAdd.DataBind()
+
+    '        End If
+
+    '        ObjSecciones.Dispose()
+
+    '    End Sub
+    '    Private Sub CargaContratos()
+    '        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '        DdlContrato.DataBind()
+    '        DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
+    '        DdlContrato.SelectedValue = "7"
+    '    End Sub
+    '    Private Sub CargaClasificacion()
+    '        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+    '        DdlClasificacion.DataBind()
+    '        DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
+    '    End Sub
+    '    'Private Sub CargaCategorias()
+    '    '    DdlPartidas.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+    '    '    DdlPartidas.DataBind()
+    '    '    DdlPartidas.Items.Insert(0, New ListItem("Todas", "-1"))
+    '    'End Sub
+    '    Private Sub CargaPS()
+    '        Dim ObjPS As New ClsProductosServicios
+    '        If ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+    '            DdlPS.DataSource = ObjPS.DtResultados.FiltraParametros("", "PS")
+    '        Else
+    '            DdlPS.DataSource = Nothing
+    '        End If
+    '        DdlPS.DataBind()
+
+    '        ObjPS.Dispose()
+    '        DdlPS.Items.Insert(0, New ListItem("Todas", "-1"))
+    '    End Sub
+    '#End Region
+    '    Protected Sub CmdConsultar_Click(sender As Object, e As System.EventArgs) Handles CmdConsultar.Click
+    '        CargaDatos()
+    '    End Sub
+
+    '    Private Sub CargaDatos()
+    '        PorBoton = True
+    '        Dim ContratosSecciones As New ClsContratos()
+
+
+    '        If ContratosSecciones.GetRepContratosAvancesDetalle(-1, CveContrato, CveClasificacion, Tipo, UsuarioActual.CveEmpresa) Then
+    '            'If ContratosSecciones.GetContratosSecciones(-1, DdlEstatus.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, -1, -1, FechaI, FechaF) Then
+    '            DtDatos = ContratosSecciones.DtResultados
+    '            'DtDatos.Rows.RemoveAt(0)
+    '            'DtDatos.Rows.RemoveAt(0)
+    '            ' Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()) = ContratosSecciones.DtResultados
+    '            GV.DataSource = DtDatos
+
+
+    '            LblTitulo.Text = "Cliente: " & DtDatos.MAX("Cliente")
+
+    '            DtDatos = DtDatos.FiltraParametros("CveContratoSeccion > 0")
+
+    '        Else
+    '            GV.DataSource = Nothing
+    '        End If
+    '        ContratosSecciones.Dispose()
+    '        GV.DataBind()
+    '        CargaMapa()
+    '        mapa.ZoomFull()
+    '        UpDatos.Update()
+    '    End Sub
+
+    '    Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand
+    '        If e.CommandName = "Sel" Then
+    '            Seleccionado = e.CommandArgument.ToString
+    '            'GV.SelectRow(e.CommandArgument.ToString.ToEntero - 1)
+    '            CargaMapa()
+    '        End If
+
+    '    End Sub
+
+    '    'Protected Sub GV_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GV.RowCreated
+    '    '    If e.Row.RowType = DataControlRowType.DataRow Then
+    '    '        e.Row.ClientIDMode = ClientIDMode.Static
+    '    '        e.Row.ID = String.Format("Tr-{0}", e.Row.DBCampo("ID_GIS"))
+    '    '    End If
+
+    '    'End Sub
+
+    '    Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
+    '        If e.Row.RowType = DataControlRowType.DataRow Then
+    '            If e.Row.RowIndex = 0 Then
+    '                e.Row.Cells(0).Width = Unit.Pixel(300) 'Seccion
+    '                e.Row.Cells(1).Width = Unit.Pixel(100) 'SubSeccion
+    '                e.Row.Cells(2).Width = Unit.Pixel(120) 'Cantidad
+    '                e.Row.Cells(3).Width = Unit.Pixel(100) 'PU
+    '                e.Row.Cells(4).Width = Unit.Pixel(100) 'Permitir Avance
+    '                e.Row.Cells(5).Width = Unit.Pixel(100) 'Permitir Estimacion
+    '                'e.Row.Cells(6).Width = Unit.Pixel(100) 'Número Estimación
+    '                ' e.Row.Cells(7).Width = Unit.Pixel(100) 'Factura
+    '            End If
+
+    '            e.Row.ClientIDMode = ClientIDMode.Static
+    '            e.Row.ID = String.Format("Tr{0}", e.Row.DBCampo("ID_GIS"))
+
+    '            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
+
+    '            If e.Row.DBCampo("NumeroContrato") = "" Then
+    '                e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
+    '            ElseIf e.Row.DBCampo("Partida") = "" Then
+    '                e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
+    '            ElseIf e.Row.DBCampo("PS") = "" Then
+    '                e.Row.CssClass = "SubTotales" : e.Row.Height = 25
+    '            ElseIf e.Row.DBCampo("Seccion") = "" Then
+    '                e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
+    '            End If
+
+    '        End If
+    '    End Sub
+
+    '    Private Sub CargaGrid(ByVal Orden As String)
+
+    '        If Orden <> String.Empty Then
+    '            Dim DV As New DataView(CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable), "", Orden, DataViewRowState.CurrentRows)
+    '            GV.DataSource = DV.ToTable()
+    '            DV.Dispose()
+    '        Else
+    '            GV.DataSource = CType(Cache("DTProgramacion" & UsuarioActual.CveUsuario.ToString()), DataTable)
+    '        End If
+
+    '        GV.DataBind()
+    '        UpDatos.Update()
+
+    '    End Sub
+
+    '    'Protected Sub CmdBuscar_Click(sender As Object, e As System.EventArgs) Handles CmdBuscar.Click
+    '    '	Dim ObjBitacora As New ClsBitacora()
+
+    '    '	Dim FechaI, FechaF As String
+    '    '	FechaI = If(IsDate(TxtFechaIBit.Text.Trim()), TxtFechaIBit.Text.Trim(), "-1")
+    '    '	FechaF = If(IsDate(TxtFechaFBit.Text.Trim()), TxtFechaFBit.Text.Trim(), "-1")
+
+    '    '	If ObjBitacora.GetBitacora(DdlContratos.SelectedValue, FechaI, FechaF) Then
+    '    '		GVBitacora.DataSource = ObjBitacora.DtResultados
+    '    '	Else
+    '    '		GVBitacora.DataSource = Nothing
+    '    '	End If
+    '    '	ObjBitacora.Dispose()
+
+    '    '	GVBitacora.DataBind()
+    '    'End Sub
+    '    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+    '        CargaPS()
+    '    End Sub
+
+    '    Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregar.Click
+    '        RegistraScript("PosicionaObjeto('BtnAgregar','divContrato','');")
+    '        TrContratos.Visible = True
+    '        divContrato.Visible = True
+    '        CargaContratosAdd()
+    '        CargaClasificacionAdd()
+    '        CargaSeccionAdd()
+    '        UpContratos.Update()
+    '        'Dim con As New ClsContratos
+    '        'con.AddContratosSecciones(DdlContrato.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero, 5, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+    '        'con.Dispose()
+    '    End Sub
+
+    '    Protected Sub DdlClasificacionAdd_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacionAdd.SelectedIndexChanged
+    '        CargaPSAdd()
+    '    End Sub
+
+    '    Protected Sub BtnAgregarContratoSeccion_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarContratoSeccion.Click
+    '        Dim ObjContratosSecciones As New ClsContratos
+    '        If ObjContratosSecciones.AddContratosSecciones(DdlContratoAdd.SelectedValue.ToEntero, DdlSeccionAdd.SelectedValue.ToEntero, DdlPSAdd.SelectedValue.ToEntero, TxtCantidad.Text.Trim.ToDouble, TxtPU.Text.Trim.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+    '            TxtCantidad.Text = ""
+    '            TxtPU.Text = ""
+    '            Alert("El Nuevo Contrato Sección se Agregó Correctamente.", TipoMensaje.MsgInformacion)
+    '            UpContratos.Update()
+    '            ViewState("DTContratosSecciones") = ObjContratosSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '            CargaDatos()
+
+    '        End If
+    '        ObjContratosSecciones.Dispose()
+
+    '    End Sub
+
+    '    Protected Sub LBFoto_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
+
+    '        Dim LB As LinkButton = CType(Sender, LinkButton)
+    '        divFotos.Visible = True
+
+    '        Dim Con As New ClsContratos
+    '        If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
+    '            Dim dt As DataTable = Con.DtResultados
+    '            RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divFotos','');")
+    '            If dt.Rows.Count > 0 Then
+    '                Img1.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img1").ToString
+    '                If dt.Rows(0)("Img2").ToString <> "" Then
+    '                    Img2.Visible = True
+    '                    Img2.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img2").ToString
+    '                End If
+    '                If dt.Rows(0)("Img3").ToString <> "" Then
+    '                    Img3.Visible = True
+    '                    Img3.ImageUrl = "/Empresas/66/Avances/Imagenes/" & dt.Rows(0)("Img3").ToString
+    '                End If
+    '            End If
+    '            UPFoto.Update()
+    '        End If
+    '        Con.Dispose()
 
-    End Sub
+    '    End Sub
 
-    Protected Sub LBGeom_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
+    '    Protected Sub LBGeom_OnClick(ByVal Sender As Object, ByVal E As EventArgs)
 
-        Dim LB As LinkButton = CType(Sender, LinkButton)
-        divGeom.Visible = True
+    '        Dim LB As LinkButton = CType(Sender, LinkButton)
+    '        divGeom.Visible = True
 
-        Dim Con As New ClsContratos
-        If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
-            Dim dt As DataTable = Con.DtResultados
-            RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divGeom','');")
-            CargaMapaGeom(dt.Rows(0)("x").ToString.ToDouble, dt.Rows(0)("y").ToString.ToDouble)
-            UPGPS.Update()
-        End If
-        Con.Dispose()
+    '        Dim Con As New ClsContratos
+    '        If Con.GetContratoSeccion(LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa) Then
+    '            Dim dt As DataTable = Con.DtResultados
+    '            RegistraScript("PosicionaObjeto('" & LB.ClientID & "','divGeom','');")
+    '            CargaMapaGeom(dt.Rows(0)("x").ToString.ToDouble, dt.Rows(0)("y").ToString.ToDouble)
+    '            UPGPS.Update()
+    '        End If
+    '        Con.Dispose()
 
-    End Sub
+    '    End Sub
 
-    Private Sub CargaMapaGeom(x As Double, y As Double)
+    '    Private Sub CargaMapaGeom(x As Double, y As Double)
 
-        Dim gml As GoogleMapsLayer = New GoogleMapsLayer()
-        gml.MapType = GoogleMapType.Normal
+    '        Dim gml As GoogleMapsLayer = New GoogleMapsLayer()
+    '        gml.MapType = GoogleMapType.Normal
 
-        MapGeom.BackgroundLayer = gml
+    '        MapGeom.BackgroundLayer = gml
 
-        '' set the transparency of the main map image to display other layers over the satellite map
-        MapGeom.ImageFormat = ImageFormat.Png
-        MapGeom.ImageOpacity = 0.8
+    '        '' set the transparency of the main map image to display other layers over the satellite map
+    '        MapGeom.ImageFormat = ImageFormat.Png
+    '        MapGeom.ImageOpacity = 0.8
 
-        'MapGeom.Markers.Add(New Marker(New AspMap.Point(x, y), "x", "y"))
-        'MapGeom.Markers.Add(New Marker(New AspMap.Point(-52441177.6239012, 3577172.53285846), "x", "y"))
+    '        'MapGeom.Markers.Add(New Marker(New AspMap.Point(x, y), "x", "y"))
+    '        'MapGeom.Markers.Add(New Marker(New AspMap.Point(-52441177.6239012, 3577172.53285846), "x", "y"))
 
-        'If Mapa.Markers.Count > 0 Then
-        'MapGeom.ZoomScale(New AspMap.Point(Mapa.Markers(0).Position.X, Mapa.Markers(0).Position.Y), 750000)
-        'End If
+    '        'If Mapa.Markers.Count > 0 Then
+    '        'MapGeom.ZoomScale(New AspMap.Point(Mapa.Markers(0).Position.X, Mapa.Markers(0).Position.Y), 750000)
+    '        'End If
 
 
-    End Sub
+    '    End Sub
 
-    Private Sub CargaMapa()
+    '    Private Sub CargaMapa()
 
-        Dim dbLayer As AspMap.Layer
-        Dim feature As AspMap.Feature
-        'Dim FillColor, LineColor As Color
-        Mapa.RemoveAllLayers()
+    '        Dim dbLayer As AspMap.Layer
+    '        Dim feature As AspMap.Feature
+    '        'Dim FillColor, LineColor As Color
+    '        Mapa.RemoveAllLayers()
 
 
 
 
-        dbLayer = Mapa.AddLayer(ModExtensiones.DirectorioBaseEmpresas & "GIS\Carretera.tab")
-        If dbLayer IsNot Nothing AndAlso DtDatos IsNot Nothing Then
+    '        dbLayer = Mapa.AddLayer(ModExtensiones.DirectorioBaseEmpresas & "GIS\Carretera.tab")
+    '        If dbLayer IsNot Nothing AndAlso DtDatos IsNot Nothing Then
 
-            If (Not dbLayer.AddRelate("ID_GIS", DtDatos, "ID_GIS")) Then
-                Alert("No se puede vincular las tablas")
-            End If
-            Dim renderer As FeatureRenderer = dbLayer.Renderer
+    '            If (Not dbLayer.AddRelate("ID_GIS", DtDatos, "ID_GIS")) Then
+    '                Alert("No se puede vincular las tablas")
+    '            End If
+    '            Dim renderer As FeatureRenderer = dbLayer.Renderer
 
-            'Seleccionado
-            If Seleccionado <> "" Then
-                feature = renderer.Add() : feature.Expression = String.Format("ID_Gis = {0}", Seleccionado) : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightSkyBlue : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
+    '            'Seleccionado
+    '            If Seleccionado <> "" Then
+    '                feature = renderer.Add() : feature.Expression = String.Format("ID_Gis = {0}", Seleccionado) : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightSkyBlue : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
 
-            End If
+    '            End If
 
-            ''Estimado
-            feature = renderer.Add() : feature.Expression = "NumeroEstimacionNum  > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Green : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
+    '            ''Estimado
+    '            feature = renderer.Add() : feature.Expression = "NumeroEstimacionNum  > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Green : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
 
-            ''Estimado
-            feature = renderer.Add() : feature.Expression = "PermitirAvanceNum  > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Yellow : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
+    '            ''Estimado
+    '            feature = renderer.Add() : feature.Expression = "PermitirAvanceNum  > 0 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.Yellow : feature.Symbol.LineColor = Color.FromArgb(192, 144, 96) : feature.Tag = "-2"
 
-            ''Por Estimar
-            feature = renderer.Add() : feature.Expression = "PermitirEstimacionNum = 1 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightGray : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
+    '            ''Por Estimar
+    '            feature = renderer.Add() : feature.Expression = "PermitirEstimacionNum = 1 " : feature.Symbol.FillStyle = FillStyle.Solid : feature.Symbol.FillColor = Color.LightGray : feature.Symbol.LineColor = Color.FromArgb(120, 168, 192) : feature.Tag = "-3"
 
-        End If
-    End Sub
+    '        End If
+    '    End Sub
 
-    Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
+    '    Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
 
-        If e.Argument = "" Then
-            Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
+    '        If e.Argument = "" Then
+    '            Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
 
-            Seleccionado = records("ID_Gis").ToString
+    '            Seleccionado = records("ID_Gis").ToString
 
-            GV.SelectRow(records("ID_Gis").ToString.ToEntero - 1)
-            'RegistraScript(String.Format("Colorea(Tr{0})", records("ID_GIS")))
+    '            GV.SelectRow(records("ID_Gis").ToString.ToEntero - 1)
+    '            'RegistraScript(String.Format("Colorea(Tr{0})", records("ID_GIS")))
 
-            Dim dbLayer As AspMap.Layer = Mapa.Layer(0)
+    '            Dim dbLayer As AspMap.Layer = Mapa.Layer(0)
 
-            Dim feature = New AspMap.Feature()
+    '            Dim feature = New AspMap.Feature()
 
-            feature.Expression = String.Format("ID_Gis = " & Seleccionado)
-            feature.Symbol.FillColor = Color.LightSkyBlue
-            dbLayer.Renderer.Add(feature)
+    '            feature.Expression = String.Format("ID_Gis = " & Seleccionado)
+    '            feature.Symbol.FillColor = Color.LightSkyBlue
+    '            dbLayer.Renderer.Add(feature)
 
-        End If
-    End Sub
+    '        End If
+    '    End Sub
 
-#Region "O R D E N A M I E N T O"
-    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
-        Dim Orden As String = ""
-        Dim Campo As String = ""
-        Dim Literal As Literal = Nothing
-        Const OrdenInicial As String = ""
-        Dim Arg(2) As String
+    '#Region "O R D E N A M I E N T O"
+    '    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
+    '        Dim Orden As String = ""
+    '        Dim Campo As String = ""
+    '        Dim Literal As Literal = Nothing
+    '        Const OrdenInicial As String = ""
+    '        Dim Arg(2) As String
 
-        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
-        Campo = Arg(0)
-        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
+    '        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
+    '        Campo = Arg(0)
+    '        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
 
-        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
-            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
-        Else
-            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
-        End If
-        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
-        ViewState("Orden") = Orden
-        CargaGrid(Orden)
-    End Sub
+    '        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
+    '            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
+    '            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
+    '        Else
+    '            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
+    '            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
+    '        End If
+    '        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
+    '        ViewState("Orden") = Orden
+    '        CargaGrid(Orden)
+    '    End Sub
 
 
-#End Region
+    '#End Region
 End Class

GPS/CatDistribuidoresMaster.aspx.vb

@@ -74,7 +74,7 @@ Partial Class GPS_CatDistribuidoresMaster
         Dim objUsuarios As New ClsSisUsuarios(objEmpresa.IniciaTransacSQL())
         Dim objP As New ClsProyectos(objEmpresa.IniciaTransacSQL)
         Dim objSP As New ClsSubProyectos(objEmpresa.IniciaTransacSQL)
-        Dim objSucursales As New ClsSucursales(objEmpresa.IniciaTransacSQL)
+        'Dim objSucursales As New ClsSucursales(objEmpresa.IniciaTransacSQL)
         Dim HuboError = False
         If EsEditar = 0 Then
             If Not objEmpresa.AddDistribuidorMaster(TxtRFC.Text, TxtEmpresa.Text, TxtTelefono.Text, TxtContacto.Text, TxtMail.Text, UsuarioActual.CveUsuario) Then

Inventarios/RecepcionAlmacen.aspx.vb

@@ -4714,8 +4714,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
 End Class
 
-'Public Class MMovimientoAlmacen
-'    Public Property CveMovimiento As Integer
-'    Public Property Folio As Integer
+Public Class MMovimientoAlmacen
+    Public Property CveMovimiento As Integer
+    Public Property Folio As Integer
 
-'End Class
+End Class

Inventarios/RepApartados.aspx.vb

@@ -484,7 +484,7 @@ Partial Class Inventarios_RepApartados
     End Function
 End Class
 
-Public Class MMovimientoAlmacen
+Class MMovimientoAlmacen
     Public Property CveMovimiento As Integer
     Public Property Folio As Integer
     Public Property CveConcepto As Integer

Nomina/ConceptoNominaB.aspx.cs

@@ -182,31 +182,31 @@ public partial class Nomina_CatConceptoB :  ClsPaginas
 
             if (EsEditar)
             {
-                TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable);
+                //TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable);
 
-                if (TieneError)
-                {
-                    ObjNomina.RollBack();
-                }
-                else
-                {
-                    ObjNomina.Commit();
-                    Alert("El concepto de nómina fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion, $"document.location.href=\"/Nomina/ConceptoNomina.aspx?CveConcepto={CveConcepto}\"");
-                }
+                //if (TieneError)
+                //{
+                //    ObjNomina.RollBack();
+                //}
+                //else
+                //{
+                //    ObjNomina.Commit();
+                //    Alert("El concepto de nómina fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion, $"document.location.href=\"/Nomina/ConceptoNomina.aspx?CveConcepto={CveConcepto}\"");
+                //}
             }
             else
             {
-                CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable);
+                //CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable);
 
-                if (CveConcepto == -1)
-                {
-                    ObjNomina.RollBack();
-                }
-                else
-                {
-                    ObjNomina.Commit();
-                    Alert("El concepto de nómina fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion, $"document.location.href=\"/Nomina/ConceptoNomina.aspx?CveConcepto={CveConcepto}\"");
-                }
+                //if (CveConcepto == -1)
+                //{
+                //    ObjNomina.RollBack();
+                //}
+                //else
+                //{
+                //    ObjNomina.Commit();
+                //    Alert("El concepto de nómina fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion, $"document.location.href=\"/Nomina/ConceptoNomina.aspx?CveConcepto={CveConcepto}\"");
+                //}
             }
 
             ObjNomina.Dispose();

Planeacion/Sucursal.aspx.vb

@@ -76,112 +76,112 @@ Partial Class Sucursal
         If DT IsNot Nothing Then DT.Dispose()
     End Sub
 
-    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+    'Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
-        If CveSucursal = -1 Then
-            If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                CreaProyectoSubProyectoSucursal()
-            Else
-                CreaSucursal()
-            End If
-        Else
-            Dim ObjSucursales As New ClsSucursales()
+    '    If CveSucursal = -1 Then
+    '        If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+    '            CreaProyectoSubProyectoSucursal()
+    '        Else
+    '            CreaSucursal()
+    '        End If
+    '    Else
+    '        Dim ObjSucursales As New ClsSucursales()
 
-            If ObjSucursales.UpdateSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, Session("FileUpload").ToString, ChkEstado.Checked, UsuarioActual.CveUsuario, CveSucursal, TxtCalle.Text.Trim,
-                                         TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) Then
-                CargaDatos()
-                UpDatos.Update()
+    '        If ObjSucursales.UpdateSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, Session("FileUpload").ToString, ChkEstado.Checked, UsuarioActual.CveUsuario, CveSucursal, TxtCalle.Text.Trim,
+    '                                     TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) Then
+    '            CargaDatos()
+    '            UpDatos.Update()
 
-                updateGlobaldt()
-                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
-            Else
-                Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-            End If
+    '            updateGlobaldt()
+    '            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
+    '        Else
+    '            Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+    '        End If
 
-            ObjSucursales.Dispose()
-        End If
+    '        ObjSucursales.Dispose()
+    '    End If
 
-    End Sub
-    Private Sub updateGlobaldt()
-        Dim ObjSucursales As New ClsSucursales()
-        If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing
-        ObjSucursales.Dispose()
-    End Sub
+    'End Sub
+    'Private Sub updateGlobaldt()
+    '    Dim ObjSucursales As New ClsSucursales()
+    '    If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing
+    '    ObjSucursales.Dispose()
+    'End Sub
 
-    Private Sub CreaSucursal()
-        Dim ObjSucursales As New ClsSucursales()
+    'Private Sub CreaSucursal()
+    '    Dim ObjSucursales As New ClsSucursales()
 
-        If ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
-                                        TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) > 0 Then
-            updateGlobaldt()
-            Alert("La Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
-        Else
-            Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-        End If
+    '    If ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
+    '                                    TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) > 0 Then
+    '        updateGlobaldt()
+    '        Alert("La Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
+    '    Else
+    '        Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+    '    End If
 
-        ObjSucursales.Dispose()
-    End Sub
+    '    ObjSucursales.Dispose()
+    'End Sub
 
-    Private Sub CreaProyectoSubProyectoSucursal()
-        Dim ObjProyectos As New ClsProyectos
-        Dim ObjSubproyectos As New ClsSubProyectos(ObjProyectos.IniciaTransacSQL())
-        Dim ObjSucursales As New ClsSucursales(ObjProyectos.IniciaTransacSQL())
+    'Private Sub CreaProyectoSubProyectoSucursal()
+    '    Dim ObjProyectos As New ClsProyectos
+    '    Dim ObjSubproyectos As New ClsSubProyectos(ObjProyectos.IniciaTransacSQL())
+    '    Dim ObjSucursales As New ClsSucursales(ObjProyectos.IniciaTransacSQL())
 
-        Dim TieneError = False
+    '    Dim TieneError = False
 
-        'CREA PROYECTO
-        Dim CveProyecto = ObjProyectos.AddProyecto(TxtSucursal.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal.ToEntero)
+    '    'CREA PROYECTO
+    '    Dim CveProyecto = ObjProyectos.AddProyecto(TxtSucursal.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal.ToEntero)
 
-        If CInt(CveProyecto) > 0 Then
-            GlobalDTProyectos(-1) = ObjProyectos.DtResultados
+    '    If CInt(CveProyecto) > 0 Then
+    '        GlobalDTProyectos(-1) = ObjProyectos.DtResultados
 
-            Dim CveSucursal = ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
-                                        TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero)
+    '        Dim CveSucursal = ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
+    '                                    TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero)
 
-            'CREA SUCURSAL
-            If CveSucursal > 0 Then
-                'CREA SUBPROYECTO
-                If Not ObjSubproyectos.AddSubProyecto(CInt(CveProyecto), TxtSucursal.Text.Trim, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal) Then
-                    TieneError = True
-                End If
-            Else
-                TieneError = True
-            End If
+    '        'CREA SUCURSAL
+    '        If CveSucursal > 0 Then
+    '            'CREA SUBPROYECTO
+    '            If Not ObjSubproyectos.AddSubProyecto(CInt(CveProyecto), TxtSucursal.Text.Trim, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal) Then
+    '                TieneError = True
+    '            End If
+    '        Else
+    '            TieneError = True
+    '        End If
 
-        Else
-            TieneError = True
-        End If
+    '    Else
+    '        TieneError = True
+    '    End If
 
 
-        'se regeneran los subproyectos
-        If Not TieneError Then
-            If UsuarioActual.Empresa.GralSoloProyecto Then
-                If ObjSubproyectos.GetSubProyectos() Then
-                    GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
-                Else
-                    TieneError = True
-                End If
-            End If
-        End If
+    '    'se regeneran los subproyectos
+    '    If Not TieneError Then
+    '        If UsuarioActual.Empresa.GralSoloProyecto Then
+    '            If ObjSubproyectos.GetSubProyectos() Then
+    '                GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
+    '            Else
+    '                TieneError = True
+    '            End If
+    '        End If
+    '    End If
 
 
-        If Not TieneError Then
-            ObjProyectos.Commit()
-            Alert("La nueva Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
-        Else
-            ObjProyectos.RollBack()
-            Alert("Ocurrió un error al registrar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-        End If
+    '    If Not TieneError Then
+    '        ObjProyectos.Commit()
+    '        Alert("La nueva Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
+    '    Else
+    '        ObjProyectos.RollBack()
+    '        Alert("Ocurrió un error al registrar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+    '    End If
 
-        ObjProyectos.Dispose()
-    End Sub
+    '    ObjProyectos.Dispose()
+    'End Sub
 
-    Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
-        Dim ObjSucursal As New ClsSucursales()
-        If ObjSucursal.RemoveSucursal(CveSucursal) Then
-            Alert("La Sucursal se eliminó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
-        End If
-        ObjSucursal.Dispose()
-    End Sub
+    'Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
+    '    Dim ObjSucursal As New ClsSucursales()
+    '    If ObjSucursal.RemoveSucursal(CveSucursal) Then
+    '        Alert("La Sucursal se eliminó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
+    '    End If
+    '    ObjSucursal.Dispose()
+    'End Sub
 End Class
 

PortalGPS/WsADGPS.asmx

@@ -1 +0,0 @@
-<%@ WebService Language="VB" CodeBehind="~/App_Code/WsADGPS.vb" Class="WsADGPS" %>

Prospeccion/Prospectos.aspx

@@ -1,5 +1,5 @@
 <%@ Page Title="Expediente del prospecto" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Prospectos.aspx.vb" Inherits="Prospectos_Prospectos" %>
-<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>
+<%--<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>--%>
 
 <asp:Content ID="Content4" ContentPlaceHolderID="Css" Runat="Server">
     <style>
@@ -368,9 +368,9 @@
                                                     </div>
                                                 </div>
                                                 <div class="portlet-body " style="padding-top: 0px; margin-top: -5px;">
-                                                    <cc1:Map ID="Mapa" runat="server" Height="400px" Width="400px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool"
+                                                   <%-- <cc1:Map ID="Mapa" runat="server" Height="400px" Width="400px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool"
                                                         ImageFormat="Png" EnableSession="false" PixelPerInch="100" ImageTempDirectory="/Temp" BackColor="White" FontQuality="ClearType"
-                                                        ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />
+                                                        ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />--%>
                                                     <asp:HiddenField ID="HdnIDUbicacion" runat="server" />
                                                     <asp:Button ID="BtnCambiaUbicacion" runat="server" Text="Cambiar Ubicación" Visible="false" CssClass="btn btn-primary " />
                                                 </div>

Prospeccion/Prospectos.aspx.vb

@@ -1,6 +1,6 @@
 Imports System.Data
 Imports System.Drawing
-Imports AspMap
+'Imports AspMap
 Imports Extensiones
 Imports AspMap.Web
 
@@ -38,8 +38,8 @@ Partial Class Prospectos_Prospectos
             IDSeleccionados = New ArrayList
 
             '' set the transparency of the main map image to display other layers over the satellite map
-            Mapa.ImageFormat = ImageFormat.Png
-            Mapa.ImageOpacity = 0.8
+            'Mapa.ImageFormat = ImageFormat.Png
+            'Mapa.ImageOpacity = 0.8
 
             DdlProspectoClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlProspectoClasificacion.DataBind() : DdlProspectoClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
             DdlCalificacion.DataSource = GlobalDTProspectosTipos(UsuarioActual.CveEmpresa) : DdlCalificacion.DataBind() : DdlCalificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -569,70 +569,192 @@ Partial Class Prospectos_Prospectos
     Private Sub CargaMapa()
 
 
-        Dim dbLayer As AspMap.Layer
-        Dim feature As AspMap.Feature
-        'Dim FillColor, LineColor As Color
-        Mapa.RemoveAllLayers()
+        'Dim dbLayer As AspMap.Layer
+        'Dim feature As AspMap.Feature
+        ''Dim FillColor, LineColor As Color
+        'Mapa.RemoveAllLayers()
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.LightGray
+        ''    feature.Symbol.Size = 12
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+        ''    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
+
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.FillColor = Color.LightGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DarkGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
+        ''    feature.Symbol.Size = 0
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 8
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 10
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 12
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 20
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
+
+
+        'dbLayer.Name = "Stand"
         'If dbLayer IsNot Nothing Then
+
+        '    'If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
+
+        '    'End If
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("CveCliente > 0")
+        '    'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
+
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    If IDSeleccionados.Count > 0 Then
+        '        For Each s As String In IDSeleccionados
+        '            feature = New AspMap.Feature()
+        '            'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '            feature.Expression = String.Format("FID_ = {0}", s)
+        '            feature.Symbol.FillColor = Color.DarkRed
+        '            feature.Symbol.LineColor = Color.Red
+        '            dbLayer.Renderer.Add(feature)
+        '        Next
+
+        '    End If
+
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("Tipo = 1")
+        '    'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
+        '    'feature.Symbol.LineColor = Color.CadetBlue
+        '    'dbLayer.Renderer.Add(feature)
+
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.LightGray
-        '    feature.Symbol.Size = 12
+        '    feature.Expression = String.Format("FID_ < 10")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.Size = 1
-        '    dbLayer.Renderer.Add(feature)
-        '    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
-
-
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.FillColor = Color.LightGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 30")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DarkGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 300")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
+        '    'feature = New AspMap.Feature()
+        '    'feature.Expression = String.Format("Tipo = 4")
+        '    'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.Size = 1
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
+        '    'Do While Not records.EOF
+        '    '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
+
+        '    '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
+
+        '    '    records.MoveNext()
+        '    'Loop
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
-        '    feature.Symbol.Size = 0
-        '    dbLayer.Renderer.Add(feature)
-
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 8
+        '    feature.LabelFont.Size = 7
         '    feature.MinScale = 700
         '    dbLayer.Renderer.Add(feature)
 
@@ -648,222 +770,100 @@ Partial Class Prospectos_Prospectos
         '    feature.MinScale = 200
         '    dbLayer.Renderer.Add(feature)
 
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
+        '    'dbLayer.LabelField = "CLAVE"
+        '    'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
+        '    'dbLayer.ShowLabels = True
+        '    'dbLayer.Symbol.Size = 0
+
+        '    'If Not Page.IsPostBack Then
+
+        '    '    'If Mapa.Markers.Count > 0 Then
+        '    '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
+        '    '    'End If
+        '    'End If
 
         'End If
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 12
-        '    feature.LabelFont.Bold = True
-        '    feature.MinScale = 700
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 14
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 700
-        '    feature.MinScale = 450
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 20
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 449
-        '    feature.MinScale = 200
-        '    dbLayer.Renderer.Add(feature)
-
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
-
-        'End If
-
-        dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
-
-
-        dbLayer.Name = "Stand"
-        If dbLayer IsNot Nothing Then
-
-            'If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
-
-            'End If
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("CveCliente > 0")
-            'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
-
-            'dbLayer.Renderer.Add(feature)
-
-            If IDSeleccionados.Count > 0 Then
-                For Each s As String In IDSeleccionados
-                    feature = New AspMap.Feature()
-                    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-                    feature.Expression = String.Format("FID_ = {0}", s)
-                    feature.Symbol.FillColor = Color.DarkRed
-                    feature.Symbol.LineColor = Color.Red
-                    dbLayer.Renderer.Add(feature)
-                Next
-
-            End If
-
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("Tipo = 1")
-            'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
-            'feature.Symbol.LineColor = Color.CadetBlue
-            'dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 10")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 30")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 300")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
-            dbLayer.Renderer.Add(feature)
-
-            'feature = New AspMap.Feature()
-            'feature.Expression = String.Format("Tipo = 4")
-            'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.Size = 1
-            'dbLayer.Renderer.Add(feature)
-
-            'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
-            'Do While Not records.EOF
-            '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
-
-            '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
-
-            '    records.MoveNext()
-            'Loop
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 7
-            feature.MinScale = 700
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 10
-            feature.MaxScale = 700
-            feature.MinScale = 450
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 14
-            feature.MaxScale = 449
-            feature.MinScale = 200
-            dbLayer.Renderer.Add(feature)
-
-            'dbLayer.LabelField = "CLAVE"
-            'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
-            'dbLayer.ShowLabels = True
-            'dbLayer.Symbol.Size = 0
-
-            'If Not Page.IsPostBack Then
-
-            '    'If Mapa.Markers.Count > 0 Then
-            '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
-            '    'End If
-            'End If
-
-        End If
-
 
 
     End Sub
 
-    Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
+    'Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
 
-        Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
-        If records.Layer.Name = "Stand" Then
-            ' CargaInformacion(records("ID").ToString.ToEntero)
-            IDSeleccionados.Clear()
+    '    Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
+    '    If records.Layer.Name = "Stand" Then
+    '        ' CargaInformacion(records("ID").ToString.ToEntero)
+    '        IDSeleccionados.Clear()
 
-            If records("FID_").ToString.toentero > 30 Then
+    '        If records("FID_").ToString.toentero > 30 Then
 
-                IDSeleccionados.Add(records("FID_").ToString)
+    '            IDSeleccionados.Add(records("FID_").ToString)
 
-                HdnIDUbicacion.Value = records("FID_").ToString
+    '            HdnIDUbicacion.Value = records("FID_").ToString
 
-                If CveProspecto > 0 Then BtnCambiaUbicacion.Visible = True
+    '            If CveProspecto > 0 Then BtnCambiaUbicacion.Visible = True
 
-            Else
-                BtnCambiaUbicacion.Visible = False
-                Alert("El lote se encuentra apartado/vendido")
-            End If
-            ' solo los de a zona oro y platino
-            'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
-            '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
+    '        Else
+    '            BtnCambiaUbicacion.Visible = False
+    '            Alert("El lote se encuentra apartado/vendido")
+    '        End If
+    '        ' solo los de a zona oro y platino
+    '        'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
+    '        '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
 
 
 
-            '        IDSeleccionados.Add(records("ID").ToString)
-            '        Dim dr As DataRow = TmpDT.NewRow
-            '        Dim Zona As String = ""
-            '        Dim Stand As String = ""
-            '        Dim CvePS As Integer = 0
+    '        '        IDSeleccionados.Add(records("ID").ToString)
+    '        '        Dim dr As DataRow = TmpDT.NewRow
+    '        '        Dim Zona As String = ""
+    '        '        Dim Stand As String = ""
+    '        '        Dim CvePS As Integer = 0
 
-            '        'Select Case records("Tipo").ToString.ToEntero
-            '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
-            '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
-            '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
-            '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
-            '        'End Select
+    '        '        'Select Case records("Tipo").ToString.ToEntero
+    '        '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
+    '        '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
+    '        '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
+    '        '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
+    '        '        'End Select
 
 
-            '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
-            '        'If Not Rst.EOF() Then
-            '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
-            '        'End If
+    '        '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
+    '        '        'If Not Rst.EOF() Then
+    '        '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
+    '        '        'End If
 
-            '        dr("IDGis") = records("ID").ToString.ToEntero
-            '        dr("Tipo") = records("Tipo").ToString.ToEntero
-            '        dr("Zona") = Zona
-            '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
-            '        dr("CvePS") = CvePS
-            '        TmpDT.Rows.Add(dr)
-            '    End If
+    '        '        dr("IDGis") = records("ID").ToString.ToEntero
+    '        '        dr("Tipo") = records("Tipo").ToString.ToEntero
+    '        '        dr("Zona") = Zona
+    '        '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
+    '        '        dr("CvePS") = CvePS
+    '        '        TmpDT.Rows.Add(dr)
+    '        '    End If
 
-            'Else
-            '    IDSeleccionados.Remove(records("ID").ToString)
-            '    Dim i As Integer = -1
+    '        'Else
+    '        '    IDSeleccionados.Remove(records("ID").ToString)
+    '        '    Dim i As Integer = -1
 
-            '    For Each drr As DataRow In TmpDT.Rows
-            '        i += 1
-            '        If drr("IDGis").ToString = records("ID").ToString Then
-            '            Exit For
-            '        End If
-            '    Next
+    '        '    For Each drr As DataRow In TmpDT.Rows
+    '        '        i += 1
+    '        '        If drr("IDGis").ToString = records("ID").ToString Then
+    '        '            Exit For
+    '        '        End If
+    '        '    Next
 
-            '    TmpDT.Rows.RemoveAt(i)
-            '    TmpDT.AcceptChanges()
-            'End If
-            ''BtnApartar.Visible = TmpDT.Rows.Count > 0
-            'divSel.Visible = TmpDT.Rows.Count > 0
-            'GvSel.DataSource = TmpDT
-            'GvSel.DataBind()
-            CargaMapa()
+    '        '    TmpDT.Rows.RemoveAt(i)
+    '        '    TmpDT.AcceptChanges()
+    '        'End If
+    '        ''BtnApartar.Visible = TmpDT.Rows.Count > 0
+    '        'divSel.Visible = TmpDT.Rows.Count > 0
+    '        'GvSel.DataSource = TmpDT
+    '        'GvSel.DataBind()
+    '        CargaMapa()
 
-            End If
+    '        End If
 
 
-    End Sub
+    'End Sub
 
     Private Sub BtnCambiaUbicacion_Click(sender As Object, e As EventArgs) Handles BtnCambiaUbicacion.Click
 

Prospeccion/RepProspectosGIS.aspx

@@ -1,5 +1,5 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProspectosGIS.aspx.vb" Inherits="Prospeccion_RepProspectosGIS" %>
-<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>
+<%--<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>--%>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
 </asp:Content>
@@ -10,7 +10,7 @@
      <asp:UpdatePanel ID="UPPGIS" runat="server" UpdateMode="Conditional" RenderMode="Inline">
                     <ContentTemplate>
                         <table style="width:1000px" border="0" cellpadding="0" cellspacing="0">
-                            <tr><td style="width:1000px"><cc1:Map ID="Mapa" runat="server" Height="700px" Width="994px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool" ImageFormat="Png" EnableSession="false" PixelPerInch="100" ImageTempDirectory="/Temp" BackColor="White" FontQuality="ClearType" ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />
+                            <tr><td style="width:1000px"><%--<cc1:Map ID="Mapa" runat="server" Height="700px" Width="994px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool" ImageFormat="Png" EnableSession="false" PixelPerInch="100" ImageTempDirectory="/Temp" BackColor="White" FontQuality="ClearType" ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />--%>
                                 </td>
                                 <td style="vertical-align: top;"> 
                                      <div style="z-index: 1000; border: 1px solid; ">

Prospeccion/RepProspectosGIS.aspx.vb

@@ -1,6 +1,6 @@
 Imports System.Data
 Imports System.Drawing
-Imports AspMap
+'Imports AspMap
 Imports Extensiones
 Imports AspMap.Web
 
@@ -65,8 +65,8 @@ Partial Class Prospeccion_RepProspectosGIS
             IDSeleccionados = New ArrayList
 
             '' set the transparency of the main map image to display other layers over the satellite map
-            Mapa.ImageFormat = ImageFormat.Png
-            Mapa.ImageOpacity = 0.8
+            'Mapa.ImageFormat = ImageFormat.Png
+            'Mapa.ImageOpacity = 0.8
 
             TmpDT = New DataTable
             TmpDT.Columns.Add("IDGis", GetType(Integer))
@@ -156,70 +156,198 @@ Partial Class Prospeccion_RepProspectosGIS
     Private Sub CargaMapa()
 
 
-        Dim dbLayer As AspMap.Layer
-        Dim feature As AspMap.Feature
-        'Dim FillColor, LineColor As Color
-        Mapa.RemoveAllLayers()
+        'Dim dbLayer As AspMap.Layer
+        'Dim feature As AspMap.Feature
+        ''Dim FillColor, LineColor As Color
+        'Mapa.RemoveAllLayers()
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.LightGray
+        ''    feature.Symbol.Size = 12
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+        ''    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
+
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.FillColor = Color.LightGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DarkGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
+        ''    feature.Symbol.Size = 0
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 8
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 10
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 12
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 20
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
+
+
+        'dbLayer.Name = "Stand"
         'If dbLayer IsNot Nothing Then
+
+        '    If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
+
+        '    End If
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("CveCliente > 0")
+        '    'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
+
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    'If IDSeleccionados.Count > 0 Then
+        '    '    For Each s As String In IDSeleccionados
+        '    '        feature = New AspMap.Feature()
+        '    '        'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    '        feature.Expression = String.Format("FID_ = {0}", s)
+        '    '        feature.Symbol.FillColor = Color.DarkRed
+        '    '        feature.Symbol.LineColor = Color.Red
+        '    '        dbLayer.Renderer.Add(feature)
+        '    '    Next
+
+        '    'End If
+
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("Tipo = 1")
+        '    'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
+        '    'feature.Symbol.LineColor = Color.CadetBlue
+        '    'dbLayer.Renderer.Add(feature)
+
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.LightGray
-        '    feature.Symbol.Size = 12
+        '    feature.Expression = String.Format("FID_ < 10")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.Size = 1
-        '    dbLayer.Renderer.Add(feature)
-        '    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
-
-
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.FillColor = Color.LightGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 30")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DarkGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 40")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#E87E04")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#F7CA18")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
-        '    feature.Symbol.Size = 0
+        '    feature.Expression = String.Format("FID_ < 300")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
+        '    'feature = New AspMap.Feature()
+        '    'feature.Expression = String.Format("Tipo = 4")
+        '    'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.Size = 1
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
+        '    'Do While Not records.EOF
+        '    '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
+
+        '    '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
+
+        '    '    records.MoveNext()
+        '    'Loop
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 8
+        '    feature.LabelFont.Size = 7
         '    feature.MinScale = 700
         '    dbLayer.Renderer.Add(feature)
 
@@ -235,222 +363,94 @@ Partial Class Prospeccion_RepProspectosGIS
         '    feature.MinScale = 200
         '    dbLayer.Renderer.Add(feature)
 
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
+        '    'dbLayer.LabelField = "CLAVE"
+        '    'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
+        '    'dbLayer.ShowLabels = True
+        '    'dbLayer.Symbol.Size = 0
 
-        'End If
+        '    'If Not Page.IsPostBack Then
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 12
-        '    feature.LabelFont.Bold = True
-        '    feature.MinScale = 700
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 14
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 700
-        '    feature.MinScale = 450
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 20
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 449
-        '    feature.MinScale = 200
-        '    dbLayer.Renderer.Add(feature)
-
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
-
-        'End If
-
-        dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
-
-
-        dbLayer.Name = "Stand"
-        If dbLayer IsNot Nothing Then
-
-            If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
-
-            End If
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("CveCliente > 0")
-            'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
-
-            'dbLayer.Renderer.Add(feature)
-
-            'If IDSeleccionados.Count > 0 Then
-            '    For Each s As String In IDSeleccionados
-            '        feature = New AspMap.Feature()
-            '        'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            '        feature.Expression = String.Format("FID_ = {0}", s)
-            '        feature.Symbol.FillColor = Color.DarkRed
-            '        feature.Symbol.LineColor = Color.Red
-            '        dbLayer.Renderer.Add(feature)
-            '    Next
-
-            'End If
-
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("Tipo = 1")
-            'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
-            'feature.Symbol.LineColor = Color.CadetBlue
-            'dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 10")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 30")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 40")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#E87E04")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#F7CA18")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 300")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
-            dbLayer.Renderer.Add(feature)
-
-            'feature = New AspMap.Feature()
-            'feature.Expression = String.Format("Tipo = 4")
-            'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.Size = 1
-            'dbLayer.Renderer.Add(feature)
-
-            'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
-            'Do While Not records.EOF
-            '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
-
-            '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
-
-            '    records.MoveNext()
-            'Loop
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 7
-            feature.MinScale = 700
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 10
-            feature.MaxScale = 700
-            feature.MinScale = 450
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 14
-            feature.MaxScale = 449
-            feature.MinScale = 200
-            dbLayer.Renderer.Add(feature)
-
-            'dbLayer.LabelField = "CLAVE"
-            'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
-            'dbLayer.ShowLabels = True
-            'dbLayer.Symbol.Size = 0
-
-            'If Not Page.IsPostBack Then
-
-            '    'If Mapa.Markers.Count > 0 Then
-            '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
-            '    'End If
-            'End If
-
-        End If
-
-
-
-    End Sub
-
-    Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
-        Response.Redirect("/Prospeccion/RepProspeccion.aspx")
-
-        'Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
-        'If records.Layer.Name = "Stand" Then
-        '    ' CargaInformacion(records("ID").ToString.ToEntero)
-
-        '    ' RegistraScript("AbrirVentana('/Prospeccion/RepProspectosGis.aspx')")
-        '    ' Server.Transfer("/Prospeccion/RepProspectosGis.aspx")
-
-        '    Response.Redirect("/Prospeccion/RepProspectosGis.aspx")
-        '    ' solo los de a zona oro y platino
-        '    'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
-        '    '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
-
-
-
-        '    '        IDSeleccionados.Add(records("ID").ToString)
-        '    '        Dim dr As DataRow = TmpDT.NewRow
-        '    '        Dim Zona As String = ""
-        '    '        Dim Stand As String = ""
-        '    '        Dim CvePS As Integer = 0
-
-
-        '    '        'Select Case records("Tipo").ToString.ToEntero
-        '    '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
-        '    '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
-        '    '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
-        '    '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
-        '    '        'End Select
-
-
-        '    '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
-        '    '        'If Not Rst.EOF() Then
-        '    '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
-        '    '        'End If
-
-        '    '        dr("IDGis") = records("ID").ToString.ToEntero
-        '    '        dr("Tipo") = records("Tipo").ToString.ToEntero
-        '    '        dr("Zona") = Zona
-        '    '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
-        '    '        dr("CvePS") = CvePS
-        '    '        TmpDT.Rows.Add(dr)
-        '    '    End If
-
-        '    'Else
-        '    '    IDSeleccionados.Remove(records("ID").ToString)
-        '    '    Dim i As Integer = -1
-
-        '    '    For Each drr As DataRow In TmpDT.Rows
-        '    '        i += 1
-        '    '        If drr("IDGis").ToString = records("ID").ToString Then
-        '    '            Exit For
-        '    '        End If
-        '    '    Next
-
-        '    '    TmpDT.Rows.RemoveAt(i)
-        '    '    TmpDT.AcceptChanges()
+        '    '    'If Mapa.Markers.Count > 0 Then
+        '    '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
+        '    '    'End If
         '    'End If
-        '    'BtnApartar.Visible = TmpDT.Rows.Count > 0
-        '    'divSel.Visible = TmpDT.Rows.Count > 0
-        '    'GvSel.DataSource = TmpDT
-        '    'GvSel.DataBind()
-        '    CargaMapa()
 
         'End If
 
 
+
     End Sub
 
+    'Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
+    '    Response.Redirect("/Prospeccion/RepProspeccion.aspx")
+
+    '    'Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
+    '    'If records.Layer.Name = "Stand" Then
+    '    '    ' CargaInformacion(records("ID").ToString.ToEntero)
+
+    '    '    ' RegistraScript("AbrirVentana('/Prospeccion/RepProspectosGis.aspx')")
+    '    '    ' Server.Transfer("/Prospeccion/RepProspectosGis.aspx")
+
+    '    '    Response.Redirect("/Prospeccion/RepProspectosGis.aspx")
+    '    '    ' solo los de a zona oro y platino
+    '    '    'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
+    '    '    '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
+
+
+
+    '    '    '        IDSeleccionados.Add(records("ID").ToString)
+    '    '    '        Dim dr As DataRow = TmpDT.NewRow
+    '    '    '        Dim Zona As String = ""
+    '    '    '        Dim Stand As String = ""
+    '    '    '        Dim CvePS As Integer = 0
+
+
+    '    '    '        'Select Case records("Tipo").ToString.ToEntero
+    '    '    '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
+    '    '    '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
+    '    '    '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
+    '    '    '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
+    '    '    '        'End Select
+
+
+    '    '    '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
+    '    '    '        'If Not Rst.EOF() Then
+    '    '    '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
+    '    '    '        'End If
+
+    '    '    '        dr("IDGis") = records("ID").ToString.ToEntero
+    '    '    '        dr("Tipo") = records("Tipo").ToString.ToEntero
+    '    '    '        dr("Zona") = Zona
+    '    '    '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
+    '    '    '        dr("CvePS") = CvePS
+    '    '    '        TmpDT.Rows.Add(dr)
+    '    '    '    End If
+
+    '    '    'Else
+    '    '    '    IDSeleccionados.Remove(records("ID").ToString)
+    '    '    '    Dim i As Integer = -1
+
+    '    '    '    For Each drr As DataRow In TmpDT.Rows
+    '    '    '        i += 1
+    '    '    '        If drr("IDGis").ToString = records("ID").ToString Then
+    '    '    '            Exit For
+    '    '    '        End If
+    '    '    '    Next
+
+    '    '    '    TmpDT.Rows.RemoveAt(i)
+    '    '    '    TmpDT.AcceptChanges()
+    '    '    'End If
+    '    '    'BtnApartar.Visible = TmpDT.Rows.Count > 0
+    '    '    'divSel.Visible = TmpDT.Rows.Count > 0
+    '    '    'GvSel.DataSource = TmpDT
+    '    '    'GvSel.DataBind()
+    '    '    CargaMapa()
+
+    '    'End If
+
+
+    'End Sub
+
     'Private Sub CargaInformacion(ByVal pCveID As Integer)
 
     '    RegistraScript("$get('DivAlta').style.display=''; $(""#DivAlta"").center(); ")

PyME/Sistemas/WizardRegistro.aspx.vb

@@ -1436,7 +1436,7 @@ Partial Class Sistemas_WizardRegistro
 
                     If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then
                         'Eliminar el registro existente
-                        If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then
+                        If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, -1) Then
                             HuboErrores = True
                             Exit For
                         End If

RH/CalculoSBC.aspx

@@ -0,0 +1,504 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CalculoSBC.aspx.cs" Inherits="RH_CalculoSBC" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .GVCalculosSBC tr th:nth-child(n+6) {
+            background-color: #a9a9e8 !important;
+        }
+
+        .GVCalculosSBC tr th:nth-child(n+10) {
+            background-color: #88d6cd !important;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Calculo salario base cotización
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                
+                <asp:LinkButton ID="LnkDescargar" OnClick="LnkDescargar_Click" runat="server"><i class="fa fa-ad-excel"></i> Descargar</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkGuardarCambios" OnClick="LnkGuardarCambios_Click" runat="server"><i class="fa fa-save"></i> Guardar</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkDownArchivosSua" OnClick="LnkDownArchivosSua_Click" runat="server"><i class="fa fa-download"></i> Descargar Archivos IDSE</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkDescargar" /> 
+           <%-- <asp:PostBackTrigger ControlID="LnkListaRaya" /> --%>
+        </Triggers>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+
+                            <asp:Label ID="LblFechaPago" runat="server" CssClass="col-md-1 ">Fecha :</asp:Label>
+                            <div class="col-md-3" id="DivFechaPago" runat="server">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="TxtFechaPago" runat="server" Text="01/03/2021" CssClass="form-control" CausesValidation="true" Width="90%" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaPago" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="TxtFechaPago" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-4">
+                                <asp:LinkButton ID="LnkCalcular" OnClick="LnkCalcular_Click" runat="server" Text="Calcular" Visible="true" class="btn btn-primary" />
+                            </div>
+                        </div>
+                    </div>
+                    <div class="tools">
+                    </div>
+                </div>
+            </div>
+            <ajax:TabContainer ID="Tab" runat="server" Width="100%">
+                <ajax:TabPanel ID="TabSBC" runat="server" HeaderText="Salario base cotización">
+                    <ContentTemplate>
+                        <table id="tableheader" style="display: none">
+                            <tr>
+                                <th colspan="5"></th>
+                                <th colspan="4" style="background-color: #a9a9e8 !important;">Actual</th>
+                                <th colspan="3" style="background-color: #88d6cd !important;">Nuevo</th>
+                            </tr>
+                        </table>
+                        <asp:GridView ID="GVCalculosSBC" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalculosSBC" AutoGenerateColumns="False" data-tableheader="#tableheader"
+                            DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados">
+                            <Columns>
+                                <asp:TemplateField HeaderText="Código">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblcodigo" runat="server" Text='<%# Eval("Codigo")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Nombre">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>
+                                        Fecha alta  
+                                        <br />
+                                        o reingreso
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="NSS">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnumeroSS" runat="server" Text='<%# Eval("NumeroSS")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Tipo salario">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lbltipodeSalario" runat="server" Text='<%# Eval("TipodeSalario")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario
+                                        <br />
+                                        Diario
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioDiario" runat="server" Text='<%# Eval("SalarioDiario","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario diario
+                                        <br />
+                                        integrado
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsDI" runat="server" Text='<%# Eval("SDI","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario<br />
+                                        variable
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioVariable" runat="server" Text='<%# Eval("SalarioVariable","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario base<br />
+                                        cotización
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSS","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario diario<br />
+                                        integrado
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsDI" runat="server" Text='<%# Eval("SDINuevo","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario
+                                        <br />
+                                        variable
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioVariable" runat="server" Text='<%# Eval("SalarioVariableNuevo","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario base
+                                        <br />
+                                        cotización 
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSSNuevo","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+                <ajax:TabPanel ID="TabParteFija" runat="server" HeaderText="Parte fija">
+                    <ContentTemplate>
+
+                        <asp:GridView ID="GVCFija" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                            DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados">
+                            <Columns>
+                                <asp:TemplateField HeaderText="Código">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblcodigo" runat="server" Text='<%# Eval("Codigo")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Nombre">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>
+                                        Fecha alta  
+                                        <br />
+                                        o reingreso
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="NSS">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnumeroSS" runat="server" Text='<%# Eval("NumeroSS")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Tipo salario">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lbltipodeSalario" runat="server" Text='<%# Eval("TipodeSalario")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Salario Diario" ItemStyle-HorizontalAlign="Right">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioDiario" runat="server" Text='<%# Eval("SalarioDiario","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario diario
+                                        <br />
+                                        integrado (Actual)
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsDI" runat="server" Text='<%# Eval("SDI","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Antiguedad" ItemStyle-HorizontalAlign="Right">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblantiguedad" runat="server" Text='<%# Eval("Antiguedad")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Dias<br />
+                                        vacaciones
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblantiguedad" runat="server" Text='<%# Eval("diasVacaciones")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Porcentaje<br />
+                                        prima vacacional
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblporPrimaVacacional" runat="server" Text='<%# Eval("PorPrimaVacacional","{0:P2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Dias aguinaldo" ItemStyle-HorizontalAlign="Right">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnumDiasAguinaldo" runat="server" Text='<%# Eval("NumDiasAguinaldo")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Factor de integración" ItemStyle-HorizontalAlign="Right">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnumDiasAguinaldo" runat="server" Text='<%# Eval("Factordeintegracion")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario diario
+                                        <br />
+                                        integrado (Nuevo)
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsDI" runat="server" Text='<%# Eval("SDINuevo","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                            </Columns>
+                        </asp:GridView>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+                <ajax:TabPanel ID="TabParteVariable" runat="server" HeaderText="Parte variable">
+                    <ContentTemplate>
+
+                        <asp:GridView ID="GVPV" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                            DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados">
+                            <Columns>
+                                <asp:TemplateField HeaderText="Código">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblcodigo" runat="server" Text='<%# Eval("Codigo")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Nombre">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Fecha alta o reingreso">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="NSS">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnumeroSS" runat="server" Text='<%# Eval("NumeroSS")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Tipo salario">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lbltipodeSalario" runat="server" Text='<%# Eval("TipodeSalario")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario variable<br />
+                                        (Actual)
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioVariable" runat="server" Text='<%# Eval("SalarioVariable","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField HeaderText="Percepciones variables" ItemStyle-HorizontalAlign="Right">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblacumulado" runat="server" Text='<%# Eval("Acumulado","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Días incapaciadad">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblincapaciadad" runat="server" Text='<%# Eval("Incapaciadad")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Días ausencia">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblfaltas" runat="server" Text='<%# Eval("Faltas")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Días base">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lbldiaslaborados" runat="server" Text='<%# Eval("diaslaborados")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario variable<br />
+                                        (Nuevo)
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioVariable" runat="server" Text='<%# Eval("SalarioVariableNuevo")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+                <ajax:TabPanel ID="TabDetalleParteVariable" runat="server" HeaderText="Detalle parte variable">
+                    <ContentTemplate>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+            </ajax:TabContainer>
+
+            <asp:GridView ID="GVCalculosSBCol" Visible="false" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD" AutoGenerateColumns="False"
+                DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados">
+                <Columns>
+                    <asp:TemplateField HeaderText="Cve Personal">
+                        <ItemTemplate>
+                            <asp:Label ID="lblcvePersonal" runat="server" Text='<%# Eval("CvePersonal")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Codigo">
+                        <ItemTemplate>
+                            <asp:Label ID="lblcodigo" runat="server" Text='<%# Eval("Codigo")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nombre">
+                        <ItemTemplate>
+                            <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha Inicio">
+                        <ItemTemplate>
+                            <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Antiguedad">
+                        <ItemTemplate>
+                            <asp:Label ID="lblantiguedad" runat="server" Text='<%# Eval("Antiguedad")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Incapacitado">
+                        <ItemTemplate>
+                            <asp:Label ID="lblincapacitado" runat="server" Text='<%# Eval("Incapacitado")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Numero SS">
+                        <ItemTemplate>
+                            <asp:Label ID="lblnumeroSS" runat="server" Text='<%# Eval("NumeroSS")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cve Tipode Salario">
+                        <ItemTemplate>
+                            <asp:Label ID="lblcveTipodeSalario" runat="server" Text='<%# Eval("CveTipodeSalario")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Tipode Salario">
+                        <ItemTemplate>
+                            <asp:Label ID="lbltipodeSalario" runat="server" Text='<%# Eval("TipodeSalario")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Salario Diario">
+                        <ItemTemplate>
+                            <asp:Label ID="lblsalarioDiario" runat="server" Text='<%# Eval("SalarioDiario")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="SDI">
+                        <ItemTemplate>
+                            <asp:Label ID="lblsDI" runat="server" Text='<%# Eval("SDI")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Salario Variable">
+                        <ItemTemplate>
+                            <asp:Label ID="lblsalarioVariable" runat="server" Text='<%# Eval("SalarioVariable")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Salario Diario SS">
+                        <ItemTemplate>
+                            <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSS")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Por Prima Vacacional">
+                        <ItemTemplate>
+                            <asp:Label ID="lblporPrimaVacacional" runat="server" Text='<%# Eval("PorPrimaVacacional")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Num Dias Aguinaldo">
+                        <ItemTemplate>
+                            <asp:Label ID="lblnumDiasAguinaldo" runat="server" Text='<%# Eval("NumDiasAguinaldo")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Acumulado">
+                        <ItemTemplate>
+                            <asp:Label ID="lblacumulado" runat="server" Text='<%# Eval("Acumulado")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="dias Bimestre">
+                        <ItemTemplate>
+                            <asp:Label ID="lbldiasBimestre" runat="server" Text='<%# Eval("diasBimestre")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Faltas">
+                        <ItemTemplate>
+                            <asp:Label ID="lblfaltas" runat="server" Text='<%# Eval("Faltas")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Incapaciadad">
+                        <ItemTemplate>
+                            <asp:Label ID="lblincapaciadad" runat="server" Text='<%# Eval("Incapaciadad")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="diaslaborados">
+                        <ItemTemplate>
+                            <asp:Label ID="lbldiaslaborados" runat="server" Text='<%# Eval("diaslaborados")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+    <script>
+
+        function SaveCsv(filename, data) {
+            var blob = new Blob([data], { type: 'text/csv' });
+            if (window.navigator.msSaveOrOpenBlob) {
+                window.navigator.msSaveBlob(blob, filename);
+            }
+            else {
+                var elem = window.document.createElement('a');
+                elem.href = window.URL.createObjectURL(blob);
+                elem.download = filename;
+                document.body.appendChild(elem);
+                elem.click();
+                document.body.removeChild(elem);
+            }
+        }
+    </script>
+</asp:Content>
+

RH/CalculoSBC.aspx.cs

@@ -0,0 +1,93 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+public partial class RH_CalculoSBC :  ClsPaginas
+{
+    protected void Page_Load(object sender, EventArgs e)
+    {
+
+    }
+
+    protected void LnkCalcular_Click(object sender, EventArgs e)
+    {
+        using(ClsNominas objnom = new ClsNominas() )
+        {
+           if( objnom.GetCalculoSBC(UsuarioActual.CveEmpresa,TxtFechaPago.Text))
+            {
+                GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0];
+                GVCFija.DataSource = objnom.DTSetResultados.Tables[0];
+                GVPV.DataSource = objnom.DTSetResultados.Tables[0];
+            }
+        }
+        GVCalculosSBC.DataBind();
+        GVCFija.DataBind();
+        GVPV.DataBind();
+    }
+
+    protected void LnkDownArchivosSua_Click(object sender, EventArgs e)
+    {
+
+        string concater = "";
+        string MovtosAfil = "";
+        string MovtosmodSalario = "";
+        string movtosBajas = "";
+        using (ClsRH ObjPersonal = new ClsRH())
+        {
+            if (ObjPersonal.GetMovimientosToSUA(UsuarioActual.CveEmpresa,"2021-01-01", "2021-02-28"))
+            {
+                //01: MovtosAfil
+                concater = "";
+                foreach (var item in ObjPersonal.DtResultados.Select("Tipo=1"))
+                {
+                    MovtosAfil = string.Format("{0}{1}{2}", MovtosAfil, concater, item["Movtotxt"]);
+                    concater = "\\r\\n";
+                }
+
+                //02: MovtosmodSalario 
+                concater = "";
+                foreach (var item in ObjPersonal.DtResultados.Select("Tipo=2"))
+                {
+
+                    MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item["Movtotxt"]);
+                    concater = "\\r\\n";
+                }
+                //03: movtosBajas
+                concater = "";
+                foreach (var item in ObjPersonal.DtResultados.Select("Tipo=3"))
+                {
+                    movtosBajas = string.Format("{0}{1}{2}", movtosBajas, concater, item["Movtotxt"]);
+                    concater = "\\r\\n";
+                }
+
+            }
+            RegistraScript(string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'")));
+            RegistraScript("$('#DmodalGetSua').modal('hide');");
+        }
+    }
+
+    protected void LnkGuardarCambios_Click(object sender, EventArgs e)
+    {
+        Alert("Se registro la modificación de salario correctamente.");
+    }
+
+    protected void LnkDescargar_Click(object sender, EventArgs e)
+    {
+        if (Tab.ActiveTab == TabSBC)
+        {
+            GVCalculosSBC.ExportToExcel("Salario");
+        }
+        if (Tab.ActiveTab == TabSBC)
+        {
+            GVCFija.ExportToExcel("Salario");
+        }
+        if (Tab.ActiveTab == TabSBC)
+        {
+            GVPV.ExportToExcel("Salario");
+        }
+
+    }
+}

RH/RepCumpleaneros.aspx

@@ -51,7 +51,7 @@
                 <Columns>
                     <asp:TemplateField>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlDepartamento" runat="server" Text='<%# Eval("Departamento", "&nbsp;{0}") %>'></asp:Literal>
+                            &nbsp;<asp:Literal ID="LtlDepartamento" runat="server" Text='<%# Eval("Departamento", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField>

RH/RepCumpleaneros.aspx.vb

@@ -2,4 +2,8 @@
 Partial Class RH_RepCumpleaneros
     Inherits System.Web.UI.Page
 
+
+    Protected Sub LbOrden_Click(sender As Object, e As EventArgs)
+
+    End Sub
 End Class

Ventas/RepConciliacionEmitidosSat.aspx.cs

@@ -226,11 +226,12 @@ public partial class Ventas_RepConciliacionEmitidosSat : ClsPaginas
                 ClsAcumuladores ObjAcum = new ClsAcumuladores(ObjVentas.IniciaTransacSQL());
                 ClsContPAQi ObjContPaq = null;
                 //StringBuilder MensajeAlert = new StringBuilder() ;
+                Modelos.Factura.MMensajeFactura Resp = new Modelos.Factura.MMensajeFactura();
                 DataTable DtDetalle = objfact.DtDetalle;
                 try
                 {
-                    objfact.GuardarVenta(ref objfact, ref ObjVentas, ref ObjConta, ref ObjInventario, ref ObjContr, ref DtDetalle, objfact.CveNCaVincular, ref ObjContPaq, ref ObjBancos, ref ObjOS, ref ObjEventos, ref ObjCGame, ref ObjClientes, ObjAcum: ObjAcum);
-
+                 //   objfact.GuardarVenta(ref objfact, ref ObjVentas, ref ObjConta, ref ObjInventario, ref ObjContr, ref DtDetalle, objfact.CveNCaVincular, ref ObjContPaq, ref ObjBancos, ref ObjOS, ref ObjEventos, ref ObjCGame, ref ObjClientes, ref Resp, ObjAcum: ObjAcum);
+                    
                 }
                 catch (Exception e)
                 {

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/css/default.css

@@ -1,374 +0,0 @@
-.crpage 
-{
-	background-color:#FFFFFF;
-	color:#000000;
-	font-family:verdana,Arial;
-}
-
-.crheader 
-{
-	background-color: #B2B2B2;
-	color: #000000;
-	font-family:verdana,Arial;
-}
-
-.crheader A
-{
-	color:#000000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crheader A:hover
-{
-	color:#FF0000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crtitle
-{
-	color:#000000;
-	font-size:10pt;
-	font-family:verdana,Arial;
-}
-
-.crpagepath
-{
-	background-color:#006699;
-	color:#ffffff;
-	padding-left:10;
-}
-
-.crpagepath A
-{
-	color:#FFFFFF;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crpagepath A:hover
-{
-	color:#FF0000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crwizard
-{
-	background-color:#CAC9D9;
-	color:#000000;
-	font-family:verdana,Arial;
-}
-
-.crwizardtabbackground
-{
-	background-color:#CAC9D9;
-	color:#000000
-}
-.crwizardtoolbar
-{
-	background-color:#CAC9D9;
-	color:#000000;
-	font-family:verdana,Arial;
-}
-
-.crwizardtoolbar A
-{
-	color:#000000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crwizardtoolbar A.hover
-{
-	color:#FF0000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crwizardformula
-{
-	background-color:#CAC9D9;
-	color:#000000;
-	font-family:verdana,Arial;
-}
-.crwizardfields
-{
-	background-color:#CAC9D9;
-	color:#000000;
-	font-family:verdana,Arial;
-}
-
-.crsearchresults
-{
-	background-color:#FFFFFF;
-	color:#636384;
-	font-family:verdana,Arial;
-}
-
-.crsearchresults A
-{
-	color:#636384;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crsearchresults A:hover
-{
-	color:#636384;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crsearchresultstitle
-{
-	background-color:#DFDEEA;
-	color:#000000;
-	font-size:14pt;
-	font-weight:bold;
-	font-family:verdana,Arial;
-}
-
-.crsearchresultstoolbar
-{
-	background-color:#FFFFFF;
-	color:#000000;
-}
-
-.crsearchresultstoolbar A
-{
-	color:#0000FF;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crsearchresultstoolbar A:hover
-{
-	color:#FF00FF;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crcaption
-{
-	color:#000000;
-	font-size:14pt;
-	font-family:verdana,Arial;
-}
-
-
-.crtoolbar
-{
-    background-color:#E4E4EC;
-    color:#000000;
-    font-size:8pt;
-    font-family:verdana,Arial;
-    border-bottom:1px solid #BEBED1;
-    border-top:1px solid #FFFFFF;
-}
-
-
-.crtoolbar A
-{
-	color:#000000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crtoolbar A:hover
-{
-	color:#FF0000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crtoolbar A IMG
-{
-	border-style:none; 
-	border-width:0
-}
-
-.crtoolbarlist
-{
-	font-size:8pt;
-	font-family:verdana,Arial;
-}
-
-.crtoolbartextbox
-{
-	font-size:8pt;
-	font-family:verdana,Arial;
-}
-
-.crtoptoolbar
-{
-	background-color:#0073AA;
-	color:#FFFFFF;
-}
-
-.crtoptoolbar A
-{
-	color:#FFFFFF;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crtoptoolbar A:hover
-{
-	color:#FF0000;
-	cursor:hand;
-	text-decoration:none;
-}
-
-.crcontent
-{
-	font-size:12pt;
-}
-
-
-.promptBorder   
-{
-	background-color: black;
-}
-
-.promptHeader   
-{
-      background-color: teal;
-      color: #F5F5F5;
-	font-family: verdana, Arial;
-      font-weight: bold;
-      border-width: thin;
-}
-
-.promptElement  
-{
-      background-color: #DFDFDF;
-}
-
-.promptElementText 
-{
-      color: #444444;
-      font-family: verdana, Arial;
-      font-size: 10pt;
-}
-
-.promptingText  
-{
-      color: #444444;
-      font-family: verdana, Arial;
-      font-size: 12pt;
-}
-
-.promptRuler    
-{
-      color: #444444;
-}
-
-.promptMessage
-{
-      color: #444444;
-      font-family: verdana, Arial;
-      font-weight: bold;
-      font-size: 14pt;
-}
-		    
-.promptTextBox 
-{
-      background-color: #FFFFFF;
-      border-top: thin solid;
-      border-bottom: thin solid;
-      border-left: thin solid;
-      border-right: thin solid;
-      border-color: #000000;
-      font-family: verdana, Arial;
-}
-
-.promptButton   
-{
-      border-top: thin solid;
-      border-bottom: thin solid;
-   	border-left: thin solid;
-      border-right: thin solid;
-      font-family: verdana, Arial;
-      font-size: 10pt;
-}
-
-.promptDropDown 
-{
-   	border-top: thin solid;
-      border-bottom: thin solid;
-      border-left: thin solid;
-    	border-right: thin solid;
-      font-family: verdana, Arial;
-}
-
-.promptListBox  
-{
-      border-top: thin solid;
-     	border-bottom: thin solid;
-     	border-left: thin solid;
-      border-right: thin solid;
-      font-family: verdana, Arial;
-}
-				
-.CRGridViewerToolbar	
-{
-	background-color:#E4E4EC;
-	color:#000000;
-	font-family:verdana,Arial;
-	font-size:8pt
-}
-
-.CRGridViewerNavigationBar	
-{
-	background-color:#FFFFFF;
-	color:#000000;				
-	font-family:verdana,Arial;
-	font-size:8pt;
-}		
-
-.CRGridViewerHeading 
-{				
-	height:40;
-	background-color:#CAC9D9;
-	border-width:1;
-	font-family:verdana,Arial;
-}
-
-				
-.CRGridViewerCell  
-{							
-	padding:2px;
-	text-align:center;
-	border-width:1;			     
-	font-family:verdana,Arial;
-}	
-				
-				
-.CRGridViewerTable	
-{
-	font-family:verdana,Arial;				
-}
-	
-.crgrptr a
-{
-      color: #000000;
-      font-family: verdana, Arial;
-      font-size: 10pt;
-}
-
-.crgrptr a:hover
-{
-     color: #ff0000;
-     cursor: hand;
-     text-decoration:underline;
-}
-
-.crgrplvl1 
-{
-}
-
-.crgrplvl2 
-{
-}

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/html/calendar.html

@@ -1,21 +0,0 @@
-<HTML>
-<HEAD>
-<META http-equiv=content-type="text/html; charset=utf-8">
-  <TITLE>Crystal Reports</TITLE>
-</HEAD>
-
-<SCRIPT LANGUAGE="JavaScript">
-
-    //newWin = window;
-    // USE THE JAVASCRIPT-GENERATED DOCUMENTS (calDocTop, calDocBottom) IN THE FRAMESET
-    calDocFrameset =
-        "<FRAMESET ROWS='70,*' FRAMEBORDER='0'>\n" +
-        "  <FRAME NAME='topCalFrame' SRC='calendartop.html' SCROLLING='no'>\n" +
-        "  <FRAME NAME='bottomCalFrame' SRC='calendarbottom.html' SCROLLING='no'>\n" +
-        "</FRAMESET>\n";
-
-    document.write(calDocFrameset);
-
-</SCRIPT>
-
-</HTML>

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/html/calendarbottom.html

@@ -1,3 +0,0 @@
-<script language="javascript">
-document.write(parent.parent.opener.calDocBottom);
-</script>

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/html/calendartop.html

@@ -1,3 +0,0 @@
-<script language="javascript">
-document.write(parent.parent.opener.calDocTop);
-</script>

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/html/crystalexportdialog.htm

@@ -1,77 +0,0 @@
-<html>
-	<head>
-		<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
-	</head>
-	<body>
-		<script language="javascript">
-<!--
-// export UI functions
-function check(obj) {
-	return !obj.disabled;
-}
-
-function toggleRangeFields(obj) {
-	if( obj.id == "radio1") {
-		document.Export.from.disabled = true;
-		document.Export.to.disabled = true;
-	}
-	else {
-		document.Export.from.disabled = false;
-		document.Export.to.disabled = false;
-	}
-	return check(obj);
-}
-
-function checkDisableRange() {
-	if( document.Export.exportformat.value == "CrystalReports"
-		|| document.Export.exportformat.value == "RecordToMSExcel" ) {
-		if( document.Export.isRange[1].checked ) {
-			document.Export.isRange[0].checked = true;
-		}
-		document.Export.isRange[1].disabled = true;
-		document.Export.from.disabled = true;
-		document.Export.to.disabled = true;
-	}
-	else {
-		document.Export.isRange[1].disabled = false;
-	}
-}
-
-function isValidNumber(number) {
-	var nonDigit = /\D+/;
-	if( nonDigit.test(number) || number == '0' || number == "") {
-		return false;
-	}
-	return true;
-}
-
-function checkValuesAndSubmit() {
-	if( document.Export.isRange[1].checked ) {
-		if (!isValidNumber(document.Export.from.value) || !isValidNumber(document.Export.to.value) || (parseInt(document.Export.from.value, 10) > parseInt(document.Export.to.value, 10))) {
-			alert(parent.parent.opener.L_InvalidPageRange);
-			return;
-		}
-	}
-	if( document.Export.exportformat != null && document.Export.exportformat.selectedIndex == 0 ) {
-		alert(parent.parent.opener.L_ExportFormat);
-		return;
-	}
-	document.Export.action = opener.document.getElementById('crystal_handler_page').value;
-	document.Export.submit();
-}
-
-function init() {
-    document.getElementById ('radio1').focus ();
-    if (document.getElementById('reportsource')) {
-	    document.getElementById('reportsource').value = parent.opener.document.getElementById('crystal_print_rptsrc').value;
-	}
-	if (document.getElementById('viewstate')) {
-	    document.getElementById('viewstate').value = parent.opener.document.getElementById('crystal_print_vs').value;
-	}
-}
-
-document.write(parent.parent.opener.getExportDialog());
--->
-		</script>
-	</body>
-</html>

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/html/crystalprinthost.html

@@ -1,86 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>Crystal Reports Viewer</TITLE>
-<SCRIPT language="Javascript" src="../js/print.js"></SCRIPT>
-<SCRIPT FOR="CrystalPrintControl" EVENT="Finished(status, statusText)" LANGUAGE="Javascript">
-<!--
-window.close();
--->
-</SCRIPT>
-</HEAD>
-<BODY onload="checkUserCancelledInstallation(document.getElementById('CrystalPrintControl'))" onBeforeUnload="cancelPrinting(document.getElementById('CrystalPrintControl'))">
-<SCRIPT LANGUAGE="Javascript">
-<!--
-var objectTag = "<OBJECT ID=\"CrystalPrintControl\" CLASSID=\"CLSID:83A3D1E4-ADC6-434D-9B61-B8CBA6183441\" CODEBASE=\"";
-objectTag += window.dialogArguments.codebase;
-objectTag += "#Version=";
-objectTag += IE_PRINT_CONTROL_PRODUCTVERSION;
-objectTag += "\" VIEWASTEXT>";
-
-if (window.dialogArguments.url) {
-    objectTag +="<PARAM NAME=\"URL\" VALUE=\"";
-    objectTag += window.dialogArguments.url;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.postbackdata) {
-    objectTag += "<PARAM NAME=\"PostBackData\" VALUE=\"";
-    objectTag += window.dialogArguments.postbackdata;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.title) {
-    objectTag +="<PARAM NAME=\"Title\" VALUE=\"";
-    objectTag += window.dialogArguments.title;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.maxpage) {
-    objectTag +="<PARAM NAME=\"MaxPageNumber\" VALUE=\"";
-    objectTag += window.dialogArguments.maxpage;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.pageorientation) {
-    objectTag +="<PARAM NAME=\"PageOrientation\" VALUE=\"";
-    objectTag += window.dialogArguments.pageorientation;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.papersize) {
-    objectTag +="<PARAM NAME=\"PaperSize\" VALUE=\"";
-    objectTag += window.dialogArguments.papersize;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.drivername) {
-    objectTag +="<PARAM NAME=\"PrinterDriverName\" VALUE=\"";
-    objectTag += window.dialogArguments.drivername;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.usedefprinter) {
-    objectTag +="<PARAM NAME=\"UseDefaultPrinter\" VALUE=\"";
-    objectTag += window.dialogArguments.usedefprinter;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.usedefprintersettings) {
-    objectTag +="<PARAM NAME=\"UseDefaultPrinterSettings\" VALUE=\"";
-    objectTag += window.dialogArguments.usedefprintersettings;
-    objectTag += "\">";
-}
-
-if (window.dialogArguments.sendpostdataonce) {
-    objectTag +="<PARAM NAME=\"SendPostDataOnce\" VALUE=\"";
-    objectTag += window.dialogArguments.sendpostdataonce;
-    objectTag += "\">";
-}
-
-objectTag += "</OBJECT>";
-
-document.writeln(objectTag);
--->
-</SCRIPT>
-</BODY>
-</HTML>

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/KeyDownEvent.js

@@ -1,45 +0,0 @@
-/*
-	File Version Start - Do not remove this if you are modifying the file
-	Build: 9.5.0
-	File Version End
-*/
-/*
-    this function is used to verify whether the 'Enter' key is pressed.
-    if the 'Enter' key is pressed, then either call the event handler function passed in as a parameter (evntHdlrName)
-    or if evntHdlrName is an empty string, submit the form that contains the input box (that triggers this function).  
-    The form name is passed in as the third parameter, if it's an empty string, it's set to 0 by default.
-    The first parameter is an event object 
-    
-    written by Paul Chong, 17th May 01
-*/
-
-function keydownfn(e, evntHdlrName, formName)
-{	
-    var nav4;
-    var keyPressed;
-
-    //check if the brower is Netscape Navigator 4 or not
-    var nav4 = window.Event ? true : false;
-	
-	//if browser is Navigator 4, the key pressed is called <event object>.which else it's called <event object>.keyCode
-	keyPressed = nav4 ? e.which : e.keyCode;
-		
-    if (keyPressed == 13)
-    {	
-        if (evntHdlrName != "")
-		{	
-			// append empty parentheses if none given
-			if(evntHdlrName.substr(evntHdlrName.length-1) != ")")
-				evntHdlrName += "()";
-			eval(evntHdlrName);
-        }
-        else
-        {
-			if (formName == "")
-				formName = 0;
-            document.forms[formName].submit();
-        }
-    }
-    return true;
-}
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/calendar_param.js

@@ -1,702 +0,0 @@
-// Modified Date: 11/30/1999
-// Modified By:   Robert W. Husted
-// Notes:  Added frameset support (changed reference for "newWin" to "top.newWin")
-//         Also changed Spanish "March" from "Marcha" to "Marzo"
-//         Fixed JavaScript Date Anomaly affecting days > 28
-//
-// Modified by Crystal Decisions
-// Removed large amounts of comments to shrink file size.
-// Removed multi language support as language set by user as accept-language and navigator.language don't necessarily match
-// Removed formatting code as only format wanted is for Crystal Reports Date/DateTime parameters
-// Moved resource strings to top of file for translation
-// Added A.whatever:visited styles so that followed links appear as if they weren't followed
-
-
-// BEGIN USER-EDITABLE SECTION -----------------------------------------------------
-
-// CALENDAR COLORS
-topBackground    = "black";         // BG COLOR OF THE TOP FRAME
-bottomBackground = "white";         // BG COLOR OF THE BOTTOM FRAME
-tableBGColor     = "black";         // BG COLOR OF THE BOTTOM FRAME'S TABLE
-cellColor        = "lightgrey";     // TABLE CELL BG COLOR OF THE DATE CELLS IN THE BOTTOM FRAME
-headingCellColor = "white";         // TABLE CELL BG COLOR OF THE WEEKDAY ABBREVIATIONS
-headingTextColor = "black";         // TEXT COLOR OF THE WEEKDAY ABBREVIATIONS
-dateColor        = "blue";          // TEXT COLOR OF THE LISTED DATES (1-28+)
-focusColor       = "#ff0000";       // TEXT COLOR OF THE SELECTED DATE (OR CURRENT DATE)
-hoverColor       = "darkred";       // TEXT COLOR OF A LINK WHEN YOU HOVER OVER IT
-fontStyle        = "12pt arial, helvetica";           // TEXT STYLE FOR DATES
-headingFontStyle = "bold 12pt arial, helvetica";      // TEXT STYLE FOR WEEKDAY ABBREVIATIONS
-
-// FORMATTING PREFERENCES
-bottomBorder  = false;        // TRUE/FALSE (WHETHER TO DISPLAY BOTTOM CALENDAR BORDER)
-tableBorder   = 0;            // SIZE OF CALENDAR TABLE BORDER (BOTTOM FRAME) 0=none
-
-var DateTimeFormat = true;		//"DateTime" if true, else a "Date"
-
-// END USER-EDITABLE SECTION -------------------------------------------------------
-
-// DETERMINE BROWSER BRAND
-var isNav = false;
-var isIE  = false;
-
-// ASSUME IT'S EITHER NETSCAPE OR MSIE
-if (navigator.appName == "Netscape") {
-    isNav = true;
-}
-else {
-    isIE = true;
-}
-
-// global variable for top frame and bottom frame
-var calDocTop;
-var calDocBottom;
-
-// PRE-BUILD PORTIONS OF THE CALENDAR WHEN THIS JS LIBRARY LOADS INTO THE BROWSER
-buildCalParts();
-
-// CALENDAR FUNCTIONS BEGIN HERE ---------------------------------------------------
-
-// SET THE INITIAL VALUE OF THE GLOBAL DATE FIELD
-function setDateField(formName, dateField, hiddenField) {
-
-    // ASSIGN THE INCOMING FIELD OBJECT TO A GLOBAL VARIABLE
-    thisform = document.forms[formName];
-    calDateField = thisform[dateField];
-    calHiddenField = thisform[hiddenField];
-
-    // GET THE VALUE OF THE INCOMING FIELD
-    inDate = thisform[hiddenField].value;
-
-    // SET calDate TO THE DATE IN THE INCOMING FIELD OR DEFAULT TO TODAY'S DATE
-    setInitialDate();
-
-    // THE CALENDAR FRAMESET DOCUMENTS ARE CREATED BY JAVASCRIPT FUNCTIONS
-    calDocTop    = buildTopCalFrame();
-    calDocBottom = buildBottomCalFrame();
-}
-
-
-// SET THE INITIAL CALENDAR DATE TO TODAY OR TO THE EXISTING VALUE IN dateField
-function setInitialDate() {
-
-    calDate = ParseDate(inDate, DateTimeFormat);
-    
-    // IF THE INCOMING DATE IS INVALID, USE THE CURRENT DATE
-    if (isNaN(calDate)) {
-
-        // ADD CUSTOM DATE PARSING HERE
-        // IF IT FAILS, SIMPLY CREATE A NEW DATE OBJECT WHICH DEFAULTS TO THE CURRENT DATE
-        calDate = new Date();
-    }
-
-    // KEEP TRACK OF THE CURRENT DAY VALUE
-    calDay  = calDate.getDate();
-
-    // SET DAY VALUE TO 1... TO AVOID JAVASCRIPT DATE CALCULATION ANOMALIES
-    // (IF THE MONTH CHANGES TO FEB AND THE DAY IS 30, THE MONTH WOULD CHANGE TO MARCH
-    //  AND THE DAY WOULD CHANGE TO 2.  SETTING THE DAY TO 1 WILL PREVENT THAT)
-    calDate.setDate(1);
-}
-
-// CREATE THE TOP CALENDAR FRAME
-function buildTopCalFrame() {
-
-    // CREATE THE TOP FRAME OF THE CALENDAR
-    var calDoc =
-        "<HTML>" +
-        "<HEAD>" +
-        "</HEAD>" +
-        "<BODY BGCOLOR='" + topBackground + "'>" +
-        "<FORM NAME='calControl' onSubmit='return false;'>" +
-        "<CENTER>" +
-        "<TABLE CELLPADDING=0 CELLSPACING=1 BORDER=0 WIDTH=100%>" +
-        "<TR><TD COLSPAN=7>" +
-        "<CENTER>" +
-        getMonthSelect() +
-        "<INPUT NAME='year' VALUE='" + calDate.getFullYear() + "'TYPE=TEXT SIZE=4 MAXLENGTH=4 onKeyDown='parent.opener.keydownfn(event, \"setYear\", \"\");' onChange='parent.opener.setYear()'>" +
-        "</CENTER>" +
-        "</TD>" +
-        "</TR>" +
-        "<TR>" +
-        "<TD COLSPAN=7>" +
-        "<CENTER>" +
-        "<INPUT " +
-        "TYPE=BUTTON NAME='previousYear' VALUE='<<'    onClick='parent.opener.setPreviousYear()'><INPUT " +
-        "TYPE=BUTTON NAME='previousMonth' VALUE=' < '   onClick='parent.opener.setPreviousMonth()'><INPUT " +
-        "TYPE=BUTTON NAME='today' VALUE='" + L_Today + "' onClick='parent.opener.setToday()'><INPUT " +
-        "TYPE=BUTTON NAME='nextMonth' VALUE=' > '   onClick='parent.opener.setNextMonth()'><INPUT " +
-        "TYPE=BUTTON NAME='nextYear' VALUE='>>'    onClick='parent.opener.setNextYear()'>" +
-        "</CENTER>" +
-        "</TD>" +
-        "</TR>" +
-        "</TABLE>" +
-        "</CENTER>" +
-        "</FORM>" +
-        "</BODY>" +
-        "</HTML>";
-
-    return calDoc;
-}
-
-// CREATE THE BOTTOM CALENDAR FRAME
-// (THE MONTHLY CALENDAR)
-function buildBottomCalFrame() {
-    // START CALENDAR DOCUMENT
-    var calDoc = calendarBegin;
-
-    // GET MONTH, AND YEAR FROM GLOBAL CALENDAR DATE
-    month   = calDate.getMonth();
-    year    = calDate.getFullYear();
-
-
-    // GET GLOBALLY-TRACKED DAY VALUE (PREVENTS JAVASCRIPT DATE ANOMALIES)
-    day     = calDay;
-
-    var i   = 0;
-
-    // DETERMINE THE NUMBER OF DAYS IN THE CURRENT MONTH
-    var days = getDaysInMonth();
-
-    // IF GLOBAL DAY VALUE IS > THAN DAYS IN MONTH, HIGHLIGHT LAST DAY IN MONTH
-    if (day > days) {
-        day = days;
-    }
-
-    // DETERMINE WHAT DAY OF THE WEEK THE CALENDAR STARTS ON
-    var firstOfMonth = new Date (year, month, 1);
-
-    // GET THE DAY OF THE WEEK THE FIRST DAY OF THE MONTH FALLS ON
-    var startingPos  = firstOfMonth.getDay();
-    days += startingPos;
-
-    // KEEP TRACK OF THE COLUMNS, START A NEW ROW AFTER EVERY 7 COLUMNS
-    var columnCount = 0;
-
-    // MAKE BEGINNING NON-DATE CELLS BLANK
-    for (i = 0; i < startingPos; i++) {
-
-        calDoc += blankCell;
-	columnCount++;
-    }
-
-    // SET VALUES FOR DAYS OF THE MONTH
-    var currentDay = 0;
-    var dayType    = "weekday";
-
-    // DATE CELLS CONTAIN A NUMBER
-    for (i = startingPos; i < days; i++) {
-
-	var paddingChar = "&nbsp;";
-
-        // ADJUST SPACING SO THAT ALL LINKS HAVE RELATIVELY EQUAL WIDTHS
-        if (i-startingPos+1 < 10) {
-            padding = "&nbsp;&nbsp;";
-        }
-        else {
-            padding = "&nbsp;";
-        }
-
-        // GET THE DAY CURRENTLY BEING WRITTEN
-        currentDay = i-startingPos+1;
-
-        // SET THE TYPE OF DAY, THE focusDay GENERALLY APPEARS AS A DIFFERENT COLOR
-        if (currentDay == day) {
-            dayType = "focusDay";
-        }
-        else {
-            dayType = "weekDay";
-        }
-
-        // ADD THE DAY TO THE CALENDAR STRING
-        calDoc += "<TD align=center bgcolor='" + cellColor + "'>" +
-                  "<a class='" + dayType + "' href='javascript:parent.opener.returnDate(" +
-                  currentDay + ")'>" + padding + currentDay + paddingChar + "</a></TD>";
-
-        columnCount++;
-
-        // START A NEW ROW WHEN NECESSARY
-        if (columnCount % 7 == 0) {
-            calDoc += "</TR><TR>";
-        }
-    }
-
-    // MAKE REMAINING NON-DATE CELLS BLANK
-    for (i=days; i<42; i++)  {
-
-        calDoc += blankCell;
-	columnCount++;
-
-        // START A NEW ROW WHEN NECESSARY
-        if (columnCount % 7 == 0) {
-            calDoc += "</TR>";
-            if (i<41) {
-                calDoc += "<TR>";
-            }
-        }
-    }
-
-    // FINISH THE NEW CALENDAR PAGE
-    calDoc += calendarEnd;
-
-    // RETURN THE COMPLETED CALENDAR PAGE
-    return calDoc;
-}
-
-
-// WRITE THE MONTHLY CALENDAR TO THE BOTTOM CALENDAR FRAME
-function writeCalendar() {
-	// CREATE THE NEW CALENDAR FOR THE SELECTED MONTH & YEAR
-    calDocBottom = buildBottomCalFrame();
-
-	if (document.getElementById) { // ns6 & ie
-		top.newWin.frames['bottomCalFrame'].document.getElementById('bottomDiv').innerHTML = calDocBottom;
-	} else {
-		// WRITE THE NEW CALENDAR TO THE BOTTOM FRAME
-		top.newWin.frames['bottomCalFrame'].document.open();
-		top.newWin.frames['bottomCalFrame'].document.write(calDocBottom);
-		top.newWin.frames['bottomCalFrame'].document.close();
-	}
-}
-
-// SET THE CALENDAR TO TODAY'S DATE AND DISPLAY THE NEW CALENDAR
-function setToday() {
-
-    // SET GLOBAL DATE TO TODAY'S DATE
-    calDate = new Date();
-
-    // SET DAY MONTH AND YEAR TO TODAY'S DATE
-    var month = calDate.getMonth();
-    var year  = calDate.getFullYear();
-
-    // SET MONTH IN DROP-DOWN LIST
-    top.newWin.frames['topCalFrame'].document.calControl.month.selectedIndex = month;
-
-    // SET YEAR VALUE
-    top.newWin.frames['topCalFrame'].document.calControl.year.value = year;
-
-	// SET THE DAY VALUE
-	calDay = calDate.getDate();
-
-	// DISPLAY THE NEW CALENDAR
-    writeCalendar();
-}
-
-
-// SET THE GLOBAL DATE TO THE NEWLY ENTERED YEAR AND REDRAW THE CALENDAR
-function setYear() {
-
-    // GET THE NEW YEAR VALUE
-    var year  = top.newWin.frames['topCalFrame'].document.calControl.year.value;
-
-    // IF IT'S A FOUR-DIGIT YEAR THEN CHANGE THE CALENDAR
-    if (isFourDigitYear(year)) {
-        calDate.setFullYear(year);
-        writeCalendar();
-        top.newWin.frames['topCalFrame'].document.calControl.year.blur();
-    }
-    else {
-        // HIGHLIGHT THE YEAR IF THE YEAR IS NOT FOUR DIGITS IN LENGTH
-        top.newWin.frames['topCalFrame'].document.calControl.year.focus();
-        top.newWin.frames['topCalFrame'].document.calControl.year.select();
-    }
-}
-
-
-// SET THE GLOBAL DATE TO THE SELECTED MONTH AND REDRAW THE CALENDAR
-function setCurrentMonth() {
-
-    // GET THE NEWLY SELECTED MONTH AND CHANGE THE CALENDAR ACCORDINGLY
-    var month = top.newWin.frames['topCalFrame'].document.calControl.month.selectedIndex;
-
-    calDate.setMonth(month);
-    writeCalendar();
-}
-
-
-// SET THE GLOBAL DATE TO THE PREVIOUS YEAR AND REDRAW THE CALENDAR
-function setPreviousYear() {
-
-    var year  = top.newWin.frames['topCalFrame'].document.calControl.year.value;
-
-    if (isFourDigitYear(year) && year > 1000) {
-        year--;
-        calDate.setFullYear(year);
-        top.newWin.frames['topCalFrame'].document.calControl.year.value = year;
-        writeCalendar();
-    }
-}
-
-
-// SET THE GLOBAL DATE TO THE PREVIOUS MONTH AND REDRAW THE CALENDAR
-function setPreviousMonth() {
-
-    var year  = top.newWin.frames['topCalFrame'].document.calControl.year.value;
-    if (isFourDigitYear(year)) {
-        var month = top.newWin.frames['topCalFrame'].document.calControl.month.selectedIndex;
-
-        // IF MONTH IS JANUARY, SET MONTH TO DECEMBER AND DECREMENT THE YEAR
-        if (month == 0) {
-            month = 11;
-            if (year > 1000) {
-                year--;
-                calDate.setFullYear(year);
-                top.newWin.frames['topCalFrame'].document.calControl.year.value = year;
-            }
-        }
-        else {
-            month--;
-        }
-        calDate.setMonth(month);
-        top.newWin.frames['topCalFrame'].document.calControl.month.selectedIndex = month;
-        writeCalendar();
-    }
-}
-
-
-// SET THE GLOBAL DATE TO THE NEXT MONTH AND REDRAW THE CALENDAR
-function setNextMonth() {
-
-    var year = top.newWin.frames['topCalFrame'].document.calControl.year.value;
-
-    if (isFourDigitYear(year)) {
-        var month = top.newWin.frames['topCalFrame'].document.calControl.month.selectedIndex;
-
-        // IF MONTH IS DECEMBER, SET MONTH TO JANUARY AND INCREMENT THE YEAR
-        if (month == 11) {
-            month = 0;
-            year++;
-            calDate.setFullYear(year);
-            top.newWin.frames['topCalFrame'].document.calControl.year.value = year;
-        }
-        else {
-            month++;
-        }
-        calDate.setMonth(month);
-        top.newWin.frames['topCalFrame'].document.calControl.month.selectedIndex = month;
-        writeCalendar();
-    }
-}
-
-
-// SET THE GLOBAL DATE TO THE NEXT YEAR AND REDRAW THE CALENDAR
-function setNextYear() {
-    var year  = top.newWin.frames['topCalFrame'].document.calControl.year.value;
-    if (isFourDigitYear(year)) {
-        year++;
-        calDate.setFullYear(year);
-        top.newWin.frames['topCalFrame'].document.calControl.year.value = year;
-        writeCalendar();
-    }
-}
-
-
-// GET NUMBER OF DAYS IN MONTH
-function getDaysInMonth()  {
-
-    var days;
-    var month = calDate.getMonth()+1;
-    var year  = calDate.getFullYear();
-
-    // RETURN 31 DAYS
-    if (month==1 || month==3 || month==5 || month==7 || month==8 ||
-        month==10 || month==12)  {
-        days=31;
-    }
-    // RETURN 30 DAYS
-    else if (month==4 || month==6 || month==9 || month==11) {
-        days=30;
-    }
-    // RETURN 29 DAYS
-    else if (month==2)  {
-        if (isLeapYear(year)) {
-            days=29;
-        }
-        // RETURN 28 DAYS
-        else {
-            days=28;
-        }
-    }
-    return (days);
-}
-
-
-// CHECK TO SEE IF YEAR IS A LEAP YEAR
-function isLeapYear (Year) {
-
-    if (((Year % 4)==0) && ((Year % 100)!=0) || ((Year % 400)==0)) {
-        return (true);
-    }
-    else {
-        return (false);
-    }
-}
-
-
-// ENSURE THAT THE YEAR IS FOUR DIGITS IN LENGTH
-function isFourDigitYear(year) {
-
-    if (year == null || year.match(/^[0-9]{4}$/) == null){
-        top.newWin.frames['topCalFrame'].document.calControl.year.value = calDate.getFullYear();
-        top.newWin.frames['topCalFrame'].document.calControl.year.select();
-        top.newWin.frames['topCalFrame'].document.calControl.year.focus();
-    }
-    else {
-        return true;
-    }
-}
-
-
-// BUILD THE MONTH SELECT LIST
-function getMonthSelect() {
-
-    monthArray = new Array(L_January, L_February, L_March, L_April, L_May, L_June,
-                           L_July, L_August, L_September, L_October, L_November, L_December);
-
-
-    // DETERMINE MONTH TO SET AS DEFAULT
-    var activeMonth = calDate.getMonth();
-
-    // START HTML SELECT LIST ELEMENT
-    monthSelect = "<SELECT NAME='month' onChange='parent.opener.setCurrentMonth()'>";
-
-    // LOOP THROUGH MONTH ARRAY
-    for (i in monthArray) {
-
-        // SHOW THE CORRECT MONTH IN THE SELECT LIST
-        if (i == activeMonth) {
-            monthSelect += "<OPTION SELECTED>" + monthArray[i] + "\n";
-        }
-        else {
-            monthSelect += "<OPTION>" + monthArray[i] + "\n";
-        }
-    }
-    monthSelect += "</SELECT>";
-
-    // RETURN A STRING VALUE WHICH CONTAINS A SELECT LIST OF ALL 12 MONTHS
-    return monthSelect;
-}
-
-
-// SET DAYS OF THE WEEK DEPENDING ON LANGUAGE
-function createWeekdayList() {
-
- weekdayArray = new Array(L_Su,L_Mo,L_Tu,L_We,L_Th,L_Fr,L_Sa);
-
-
-    // START HTML TO HOLD WEEKDAY NAMES IN TABLE FORMAT
-    var weekdays = "<TR BGCOLOR='" + headingCellColor + "'>";
-
-    // LOOP THROUGH WEEKDAY ARRAY
-    for (i in weekdayArray) {
-
-        weekdays += "<TD class='heading' align=center>" + weekdayArray[i] + "</TD>";
-    }
-    weekdays += "</TR>";
-
-    // RETURN TABLE ROW OF WEEKDAY ABBREVIATIONS TO DISPLAY ABOVE THE CALENDAR
-    return weekdays;
-}
-
-
-// PRE-BUILD PORTIONS OF THE CALENDAR (FOR PERFORMANCE REASONS)
-function buildCalParts() {
-
-    // GENERATE WEEKDAY HEADERS FOR THE CALENDAR
-    weekdays = createWeekdayList();
-
-    // BUILD THE BLANK CELL ROWS
-    blankCell = "<TD align=center bgcolor='" + cellColor + "'>&nbsp;&nbsp;&nbsp;</TD>";
-
-    // BUILD THE TOP PORTION OF THE CALENDAR PAGE USING CSS TO CONTROL SOME DISPLAY ELEMENTS
-    calendarBegin =
-        "<HTML>" +
-        "<HEAD>" +
-        // STYLESHEET DEFINES APPEARANCE OF CALENDAR
-        "<STYLE type='text/css'>" +
-        "<!--" +
-        "TD.heading { text-decoration: none; color:" + headingTextColor + "; font: " + headingFontStyle + "; }" +
-        "A.focusDay:link { color: " + focusColor + "; text-decoration: none; font: " + fontStyle + "; }" +
-        "A.focusDay:hover { color: " + focusColor + "; text-decoration: none; font: " + fontStyle + "; }" +
-        "A.focusDay:visited { color: " + focusColor + "; text-decoration: none; font: " + fontStyle + "; }" +
-        "A.weekday:link { color: " + dateColor + "; text-decoration: none; font: " + fontStyle + "; }" +
-        "A.weekday:hover { color: " + hoverColor + "; font: " + fontStyle + "; }" +
-        "A.weekday:visited { color: " + dateColor + "; text-decoration: none; font: " + fontStyle + "; }" +
-        "-->" +
-        "</STYLE>" +
-
-        "</HEAD>" +
-        "<BODY BGCOLOR='" + bottomBackground + "' onload='javascript:self.focus()'>";
-    if (document.getElementById) { // ns6 & ie
-        calendarBegin +=
-            "<DIV ID='bottomDiv'>";
-    }
-    calendarBegin +=
-        "<CENTER>";
-
-        // NAVIGATOR NEEDS A TABLE CONTAINER TO DISPLAY THE TABLE OUTLINES PROPERLY
-        if (isNav) {
-            calendarBegin +=
-                "<TABLE CELLPADDING=0 CELLSPACING=1 BORDER=" + tableBorder + " ALIGN=CENTER BGCOLOR='" + tableBGColor + "'><TR><TD>";
-        }
-
-        // BUILD WEEKDAY HEADINGS
-        calendarBegin +=
-            "<TABLE CELLPADDING=0 CELLSPACING=1 BORDER=" + tableBorder + " ALIGN=CENTER BGCOLOR='" + tableBGColor + "'>" +
-            weekdays +
-            "<TR>";
-
-
-    // BUILD THE BOTTOM PORTION OF THE CALENDAR PAGE
-    calendarEnd = "";
-
-        // WHETHER OR NOT TO DISPLAY A THICK LINE BELOW THE CALENDAR
-        if (bottomBorder) {
-            calendarEnd += "<TR></TR>";
-        }
-
-        // NAVIGATOR NEEDS A TABLE CONTAINER TO DISPLAY THE BORDERS PROPERLY
-        if (isNav) {
-            calendarEnd += "</TD></TR></TABLE>";
-        }
-
-        // END THE TABLE AND HTML DOCUMENT
-        calendarEnd +=
-            "</TABLE>" +
-            "</CENTER>";
-		if (document.getElementById) { // ns6 & ie
-            calendarEnd +=
-            "</DIV>";
-		}
-		calendarEnd +=
-            "</BODY>" +
-            "</HTML>";
-}
-
-
-// REPLACE ALL INSTANCES OF find WITH replace
-// inString: the string you want to convert
-// find:     the value to search for
-// replace:  the value to substitute
-//
-// usage:    jsReplace(inString, find, replace);
-// example:  jsReplace("To be or not to be", "be", "ski");
-//           result: "To ski or not to ski"
-//
-function jsReplace(inString, find, replace) {
-
-    var outString = "";
-
-    if (!inString) {
-        return "";
-    }
-
-    // REPLACE ALL INSTANCES OF find WITH replace
-    if (inString.indexOf(find) != -1) {
-        // SEPARATE THE STRING INTO AN ARRAY OF STRINGS USING THE VALUE IN find
-        t = inString.split(find);
-
-        // JOIN ALL ELEMENTS OF THE ARRAY, SEPARATED BY THE VALUE IN replace
-        return (t.join(replace));
-    }
-    else {
-        return inString;
-    }
-}
-
-
-// JAVASCRIPT FUNCTION -- DOES NOTHING (USED FOR THE HREF IN THE CALENDAR CALL)
-function doNothing() {
-}
-
-
-// ENSURE THAT VALUE IS TWO DIGITS IN LENGTH
-function makeTwoDigit(inValue) {
-
-    var numVal = parseInt(inValue, 10);
-
-    // VALUE IS LESS THAN TWO DIGITS IN LENGTH
-    if (numVal < 10) {
-
-        // ADD A LEADING ZERO TO THE VALUE AND RETURN IT
-        return("0" + numVal);
-    }
-    else {
-        return numVal;
-    }
-}
-
-
-// SET FIELD VALUE TO THE DATE SELECTED AND CLOSE THE CALENDAR WINDOW
-function returnDate(inDay)
-{
-    // inDay = THE DAY THE USER CLICKED ON
-    calDate.setDate(inDay);
-
-    // SET THE DATE RETURNED TO THE USER
-    var day           = calDate.getDate();
-    var month         = calDate.getMonth()+1;
-    var year          = calDate.getFullYear();
-    
-    // SET THE VALUE OF THE FIELD THAT WAS PASSED TO THE CALENDAR
-    var dt = new Date(year, month - 1, day, 0, 0, 0);
-    calDateField.value = GLDT(dt,true, false);
-
-    calHiddenField.value = "Date(";
-    calHiddenField.value += year;
-    calHiddenField.value += ",";
-    calHiddenField.value += month;
-    calHiddenField.value += ",";
-    calHiddenField.value += day;
-    calHiddenField.value += ")";
-
-    // GIVE FOCUS BACK TO THE DATE FIELD
-    calDateField.focus();
-
-    // CLOSE THE CALENDAR WINDOW
-    top.newWin.close()
-}
-
-var gHour = "0";
-var gMin  = "0";
-var gSec  = "0";
-var regDateTimePrompt  = /^(D|d)(A|a)(T|t)(E|e)(T|t)(I|i)(M|m)(E|e) *\( *\d{4} *, *(0?[1-9]|1[0-2]) *, *((0?[1-9]|[1-2]\d)|3(0|1)) *, *([0-1]?\d|2[0-3]) *, *[0-5]?\d *, *[0-5]?\d *\)$/
-function ParseDateTimePrompt(inDate)
-{
-    if ( regDateTimePrompt.test ( inDate ) )
-    {
-        var sDate = inDate.substr ( inDate.indexOf("(")+1 );    //move past "DateTime ("
-        sDate = sDate.substr ( 0, sDate.lastIndexOf(")") );     //remove trailing ")"
-        var dateArray = sDate.split (',');
-        var _date = new Date ( dateArray[0], Number(dateArray[1]) - 1, dateArray[2] );
-        gHour = dateArray[3]; gMin = dateArray[4]; gSec = dateArray[5];
-        return _date;
-    }
-    return new Date ();
-}
-
-var regDatePrompt = /^(D|d)(A|a)(T|t)(E|e) *\( *\d{4} *, *(0?[1-9]|1[0-2]) *, *((0?[1-9]|[1-2]\d)|3(0|1)) *\)$/
-function ParseDatePrompt(inDate)
-{
-    if ( regDatePrompt.test ( inDate ) )
-    {
-        var sDate = inDate.substr ( inDate.indexOf("(")+1 );    //move past "Date ("
-        sDate = sDate.substr ( 0, sDate.lastIndexOf(")") );     //remove trailing ")"
-        var dateArray = sDate.split (',');
-        return new Date ( dateArray[0], Number(dateArray[1]) - 1, dateArray[2] );
-    }
-    return new Date();
-}
-
-function ParseDate(inDate, bDateTimeFormat)
-{
-    var result;
-    
-    if (bDateTimeFormat == true) {
-        result = ParseDateTimePrompt(inDate);
-    } else {
-        result = ParseDatePrompt(inDate);
-    }
-    
-    return result;
-}
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/dt_param.js

@@ -1,345 +0,0 @@
-
-// TDC is to get DateTime format info for current locale
-function TDC() { 
-  var d=new Date(1970,0,0,0,0,0,0),d2=new Date(d),s1,s2,api=-1; 
-  d.setHours(10); d2.setHours(11); 
-  s1=d.toLocaleString(); s2=d2.toLocaleString(); 
-  this.displayHour=(s1!=s2); 
-  d.setHours(0); d2.setHours(0); 
-  d.setMinutes(10); d2.setMinutes(11); 
-  this.displayMinute=(d.toLocaleString()!=d2.toLocaleString()); 
-  d.setMinutes(0); d2.setMinutes(0); 
-  d.setSeconds(10); d2.setSeconds(11); 
-  this.displaySecond=(d.toLocaleString()!=d2.toLocaleString()); 
-  d.setSeconds(0); d2.setSeconds(0); 
-  if (this.displayHour) { 
-    for (i=0; i<((s1.length<s2.length)?s1.length:s2.length); i++) { 
-      if (s1.charAt(i)!=s2.charAt(i)) { 
-        api=i-1; break; 
-      } 
-    } 
-    d.setHours(11); d2.setHours(23); 
-    s1=d.toLocaleString(); s2=d2.toLocaleString(); 
-    this.twelveHourClock=(s1.substring(api,api+2)==s2.substring(api,api+2)); 
-    this.displayAMPM=(s1!=s2); 
-    d.setHours(0); d2.setHours(0); 
-    d.setHours(9); d2.setHours(11); 
-    this.hourLeadZero=(d.toLocaleString().length==d2.toLocaleString().length); 
-    d.setHours(0); d2.setHours(0); 
-  } else { 
-    this.twelveHourClock=false; 
-    this.displayAMPM=false; 
-    this.hourLeadZero=false; 
-  } 
-  if (this.displayMinute) { 
-    d.setMinutes(9); d2.setMinutes(11); 
-    this.minuteLeadZero=(d.toLocaleString().length==d2.toLocaleString().length); 
-    d.setMinutes(0); d2.setMinutes(0); 
-  } else 
-    this.minuteLeadZero=false; 
-  if (this.displaySecond) { 
-    d.setSeconds(9); d2.setSeconds(11); 
-    this.secondLeadZero=(d.toLocaleString().length==d2.toLocaleString().length); 
-    d.setSeconds(0); d2.setSeconds(0); 
-  } else 
-    this.secondLeadZero=false; 
-} 
-
-var TD = new TDC(); 
-
-// create time editables, hour dropdown, minute dropdown, second dropdown, and am/pm dropdown
-function CreateTimeEditables(paramName, postFix, enabled, cssClass, style, hour, minute, second)
-{
-   var properties = "";
-   if (!enabled)
-   {
-      properties += " disabled='disabled' ";
-   }
-      
-   if (cssClass.length != 0)
-   {
-	 properties += " class='";
-	 properties += cssClass;
-	 properties += "' ";
-   }
-      
-   if (style.length != 0)
-   {
-     properties += " style='";
-     properties += style;
-     properties += "' ";
-   }
-     
-   var time_sep_span = "";
-   time_sep_span += "<span ";
-   time_sep_span += properties;
-   time_sep_span += ">";
-   time_sep_span += L_TIME_SEPARATOR;
-   time_sep_span += "</span>";
-
-   var editablesHtml = "";
-   if (TD.displayHour)
-   {
-      editablesHtml +=  "<SELECT ";
-      editablesHtml += properties;      
-      editablesHtml +=  " name='";
-      editablesHtml += paramName;
-      editablesHtml += postFix;
-      editablesHtml += "Hour'>";
-      
-      var minHour;
-      var maxHour;
-      if (TD.twelveHourClock)
-      {
-         minHour = 1;
-         maxHour = 12;
-      }
-      else
-      {
-         minHour = 0;
-         maxHour = 23;
-      }
- 
-      for (i = minHour; i <= maxHour ; i++){
-	      editablesHtml += " <option value='";
-          editablesHtml += i;
-          editablesHtml += "'";
-
-          if (!TD.twelveHourClock)
-	  {  
-	     if (i == hour)
-	     	editablesHtml += " selected ";
-          }
-          else
-          {
-	     if (( hour == 0) && (i == 12))  
- 		editablesHtml += " selected ";
-             else if ((hour == 12) && (i == 12))
-		editablesHtml += " selected ";
-             else if ((hour > 12) && (i == hour - 12))
-		editablesHtml += " selected ";
-	     else if (i == hour)
-                editablesHtml += " selected ";
-          }
-
-          if ((i < 10) && (TD.hourLeadZero))
-          {
-             editablesHtml += "> 0";
-          }
-          else
-	  {
-             editablesHtml += "> ";
-             
-          }
-          editablesHtml += i;
-          editablesHtml += "</option>\n";
-      }
-       
-      editablesHtml +=  "        </SELECT>";
-   }
-
-   if (TD.displayMinute)
-   {
-      if (editablesHtml.length != 0) 
-      {
-         editablesHtml += time_sep_span;
-      }
- 
-      editablesHtml += "<SELECT  ";
-      editablesHtml += properties;	   
-      editablesHtml += " name='";
-      editablesHtml += paramName;
-      editablesHtml += postFix;
-      editablesHtml += "Minute'>";
-      
- 
-      for (i = 0; i <= 59; i++){
-	      editablesHtml += " <option value='";
-          editablesHtml += i;
-          editablesHtml += "'";
-
-          if (i == minute)
-	         editablesHtml += " selected ";
-          if ((i < 10) && (TD.minuteLeadZero))
-          {
-             
-             editablesHtml += "> 0";
-             
-          }
-          else
-          {
-             editablesHtml += "> ";
-          }
-          editablesHtml += i;
-          editablesHtml += "</option>\n";
-      }
-       
-      editablesHtml +=  "        </SELECT>";
-   }
- 
-   if (TD.displaySecond)
-   {
-      if (editablesHtml.length != 0)
-         editablesHtml += time_sep_span;
-      
-      editablesHtml += "<SELECT ";
-      editablesHtml += properties;  
-      editablesHtml += " name='";
-      editablesHtml += paramName;
-      editablesHtml += postFix;
-      editablesHtml += "Second'>";
-      
- 
-      for (i = 0; i <= 59; i++){
-          editablesHtml += " <option value='";
-          editablesHtml += i;
-	      editablesHtml += "'";
- 
-          if (i == second)
-	         editablesHtml += " selected ";
-
-          if ((i < 10) && (TD.secondLeadZero))
-             editablesHtml += "> 0";
-          else
-             editablesHtml += "> ";;
-          editablesHtml += i;
-          editablesHtml += "</option>\n";
-      }
-       
-      editablesHtml +=  "        </SELECT>";
-   }
-   
-   if (TD.twelveHourClock)
-   {
-      editablesHtml +=  "<SELECT ";
-      editablesHtml += properties;
-      editablesHtml += " name='";
-      editablesHtml += paramName;
-      editablesHtml += postFix;
-      editablesHtml += "AMPM' >";
-      editablesHtml += " <option value='0'";
-      if (hour < 12)
-	    editablesHtml += " selected ";
-      editablesHtml += "> ";
-      editablesHtml += L_AM_DESIGNATOR;
-      editablesHtml += "</option>\n";
-      editablesHtml += " <option value='1'"; 
-      if (hour >= 12)
-	    editablesHtml += " selected ";
-      editablesHtml += "> ";
-      editablesHtml += L_PM_DESIGNATOR;
-      editablesHtml += "</option>\n";
-      editablesHtml +=  "        </SELECT>";
-   }
-  
-   return editablesHtml;
-}
-
-// get Locale Date/Time
-// d: input Date
-// return only Date part if includeDate==true, and includeTime== false
-// return only Time part if includeDate==false and includeTime== true
-// return datetime string if includeDate==true and includeTime == true
-function GLDT(d, includeDate, includeTime) { // Get Locale Date/Time 
-  // Returns date/and or time from locale string. 
-  // Assumes that date appears before time in string. 
-  if (includeDate && includeTime) return d.toLocaleString(); 
-
-  var d2 = new Date(d);
-  var ds;
-  var ds2;
-  var ml; 
-  d2.setMilliseconds(d.getMilliseconds()<=887 ? d.getMilliseconds()+111 : d.getMilliseconds() - 111); 
-  d2.setSeconds(d.getSeconds()<=49 ? d.getSeconds()+11 : d.getSeconds()-11); 
-  d2.setMinutes(d.getMinutes()<=49 ? d.getMinutes()+11 : d.getMinutes()-11); 
-  
-  // although TD.twelveHourClock could be true, but d.getHours will always get hours in 24
-  // only the localized the date string will be in twelve hour clock
-  // here we want d2's hour's first digit different from d1's hour's first digit
-  // also if d1 is morning, d2 will be in afternoon, vice versa thus we get different strings for AM, and PM
-  // because AM/PM could be before hours (eg. in Korean)
-  if (TD.twelveHourClock) 
-  {
-	var hour = d.getHours();
-	if (hour == 0 || hour == 1 || hour == 10 || hour == 11)
-	{
-		d2.setHours(14);
-	} 
-	else if (hour == 12 || hour == 13 || hour == 22 || hour == 23)
-	{
-		d2.setHours(2);
-	}
-	else if (hour < 12)
-	{
-		d2.setHours(13);
-	}
-	else 
-	{
-		d2.setHours(1);
-	}
-  }
-  else 
-  { 
-    d2.setHours( d.getHours()<12 ? (d.getHours() == 1 ? 2 : d.getHours() + 12) : (d.getHours()<20 ? 20 : 11)); 
-  } 
-    
-  ds = d.toLocaleString(); 
-
-  ds2 = d2.toLocaleString(); 
-
-  ml = ds.length < ds2.length ? ds.length : ds2.length ;
-  for (i=0; i<ml; i++) { 
-    if (ds.charAt(i) != ds2.charAt(i)) 
-	{
-		// put the iterator back to the beginning of the word
-		while (ds.charAt(i) != ' ') i--;
-		i++;
-		break;
-	}
-  } 
-  if (includeDate) 
-    return ds.substring(0, i-1);
-  else if (includeTime) 
-    return ds.substring(i); 
-  else 
-    return ""; 
-} 
-
-// construct localized datetime/date/time string 
-// from DateTime(year, month, day, hour, minute, second)
-// or   Date(year, month, day)
-// or   Time(hour, minute, second)
-function NeutralDT2D(s) { 
-  var d="";
-  var td = new Date();
-  var a; 
-  if (s.indexOf("DateTime")!=-1) { 
-    a = s.replace("DateTime","").replace("(","").replace(")","").split(",") ;
-    d = GLDT(new Date(a[0], a[1]-1, a[2], a[3], a[4], a[5], 0), true, true); 
-  } else if (s.indexOf("Date")!=-1) { 
-    a = s.replace("Date","").replace("(","").replace(")","").split(",") ;
-    d = GLDT(new Date(a[0], a[1]-1, a[2], 0, 0, 0, 0), true, false); 
-  } else if (s.indexOf("Time")!=-1) { 
-    a = s.replace("Time","").replace("(","").replace(")","").split(","); 
-    d = GLDT(new Date(td.getYear(), td.getMonth(), td.getDate(), a[0], a[1], a[2]), false, true); 
-  }
-  return d; 
-}
-
-function NeutralDT2Date(s){
-  var d="";
-  var td = new Date();
-  var a; 
-  if (s.indexOf("DateTime")!=-1) { 
-    a = s.replace("DateTime","").replace("(","").replace(")","").split(",") ;
-    return new Date(a[0], a[1]-1, a[2], a[3], a[4], a[5], 0);
-  } else if (s.indexOf("Date")!=-1) { 
-    a = s.replace("Date","").replace("(","").replace(")","").split(",") ;
-    return new Date(a[0], a[1]-1, a[2], 0, 0, 0, 0);
-  } else if (s.indexOf("Time")!=-1) { 
-    a = s.replace("Time","").replace("(","").replace(")","").split(","); 
-    return new Date(td.getYear(), td.getMonth(), td.getDate(), a[0], a[1], a[2]);
-  }
-  return d; 
-}
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/export.js

@@ -1,177 +0,0 @@
-// export.js
-// This file contains the funcitons needed to construct the HTML for the export / print dialog.
-//
-// Global variable
-var print = false;		// default to export, so set print to false
-var crystal_postback =
-        "<INPUT type=\"hidden\" name=\"reportsource\" id=\"reportsource\"/>" +
-        "<INPUT type=\"hidden\" name=\"viewstate\" id=\"viewstate\"/>";
-
-function getPageTitle() {
-	if (print) {
-		return L_PrintPageTitle;
-	}
-	else {
-		return L_ExportPageTitle;
-	}
-}
-
-function getOptionsTitle() {
-	if (print) {
-		return L_PrintOptions;
-	}
-	else {
-		return L_ExportOptions;
-	}
-}
-
-function getFormatDropdownList() {
-	if (print) {
-		return "<INPUT type=\"hidden\" name=\"exportformat\" id=\"exportformat\" value=\"PDF\"/>";
-	}
-	else {
-		var list =
-		"<TABLE width=\"100%\">" +
-		"<TD align=\"center\"><SPAN class=\"exportMessage\"><LABEL for=\"exportFormatList\">" + L_ExportFormat + "</LABEL></SPAN></TD>"  +
-		"<TR>" +
-		"<TD class=\"exportSelect\" align=\"center\">" +
-		"<SELECT id=\"exportFormatList\" class=\"exportSelect\" name=\"exportformat\" onchange=\"checkDisableRange()\">" +
-		"<OPTION selected value=\"\">" + L_Formats +"</OPTION>";
-		if( rpt )
-		{
-			list += "<OPTION value=\"CrystalReports\">" + L_CrystalRptFormat + "</OPTION>";
-		}
-		if( pdf )
-		{
-			list += "<OPTION value=\"PDF\">" + L_AcrobatFormat + "</OPTION>";
-		}
-		if( word )
-		{
-			list += "<OPTION value=\"MSWord\">" + L_WordFormat + "</OPTION>";
-		}
-		if( xls )
-		{
-			list += "<OPTION value=\"MSExcel\">" + L_ExcelFormat + "</OPTION>";
-		}
-		if( recXls )
-		{
-			list += "<OPTION value=\"RecordToMSExcel\">" + L_ExcelRecordFormat + "</OPTION>";
-		}
-		if( rtf )
-		{
-			list += "<OPTION value=\"RTF\">" + L_RTFFormat +"</OPTION>";
-		}
-		
-		list += "</SELECT>" +
-		"</TD>" +
-		"</TR>" +
-		"</TABLE>";
-		return list;
-	}
-}
-
-function getSelectPageRangeSentence() {
-	if (print) {
-		return L_PrintPageRange;
-	}
-	else {
-		return L_ExportPageRange;
-	}
-}
-
-function getPrintSteps() {
-	if (print) {
-		var steps =
-		"<TR height=40 valign=\"bottom\">" +
-		"<TD><SPAN class=\"exportMessage\">" + L_PrintStep0 + "</SPAN></TD>" +
-		"</TR>" +
-		"<TR valign=\"top\">" +
-		"<TD><SPAN class=\"exportMessage\">" + L_PrintStep1 + "</TD>" +
-		"</TR>" +
-		"<TR height=40 valign=\"top\">" +
-		"<TD><SPAN class=\"exportMessage\">" + L_PrintStep2 + "</SPAN></TD>" +
-		"</TR>";
-		return steps;
-	}
-	else {
-		return "";
-	}
-}
-
-function getExportDialog() {
-	var exportDialog =
-		"<HTML>" +
-		"<HEAD>" +
-		"<STYLE>" +
-		"SPAN.exportMessage {" +
-		"   FONT-SIZE: 12pt; FONT-FAMILY: Arial, Helvetica, sans-serif" +
-		"}" +
-		"SPAN.exportSelect {" +
-		"   FONT-SIZE: 10pt; FONT-FAMILY: Arial, Helvetica, sans-serif" +
-		"}" +
-		"</STYLE>" +
-		"<TITLE>" + getPageTitle() + "</TITLE>" +
-		"</HEAD>" +
-		"<BODY bottomMargin=0 topMargin=5 onload=\"init()\">" +
-		"<FORM name=\"Export\" method=\"POST\">" +
-		crystal_postback +
-		"<TABLE cellSpacing=\"0\" cellPadding=\"3\" width=\"97%\" align=\"center\" border=\"0\">" +
-		"<TBODY>" +
-		"<TR bgColor=#008080><TD>&nbsp;</TD></TR>" +
-		"<TR bgColor=#000000><TD>&nbsp;</TD></TR>" +
-		"<FIELDSET style=\"border-style:none\">" +
-		"<TR><TD><LEGEND align=\"center\"><SPAN class=\"exportMessage\">" + getOptionsTitle() + "</SPAN></LEGEND></TD></TR>" +
-		"<TR>" +
-		"<TD align=\"center\">" +
-		getFormatDropdownList() +
-		"</TD></TR>" +
-		"<TR><TD><SPAN class=\"exportMessage\">&nbsp;&nbsp;&nbsp;" + getSelectPageRangeSentence() +
-		"</SPAN></TD>" +
-		"</TR>" +
-		"<TR>" +
-		"<TD>" +
-		"<TABLE>" +
-		"<TR>" +
-		"<TD><INPUT type=\"radio\" id=\"radio1\" checked name=\"isRange\" value=\"all\" onclick=\"return toggleRangeFields(this);\"/></TD>" +
-		"<TD><SPAN class=\"exportMessage\"><LABEL for=radio1>" + L_All + "</LABEL></SPAN></TD>" +
-		"</TR>" +
-		"</TABLE>" +
-		"</TD>" +
-		"</TR>" +
-		"<TR>" +
-		"<TD>" +
-		"<TABLE>" +
-		"<TR>" +
-		"<TD><INPUT type=\"radio\" id=\"radio2\" name=\"isRange\" value=\"selection\" onclick=\"return toggleRangeFields(this);\"/></TD>" +
-		"<TD><SPAN class=\"exportMessage\"><LABEL for=radio2>" + L_Pages + "</LABEL></SPAN></TD>" +
-		"</TR>" +
-		"</TABLE>" +
-		"</TD>" +
-		"</TR>" +
-		"<TR>" +
-		"<TD>" +
-		"<TABLE>" +
-		"<TR>" +
-		"<TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>" +
-		"<TD><SPAN class=\"exportMessage\"><LABEL for=from>" + L_From + "</LABEL></SPAN></TD>" +
-		"<TD><INPUT type=\"text\" width=\"20\" size=\"6\" maxLength=\"6\" name=\"from\" id=\"from\" value=\"1\" disabled></TD>" +
-		"<TD><SPAN class=\"exportMessage\"><LABEL for=to>" + L_To + "</LABEL></SPAN></TD>" +
-		"<TD><INPUT type=\"text\" width=\"20\" size=\"6\" maxLength=\"6\" name=\"to\" id=\"to\" value=\"1\" disabled></TD>" +
-		"</TR>" +
-		"</TABLE>" +
-		"</TD>" +
-		"</TR>" +
-		"</FIELDSET>" +
-		getPrintSteps() +
-		"<TR>" +
-		"<TD align=\"center\" colspan=6><BR><INPUT type=\"button\" id=\"submitexport\" width=\"30\" title=\"" + getPageTitle() + "\" value=\"&nbsp;&nbsp;&nbsp;" + L_OK + "&nbsp;&nbsp;&nbsp;\" onclick=\"checkValuesAndSubmit();\"/></TD>" +
-		"</TR>" +
-		"</TBODY>" +
-		"</TABLE>" +
-		"</FORM>" +
-		"</BODY>" +
-		"</HTML>";
-
-		return exportDialog;
-}
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/print.js

@@ -1,56 +0,0 @@
-var IE_PRINT_CONTROL_PRODUCTVERSION = "10,5,0,1943"
-var NS_PRINT_CONTROL_PRODUCTVERSION = "10.5.0.1943"
-
-function blockEvents() {
-    var deadend;
-    opener.captureEvents(Event.CLICK, Event.MOUSEDOWN, Event.MOUSEUP, Event.FOCUS);
-    opener.onclick = deadend;
-    opener.onmousedown = deadend;
-    opener.onmouseup = deadend;
-    opener.focus = deadend;
-}
-
-function unblockEvents() {
-    opener.releaseEvents(Event.CLICK, Event.MOUSEDOWN, Event.MOUSEUP, Event.FOCUS);
-    opener.onclick = null;
-    opener.mousedown = null;
-    opener.mouseup = null;
-    opener.onfocus = null;
-}
-
-function finished() {
-    setTimeout("close()", 1000);
-}
-
-function installNsPlugin(pluginUrl, clientVersionRegistry) {
-    var err = InstallTrigger.compareVersion(clientVersionRegistry, NS_PRINT_CONTROL_PRODUCTVERSION);
-
-    if (err < 0)
-    {
-        xpi={'Crystal Reports ActiveX Print Control Plug-in':pluginUrl};
-        InstallTrigger.install(xpi, callback);
-    }
-}
-
-function callback(url, status) {
-    if (status) {
-        alert("Installation of the ActiveX Print Control failed.  Error code: " + status);
-    }
-}
-
-function checkModal(dlgWindow) {
-    if (dlgWindow && !dlgWindow.closed)
-    dlgWindow.focus();
-}
-
-function cancelPrinting(printControl) {
-    if (printControl && printControl.IsBusy) {
-        printControl.CancelPrinting();
-    }
-}
-
-function checkUserCancelledInstallation(printControl) {
-    if (printControl && printControl.IsBusy == undefined)
-        close();
-}
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/strings_chs.js

@@ -1,77 +0,0 @@
-// LOCALIZATION STRING
-
-// Strings for calendar.js and calendar_param.js
-var L_Today     = "\u4eca\u5929";
-var L_January   = "\u4e00\u6708";
-var L_February  = "\u4e8c\u6708";
-var L_March     = "\u4e09\u6708";
-var L_April     = "\u56db\u6708";
-var L_May       = "\u4e94\u6708";
-var L_June      = "\u516d\u6708";
-var L_July      = "\u4e03\u6708";
-var L_August    = "\u516b\u6708";
-var L_September = "\u4e5d\u6708";
-var L_October   = "\u5341\u6708";
-var L_November  = "\u5341\u4e00\u6708";
-var L_December  = "\u5341\u4e8c\u6708";
-var L_Su        = "\u65e5";
-var L_Mo        = "\u4e00";
-var L_Tu        = "\u4e8c";
-var L_We        = "\u4e09";
-var L_Th        = "\u56db";
-var L_Fr        = "\u4e94";
-var L_Sa        = "\u516d";
-
-// strings for dt_param.js
-var L_TIME_SEPARATOR = ":";
-var L_AM_DESIGNATOR = "\u4e0a\u5348";
-var L_PM_DESIGNATOR = "\u4e0b\u5348";
-
-// strings for range parameter
-var L_FROM = "\u4ece\uff08\u5305\u542b\uff09 {0}";
-var L_TO = "\u5230\uff08\u5305\u542b\uff09{0}";
-var L_AFTER = "\u4ece\uff08\u4e0d\u5305\u542b\uff09{0} ";
-var L_BEFORE = "\u5230\uff08\u4e0d\u5305\u542b\uff09{0} ";
-var L_FROM_TO = "\u4ece\uff08\u5305\u542b\uff09{0} \u5230\uff08\u5305\u542b\uff09{1}";
-var L_FROM_BEFORE = "\u4ece\uff08\u5305\u542b\uff09{0} \u5230\uff08\u4e0d\u5305\u542b\uff09{1}";
-var L_AFTER_TO = " \u4ece\uff08\u4e0d\u5305\u542b\uff09{0} \u5230\uff08\u5305\u542b\uff09{1}";
-var L_AFTER_BEFORE = "\u4ece\uff08\u4e0d\u5305\u542b\uff09{0} \u5230\uff08\u4e0d\u5305\u542b\uff09{1} ";
-
-// Strings for prompts.js and prompts_param.js
-var L_BadNumber		= "\u6b64\u53c2\u6570\u7684\u7c7b\u578b\u4e3a \"\u6570\u5b57\"\uff0c\u53ea\u80fd\u5305\u542b\u8d1f\u53f7\u3001\u6570\u5b57 (\"0-9\")\u3001\u6570\u5b57\u5206\u7ec4\u7b26\u53f7\u6216\u5c0f\u6570\u70b9\u3002\u8bf7\u7ea0\u6b63\u8f93\u5165\u7684\u53c2\u6570\u503c\u3002";
-var L_BadCurrency	= "\u6b64\u53c2\u6570\u7684\u7c7b\u578b\u4e3a \"\u8d27\u5e01\"\uff0c\u53ea\u80fd\u5305\u542b\u8d1f\u53f7\u3001\u6570\u5b57 (\"0-9\")\u3001\u6570\u5b57\u5206\u7ec4\u7b26\u53f7\u6216\u5c0f\u6570\u70b9\u3002\u8bf7\u7ea0\u6b63\u8f93\u5165\u7684\u53c2\u6570\u503c\u3002";
-var L_BadDate		= "\u6b64\u53c2\u6570\u7684\u7c7b\u578b\u4e3a \"\u65e5\u671f\"\uff0c\u5176\u683c\u5f0f\u5e94\u4e3a \"\u65e5\u671f(yyyy,mm,dd)\"\uff0c\u5176\u4e2d \"yyyy\" \u662f\u56db\u4f4d\u6570\u5e74\u4efd\uff0c\"mm\" \u662f\u6708\u4efd\uff08\u4f8b\u5982\uff0c\u4e00\u6708 = 1\uff09\uff0c\"dd\" \u662f\u6307\u5b9a\u6708\u4efd\u7684\u5929\u6570\u3002";
-var L_BadDateTime   = "\u6b64\u53c2\u6570\u7684\u7c7b\u578b\u4e3a \"\u65e5\u671f\u65f6\u95f4\"\uff0c\u6b63\u786e\u7684\u683c\u5f0f\u4e3a \"\u65e5\u671f\u65f6\u95f4(yyyy,mm,dd,hh,mm,ss)\"\u3002\"yyyy\" \u662f\u56db\u4f4d\u6570\u5e74\u4efd\uff0c\"mm\" \u662f\u6708\u4efd\uff08\u4f8b\u5982\uff0c\u4e00\u6708 = 1\uff09\uff0c\"dd\" \u662f\u6708\u4e2d\u7684\u67d0\u5929\uff0c\"hh\" \u662f 24 \u5c0f\u65f6\u5236\u7684\u5c0f\u65f6\u6570\uff0c\"mm\" \u662f\u5206\u949f\u6570\uff0c\"ss\" \u662f\u79d2\u6570\u3002";
-var L_BadTime       = "\u6b64\u53c2\u6570\u7684\u7c7b\u578b\u4e3a \"\u65f6\u95f4\"\uff0c\u5176\u683c\u5f0f\u5e94\u4e3a \"\u65f6\u95f4(hh,mm,ss)\"\uff0c\u5176\u4e2d \"hh\" \u662f 24 \u5c0f\u65f6\u5236\u7684\u5c0f\u65f6\u6570\uff0c\"mm\" \u662f\u5206\u949f\u6570\uff0c\"ss\" \u662f\u79d2\u6570\u3002";
-var L_NoValue       = "\u65e0\u503c";
-var L_BadValue      = "\u82e5\u8981\u8bbe\u7f6e \"\u65e0\u503c\"\uff0c\u60a8\u5fc5\u987b\u5c06\u201c\u4ece\u201c \u548c \u201c\u5230\u201c \u7684\u503c\u6539\u4e3a \"\u65e0\u503c\".";
-var L_BadBound      = "\u60a8\u4e0d\u80fd\u4e0e \"\u65e0\u4e0a\u9650\" \u4e00\u8d77\u8bbe\u7f6e \"\u65e0\u4e0b\u9650\".";
-var L_NoValueAlready = "\u6b64\u53c2\u6570\u5df2\u8bbe\u7f6e\u4e3a \"\u65e0\u503c\"\u3002\u5728\u6dfb\u52a0\u5176\u4ed6\u503c\u4e4b\u524d\u5220\u9664 \"\u65e0\u503c\"";
-var L_RangeError    = "\u8303\u56f4\u7684\u8d77\u59cb\u503c\u4e0d\u80fd\u5927\u4e8e\u7ed3\u675f\u503c\u3002";
-var L_NoDateEntered = "\u60a8\u5fc5\u987b\u8f93\u5165\u65e5\u671f\u3002";
-
-// Strings for ../html/crystalexportdialog.htm
-var L_ExportOptions     = "\u5bfc\u51fa\u9009\u9879";
-var L_PrintOptions      = "\u6253\u5370\u9009\u9879";
-var L_PrintPageTitle    = "\u6253\u5370\u62a5\u8868";
-var L_ExportPageTitle   = "\u5bfc\u51fa\u62a5\u8868";
-var L_OK                = "\u786e\u5b9a";
-var L_PrintPageRange    = "\u8f93\u5165\u8981\u6253\u5370\u7684\u9875\u7801\u8303\u56f4\u3002";
-var L_ExportPageRange   = "\u8f93\u5165\u8981\u5bfc\u51fa\u7684\u9875\u7801\u8303\u56f4\u3002";
-var L_InvalidPageRange  = "\u9875\u7801\u8303\u56f4\u503c\u4e0d\u6b63\u786e\u3002\u8bf7\u8f93\u5165\u6709\u6548\u7684\u9875\u7801\u8303\u56f4\u3002";
-var L_ExportFormat      = "\u8bf7\u4ece\u5217\u8868\u4e2d\u9009\u62e9\u5bfc\u51fa\u683c\u5f0f\u3002";
-var L_Formats           = "\u683c\u5f0f\uff1a";
-var L_All               = "\u6240\u6709";
-var L_Pages             = "\u9875";
-var L_From              = "\u4ece\uff1a";
-var L_To                = "\u5230\uff1a";
-var L_PrintStep0        = "\u6253\u5370\uff1a";
-var L_PrintStep1        = "1.  \u5728\u51fa\u73b0\u7684\u4e0b\u4e00\u4e2a\u5bf9\u8bdd\u6846\u4e2d\uff0c\u9009\u62e9 \"\u6253\u5f00\u6b64\u6587\u4ef6\" \u9009\u9879\u5e76\u5355\u51fb\u201c\u786e\u5b9a\u201d\u6309\u94ae\u3002";
-var L_PrintStep2        = "2.  \u5355\u51fb Acrobat Reader \u83dc\u5355\u4e0a\u7684\u6253\u5370\u673a\u56fe\u6807\uff0c\u800c\u4e0d\u662f Internet \u6d4f\u89c8\u5668\u4e0a\u7684\u6253\u5370\u673a\u56fe\u6807\u3002";
-var L_RTFFormat         = "RTF \u683c\u5f0f";
-var L_AcrobatFormat     = "Acrobat \u683c\u5f0f (PDF)";
-var L_CrystalRptFormat  = "Crystal Reports (RPT)";
-var L_WordFormat        = "MS Word";
-var L_ExcelFormat       = "MS Excel 97-2000";
-var L_ExcelRecordFormat = "MS Excel 97-2000\uff08\u4ec5\u9650\u6570\u636e\uff09";
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/strings_cht.js

@@ -1,77 +0,0 @@
-// LOCALIZATION STRING
-
-// Strings for calendar.js and calendar_param.js
-var L_Today     = "\u4eca\u5929";
-var L_January   = "1 \u6708";
-var L_February  = "2 \u6708";
-var L_March     = "3 \u6708";
-var L_April     = "4 \u6708";
-var L_May       = "5 \u6708";
-var L_June      = "6 \u6708";
-var L_July      = "7 \u6708";
-var L_August    = "8 \u6708";
-var L_September = "9 \u6708";
-var L_October   = "10 \u6708";
-var L_November  = "11 \u6708";
-var L_December  = "12 \u6708";
-var L_Su        = "\u9031\u65e5";
-var L_Mo        = "\u9031\u4e00";
-var L_Tu        = "\u9031\u4e8c";
-var L_We        = "\u9031\u4e09";
-var L_Th        = "\u9031\u56db";
-var L_Fr        = "\u9031\u4e94";
-var L_Sa        = "\u9031\u516d";
-
-// strings for dt_param.js
-var L_TIME_SEPARATOR = ":";
-var L_AM_DESIGNATOR = "\u4e0a\u5348";
-var L_PM_DESIGNATOR = "\u4e0b\u5348";
-
-// strings for range parameter
-var L_FROM = "\u5f9e {0}";
-var L_TO = "\u5230 {0}";
-var L_AFTER = "{0} \u4e4b\u5f8c";
-var L_BEFORE = "{0} \u4e4b\u524d";
-var L_FROM_TO = "\u5f9e {0} \u5230 {1}";
-var L_FROM_BEFORE = "\u5f9e {0} \u5230 {1} \u4e4b\u524d";
-var L_AFTER_TO = "{0} \u4e4b\u5f8c\u5230 {1}";
-var L_AFTER_BEFORE = "{0} \u4e4b\u5f8c\u5230 {1} \u4e4b\u524d";
-
-// Strings for prompts.js and prompts_param.js
-var L_BadNumber		= "\u6b64\u53c3\u6578\u7684\u985e\u578b\u70ba \"\u6578\u5b57\" \u800c\u4e14\u53ea\u5305\u542b\u8ca0\u6578\u7b26\u865f\u3001\u6578\u5b57 (\"0-9\")\u3001\u6578\u5b57\u7fa4\u7d44\u7b26\u865f\u6216\u5c0f\u6578\u9ede\u7b26\u865f\u3002\u8acb\u4fee\u6b63\u4e26\u8f38\u5165\u53c3\u6578\u503c\u3002";
-var L_BadCurrency	= "\u6b64\u53c3\u6578\u7684\u985e\u578b\u70ba \"\u8ca8\u5e63\" \u800c\u4e14\u53ea\u5305\u542b\u8ca0\u6578\u7b26\u865f\u3001\u6578\u5b57 (\"0-9\")\u3001\u6578\u5b57\u7fa4\u7d44\u7b26\u865f\u6216\u5c0f\u6578\u9ede\u7b26\u865f\u3002\u8acb\u4fee\u6b63\u4e26\u8f38\u5165\u53c3\u6578\u503c\u3002";
-var L_BadDate		= "\u6b64\u53c3\u6578\u7684\u985e\u578b\u70ba \"\u65e5\u671f\"\u800c\u4e14\u683c\u5f0f\u61c9\u70ba \"\u65e5\u671f(yyyy,mm,dd)\" \u5176\u4e2d \"yyyy\" \u70ba 4 \u4f4d\u6578\u7684\u5e74\uff0c\"mm\" \u70ba\u6708 (\u4f8b\u5982: 1 \u6708 = 1)\uff0c\u800c \"dd\" \u70ba\u63d0\u4f9b\u6708\u4efd\u4e2d\u7684\u65e5\u671f\u6578\u5b57\u3002";
-var L_BadDateTime   = "\u6b64\u53c3\u6578\u7684\u985e\u578b\u70ba \"\u65e5\u671f\u6642\u9593\" \u800c\u4e14\u6b63\u78ba\u7684\u683c\u5f0f\u70ba \"\u65e5\u671f\u6642\u9593(yyyy,mm,dd,hh,mm,ss)\"\u3002 \"yyyy\" \u70ba 4 \u4f4d\u6578\u7684\u5e74\uff0c\"mm\" \u70ba\u6708 (\u4f8b\u5982: 1 \u6708 = 1)\uff0c\"dd\" \u70ba\u6708\u4e2d\u7684\u65e5\u671f\uff0c\"hh\" \u70ba 24 \u5236\u7684\u6642\u6578\uff0c\"mm\" \u70ba\u5206\u9418\u6578\uff0c\u800c \"ss\" \u5247\u70ba\u79d2\u6578\u3002";
-var L_BadTime       = "\u6b64\u53c3\u6578\u7684\u985e\u578b\u70ba \"\u6642\u9593\"\u800c\u4e14\u683c\u5f0f\u61c9\u70ba \"\u6642\u9593(hh,mm,ss)\" \u5176\u4e2d \"hh\" \u70ba 24 \u6642\u5236\u7684\u6642\u6578\uff0c \"mm\" \u70ba\u5206\u9418\u6578\uff0c\u800c \"ss\" \u5247\u70ba\u79d2\u6578\u3002";
-var L_NoValue       = "\u6c92\u6709\u503c";
-var L_BadValue      = "\u82e5\u8981\u8a2d\u5b9a\u6210 \"\u6c92\u6709\u503c\"\uff0c\u5fc5\u9808\u540c\u6642\u5c07 \"\u5f9e\" \u548c \"\u5230\" \u7684\u503c\u8a2d\u6210 \"\u6c92\u6709\u503c\"\u3002";
-var L_BadBound      = "\"\u7121\u4e0b\u9650\" \u4e0d\u80fd\u8207 \"\u7121\u4e0a\u9650\" \u4e00\u8d77\u8a2d\u5b9a\u3002";
-var L_NoValueAlready = "\u53c3\u6578\u5df2\u7d93\u8a2d\u5b9a\u6210 \"\u6c92\u6709\u503c\"\u3002\u5728\u52a0\u5165\u5176\u4ed6\u503c\u4e4b\u524d\uff0c\u8acb\u5148\u79fb\u9664 \"\u6c92\u6709\u503c\"";
-var L_RangeError    = "\u7bc4\u570d\u8d77\u9ede\u4e0d\u5f97\u5927\u65bc\u7bc4\u570d\u7d42\u9ede\u3002";
-var L_NoDateEntered = "\u5fc5\u9808\u8f38\u5165\u65e5\u671f\u3002";
-
-// Strings for ../html/crystalexportdialog.htm
-var L_ExportOptions     = "\u532f\u51fa\u9078\u9805";
-var L_PrintOptions      = "\u5217\u5370\u9078\u9805";
-var L_PrintPageTitle    = "\u5217\u5370\u5831\u8868";
-var L_ExportPageTitle   = "\u532f\u51fa\u5831\u8868";
-var L_OK                = "\u78ba\u5b9a";
-var L_PrintPageRange    = "\u8f38\u5165\u8981\u5217\u5370\u7684\u9801\u9762\u7bc4\u570d\u3002";
-var L_ExportPageRange   = "\u8f38\u5165\u8981\u532f\u51fa\u7684\u9801\u9762\u7bc4\u570d\u3002";
-var L_InvalidPageRange  = "\u9801\u9762\u7bc4\u570d\u503c\u4e0d\u6b63\u78ba\u3002\u8acb\u8f38\u5165\u6709\u6548\u7684\u9801\u9762\u7bc4\u570d\u3002";
-var L_ExportFormat      = "\u8acb\u5f9e\u6e05\u55ae\u4e2d\u9078\u53d6\u532f\u51fa\u683c\u5f0f\u3002";
-var L_Formats           = "\u683c\u5f0f:";
-var L_All               = "\u5168\u90e8";
-var L_Pages             = "\u9801\u6578";
-var L_From              = "\u5f9e:";
-var L_To                = "\u5230:";
-var L_PrintStep0        = "\u82e5\u8981\u5217\u5370:";
-var L_PrintStep1        = "1.  \u5728\u4e0b\u4e00\u500b\u51fa\u73fe\u7684\u5c0d\u8a71\u65b9\u584a\u4e2d\uff0c\u8acb\u9078\u53d6 \"\u958b\u555f\u6b64\u6a94\u6848\" \u9078\u9805\uff0c\u7136\u5f8c\u518d\u6309\u4e00\u4e0b [\u78ba\u5b9a] \u6309\u9215\u3002";
-var L_PrintStep2        = "2.  \u6309\u4e00\u4e0b Acrobat Reader \u529f\u80fd\u8868\u4e0a\u7684\u5370\u8868\u6a5f\u5716\u793a\uff0c\u800c\u4e0d\u662f\u7db2\u969b\u7db2\u8def\u700f\u89bd\u5668\u4e0a\u7684\u5217\u5370\u6309\u9215\u3002";
-var L_RTFFormat         = "Rich Text Format";
-var L_AcrobatFormat     = "Acrobat \u683c\u5f0f (PDF)";
-var L_CrystalRptFormat  = "Crystal Reports (RPT)";
-var L_WordFormat        = "MS Word";
-var L_ExcelFormat       = "MS Excel 97-2000";
-var L_ExcelRecordFormat = "MS Excel 97-2000 (\u53ea\u6709\u8cc7\u6599)";
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();

aspnet_client/system_web/2_0_50727/CrystalReportWebFormViewer4/js/strings_de.js

@@ -1,77 +0,0 @@
-// LOCALIZATION STRING
-
-// Strings for calendar.js and calendar_param.js
-var L_Today     = "Heute";
-var L_January   = "Januar";
-var L_February  = "Februar";
-var L_March     = "M\u00e4rz";
-var L_April     = "April";
-var L_May       = "Mai";
-var L_June      = "Juni";
-var L_July      = "Juli";
-var L_August    = "August";
-var L_September = "September";
-var L_October   = "Oktober";
-var L_November  = "November";
-var L_December  = "Dezember";
-var L_Su        = "So";
-var L_Mo        = "Mo";
-var L_Tu        = "Di";
-var L_We        = "Mi";
-var L_Th        = "Do";
-var L_Fr        = "Fr";
-var L_Sa        = "Sa";
-
-// strings for dt_param.js
-var L_TIME_SEPARATOR = ":";
-var L_AM_DESIGNATOR = "AM";
-var L_PM_DESIGNATOR = "PM";
-
-// strings for range parameter
-var L_FROM = "Von {0}";
-var L_TO = "Bis {0}";
-var L_AFTER = "Nach {0}";
-var L_BEFORE = "Vor {0}";
-var L_FROM_TO = "Von {0} bis {1}";
-var L_FROM_BEFORE = "Von {0} bis vor {1}";
-var L_AFTER_TO = "Nach {0} bis {1}";
-var L_AFTER_BEFORE = "Nach {0} bis vor {1}";
-
-// Strings for prompts.js and prompts_param.js
-var L_BadNumber		= "Dieser Parameter ist vom Typ \"Number\" und kann nur ein vorangestelltes Minuszeichen, Ziffern (\"0-9\"), Zifferngruppierungssymbole oder ein Dezimalsymbol enthalten. Korrigieren Sie den eingegebenen Parameterwert.";
-var L_BadCurrency	= "Dieser Parameter ist vom Typ \"Currency\" und kann nur ein Minuszeichen, Ziffern (\"0-9\"), Zifferngruppierungssymbole oder ein Dezimalsymbol enthalten. Korrigieren Sie den eingegebenen Parameterwert.";
-var L_BadDate		= "Dieser Parameter ist vom Typ \"Date\" und sollte im Format \"Date(jjjj,mm,tt)\" angegeben werden, wobei \"jjjj\" die vierstellige Jahreszahl, \"mm\" die Monatszahl (z.B. Januar = 1) und \"tt\" der Tag des angegebenen Monats ist.";
-var L_BadDateTime   = "Dieser Parameter ist vom Typ \"DateTime\", und das korrekte Format lautet \"DateTime(jjjj,mm,tt,hh,mm,ss)\". \"jjjj\" ist die vierstellige Jahreszahl, \"mm\" ist die Monatszahl (z.B. Januar = 1), \"tt\" ist der Tag des Monats, \"hh\" die Stunden im 24-Stunden-Format, \"mm\" die Minuten und \"ss\" die Sekunden.";
-var L_BadTime       = "Dieser Parameter ist vom Typ \"Time\" und sollte dem Format \"Time(hh,mm,ss)\" entsprechen, wobei \"hh\" die Stunden im 24-Stunden-Format, \"mm\" die Minuten einer Stunde und \"ss\" die Sekunden einer Minute sind.";
-var L_NoValue       = "Kein Wert";
-var L_BadValue      = "Um \"Kein Wert\" festzulegen, m\u00fcssen Sie f\u00fcr die Werte \"von\" und \"bis\" die Option \"Kein Wert\" festlegen.";
-var L_BadBound      = "Sie k\u00f6nnen \"Keine Untergrenze\" nicht zusammen mit \"Keine Obergrenze\" festlegen.";
-var L_NoValueAlready = "F\u00fcr diesen Parameter wurde bereits \"Kein Wert\" festgelegt. Entfernen Sie \"Kein Wert\", bevor Sie weitere Werte hinzuf\u00fcgen.";
-var L_RangeError    = "Der Anfangswert des Bereichs darf nicht h\u00f6her als der Endwert des Bereichs sein.";
-var L_NoDateEntered = "Sie m\u00fcssen ein Datum eingeben.";
-
-// Strings for ../html/crystalexportdialog.htm
-var L_ExportOptions     = "Exportoptionen";
-var L_PrintOptions      = "Druckoptionen";
-var L_PrintPageTitle    = "Bericht drucken";
-var L_ExportPageTitle   = "Bericht exportieren";
-var L_OK                = "OK";
-var L_PrintPageRange    = "Geben Sie den zu druckenden Seitenbereich ein.";
-var L_ExportPageRange   = "Geben Sie den zu exportierenden Seitenbereich ein.";
-var L_InvalidPageRange  = "Die Seitenbereichswerte sind ung\u00fcltig. Geben Sie g\u00fcltige Werte f\u00fcr den Seitenbereich ein.";
-var L_ExportFormat      = "W\u00e4hlen Sie ein Exportformat aus der Liste.";
-var L_Formats           = "Formate:";
-var L_All               = "Alle";
-var L_Pages             = "Seiten";
-var L_From              = "von:";
-var L_To                = "bis:";
-var L_PrintStep0        = "Zu drucken:";
-var L_PrintStep1        = "1.  W\u00e4hlen Sie im n\u00e4chsten Dialogfeld die Option \"Diese Datei \u00f6ffnen\" aus, und klicken Sie auf \"OK\".";
-var L_PrintStep2        = "2.  Klicken Sie vorzugsweise auf das Drucksymbol im Men\u00fc von Acrobat Reader, statt auf das Drucksymbol des Internet-Browsers.";
-var L_RTFFormat         = "Rich Text Format";
-var L_AcrobatFormat     = "Acrobat Format (PDF)";
-var L_CrystalRptFormat  = "Crystal Reports (RPT)";
-var L_WordFormat        = "MS Word";
-var L_ExcelFormat       = "MS Excel 97-2000";
-var L_ExcelRecordFormat = "MS Excel 97-2000 (nur Daten)";
-if(typeof(Sys)!=='undefined')Sys.Application.notifyScriptLoaded();