diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 55cd012c9..b52051e63 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3130,6 +3130,87 @@ Public Class ClsVentas End Try Return Retorno End Function + + Public Function GetCobranzaEstatus(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CobranzaEstatusGet") + With SqlAdapter.SelectCommand.Parameters + .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 obtener los estatus de cobranza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function AddCobranzaEstatus(CobranzaEstatus As String, CveEmpresa As Integer, Estatus As Boolean, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CobranzaEstatusAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CobranzaEstatus", SqlDbType.VarChar).Value = CobranzaEstatus + .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 de cobranza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function RemoveCobranzaEstatus(CveCobranzaEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CobranzaEstatusDelete") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCobranzaEstatus", 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 UpdateCobranzaEstatus(CveCobranzaEstatus As Integer, CobranzaEstatus As String, Estatus As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CobranzaEstatusUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus + .Add("@CobranzaEstatus", 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 new file mode 100644 index 000000000..2e26fe082 --- /dev/null +++ b/Ventas/CatCobranzaEstatus.aspx @@ -0,0 +1,127 @@ +<%@ Page Title="RH - Catálogo de Documentos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCobranzaEstatus.aspx.vb" Inherits="Vta_CatCobranzaEstatus" %> + + + + + + + Catálogo Cobranza Estatus + + + + + + +
  • + +
    • +     +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Ventas/CatCobranzaEstatus.aspx.vb b/Ventas/CatCobranzaEstatus.aspx.vb new file mode 100644 index 000000000..a1440d305 --- /dev/null +++ b/Ventas/CatCobranzaEstatus.aspx.vb @@ -0,0 +1,87 @@ +Imports System.Data +Imports Extensiones + +Partial Class Vta_CatCobranzaEstatus + Inherits ClsPaginas + + Private Property CveCobranzaEstatus As Integer + Get + Return ViewState("CveCobranzaEstatus").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveCobranzaEstatus") = 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.GetCobranzaEstatus(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 + TxtEstatusCobranza.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) + CveCobranzaEstatus = GvRow.DataKey("CveCobranzaEstatus").ToEntero + TxtEstatusCobranza.Text = GvRow.DataKey("CobranzaEstatus").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.AddCobranzaEstatus(TxtEstatusCobranza.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.UpdateCobranzaEstatus(CveCobranzaEstatus, TxtEstatusCobranza.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("CveCobranzaEstatus").ToEntero + + If ObjVentas.RemoveCobranzaEstatus(CveEstatusOrdenServicio) Then + GvDatos.EditIndex = -1 + CargaDatos() + UpDatos.Update() + Alert("Estatus de cobranza eliminado") + End If + ObjVentas.Dispose() + End Sub + +End Class