diff --git a/Ventas/CatCobranzaEstatus.aspx.vb b/Ventas/CatCobranzaEstatus.aspx.vb
index a1440d305..dd474ce1f 100644
--- a/Ventas/CatCobranzaEstatus.aspx.vb
+++ b/Ventas/CatCobranzaEstatus.aspx.vb
@@ -13,9 +13,19 @@ Partial Class Vta_CatCobranzaEstatus
End Set
End Property
+ 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()
+ CargaDatosTurno()
End If
End Sub
@@ -84,4 +94,69 @@ Partial Class Vta_CatCobranzaEstatus
ObjVentas.Dispose()
End Sub
+ Private Sub CargaDatosTurno()
+ Dim ObjVentas As New ClsVentas
+ If ObjVentas.GetCobranzaTurnoEstatus(-1, UsuarioActual.CveEmpresa) Then
+ GvDatosTurno.DataSource = ObjVentas.DtResultados
+ End If
+ ObjVentas.Dispose()
+ GvDatosTurno.DataBind()
+ End Sub
+
+ Public Sub BtnAgregarEstatusTurno_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusTurno.Click
+ TxtEstatusCobranzaTurno.Text = ""
+ ChkEstatusTurno.Checked = True
+ BtnAgregarEstatusCobranzaTurno.Text = "Agregar"
+ UpAddEstatusTurno.Update()
+ RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranzaTurno"))
+ End Sub
+
+ Public Sub EditTurno_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();", "divAddEstatusCobranzaTurno"))
+ End Sub
+
+ Public Sub BtnAgregarEstatusCobranzaTurno_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');", "divAddEstatusCobranzaTurno"))
+ Alert("Estatus agregado con exito")
+ CargaDatosTurno()
+ UpDatosTurno.Update()
+ Else
+ Alert("Error al agregar")
+ End If
+ Else
+ If ObjVentas.UpdateCobranzaEstatusTurno(CveCobranzaEstatusTurno, TxtEstatusCobranzaTurno.Text, ChkEstatusTurno.Checked) Then
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusCobranzaTurno"))
+ Alert("Estatus agregado con exito")
+ CargaDatosTurno()
+ UpDatosTurno.Update()
+ Else
+ Alert("Error al actualizar")
+ End If
+ End If
+ End Sub
+
+ Protected Sub GvDatosTurno_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosTurno.RowDeleting
+ Dim ObjVentas As New ClsVentas
+ Dim CveEstatusOrdenServicio As Integer = GvDatosTurno.Rows(e.RowIndex).DataKey("CveCobranzaEstatusTurno").ToEntero
+
+ If ObjVentas.RemoveCobranzaEstatusTurno(CveEstatusOrdenServicio) Then
+ GvDatosTurno.EditIndex = -1
+ CargaDatosTurno()
+ UpDatosTurno.Update()
+ Alert("Turno de estatus de cobranza eliminado")
+ End If
+ ObjVentas.Dispose()
+ End Sub
+
End Class
diff --git a/Ventas/CatCobranzaEstatusTurno.aspx b/Ventas/CatCobranzaEstatusTurno.aspx
index 3563d19a8..3f6592497 100644
--- a/Ventas/CatCobranzaEstatusTurno.aspx
+++ b/Ventas/CatCobranzaEstatusTurno.aspx
@@ -40,9 +40,9 @@
-