From 22eec057ae0244cd866e44a2c96000f15feb494f Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 16 Dec 2019 10:20:25 -0700 Subject: [PATCH] =?UTF-8?q?peque=C3=B1a=20correccion=20en=20el=20titulo=20?= =?UTF-8?q?del=20pdf=20emitido?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../RepEntradasUsadosClientes.aspx.vb | 2 +- Ventas/CatCobranzaEstatusTurno.aspx | 127 ------------------ Ventas/CatCobranzaEstatusTurno.aspx.vb | 88 ------------ 3 files changed, 1 insertion(+), 216 deletions(-) delete mode 100644 Ventas/CatCobranzaEstatusTurno.aspx delete mode 100644 Ventas/CatCobranzaEstatusTurno.aspx.vb 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 -