diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index 10dc9695e..72659691c 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -85,7 +85,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsadosClientes}
- ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "prueba", "PDF")
+ ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "Entradas usados clientes", "PDF")
End Sub
diff --git a/Ventas/CatCobranzaEstatusTurno.aspx b/Ventas/CatCobranzaEstatusTurno.aspx
deleted file mode 100644
index 3f6592497..000000000
--- a/Ventas/CatCobranzaEstatusTurno.aspx
+++ /dev/null
@@ -1,127 +0,0 @@
-<%@ Page Title="RH - Catálogo de Documentos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCobranzaEstatusTurno.aspx.vb" Inherits="Vta_CatCobranzaEstatusTurno" %>
-
-
-
-
-
-
- Catálogo Cobranza Estatus
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Ventas/CatCobranzaEstatusTurno.aspx.vb b/Ventas/CatCobranzaEstatusTurno.aspx.vb
deleted file mode 100644
index 0132c5749..000000000
--- a/Ventas/CatCobranzaEstatusTurno.aspx.vb
+++ /dev/null
@@ -1,88 +0,0 @@
-Imports System.Data
-Imports Extensiones
-
-Partial Class Vta_CatCobranzaEstatusTurno
- Inherits ClsPaginas
-
- Private Property CveCobranzaEstatusTurno As Integer
- Get
- Return ViewState("CveCobranzaEstatusTurno").ToString.ToEntero
- End Get
- Set(value As Integer)
- ViewState("CveCobranzaEstatusTurno") = value
- End Set
- End Property
-
- Public Sub page_load(sender As Object, e As EventArgs) Handles Me.Load
- If Not Page.IsPostBack Then
- CargaDatos()
- End If
- End Sub
-
- Private Sub CargaDatos()
- Dim ObjVentas As New ClsVentas
- If ObjVentas.GetCobranzaTurnoEstatus(-1, UsuarioActual.CveEmpresa) Then
- GvDatos.DataSource = ObjVentas.DtResultados
- End If
- ObjVentas.Dispose()
- GvDatos.DataBind()
- End Sub
-
- Public Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click
- TxtEstatusCobranzaTurno.Text = ""
- ChkEstatusTurno.Checked = True
- BtnAgregarEstatusCobranzaTurno.Text = "Agregar"
- UpAddEstatusTurno.Update()
- RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranza"))
- End Sub
-
- Public Sub Edit_Click(sender As Object, e As EventArgs)
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
- CveCobranzaEstatusTurno = GvRow.DataKey("CveCobranzaEstatusTurno").ToEntero
- TxtEstatusCobranzaTurno.Text = GvRow.DataKey("CobranzaEstatusTurno").ToString
- ChkEstatusTurno.Checked = GvRow.DataKey("Estatus")
- BtnAgregarEstatusCobranzaTurno.Text = "Actualizar"
- UpAddEstatusTurno.Update()
- RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranza"))
- End Sub
-
- Public Sub BtnAgregarEstatusCobranza_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusCobranzaTurno.Click
-
- Dim ObjVentas As New ClsVentas
-
- If BtnAgregarEstatusCobranzaTurno.Text = "Agregar" Then
- If ObjVentas.AddCobranzaEstatusTurno(TxtEstatusCobranzaTurno.Text, UsuarioActual.CveEmpresa, ChkEstatusTurno.Checked, UsuarioActual.CveUsuario) Then
- RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusCobranza"))
- Alert("Estatus agregado con exito")
- CargaDatos()
- UpDatos.Update()
- Else
- Alert("Error al agregar")
- End If
- Else
- If ObjVentas.UpdateCobranzaEstatusTurno(CveCobranzaEstatusTurno, TxtEstatusCobranzaTurno.Text, ChkEstatusTurno.Checked) Then
- RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusCobranza"))
- Alert("Estatus agregado con exito")
- CargaDatos()
- UpDatos.Update()
- Else
- Alert("Error al actualizar")
- End If
- End If
- End Sub
-
- Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
- Dim ObjVentas As New ClsVentas
- Dim CveEstatusOrdenServicio As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveCobranzaEstatusTurno").ToEntero
-
- If ObjVentas.RemoveCobranzaEstatusTurno(CveEstatusOrdenServicio) Then
- GvDatos.EditIndex = -1
- CargaDatos()
- UpDatos.Update()
- Alert("Estatus de cobranza eliminado")
- End If
- ObjVentas.Dispose()
- End Sub
-
-End Class
-