detalles faltantes en los checadores

App_Code/ClsRH.vb

@@ -3634,92 +3634,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
 #Region "C H E C A D O R      E S T A C I O N E S"
 
-    Public Function ChecadorEstacionesAdd(CveChecadorTipo As Integer, CveZonaHoraria As Integer, CveUsuario As Integer, CveEmpresa As Integer, ChecadorEstacion As String, Ip As String, Puerto As Integer, Estatus As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_RH_ChecadorEstacionesAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveChecadorTipo", SqlDbType.Int).Value = CveChecadorTipo
-            .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@ChecadorEstacion", SqlDbType.VarChar).Value = ChecadorEstacion
-            .Add("@Ip", SqlDbType.VarChar).Value = Ip
-            .Add("@Puerto", SqlDbType.Int).Value = Puerto
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function ChecadorEstacionesUpdate(CveChecadorEstacion As Integer, CveChecadorTipo As Integer, CveZonaHoraria As Integer, CveUsuario As Integer, CveEmpresa As Integer, ChecadorEstacion As String, Ip As String, Puerto As Integer, Estatus As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_RH_ChecadorEstacionesUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveChecadorEstacion", SqlDbType.Int).Value = CveChecadorEstacion
-            .Add("@CveChecadorTipo", SqlDbType.Int).Value = CveChecadorTipo
-            .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@ChecadorEstacion", SqlDbType.VarChar).Value = ChecadorEstacion
-            .Add("@Ip", SqlDbType.VarChar).Value = Ip
-            .Add("@Puerto", SqlDbType.Int).Value = Puerto
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function ChecadorEstacionesRemove(CveChecadorEstacion As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_RH_ChecadorEstacionesRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveChecadorEstacion", SqlDbType.Int).Value = CveChecadorEstacion
-
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function ChecadorEstacionesGet(CveChecadorEstacion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_RH_ChecadorEstacionesGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveChecadorEstacion", SqlDbType.Int).Value = CveChecadorEstacion
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
     Public Function DdlChecadorTipoGet(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_RH_DdlChecadorTipoGet")

Inventarios/CatAlmacenes.aspx.vb

@@ -63,19 +63,19 @@ Partial Class Inventarios_CatAlmacenes
         End If
         GvDatos.DataBind()
         ObjAlmacen.Dispose()
-    End Sub
+    End Sub
-
+
-    Private Sub CargaAlmacenVirtual()
+    Private Sub CargaAlmacenVirtual()
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            divAlmacenesVirtuales.Visible = True
+            divAlmacenesVirtuales.Visible = True
-            DdlAlmacenesVirtuales.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24)
+            DdlAlmacenesVirtuales.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24)
-            DdlAlmacenesVirtuales.DataBind()
+            DdlAlmacenesVirtuales.DataBind()
-            DdlAlmacenesVirtuales.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlAlmacenesVirtuales.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        End If
+        End If
-    End Sub
+    End Sub
-
+
 #Region "C O M B O S"
-
+
     Private Sub CargaSubProyectos()
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -92,23 +92,23 @@ Partial Class Inventarios_CatAlmacenes
         DdlTipoAlmacen.DataBind()
     End Sub
 
-    Private Sub CargaUsuarios()
+    Private Sub CargaUsuarios()
-
+
-        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy
+        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy
-
+
-        DT.DefaultView.Sort = "Nombre ASC"
+        DT.DefaultView.Sort = "Nombre ASC"
-        DT = DT.DefaultView.ToTable
+        DT = DT.DefaultView.ToTable
-
+
-        DdlUsuariosAutoriza.DataSource = DT
+        DdlUsuariosAutoriza.DataSource = DT
-        DdlUsuariosAutoriza.DataBind()
+        DdlUsuariosAutoriza.DataBind()
-
+
-        DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-
+
     End Sub
 
     Private Sub CargaCuentasContables()
         If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
-            divCuentasCompac.Visible = False
+            divCuentasCompac.Visible = False
             pnlCuentassig.Visible = True
             Using ObjContabilidad As New ClsContabilidad
                 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
@@ -119,22 +119,22 @@ Partial Class Inventarios_CatAlmacenes
                 End If
             End Using
         Else
-            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                divCuentasCompac.Visible = True
+                divCuentasCompac.Visible = True
-                pnlCuentassig.Visible = False
+                pnlCuentassig.Visible = False
-                Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+                Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-                    'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+                    'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
-                    If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
+                    If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
-                        DtCuentasContables = ObjContabilidad.DtResultados
+                        DtCuentasContables = ObjContabilidad.DtResultados
-                    Else
+                    Else
-                        DtCuentasContables = Nothing
+                        DtCuentasContables = Nothing
-                    End If
+                    End If
-                End Using
+                End Using
-
+
-                DdlCuentasContables.DataSource = DtCuentasContables
+                DdlCuentasContables.DataSource = DtCuentasContables
-                DdlCuentasContables.DataBind()
+                DdlCuentasContables.DataBind()
-            End If
+            End If
-
+
         End If
 
         UpAddAlmacen.Update()
@@ -167,9 +167,9 @@ Partial Class Inventarios_CatAlmacenes
                 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
 
                 If e.Row.DBCampo("IdCtaContable").ToEntero > 0 Then
-                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
+                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
-                    'Else
+                    'Else
-                    '    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
+                    '    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
                 End If
             End If
 
@@ -192,14 +192,14 @@ Partial Class Inventarios_CatAlmacenes
 
                 e.Row.FCDropDownList("DdlTipoAlmacen").DataSource = GlobalDTTipoAlmacen(-1)
                 e.Row.FCDropDownList("DdlTipoAlmacen").DataBind()
-                e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen")
+                e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen")
-
+
-
+
-
+
-
+
-
+
-                'e.Row.FCDropDownList("DdlModalidad").DataSource = 
+                'e.Row.FCDropDownList("DdlModalidad").DataSource = 
-                'e.Row.FCDropDownList("DdlModalidad").DataBind()
+                'e.Row.FCDropDownList("DdlModalidad").DataBind()
                 e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Solo Existencia", "0"))
                 e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Contable", "1"))
                 e.Row.FCDropDownList("DdlModalidad").SelectedValue = If(e.Row.DBCampo("Modalidad").ToString = "Contable", "1", "0")
@@ -207,20 +207,20 @@ Partial Class Inventarios_CatAlmacenes
             End If
 
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "O R D E N A M I E N T O"
-    'Private Sub OrdenaDatos()
+    'Private Sub OrdenaDatos()
-    '    If (GvDatos.Rows.Count > 0) Then
+    '    If (GvDatos.Rows.Count > 0) Then
-    '        GvDatos.UseAccessibleHeader = True
+    '        GvDatos.UseAccessibleHeader = True
-    '        GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+    '        GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
-    '        RegistraScript("OrdenarGV();")
+    '        RegistraScript("OrdenarGV();")
-    '    End If
+    '    End If
-    'End Sub
+    'End Sub
 #End Region
-
+
     Private Sub RecargaGlobalAlmacenes()
         GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
         'Dim ObjAlmacen As New ClsInventarios
@@ -247,19 +247,19 @@ Partial Class Inventarios_CatAlmacenes
         Dim Estatus = 0
         If ChkEstatus.Checked Then Estatus = 1
         Dim CuentaContable As Integer = 0
-        Dim CveCuenta As Integer = 0
+        Dim CveCuenta As Integer = 0
-
+
-
+
-        If pnlCuentassig.Visible Then
+        If pnlCuentassig.Visible Then
-            CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
+            CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
-        End If
+        End If
-        If divCuentasCompac.Visible Then
+        If divCuentasCompac.Visible Then
-            CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
+            CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
-        End If
+        End If
-
+
-
+
         If HdnModalidad.Value = "A" Then
-            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                      CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero,
                                      CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero()) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)
@@ -288,7 +288,7 @@ Partial Class Inventarios_CatAlmacenes
     End Sub
 
     Public Sub Agregar()
-        HdnModalidad.Value = "A"
+        HdnModalidad.Value = "A"
         UpDatos.Update()
         If DdlModalidad.SelectedValue = 1 Then
             DdlCuentasContables.Visible = True
@@ -337,17 +337,17 @@ Partial Class Inventarios_CatAlmacenes
         DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
         DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen"))
         TxtAlmacen.Text = GvRow.DataKey("Almacen")
-        TxtOrden.Text = GvRow.DataKey("Orden")
+        TxtOrden.Text = GvRow.DataKey("Orden")
-        DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1"))
+        DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1"))
-        DdlAlmacenesVirtuales.SelectedValueExist(GvRow.DataKey("CveAlmacenVirtual"))
+        DdlAlmacenesVirtuales.SelectedValueExist(GvRow.DataKey("CveAlmacenVirtual"))
-
+
-
+
         divEstatus.Visible = True
         ChkEstatus.Checked = If((GvRow.DataKey("Estatus")) = "Activo", True, False)
         UpAddAlmacen.Update()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
+        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
-
+
-
+
     End Sub
     Private Sub LnkAlmacen_Click(sender As Object, e As EventArgs) Handles LnkAlmacen.Click
         Agregar()

RH/CatChecadorEstaciones.aspx

@@ -1,132 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatChecadorEstaciones.aspx.vb" Inherits="RH_CatChecadorEstaciones" %>
-
-<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  Estaciones
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
- 
-                <li>
-                    <asp:LinkButton ID="LnkChecadorEstaciones" runat="server"><i class="fa fa-plus-circle"></i> Agregar</asp:LinkButton>
-                </li>
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
-     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveChecadorEstaciones" Value="-1" />
-            <div class="row" style="margin-right: 10px; margin-top: 18px;text-align:right">
-                                            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvChecadorEstaciones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvChecadorEstaciones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-            </div>
-            <asp:GridView ID="GvChecadorEstaciones" runat="server" GridLines="None" DataKeyNames="CveChecadorEstacion,ChecadorEstacion,CveChecadorTipo,Ip,Puerto,CveZonaHoraria,Estatus,Fecha,CveUsuario,CveEmpresa,ChecadorTipo,Usuario,ZonaHoraria"  
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-freezerows="1" AutoGenerateColumns  ="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Checadores de Estaciones ">
-                <Columns>
-                    <asp:BoundField DataField="ChecadorEstacion" HeaderText="Checador de Estacion" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="ChecadorTipo" HeaderText="Tipo de Checador" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="ZonaHoraria" HeaderText="Zona Horaria" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField DataField="Ip" HeaderText="IP" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField DataField="Puerto" HeaderText="Puerto" ItemStyle-HorizontalAlign="Center" />
-                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
-                         <ItemTemplate>
-                             <asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("Estatus") %>'>></asp:Label>
-                         </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
-                        <ItemTemplate>
-                            <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click"  Text="<i class='fa fa-pencil'></i>" />
-                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click"  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>                      
-    <asp:HiddenField ID="HdnModalidad" runat="server" Value="A" ClientIDMode="Static" />
-    <asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-   
-     <%--POPUP AGREGAR--%>
-    <div id="divAddChecadorEstaciones" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog">
-            <asp:UpdatePanel ID="UpAddChecadorEstaciones" class="modal-content rowpadding" 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">Agregar Checador de Estacion</h4>
-                    </div>
-                    <div class="modal-body">
-                        <asp:UpdatePanel ID="UpBodyChecadorEstaciones" UpdateMode="Conditional" runat="server">
-                            <ContentTemplate>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtChecadorEstaciones" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVChecadorEstaciones" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtChecadorEstaciones" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Checador de Estaciones''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtChecadorEstaciones.ClientID.ToString()%>">Checador de Estaciones:</label>
-                                    <i></i>
-                                </div>
-                               
-                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlChecadorTipo" DataValueField="CveChecadorTipo" Width="150" DataTextField="ChecadorTipo" runat="server" CssClass="form-control select2me"></asp:DropDownList>
-                                    <label for="<%= DdlChecadorTipo.ClientID.ToString()%>">Tipo de Checador:</label>
-                                     
-                                     <asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RfvDdlChecadorTipo" ControlToValidate="DdlChecadorTipo" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo   es necesario, por favor seleccione uno." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                     <ajax:ValidatorCalloutExtender ID="VADdlChecadorTipo" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlChecadorTipo" Width="300px"></ajax:ValidatorCalloutExtender>
-
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlZonaHoraria" DataValueField="CveZonaHoraria" DataTextField="ZonaHoraria" Width="150" runat="server" CssClass="form-control select2me"></asp:DropDownList>
-                                    <label for="<%= DdlZonaHoraria.ClientID.ToString()%>">Zona Horaria:</label>
-
-                                    <asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RfvDdlZonaHoraria" ControlToValidate="DdlZonaHoraria" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo   es necesario, por favor seleccione uno." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VADdlZonaHoraria" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlZonaHoraria" Width="300px"></ajax:ValidatorCalloutExtender>
-
-                                </div>
-
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtIp" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="25"></asp:TextBox>                                     
-                                    <asp:RequiredFieldValidator ID="RFVIp" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtIp" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''IP''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtIp.ClientID.ToString()%>">IP:</label>
-                                    <i></i>
-                                </div>
-                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtPuerto" runat="server"  CssClass="form-control" CausesValidation="true" MaxLength="5" ></asp:TextBox>
-                                     <ajax:FilteredTextBoxExtender ID="FIETxtPuerto" TargetControlID="TxtPuerto" FilterType="Numbers" runat="server" />
-                                    <asp:RequiredFieldValidator ID="RFVPuerto" runat="server"  CssClass="help-block errorimput" ControlToValidate="TxtPuerto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puerto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtPuerto.ClientID.ToString()%>">Puerto:</label>
-                                     <i></i>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
-                                    <i></i>
-                                </div>
-                                
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                        <div class="modal-footer">
-                            <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
-                                <ContentTemplate>
-                                    <asp:LinkButton ID="BtnAgregarChecadorEstaciones" 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="Content8" ContentPlaceHolderID="JS" Runat="Server">
-</asp:Content>
-

RH/CatChecadorEstaciones.aspx.vb

@@ -1,131 +0,0 @@
-
-Imports Extensiones
-Imports System.Data
-
-Partial Class RH_CatChecadorEstaciones
-    Inherits ClsPaginas
-
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
-            CargaDdlChecadorTipo()
-            CargaDdlZonaHoraria()
-            CargaDatos()
-        End If
-    End Sub
-
-    Private Sub CargaDatos()
-        Dim ObjRH As New ClsRH()
-        HdnID.Value = -1
-        If ObjRH.ChecadorEstacionesGet(HdnID.Value, UsuarioActual.CveEmpresa) Then
-            GvChecadorEstaciones.DataSource = ObjRH.DtResultados
-            GvChecadorEstaciones.DataBind()
-        End If
-        ObjRH.Dispose()
-        UpDatos.Update()
-    End Sub
-
-    Private Sub CargaDdlChecadorTipo()
-        Dim ObjRH As New ClsRH()
-        If ObjRH.DdlChecadorTipoGet(UsuarioActual.CveEmpresa) Then
-            DdlChecadorTipo.DataSource = ObjRH.DtResultados
-            DdlChecadorTipo.DataBind()
-
-        End If
-        ObjRH.Dispose()
-        UpDatos.Update()
-    End Sub
-
-    Private Sub CargaDdlZonaHoraria()
-        Dim ObjRH As New ClsRH()
-        If ObjRH.DdlZonaHorariaGet() Then
-            DdlZonaHoraria.DataSource = ObjRH.DtResultados
-            DdlZonaHoraria.DataBind()
-
-        End If
-        ObjRH.Dispose()
-        UpDatos.Update()
-    End Sub
-
-    Private Sub BtnAgregarChecadorEstaciones_Click(sender As Object, e As EventArgs) Handles BtnAgregarChecadorEstaciones.Click
-        Dim ObjRH As New ClsRH
-        Dim Estatus = 0
-        If ChkEstatus.Checked Then Estatus = 1
-        If HdnModalidad.Value = "A" Then
-            If ObjRH.ChecadorEstacionesAdd(DdlChecadorTipo.SelectedValue, DdlZonaHoraria.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtChecadorEstaciones.Text, TxtIp.Text, TxtPuerto.Text, Estatus) Then
-                CargaDatos()
-                Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        ElseIf HdnModalidad.Value = "U" Then
-            If ObjRH.ChecadorEstacionesUpdate(HdnID.Value, DdlChecadorTipo.SelectedValue, DdlZonaHoraria.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtChecadorEstaciones.Text, TxtIp.Text, TxtPuerto.Text, Estatus) Then
-                CargaDatos()
-                Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        End If
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChecadorEstaciones"))
-        ObjRH.Dispose()
-        UpDatos.Update()
-    End Sub
-
-    Public Sub Edit_Click(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        HdnModalidad.Value = "U"
-        HdnID.Value = GvRow.DataKey("CveChecadorEstacion")
-        UpDatos.Update()
-        BtnAgregarChecadorEstaciones.Text = "Actualizar"
-        DdlChecadorTipo.SelectedValueExist(GvRow.DataKey("CveChecadorTipo"))
-        DdlZonaHoraria.SelectedValueExist(GvRow.DataKey("CveZonaHoraria"))
-        TxtChecadorEstaciones.Text = GvRow.DataKey("ChecadorEstacion")
-        TxtIp.Text = GvRow.DataKey("Ip")
-        TxtPuerto.Text = GvRow.DataKey("Puerto")
-        ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
-        UpAddChecadorEstaciones.Update()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChecadorEstaciones"))
-
-    End Sub
-
-    Public Sub Agregar()
-        HdnModalidad.Value = "A"
-        UpDatos.Update()
-        BtnAgregarChecadorEstaciones.Text = "Agregar"
-        TxtChecadorEstaciones.Text = ""
-        TxtIp.Text = ""
-        TxtPuerto.Text = ""
-        CargaDdlChecadorTipo()
-        CargaDdlZonaHoraria()
-        ChkEstatus.Checked = False
-        UpAddChecadorEstaciones.Update()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChecadorEstaciones"))
-
-    End Sub
-
-
-    Public Sub Delete_Click(sender As Object, e As EventArgs)
-        Dim ObjRH As New ClsRH()
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        HdnID.Value = GvRow.DataKey("CveChecadorEstacion")
-        UpDatos.Update()
-        If ObjRH.ChecadorEstacionesRemove(HdnID.Value) Then
-            CargaDatos()
-
-        End If
-        ObjRH.Dispose()
-        UpDatos.Update()
-    End Sub
-
-    Private Sub LnkChecadorEstaciones_Click(sender As Object, e As EventArgs) Handles LnkChecadorEstaciones.Click
-        Agregar()
-    End Sub
-
-    Private Sub GvChecadorEstaciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChecadorEstaciones.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("Estatus") = True Then
-                e.Row.FCLabel("LblEstatus").Text = "Activo"
-                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
-
-            Else
-                e.Row.FCLabel("LblEstatus").Text = "Inactivo"
-                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
-            End If
-        End If
-    End Sub
-End Class

RH/CatChecadores.aspx

@@ -64,9 +64,19 @@
                             <asp:DropDownList ID="DdlSubProyecto" Width="100%" runat="server" AppendDataBoundItems="true" DataValueField="CveSubProyecto" DataTextField="SubProyecto" ValidationGroup="GrpGuardar" CssClass="select2me">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
-                            <asp:RequiredFieldValidator ID="RFVDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <asp:RequiredFieldValidator ID="RFVDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VCODdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
                         </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlModelo">Modelo:</label>
+                            <asp:DropDownList ID="DdlModelo" Width="100%" runat="server" AppendDataBoundItems="true" ValidationGroup="GrpGuardar" CssClass="select2me">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="zkteco" Value="1"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RfvDdlModelo" runat="server" ControlToValidate="DdlModelo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Modelo''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VceDdlModelo" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModelo" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <i></i>
+                        </div>
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtIPLocal" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
                             <asp:RegularExpressionValidator ID="RfvTxtIPLocal" runat="server"

RH/CatChecadores.aspx.cs

@@ -52,6 +52,7 @@ public partial class RH_CatChecadores : ClsPaginas
     {
         TxtChecador.Text = "";
         DdlSubProyecto.SelectedValue = "-1";
+        DdlModelo.SelectedValue = "-1";
         TxtIPLocal.Text = "";
         TxtPuerto.Text = "";
         BtnChecadorAgregar.Text = "Agregar";
@@ -65,14 +66,14 @@ public partial class RH_CatChecadores : ClsPaginas
         ClsRH ObjRH = new ClsRH();
         if (BtnChecadorAgregar.Text == "Agregar")
         {
-            if (ObjRH.AddChecadores(TxtChecador.Text, DdlSubProyecto.SelectedValue.ToEntero(), TxtIPLocal.Text, TxtPuerto.Text, UsuarioActual.CveUsuario))
+            if (ObjRH.AddChecadores(TxtChecador.Text, DdlSubProyecto.SelectedValue.ToEntero(), TxtIPLocal.Text, TxtPuerto.Text, UsuarioActual.CveUsuario,CveModelo:DdlModelo.SelectedValue.ToEntero()))
             {
                 Alert("Checador agregado correctamente");
             }
         }
         else
         {
-            if (ObjRH.UpdateChecadores(CveChecador,TxtChecador.Text,DdlSubProyecto.SelectedValue.ToEntero(),TxtIPLocal.Text,TxtPuerto.Text,Estatus: ChkEstatus.Checked))
+            if (ObjRH.UpdateChecadores(CveChecador,TxtChecador.Text,DdlSubProyecto.SelectedValue.ToEntero(),TxtIPLocal.Text,TxtPuerto.Text,Estatus: ChkEstatus.Checked, CveModelo: DdlModelo.SelectedValue.ToEntero()))
             {
                 Alert("Checador actualizado correctamente");
             }
@@ -90,6 +91,7 @@ public partial class RH_CatChecadores : ClsPaginas
         CveChecador = GvRow.DataKey("CveChecador").ToEntero();
         TxtChecador.Text = GvRow.DataKey("Checador");
         DdlSubProyecto.SelectedValue = GvRow.DataKey("CveSubProyecto");
+        DdlModelo.SelectedValue = GvRow.DataKey("CveModelo");
         TxtIPLocal.Text = GvRow.DataKey("IPLocal");
         TxtPuerto.Text = GvRow.DataKey("Puerto");
         BtnChecadorAgregar.Text = "Actualizar";