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/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