movimeintos permanentes

RH/CatAsistenciasInasistencias.aspx

@@ -16,6 +16,9 @@
             <li>
                 <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Asistencia/Inacistencia"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkCargapredefinidos" OnClick="LnkCargapredefinidos_Click" Text="<i class='fa fa-plus'></i>Agregar Predefinidos" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"></asp:LinkButton>
+            </li>
 
         </ContentTemplate>
     </asp:UpdatePanel>

RH/CatAsistenciasInasistencias.aspx.vb

@@ -48,6 +48,7 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim ObjAsistenciasInasistencias As New ClsRH
         If ObjAsistenciasInasistencias.GetAsistenciasInasistencias(UsuarioActual.CveEmpresa) Then
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados
+            LnkCargapredefinidos.Visible = ObjAsistenciasInasistencias.DtResultados.Rows.Count = 0
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -258,4 +259,17 @@ Partial Class RH_CatAsistenciasInasistencias
 #End Region
 
 
+
+    Protected Sub LnkCargapredefinidos_Click(sender As Object, e As EventArgs)
+
+        Using objrh As New ClsRH()
+            'objrh.IniciaTransacSQL()
+            If objrh.CargaInicialAsistenciaInasistencia(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                'objrh.Commit()
+            Else
+                'objrh.RollBack()
+            End If
+        End Using
+        CargaDatos()
+    End Sub
 End Class

RH/Personal.aspx

@@ -201,13 +201,13 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtCiudadOrigen" runat="server" MaxLength="30"></asp:TextBox>
-                                                        <label for="<%= TxtCiudadOrigen.ClientID.ToString()%>">Ciudad Nacimiento: </label>
+                                                        <asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control   input-sm select2me"></asp:DropDownList>
+                                                        <label for="<%= DdlEstados.ClientID.ToString()%>">Estado de nacimiento: </label>
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control   input-sm select2me"></asp:DropDownList>
-                                                        <label for="<%= DdlEstados.ClientID.ToString()%>">Lugar de nacimiento: </label>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtCiudadOrigen" runat="server" MaxLength="30"></asp:TextBox>
+                                                        <label for="<%= TxtCiudadOrigen.ClientID.ToString()%>">Ciudad Nacimiento: </label>
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
@@ -315,6 +315,13 @@
                                                         <div class="col-md-6">
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtCP" runat="server" MaxLength="5"></asp:TextBox>
+                                                        <asp:CustomValidator ID="cvCadena" runat="server"  ControlToValidate="TxtCP" Enabled="true"
+                                                            OnServerValidate="cvCadena_ServerValidate"   ValidationGroup="GrpGuardar"
+                                                            ErrorMessage="La cadena debe ser numérica y de 5 dígitos."></asp:CustomValidator>
+                                                        <asp:RequiredFieldValidator ID="rfvTxtCP" runat="server" ControlToValidate="TxtCP" 
+                                                            CssClass="help-block errorimput" 
+                                                            ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+
                                                         <label for="<%= TxtCP.ClientID.ToString()%>">Código Postal: </label>
                                                         <i></i>
                                                     </div>

RH/Personal.aspx.vb

@@ -8103,5 +8103,22 @@ Partial Class RH_Personal
         UpDatos.Update()
     End Sub
 
+
+
+    Protected Sub cvCadena_ServerValidate(source As Object, args As ServerValidateEventArgs)
+        Dim retorno As Boolean = True
+        ' Verifica que la longitud de la cadena sea 5
+        If Len(args.Value) <> 5 Then
+            retorno = False
+        End If
+
+        ' Verifica que la cadena sea numérica
+        If Not IsNumeric(args.Value) Then
+            retorno = False
+        End If
+
+        args.IsValid = retorno
+    End Sub
+
 End Class