Nuevo modulo de catalogo CatCobranzaEstatusTurno

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"

Ventas/CatCobranzaEstatus.aspx

@@ -48,7 +48,7 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" id="myModalLabel">Estados de Orden de Servicio</h4>
+                        <h4 class="modal-title" id="myModalLabel">Estados de Cobranza</h4>
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input input-iconright">

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" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Catálogo Cobranza Estatus
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel ID="UPAcciones" runat="server">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="BtnAgregarEstatus" runat="server" data-toggle="tooltip" data-placement="left" title="Agregar Estado de Cobranza" Text="<i class='fa fa-plus'></i> Agregar Estatus"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCobranzaEstatusTurno,CobranzaEstatusTurno,Estatus,FechaIng" EmptyDataText="No se encontraron estatus de cobranza" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField DataField="CobranzaEstatusTurno" HeaderText="Estatus cobranza turno" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Estatus" HeaderText="Estado" ItemStyle-HorizontalAlign="Left" />
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="Edit_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <div id="divAddEstatusCobranza" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpAddEstatus" class="modal-content" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="myModalLabel">Estados de turno de cobranza</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtEstatusCobranzaTurno" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVEstatusCobranzaTurno" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEstatusCobranzaTurno" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                            <label for="<%= TxtEstatusCobranzaTurno.ClientID.ToString()%>">Estatus de Cobranza:</label>
+                        </div>
+                        <br/>
+                        <div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
+                            <label for="ChkEstatus">Estado:</label>&nbsp;
+                            <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
+                            <i></i>
+                        </div>
+                        <br/>
+                        <div class="modal-footer">
+                            <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnAgregarEstatusCobranza" runat="server" class="btn btn-success" Text="Agregar" />
+                                    <%--<asp:LinkButton ID="BtnAgregarEstatusOS" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Agregar</asp:LinkButton>--%>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+    <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
+
+    <script type="text/javascript">
+
+
+        function ShowDivRegistro() {
+            $('#divAddImpuestoLocal').modal();
+        }
+
+        function OrdenarGV() {
+            var Tam = TamañoVentana();
+            var Alto = Tam.height - 270;
+            if (Alto < 100) {
+                Alto = 100;
+            }
+            $('#C_GvDatos').DataTable({
+                scrollY: Alto + 'px',
+                scrollCollapse: true,
+                paging: false,
+                searching: false,
+                info: false
+            });
+            $('#C_GvDatos').parent().parent().children().first().css("position", "static");
+        }
+
+
+        function SetObjects(Clasificacion) {
+            debugger;
+            document.getElementById(TxtEstatusOS).value = Clasificacion;
+        }
+
+        function SetValue(Hidden, Value) {
+            document.getElementById(Hidden).value = Value;
+        }
+
+        function LimpiaModal() {
+            <%--$('#<%= TxtEstatusOS.ClientID  %>').val('');
+            $('#<%= ChkEstatus.ClientID  %>').prop("checked", false);--%>
+
+            var $example = $(".js-Impuesto-programmatic").select2();
+            $example.val('1').trigger("change");
+        }
+    </script>
+</asp:Content>
+

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
+