diff --git a/.gitignore b/.gitignore index 832ad61b6..abd10f2bf 100644 --- a/.gitignore +++ b/.gitignore @@ -259,6 +259,7 @@ paket-files/ # JetBrains Rider .idea/ *.sln.iml +*.sln.iml # CodeRush .cr/ diff --git a/App_WebReferences/Cancelacion.rar b/App_WebReferences/Cancelacion.rar deleted file mode 100644 index 61ebcd9c4..000000000 Binary files a/App_WebReferences/Cancelacion.rar and /dev/null differ diff --git a/Ashx/SigFoxDecodeExample.aspx b/Ashx/SigFoxDecodeExample.aspx deleted file mode 100644 index ffb0a425c..000000000 --- a/Ashx/SigFoxDecodeExample.aspx +++ /dev/null @@ -1,193 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="SigFoxDecodeExample.aspx.vb" Inherits="Ashx_SigFoxDecodeExample" %> - - - - - - - - - - - - - - - - - - - diff --git a/Ashx/SigFoxDecodeExample.aspx.vb b/Ashx/SigFoxDecodeExample.aspx.vb deleted file mode 100644 index 8720d0a6b..000000000 --- a/Ashx/SigFoxDecodeExample.aspx.vb +++ /dev/null @@ -1,11 +0,0 @@ -Imports System.Collections -Partial Class Ashx_SigFoxDecodeExample - Inherits System.Web.UI.Page - - Public Sub Page_Load() Handles Me.Load - Dim ObjNotificaciones As New ClsSisNotificaciones - ObjNotificaciones.ObtenerNotificaciones() - ObjNotificaciones.Dispose() - End Sub - -End Class diff --git a/ClsTSoft.vb b/ClsTSoft.vb deleted file mode 100644 index 89d7d82ed..000000000 --- a/ClsTSoft.vb +++ /dev/null @@ -1,155 +0,0 @@ -Imports Microsoft.VisualBasic -Imports System.Collections.Generic -Imports System.Linq -Imports System.Web -Imports System.Data -Imports System.Text -Imports Extensiones - -Public Class ClsTSoft - Inherits ClsClaseBase - - Public Sub New()'(Optional adsObj As ClsClaseBase = Nothing) - 'MyBase.New(adsObj) - End Sub -#Region "CRUD_Remisiones" - Public Function AddRemisiones(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicio As String, GeoFin As String, Fecha As Date) As Boolean - Dim Retorno As Boolean = False - - SqlDataAdapter("PA_GPS_RemisionesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision - .Add("@NoEconomico", SqlDbType.VarChar).Value = NoEconomico - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@GeoInicio", SqlDbType.VarChar).Value = GeoInicio - .Add("@GeoFin", SqlDbType.VarChar).Value = GeoFin - .Add("@Fecha", SqlDbType.Date).Value = Fecha - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateEstatusRemisiones(CveRemision As Integer, CveEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - - SqlDataAdapter("PA_GPS_RemisionesEstatusUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveRemision", SqlDbType.Int).Value = CveRemision - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetRemisiones(CveCliente As Integer) As Boolean - Dim Retorno As Boolean = False - - SqlDataAdapter("PA_GPS_RemisionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - 'Public Function UpRemisiones(CveRemision As Integer, FolioRemision As String, CveDispositivo As Integer, CveEstatus As Integer, GeoInicio As String, GeoFin As String, - ' Lat As String, Lon As String) As Boolean - ' Dim strSQL As New StringBuilder() - ' Dim retorno As Boolean = False - ' strSQL.Append(" UPDATE TSoft_Remisiones Set ") - ' strSQL.Append(" FolioRemision=@FolioRemision") - ' strSQL.Append(", CveDispositivo =@CveDispositivo") - ' strSQL.Append(", CveEstatus =@CveEstatus") - ' strSQL.Append(", GeoInicio =@GeoInicio") - ' strSQL.Append(", GeoFin =@GeoFin") - ' strSQL.Append(", Lat =@Lat") - ' strSQL.Append(", Lon =@Lon") - ' strSQL.Append(" WHERE [CveRemision]=@CveRemision ") - ' DataAdapter(strSQL.ToString()) - ' addParameters("@CveRemision", SqlDbType.Int, CveRemision) - ' addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision) - ' addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo) - ' addParameters("@CveEstatus", SqlDbType.Int, CveEstatus) - ' addParameters("@GeoInicio", SqlDbType.VarChar, GeoInicio) - ' addParameters("@GeoFin", SqlDbType.VarChar, GeoFin) - ' addParameters("@Lat", SqlDbType.VarChar, Lat) - ' addParameters("@Lon", SqlDbType.VarChar, Lon) - - ' retorno = RunQuery("Ocurrió un error al actualizar el Remisiones.") - ' strSQL.Clear() - ' Return retorno - 'End Function - - Public Function RemoveRemisiones(CveRemision As Integer) As Boolean - Dim strSQL As New StringBuilder() - Dim retorno As Boolean = False - strSQL.Append(" DELETE FROM TSoft_Remisiones ") - strSQL.Append(" WHERE [CveRemision]=@CveRemision ") - DataAdapter(strSQL.ToString()) - addParameters("@CveRemision", SqlDbType.Int, CveRemision) - retorno = RunQuery("Ocurrió un error al eliminar el Remisiones.") - strSQL.Clear() - Return retorno - End Function -#End Region -#Region "Otros" - - Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As Integer) As Boolean - Dim strSQL As New StringBuilder() - Dim retorno As Boolean = False - strSQL.AppendLine(" BEGIN") - strSQL.AppendLine(" DECLARE @Lat AS VARCHAR(20)=''") - strSQL.AppendLine(" DECLARE @Lon AS VARCHAR(20)=''") - strSQL.AppendLine(" DECLARE @CveRemision AS INT =(SELECT TOP 1 REM.CveRemision FROM TSoft_Remisiones REM WHERE FolioRemision= @FolioRemision)") - strSQL.AppendLine(" Declare @CveDispositivo AS INT=( SELECT TOP 1 REM.CveDispositivo FROM TSoft_Remisiones REM WHERE CveRemision=@CveRemision)") - strSQL.AppendLine(" SELECT Top 1 @Lat= Geom.Lat ,@Lon=Geom.Long FROM GPS_Posiciones WHERE CveDispositivo=@CveDispositivo ORDER BY FechaTrama") - strSQL.AppendLine(" UPDATE TSoft_Remisiones SET CveEstatus=@CveEstatus WHERE CveRemision=@CveRemision") - strSQL.AppendLine(" INSERT INTO [TSoft_RemisionesHistorial] ([CveRemisison], [CveEstatus], [Lat], [Lon]) VALUES (@CveRemision, @CveEstatus, @Lat, @Lon)") - strSQL.AppendLine(" END") - DataAdapter(strSQL.ToString()) - addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision) - addParameters("@CveEstatus", SqlDbType.Int, CveEstatus) - retorno = RunQuery("Ocurrió un error al agregar el Remisiones.") - strSQL.Clear() - Return retorno - End Function - Public Function GETRemisionesHistorial(FolioRemision As String, NoEconomico As String) As Boolean - Dim strSQL As New StringBuilder() - Dim retorno As Boolean = False - strSQL.AppendLine(" Declare @CveDispositivo AS INT=(SELECT S_Di.CveDispositivo FROM GPS_Dispositivos AS S_Di WHERE NoEconomico=@NoEconomico AND CveCliente=183798)") - strSQL.AppendLine(" SELECT @NoEconomico AS NoEconomico, REMHIST.Fecha,REMHIST.Lat,REMHIST.Lon,REM.FolioRemision,REMHIST.CveEstatus FROM TSoft_Remisiones REM") - strSQL.AppendLine(" INNER JOIN TSoft_RemisionesHistorial REMHIST ON REMHIST.CveRemisison=REM.CveRemision") - strSQL.AppendLine(" WHERE CveDispositivo=@CveDispositivo AND FolioRemision= @FolioRemision ORDER BY REMHIST.Fecha DESC") - DataAdapter(strSQL.ToString()) - addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision) - addParameters("@NoEconomico", SqlDbType.VarChar, NoEconomico) - retorno = RunQuery("Ocurrió un error al agregar el Remisiones.") - strSQL.Clear() - Return retorno - End Function -#End Region -End Class diff --git a/PRESENTACIONES/Clientes2.aspx.exclude b/PRESENTACIONES/Clientes2.aspx.exclude deleted file mode 100644 index 377bf15e4..000000000 --- a/PRESENTACIONES/Clientes2.aspx.exclude +++ /dev/null @@ -1,350 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes2.aspx.vb" Inherits="PRESENTACIONES_Clientes2" %> -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - Registrar Nueva Venta - - -   - - - -<%----%> - - - - - - - - -
- - - - - - - - - -
-
-
- Datos del Cliente - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Nombre: - - - -
Dirección: - - - -
No. Ext. - - - - - - -
- -  No. Int. - -
-
Colonia: - - - -
Localidad: - - - -
Ciudad: - - - -
Estado: - - - -
RFC: - - - -
Código Postal: - - - -
Teléfono:
Contacto:
Email: - - - -
ConfirmarnContraseña de Acceso:
-
-
-
- - - - - -
- - - - - - - - -
- - -
- - -
-
-
-
- - - - - - - -
La información se está procesando...
-
-
-
-
- - - - diff --git a/PRESENTACIONES/Clientes2.aspx.vb.exclude b/PRESENTACIONES/Clientes2.aspx.vb.exclude deleted file mode 100644 index a9f102099..000000000 --- a/PRESENTACIONES/Clientes2.aspx.vb.exclude +++ /dev/null @@ -1,118 +0,0 @@ -Option Explicit On -Option Strict On - -Imports Extensiones -Imports System.Runtime.InteropServices -Imports System.IO -Imports System.Data - -Partial Class PRESENTACIONES_Clientes2 - Inherits ClsPaginas - - 'Configuración - Private ReadOnly Property CveCliente As Integer - Get - Return ViewState("CveCliente").ToString.ToEntero - End Get - End Property - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - - SetValues() - SetPermisos() - - If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then - ViewState("CveCliente") = Request("CveCliente") - CargaDatos() - 'Configuración de Modalidad Update - BtnGuardar.Text = "Guardar Cambios" - LtlTitulo.Text = "Consulta del Cliente:" - 'ImgAddVenta - ImgAddVenta.Attributes.Add("OnClick", "window.location = '/Ventas/Ventas.aspx?CveCliente=" & CveCliente & "'") - If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then TAB.ActiveTabIndex = Request("Opt").ToEntero - Else - 'Configuración de Modalidad Insert - ViewState("CveCliente") = -1 - BtnEliminar.Visible = False - End If - - End If - End Sub - - Private Sub SetValues() - ViewState("Orden") = "" - ViewState("OSucursalCliente") = "SucursalCliente DESC" - ViewState("OEstado") = "Estado DESC" - ViewState("OFecha") = "Fecha DESC" - ViewState("OUsuario") = "Usuario DESC" - TxtFechaPago.Text = Now.ToShortDateString - End Sub - - Private Sub SetPermisos() - - End Sub - - Private Sub CargaDatos() - Dim ObjClientes As New ClsClientes() - If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - If ObjClientes.DtResultados.Rows.Count > 0 Then - 'Campos para Modificación - LtlCliente.Text = ObjClientes.Nombre - TxtNombre.Text = ObjClientes.Nombre - TxtDireccion.Text = ObjClientes.Direccion - TxtNoExt.Text = ObjClientes.NoExt - TxtNoInt.Text = ObjClientes.NoInt - TxtColonia.Text = ObjClientes.Colonia - TxtLocalidad.Text = ObjClientes.Localidad - TxtCiudad.Text = ObjClientes.Ciudad - TxtEstado.Text = ObjClientes.Estado - TxtRFC.Text = ObjClientes.RFC - TxtCP.Text = ObjClientes.CP.ToString - TxtTelefono.Text = ObjClientes.Telefono - TxtContacto.Text = ObjClientes.Contacto - TxtEmail.Text = ObjClientes.Mail - TxtParaMail.Text = ObjClientes.Mail - Else - Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) - BtnGuardar.Enabled = False - End If - End If - ObjClientes.Dispose() - End Sub - Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click - - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) - SendMail() - - End Sub - - 'Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click - ' Dim ObjClientes As New ClsClientes() - ' If ObjClientes.RemoveCliente(CveCliente) Then - ' Alert("El Cliente se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatClientes.aspx""") - ' End If - ' ObjClientes.Dispose() - 'End Sub - - Protected Sub SendMail() - Dim ObjMail As New ClsSisMail() - If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, "JULIAN@adsistemas.mx", "Acceso AIMMG", "Acceso a AIMMG
ADSISTEMAS.NO-IP/PRESENTACIONES/LOGIN2.ASPX
" & TxtEmail.Text.Trim & ", " & TxtConfirmarContraseñaAcceso.Text.Trim & "
") Then - End If - End Sub - - 'Protected Sub BtnAbonar_Click(sender As Object, e As System.EventArgs) Handles BtnAbonar.Click - ' Dim ObjMovtos As New ClsMovimientos() - ' If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString, HdnCveVentaAbono.Value, 0, TxtCantidad.Text.Trim.ToDouble, TxtFechaPago.Text.ToDate, TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";") - - ' TxtCantidad.Text = "" - ' TxtReferencia.Text = "" - ' UpDatos.Update() - ' End If - ' ObjMovtos.Dispose() - 'End Sub - - - -End Class diff --git a/PRESENTACIONES/Clientes3.aspx.exclude b/PRESENTACIONES/Clientes3.aspx.exclude deleted file mode 100644 index a15ef13a0..000000000 --- a/PRESENTACIONES/Clientes3.aspx.exclude +++ /dev/null @@ -1,618 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes3.aspx.vb" Inherits="PRESENTACIONES_Clientes3" %> - - Registrar Nueva Venta - - -   - - - - - - - - - - -
- - - - - - - - - -
-
-
- Datos del Cliente - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Nombre: - - - -
Dirección: - - - -
No. Ext. - - - - - - -
- -  No. Int. - -
-
Colonia: - - - -
Localidad: - - - -
Ciudad: - - - -
Estado: - - - -
RFC: - - - -
Código Postal: - - - -
Teléfono:
Contacto:
Email: - - - -
ConfirmarnContraseña de Acceso:
-
-
-
- - - - - - - - -
-
-
- Historial de Ventas - - - - -
- - - - - - Factura - - - - - - Fecha - - - - - - Sub Total - - - - - - Descuento - - - - - - Amortización - - - - - - Total - - - - - - Estatus - - - - - - Se Timbró - - - - - - Envío Mail - - - - - - Reenviar - - Reenviar Mail - - - - - - - - - -
-
-
-
- - - - - - - - - - - - - - - - - -
 
-
-
- CxC Activas - - - - -
- - - - Factura - - - - - - Fecha Venta - - - - - - Fecha Vencimiento - - - - - - Días Vencidos - -   - - - - Monto Venta (Saldo Orig) - -   - - - - Abonado - -   - - - - % Recuperado - -   - - - - Saldo - -   - - - - % A Recuperar - -   - - - - Auxiliar - - - - - - Abonar - - - - - - - - - -
-
-
-
 
-
-
- Historial de CxC - - - - -
- - - - Factura - - - - - - Fecha Venta - - - - - - Fecha Vencimiento - - - - - - Días Vencidos - -   - - - - Monto Venta (Saldo Orig) - -   - - - - Abonado - -   - - - - % Recuperado - -   - - - - Saldo - -   - - - - % A Recuperar - -   - - - - Auxiliar - - - - - - Abonar - - - - - - - - - -
-
-
-
- - - - - -
- - -
- - -
-
-
-
- - - - - - - -
La información se está procesando...
-
-
-
-
- - - - diff --git a/PRESENTACIONES/Clientes3.aspx.vb.exclude b/PRESENTACIONES/Clientes3.aspx.vb.exclude deleted file mode 100644 index 4bb4b3e25..000000000 --- a/PRESENTACIONES/Clientes3.aspx.vb.exclude +++ /dev/null @@ -1,314 +0,0 @@ -Option Explicit On -Option Strict On - -Imports Extensiones -Imports System.Runtime.InteropServices -Imports System.IO -Imports System.Data - -Partial Class PRESENTACIONES_Clientes3 - Inherits ClsPaginas - - 'Configuración - Private ReadOnly Property CveCliente As Integer - Get - Return ViewState("CveCliente").ToString.ToEntero - End Get - End Property - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - - SetValues() - SetPermisos() - - If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then - ViewState("CveCliente") = Request("CveCliente") - CargaDatos() - CargaHistorial() - CargaCxC() - 'Configuración de Modalidad Update - LtlTitulo.Text = "Consulta del Cliente:" - 'ImgAddVenta - ImgAddVenta.Attributes.Add("OnClick", "window.location = '/Ventas/Ventas.aspx?CveCliente=" & CveCliente & "'") - If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - Else - 'Configuración de Modalidad Insert - ViewState("CveCliente") = -1 - End If - - End If - End Sub - - Private Sub SetValues() - ViewState("Orden") = "" - ViewState("OSucursalCliente") = "SucursalCliente DESC" - ViewState("OEstado") = "Estado DESC" - ViewState("OFecha") = "Fecha DESC" - ViewState("OUsuario") = "Usuario DESC" - TxtFechaPago.Text = Now.ToShortDateString - End Sub - - Private Sub SetPermisos() - - End Sub - - - Private Sub CargaDatos() - Dim ObjClientes As New ClsClientes() - If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - If ObjClientes.DtResultados.Rows.Count > 0 Then - 'Campos para Modificación - LtlCliente.Text = ObjClientes.Nombre - TxtNombre.Text = ObjClientes.Nombre - TxtDireccion.Text = ObjClientes.Direccion - TxtNoExt.Text = ObjClientes.NoExt - TxtNoInt.Text = ObjClientes.NoInt - TxtColonia.Text = ObjClientes.Colonia - TxtLocalidad.Text = ObjClientes.Localidad - TxtCiudad.Text = ObjClientes.Ciudad - TxtEstado.Text = ObjClientes.Estado - TxtRFC.Text = ObjClientes.RFC - TxtCP.Text = ObjClientes.CP.ToString - TxtTelefono.Text = ObjClientes.Telefono - TxtContacto.Text = ObjClientes.Contacto - TxtEmail.Text = ObjClientes.Mail - Else - Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) - End If - End If - ObjClientes.Dispose() - End Sub - - - - Private Sub CargaHistorial() - Dim ObjClientes As New ClsClientes() - If ObjClientes.GetHistorialVentas(CveCliente) Then - If ObjClientes.DtResultados.Rows.Count > 0 Then - 'Carga Generales - 'Carga Grid - GVHistorial.DataSource = ObjClientes.DtResultados - Else - GVHistorial.DataSource = Nothing - End If - Else - GVHistorial.DataSource = Nothing - End If - ObjClientes.Dispose() - GVHistorial.DataBind() - End Sub - - Private Sub CargaCxC() - Dim ObjMovtos As New ClsMovimientos() - 'CxC Activas - If ObjMovtos.GetCxCCliente(CveCliente) Then - GvCxC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'") - GvCxCHistorial.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'") - Else - GvCxC.DataSource = Nothing - GvCxCHistorial.DataSource = Nothing - End If - - ObjMovtos.Dispose() - GvCxC.DataBind() - GvCxCHistorial.DataBind() - End Sub - - - - Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.RowIndex = 0 Then - e.Row.BackColor = Drawing.Color.LightGray - DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).Visible = False - End If - - Dim Liga As String = String.Format("", e.Row.DBCampo("CveVenta")) - e.Row.FCLiteral("LtlFactura").Text = Liga & e.Row.DBCampo("Folio") & "" - - e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).HRef = "javascript:$get('HdnTipoDocto').value='Fact';$get('HdnCveVenta').value='" & e.Row.DBCampo("CveVenta") & "';$get('HdnFolioVenta').value='" & e.Row.DBCampo("folio") & "';$('#DivMail').show(1000);PosicionaObjeto('" & DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).ClientID & "', 'DivMail');" - - End If - End Sub - - Protected Sub GvCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound, GvCxCHistorial.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.RowIndex = 0 Then - e.Row.Cells(0).ColumnSpan = 4 - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right - e.Row.FCLiteral("LtlFactura").Text = "Total" & " " - e.Row.Cells(1).Visible = False - e.Row.Cells(2).Visible = False - e.Row.Cells(3).Visible = False - e.Row.Cells(9).ColumnSpan = 2 - e.Row.Cells(10).Visible = False - e.Row.BackColor = Drawing.Color.LightGray - e.Row.FCImage("ImgAbonar").Visible = False - End If - If e.Row.RowIndex = 1 Then - e.Row.Cells(0).Width = Unit.Pixel(60) - e.Row.Cells(1).Width = Unit.Pixel(70) - e.Row.Cells(2).Width = Unit.Pixel(80) - e.Row.Cells(3).Width = Unit.Pixel(80) - e.Row.Cells(4).Width = Unit.Pixel(90) - e.Row.Cells(5).Width = Unit.Pixel(90) - e.Row.Cells(6).Width = Unit.Pixel(105) - e.Row.Cells(7).Width = Unit.Pixel(90) - e.Row.Cells(8).Width = Unit.Pixel(105) - e.Row.Cells(9).Width = Unit.Pixel(70) - e.Row.Cells(10).Width = Unit.Pixel(70) - End If - - e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right - - If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(5).ForeColor = Drawing.Color.Red - If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(3).ForeColor = Drawing.Color.Red - If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = "" - If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = "" - If e.Row.DBCampo("PorRecuperado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorRecuperado"), Literal).Text = "" - If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = "" - If e.Row.DBCampo("PorXRecuperar").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorXRecuperar"), Literal).Text = "" - - If e.Row.DBCampo("Folio") = "N/D" Then - e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio") - Else - Dim Liga As String = String.Format("", e.Row.DBCampo("CveVenta")) - e.Row.FCLiteral("LtlFactura").Text = Liga & e.Row.DBCampo("Folio") & "" - - End If - If e.Row.RowIndex > 0 Then e.Row.FCLiteral("LtlAux").Text = "Ir" - DirectCast(e.Row.FindControl("ImgAbonar"), Image).Attributes.Add("onclick", "$get('HdnCveVenta').value='" & e.Row.DBCampo("CveVenta") & "';$get('HdnCveVentaAbono').value='" & e.Row.DBCampo("CveVenta") & "';$('#DivAddPago').show(1000);PosicionaObjeto('" & DirectCast(e.Row.FindControl("ImgAbonar"), Image).ClientID & "', 'DivAddPago');") - - If CType(sender, GridView).ID = "GvCxCHistorial" Then - DirectCast(e.Row.FindControl("ImgAbonar"), Image).Visible = False - DirectCast(e.Row.FindControl("LtlDiasVencido"), Literal).Text = "" - Else - e.Row.Cells(7).Font.Bold = True - e.Row.Cells(8).Font.Bold = True - End If - End If - End Sub - - - - Protected Sub BtnSendMail_Click(sender As Object, e As System.EventArgs) Handles BtnSendMail.Click - Try - - If HdnCveVenta.Value <> "-1" AndAlso HdnFolioVenta.Value <> "-1" Then - 'Dim ObjEmprea As New ClsEmpresas() - 'If ObjEmprea.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then - Dim ObjMail As New ClsSisMail() - Dim Ruta As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\" - - If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value = "Fact" Then - If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") AndAlso File.Exists(Ruta & "XML\" & HdnFolioVenta.Value & ".xml") Then - Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf" - Dim XML As String = Ruta & "XML\" & HdnFolioVenta.Value & ".xml" - Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";")) - - Dim ResultadoMail As Integer = 0 - If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then - ResultadoMail = 1 - TxtCC.Text = "" - TxtBody.Text = "" - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) - CargaHistorial() - UpnHistorial.Update() - Else - ResultadoMail = 3 - End If - - Dim ObjVentas As New ClsVentas - ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero) - ObjVentas.Dispose() - Else - Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia) - End If - ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value = "Fact" Then - If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then - Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf" - Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";")) - - Dim ResultadoMail As Integer = 0 - If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, "", ArrayCC, TxtBody.Text.Trim) Then - ResultadoMail = 1 - TxtCC.Text = "" - TxtBody.Text = "" - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) - CargaHistorial() - UpnHistorial.Update() - Else - ResultadoMail = 3 - End If - - Dim ObjVentas As New ClsVentas - ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero) - ObjVentas.Dispose() - Else - Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia) - End If - ElseIf HdnTipoDocto.Value = "Cot" Then - If File.Exists(Ruta & "PDF\Cotizacion_" & HdnFolioVenta.Value & ".pdf") Then - Dim PDF As String = Ruta & "PDF\Cotizacion_" & HdnFolioVenta.Value & ".pdf" - Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";")) - - Dim ResultadoMail As Integer = 0 - If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Cotización", PDF, "", ArrayCC, TxtBody.Text.Trim) Then - ResultadoMail = 1 - TxtCC.Text = "" - TxtBody.Text = "" - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) - CargaHistorial() - UpnHistorial.Update() - Else - ResultadoMail = 3 - End If - - Dim ObjVentas As New ClsVentas - ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero) - ObjVentas.Dispose() - Else - Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia) - End If - End If - - 'End If - 'ObjEmprea.Dispose() - Else - Alert("No se seleccionó ninguna factura para envíar.", TipoMensaje.MsgAdvertencia) - End If - Catch ex As Exception - OnError("Ocurrió error al mandar MAIL", ex) - Dim ObjVentas As New ClsVentas - ObjVentas.UpdateVentaMail(3, HdnCveVenta.Value.ToEntero) - ObjVentas.Dispose() - End Try - End Sub - - 'Protected Sub BtnAbonar_Click(sender As Object, e As System.EventArgs) Handles BtnAbonar.Click - ' Dim ObjMovtos As New ClsMovimientos() - ' If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString, HdnCveVentaAbono.Value, 0, TxtCantidad.Text.Trim.ToDouble, TxtFechaPago.Text.ToDate, TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";") - ' CargaCxC() - ' TxtCantidad.Text = "" - ' TxtReferencia.Text = "" - ' UpDatos.Update() - ' End If - ' ObjMovtos.Dispose() - 'End Sub - - - - - - -End Class diff --git a/PRESENTACIONES/Imagenes/header.png b/PRESENTACIONES/Imagenes/header.png deleted file mode 100644 index a145fb362..000000000 Binary files a/PRESENTACIONES/Imagenes/header.png and /dev/null differ diff --git a/PRESENTACIONES/Imagenes/overlay-pattern.png b/PRESENTACIONES/Imagenes/overlay-pattern.png deleted file mode 100644 index 6881db259..000000000 Binary files a/PRESENTACIONES/Imagenes/overlay-pattern.png and /dev/null differ diff --git a/PRESENTACIONES/Imagenes/top-img-bg.jpg b/PRESENTACIONES/Imagenes/top-img-bg.jpg deleted file mode 100644 index 6474ab7c0..000000000 Binary files a/PRESENTACIONES/Imagenes/top-img-bg.jpg and /dev/null differ diff --git a/PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx b/PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx deleted file mode 100644 index f02ba7c3a..000000000 --- a/PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx +++ /dev/null @@ -1,225 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CapturaIncidencias.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_CapturaIncidencias" %> - - - - -Captura de Incidencias - - - - - - - - - - - - -
Portal: Captura de incidencias
Seguridad Pública
Soporte Técnico TECNOLOGÍAS DE LA INFORMACIÓN
-
- - - - - - - -
- - -
- Norte - 		- -
- 05/11/2013 - 		-  
- - 02 - - 10 -
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - -
- - - - - -
- - - -
- - - -
- - - -
- - - -
- - - -
- - - - - - - - -
  - - -   - - Femenino -   - - -
-
- - : - -
- -
- - - - - - - - - - - -
- - - - - -
- - - - - -
-
- - -
- - - - - -
  - - -   - - Femenino -
-
- - - -
- -
- - - - - - - - - - - -
- - - - - -
- - - - - -
-
- - diff --git a/PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx.vb b/PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx.vb deleted file mode 100644 index 6bfb125ad..000000000 --- a/PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx.vb +++ /dev/null @@ -1,5 +0,0 @@ - -Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidencias - Inherits System.Web.UI.Page - -End Class diff --git a/PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx b/PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx deleted file mode 100644 index d1f1cbdad..000000000 --- a/PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx +++ /dev/null @@ -1,457 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CapturaIncidenciasTransito.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_CapturaIncidenciasTransito" %> - - - - - Captura de Incidencias de Tránsito - - - - - - - - - - - - -
- -
- - Reporte de Choque - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - -
-
- - 		-
- - 13 - - : - 00 - 		-
- - Norte - - 		-
- - A - -
-
- - - - - - - - - -
- - - - - - - - - - - -
-
- - - - - - - - -
- - - - - - - - - - - - - - - -
- -
- -
- -
- -
- 		- - - - - - - - - - - - - -
- -
- -
- -
- - Carmen Serdán - -
-
-
- - - - - - - - - - - -
- - A -
- - 		- - - - - - - - - - - - - - - - -
-
- -
-
-

-
- - -
-
- -
-
- - Marca - -
-
- - Capacidad - -
- 		- - - - - - - - - - - - - - - -
- - - - - -
-
- - 		-
- -
-
- - Conductor - Peaton - Ciclista - -
-
- -
-
- - Modelo - -
-
- -
- 		- - - - - - - - - - - - - - - -
- - - -
-
- - 		-
- -
-
-

-
-
-

-
-
- - - - - -
-

- - 		- - - - - -
-

- - 		-

- -
-
-
- -

- - Color - - 		-
-
- - Infracción No. -
- -
- 		- - - - - - - - - - - - - - - -
-
-
-
-
-
- 		- - - - - - - - - - - - - - - -
-
-
-
-
-
-
-
- - - - - - -
-
-
- - - - - - -
-
-
- - - - - - -
-
-
- - - - - - -
-
-
- - - - - - -
-
-
- - - - - - -
-
-
- diff --git a/PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx.vb b/PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx.vb deleted file mode 100644 index e025aa58f..000000000 --- a/PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx.vb +++ /dev/null @@ -1,5 +0,0 @@ - -Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidenciasTransito - Inherits System.Web.UI.Page - -End Class diff --git a/PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx b/PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx deleted file mode 100644 index 135c60068..000000000 --- a/PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx +++ /dev/null @@ -1,172 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroEmergencias.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_RegistroEmergencias" %> - - - - - Registro de Emergencias - - - - - - - - - - -
- - -
-
- - - - - - - - - - - - - - - - - -
- - - -
- - - -
- - - -
- - - -
-
- 		- - - - -
-
- - - - - - - - - - - - - -
- - - -
-
-
-
-
- 		-
-
-
-
- 		-
-
-
-
-
- Catálogo de Responsables de Unidad - - -
-
-
-
- - - - - -
-
- Datos del Detenido - - - - - -
- - - - - - - - - - - - - -
-
- - 		-
- -
-
- - 		-
- -
-
- - 		-
- -
- 		- - - - - -
-
- - 		-
- -
-
-
- 		-
- ¿Registrar?


-
-


-
-
- diff --git a/PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx.vb b/PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx.vb deleted file mode 100644 index dfdce9ee7..000000000 --- a/PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx.vb +++ /dev/null @@ -1,5 +0,0 @@ - -Partial Class PRESENTACIONES_SeguridadPublica_RegistroEmergencias - Inherits System.Web.UI.Page - -End Class diff --git a/PruebasOrlando/Sonidito.aspx b/PruebasOrlando/Sonidito.aspx deleted file mode 100644 index 9e1b90363..000000000 --- a/PruebasOrlando/Sonidito.aspx +++ /dev/null @@ -1,32 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Sonidito.aspx.vb" Inherits="PruebasOrlando_Sonidito" %> - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/PruebasOrlando/Sonidito.aspx.vb b/PruebasOrlando/Sonidito.aspx.vb deleted file mode 100644 index dd4805bf2..000000000 --- a/PruebasOrlando/Sonidito.aspx.vb +++ /dev/null @@ -1,75 +0,0 @@ -Imports Extensiones -Imports System.Data -Imports System.Diagnostics -Imports System.IO -Imports Microsoft.Reporting.WebForms -Imports System.Security - -Partial Class PruebasOrlando_Sonidito - Inherits System.Web.UI.Page - - Protected Sub LBPlaySonidito_Click(sender As Object, e As EventArgs) - Dim ruta = "C:\inetpub\wwwroot\ADSistemas\Sonidos\142608__autistic-lucario__error.wav" - RegistraScript("playsonidito();") - End Sub - - Private Function VerificaCorreo() As Boolean Handles lnkFacturas.Click - Dim Retorno As Boolean = False - - AbreComoSistema() - - Return Retorno - End Function - - - Public Sub AbreComoSistema() - Dim Retorno As Boolean = False - - Dim ObjProcess As Process = Nothing - Dim Mensajes As String = "" - Dim Ejecutable = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\UtileriasAD.exe") - Dim Folder = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Empresas\") - Dim error1 As Boolean = False - Try - ObjProcess = New Process() - ObjProcess.StartInfo.RedirectStandardOutput = True - ObjProcess.StartInfo.FileName = Ejecutable - ' ObjProcess.StartInfo.UserName = "Orlando" - ' ObjProcess.StartInfo.Password = ToSecureString("memy") - ' ObjProcess.StartInfo.Verb = "runas" - ObjProcess.StartInfo.Arguments = $"2 {Folder}" - ObjProcess.StartInfo.UseShellExecute = False - ObjProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal - ObjProcess.Start() - - - ObjProcess.WaitForExit() - ObjProcess.Close() - Catch ex As Exception - error1 = True - OnError("Ocurrió un error al ejecutar el actualizador.", ex) - End Try - - - End Sub - - Public Function ToSecureString(Source As String) As SecureString - If (String.IsNullOrWhiteSpace(Source)) Then - Return Nothing - Else - Dim Result As SecureString = New SecureString() - For Each c As Char In Source.ToCharArray() - Result.AppendChar(c) - Next - Return Result - End If - - - End Function - - - - - - -End Class diff --git a/PruebasOrlando/Soniditos.aspx b/PruebasOrlando/Soniditos.aspx deleted file mode 100644 index ba3a23e95..000000000 --- a/PruebasOrlando/Soniditos.aspx +++ /dev/null @@ -1,22 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Soniditos.aspx.cs" Inherits="PruebasOrlando_Soniditos" %> - - - - - - - - - - - - - - - - - - - - - diff --git a/PruebasOrlando/Soniditos.aspx.cs b/PruebasOrlando/Soniditos.aspx.cs deleted file mode 100644 index 7c7bcd2d5..000000000 --- a/PruebasOrlando/Soniditos.aspx.cs +++ /dev/null @@ -1,19 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; - -public partial class PruebasOrlando_Soniditos : System.Web.UI.Page -{ - protected void Page_Load(object sender, EventArgs e) - { - - } - - protected void Unnamed_Click(object sender, EventArgs e) - { - - } -} \ No newline at end of file diff --git a/Rene.aspx b/Rene.aspx deleted file mode 100644 index 0025466ed..000000000 --- a/Rene.aspx +++ /dev/null @@ -1,26 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Rene.aspx.vb" Inherits="Rene" %> - - - CP - - - - - E - - - HB - - - H - - - HA - - - C - - - - - diff --git a/Rene.aspx.vb b/Rene.aspx.vb deleted file mode 100644 index 11740503c..000000000 --- a/Rene.aspx.vb +++ /dev/null @@ -1,88 +0,0 @@ - -Imports System.Net -Imports System.Net.NetworkInformation - -Partial Class Rene - Inherits System.Web.UI.Page - - Private Sub Rene_Load(sender As Object, e As EventArgs) Handles Me.Load - - 'Dim Correo As New ClsSisMail - - If Not IsPostBack Then - IpAddress() - End If - - 'Correo.SendMail(Nothing, "rene.molina@adsistemas.mx", "asunto", "Body", CCP:="rene.molina@adsistemas.mx;julian@adsistemas.mx;rene.molina@adsistemas.mx;julian@adsistemas.mx;paola@adsistemas.mx;") - End Sub - - Private Sub IpAddress() - Dim ClientIP As String = String.Empty - Dim Tipo As String = String.Empty - Dim HTML As String = String.Empty - Dim IP As String = String.Empty - - IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") - If Not String.IsNullOrEmpty(IP) Then - Dim ipRange As String() = IP.Trim().Split(","c) - Dim le As Integer = ipRange.Length - 1 - ClientIP = ipRange(le) - Tipo = "1: " - End If - HTML &= (ClientIP) - HTML &= ("
") - HTML &= (Tipo) - - IP = Request.ServerVariables("HTTP_X_CLUSTER_CLIENT_IP") - If Not String.IsNullOrEmpty(IP) Then - ClientIP = IP - Tipo = "2: " - End If - HTML &= (ClientIP) - HTML &= ("
") - HTML &= (Tipo) - - If IP = Request.ServerVariables("REMOTE_ADDR") Then - ClientIP = Request.ServerVariables("REMOTE_ADDR") - Tipo = "3: " - End If - HTML &= (ClientIP) - HTML &= ("
") - HTML &= (Tipo) - - HTML &= ("
Tipo 4: ") - HTML &= (System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(0).ToString()) - - HTML &= ("
Tipo 5: ") - HTML &= (HttpContext.Current.Request.Params("HTTP_CLIENT_IP")) - - HTML &= ("
Tipo 6: ") - HTML &= (HttpContext.Current.Request.UserHostAddress) - - - - - Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() - Dim sMacAddress As String = String.Empty - Dim ipv4 As String = String.Empty - For Each adapter As NetworkInterface In nics - If sMacAddress = String.Empty Then - ' only return MAC Address from first card - Dim properties As IPInterfaceProperties = adapter.GetIPProperties() - sMacAddress = adapter.GetPhysicalAddress().ToString() - ipv4 = adapter.GetIPv4Statistics().ToString - HTML &= ("
Tipo 7: " & sMacAddress & " - " & ipv4) - End If - Next - ' To Get IP Address - - HTML &= ("
Tipo 8: ") - Dim IPHost As String = Dns.GetHostName() - Dim IP2 As String = Dns.GetHostByName(IPHost).AddressList(0).ToString() - - HTML &= IPHost & " - " & IP2 - - Txt.Text = HTML - - End Sub -End Class diff --git a/localhost.sln b/localhost.sln deleted file mode 100644 index 7a707828b..000000000 --- a/localhost.sln +++ /dev/null @@ -1,45 +0,0 @@ - -Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 15 -VisualStudioVersion = 15.0.27703.2035 -MinimumVisualStudioVersion = 10.0.40219.1 -Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}" - ProjectSection(WebsiteProperties) = preProject - SccProjectName = ""$/localhost", CAAAAAAA" - SccAuxPath = "" - SccLocalPath = "." - SccProvider = "MSSCCI:Microsoft Visual SourceSafe" - UseIISExpress = "false" - TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.6" - Debug.AspNetCompiler.VirtualPath = "/localhost" - Debug.AspNetCompiler.PhysicalPath = "..\..\..\..\..\inetpub\SIGIT\" - Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" - Debug.AspNetCompiler.Updateable = "true" - Debug.AspNetCompiler.ForceOverwrite = "true" - Debug.AspNetCompiler.FixedNames = "false" - Debug.AspNetCompiler.Debug = "True" - Release.AspNetCompiler.VirtualPath = "/localhost" - Release.AspNetCompiler.PhysicalPath = "..\..\..\..\..\inetpub\SIGIT\" - Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" - Release.AspNetCompiler.Updateable = "true" - Release.AspNetCompiler.ForceOverwrite = "true" - Release.AspNetCompiler.FixedNames = "false" - Release.AspNetCompiler.Debug = "False" - SlnRelativePath = "..\..\..\..\..\inetpub\SIGIT\" - EndProjectSection -EndProject -Global - GlobalSection(SolutionConfigurationPlatforms) = preSolution - Debug|Any CPU = Debug|Any CPU - EndGlobalSection - GlobalSection(ProjectConfigurationPlatforms) = postSolution - {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU - EndGlobalSection - GlobalSection(SolutionProperties) = preSolution - HideSolutionNode = FALSE - EndGlobalSection - GlobalSection(ExtensibilityGlobals) = postSolution - SolutionGuid = {B4590109-7BF9-411C-A1AE-792C02707CE6} - EndGlobalSection -EndGlobal diff --git a/pantallaError.PNG b/pantallaError.PNG deleted file mode 100644 index d6af6ead0..000000000 Binary files a/pantallaError.PNG and /dev/null differ