diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index b52051e63..cc5535caf 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3211,6 +3211,68 @@ Public Class ClsVentas Return Retorno End Function + + Public Function AddCobranzaEstatusTurno(CobranzaEstatusTurno As String, CveEmpresa As Integer, Estatus As Boolean, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CobranzaEstatusTurnoAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CobranzaEstatusTurno", SqlDbType.VarChar).Value = CobranzaEstatusTurno + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + Me.OnError("Ocurrió un error al intentar agregar el estatus turno de cobranza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function RemoveCobranzaEstatusTurno(CveCobranzaEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CobranzaEstatusTurnoDelete") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCobranzaEstatusTurno", SqlDbType.Int).Value = CveCobranzaEstatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + Me.OnError("Ocurrió un error al intentar agregar el estatus de cobranza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function UpdateCobranzaEstatusTurno(CveCobranzaEstatus As Integer, CobranzaEstatus As String, Estatus As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CobranzaEstatusTurnoUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCobranzaEstatusTurno", SqlDbType.Int).Value = CveCobranzaEstatus + .Add("@CobranzaEstatusTurno", SqlDbType.VarChar).Value = CobranzaEstatus + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + Me.OnError("Ocurrió un error al intentar agregar el estatus de cobranza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function #End Region #Region "C O M P L E M E N T O S" diff --git a/Ventas/CatCobranzaEstatus.aspx b/Ventas/CatCobranzaEstatus.aspx index 2e26fe082..b96d1a454 100644 --- a/Ventas/CatCobranzaEstatus.aspx +++ b/Ventas/CatCobranzaEstatus.aspx @@ -48,7 +48,7 @@ - +
diff --git a/Ventas/CatCobranzaEstatusTurno.aspx b/Ventas/CatCobranzaEstatusTurno.aspx new file mode 100644 index 000000000..3563d19a8 --- /dev/null +++ b/Ventas/CatCobranzaEstatusTurno.aspx @@ -0,0 +1,127 @@ +<%@ 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 new file mode 100644 index 000000000..4a90684b4 --- /dev/null +++ b/Ventas/CatCobranzaEstatusTurno.aspx.vb @@ -0,0 +1,88 @@ +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 = "" + ChkEstatus.Checked = True + BtnAgregarEstatusCobranza.Text = "Agregar" + UpAddEstatus.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 + ChkEstatus.Checked = GvRow.DataKey("Estatus") + BtnAgregarEstatusCobranza.Text = "Actualizar" + UpAddEstatus.Update() + RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranza")) + End Sub + + Public Sub BtnAgregarEstatusCobranza_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusCobranza.Click + + Dim ObjVentas As New ClsVentas + + If BtnAgregarEstatusCobranza.Text = "Agregar" Then + If ObjVentas.AddCobranzaEstatusTurno(TxtEstatusCobranzaTurno.Text, UsuarioActual.CveEmpresa, ChkEstatus.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, ChkEstatus.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 +