-

Bancos/IE.aspx.vb

@@ -4778,7 +4778,8 @@ Partial Class Bancos_IE
             filemove = fileItem.filename
         Next
 
-        If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format("{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+
+        If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
             If filemove <> "" Then
                 filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
             End If

Bancos/RepEgresosSinComprobante.aspx

@@ -13,14 +13,11 @@
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Otros Egresos</asp:LinkButton>
+                <asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Saldar</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkHabilitarSaldarFyE" runat="server"><i class="fa fa-money"></i> Viaticos-Personal</asp:LinkButton>
-            </li>
+            </li>            
-            <li>
-                <asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server"><i class="fa fa-money"></i> Saldar Proveedores</asp:LinkButton>
-            </li>
             <li>
                 <asp:LinkButton ID="LnkSaldarFyE" Visible="false" OnClick="LnkSaldarFyE_Click" runat="server"><i class="fa fa-money"></i> Saldar FyE</asp:LinkButton>
             </li>
@@ -146,6 +143,43 @@
 
     <br />
 
+    <asp:UpdatePanel runat="server" ID="UpSaldar" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="row" id="DVSaldar" runat="server" visible="false">
+                <div class="col-lg-1">
+                    Concepto:
+                </div>
+                <div class="col-lg-2">
+                    <asp:TextBox runat="server" ID="TxtConcepto" CausesValidation="true" Width="100%" MaxLength="100"></asp:TextBox>
+                    <asp:RequiredFieldValidator  ID="RfvTxtConcepto" runat="server" Enabled="true" CssClass="help-block errorimput" ControlToValidate="TxtConcepto"  Display="Dynamic"
+                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." 
+                        ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
+                </div>
+                <div class="col-lg-1">
+                    <asp:Label runat="server" ID="LblSubproyecto"></asp:Label>:
+                </div>
+                <div class="col-lg-2">
+                    <asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
+                    <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlSubProyecto"   Display="Dynamic"
+                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." 
+                        ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
+                </div>
+                <div class="col-lg-1">
+
+                    <asp:LinkButton ID="LnkSaldar" Visible="true" OnClick="LnkSaldar_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpSaldar">
+                        <i class="fa fa-money"></i> Saldar
+                    </asp:LinkButton>
+
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    
+
     <ajax:TabContainer ID="tabGeneral" runat="server" ActiveTabIndex="0" Width="100%" >
 
         <ajax:TabPanel ID="tabProveedores" runat="server" HeaderText="Proveedores">

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -3,7 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
-Imports Microsoft.Reporting.WebForms
+Imports Microsoft.Reporting.WebForms
 Partial Class Bancos_RepEgresosSinComprobante
     Inherits ClsPaginas
 
@@ -59,6 +59,8 @@ Partial Class Bancos_RepEgresosSinComprobante
             DdlProveedores.SelectedValue = "-1"
 
             CargaDatos()
+            TxtConcepto.Text = "Saldo de Egresos por comprobar"
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubproyecto, AplicaTodos:="Selecione uno")
 
         End If
     End Sub
@@ -169,14 +171,19 @@ Partial Class Bancos_RepEgresosSinComprobante
     End Sub
 
     Private Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click
+
         For Each gr As GridViewRow In GvESC.Rows
             If gr.DataKey("CveIE") <> "" Then
                 gr.FCCheckBox("Chk").Visible = True
-                LnkSaldar.Visible = True
-                LnkHabilitarSaldar.Visible = False
                 UPDatos.Update()
+
             End If
         Next
+
+        TxtConcepto.Text = "Saldo de Egresos por comprobar"
+        DVSaldar.Visible = True
+        UpSaldar.Update()
+
     End Sub
     Private Sub LnkHabilitarSaldoFyE_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldarFyE.Click
         For Each gr As GridViewRow In GvPersonal.Rows
@@ -191,25 +198,34 @@ Partial Class Bancos_RepEgresosSinComprobante
 
     Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
 
+
+
+        Dim Contador As Integer = 0
+        For Each gr As GridViewRow In GvESC.Rows
+            If gr.FCCheckBox("Chk").Checked Then
+                Contador += 1
+            End If
+        Next
+
+        If Not Contador > 0 Then
+            Alert("No se hay movimientos seleccionados")
+            Exit Sub
+        End If
+
+
         Dim ObjConta As New ClsContabilidad
         Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
 
-
         Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
 
         Dim CvePrePoliza As Integer = 0
         Dim MsgError As String = ""
         Try
-            Dim Contador As Integer = 0
+
-            For Each gr As GridViewRow In GvESC.Rows
-                If gr.FCCheckBox("Chk").Checked Then
-                    Contador += 1
-                End If
-            Next
 
             If Contador > 0 Then
                 CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
-                                                          "Saldo de Egresos por comprobar", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                          TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 For Each gr As GridViewRow In GvESC.Rows
                     If gr.FCCheckBox("Chk").Checked Then
@@ -282,8 +298,10 @@ Partial Class Bancos_RepEgresosSinComprobante
 
 
         If MsgError = "" Then
-            LnkSaldar.Visible = False
+            'LnkSaldar.Visible = False
-            LnkHabilitarSaldar.Visible = True
+            'LnkHabilitarSaldar.Visible = True
+            DVSaldar.Visible = False
+
             ObjConta.Commit()
             CargaDatos()
             Alert(String.Format("Los movimientos se saldaron correctamente <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)

RH/CatTurno.aspx

@@ -143,12 +143,12 @@
                                
                                  
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" />
+                                    <asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" AutoPostBack="true" OnCheckedChanged="chkComida_CheckedChanged" />
                                     <label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label>
                                 </div>
                                     
 
-                                <div class="row">                                  
+                                <div class="row" runat="server" id="DVHorarioComida" visible="false">                                  
                                     <div class="col-lg-6">
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
@@ -174,17 +174,37 @@
                                 </div>                                                                
                                 
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox>
+                                    <asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
-                                    <asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label>
+                                    <asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label>                                   
-                                </div>
+                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtRetardo" FilterType="Numbers" />
+
+                                </div>                               
+
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtFretardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFretardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
                                     <asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Retardo"></asp:Label>
+                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtFretardo" FilterType="Numbers" />
+                                    
+                                    <asp:CustomValidator ID="CVTxtFretardo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFretardo"  ClientValidationFunction="validaRetardoEntrada"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br /> El campo Retardo debe de ser superior al campo Tolerancia Entrada." ValidationGroup="GrpObligatorio"></asp:CustomValidator>
                                 </div>
+
+                                 <div class="form-group form-md-line-input input-iconright"  runat="server" id="DvToleranciaSRetardo" visible="false">
+                                    <asp:TextBox ID="TxtToleranciaSRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
+                                    <asp:Label AssociatedControlID="TxtToleranciaSRetardo" runat="server" Text="Tolerancia salida Temprano"></asp:Label>
+
+                                     <asp:CustomValidator ID="CVTxtToleranciaSRetardo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtToleranciaSRetardo"  ClientValidationFunction="validaSalidaTemprano" 
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br /> El campo Tolerancia salida Temprano debe de ser menor  al campo Tolerancia salida." ValidationGroup="GrpObligatorio"></asp:CustomValidator>
+                                     <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtToleranciaSRetardo" FilterType="Numbers" />
+
+                                </div>
+
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtFsalida" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFsalida" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
                                     <asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Tolerancia salida"></asp:Label>
+                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtFsalida" FilterType="Numbers" />
                                 </div>
+
                         <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:DropDownList ID="ddlDiaDescanso" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%">
                                 <asp:ListItem Value="-1" Text="Sin Asignar" Selected="True"></asp:ListItem>
@@ -219,4 +239,63 @@
     </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+    <script>
+
+        function validaRetardoEntrada(sender, args) {
+
+            let respuesta = false;
+
+            let StrToleranciaEntrada = $('#<%= TxtRetardo.ClientID %>').val()
+            let ToleranciaEntrada = isNaN(StrToleranciaEntrada) ? 0 : parseFloat(StrToleranciaEntrada);
+
+
+            let StrToleranciaEntradaRetardo = $('#<%= TxtFretardo.ClientID %>').val()
+            let ToleranciaEntradaRetardo = isNaN(StrToleranciaEntradaRetardo) ? 0 : parseFloat(StrToleranciaEntradaRetardo);
+
+
+            if (ToleranciaEntradaRetardo > 0) {
+
+                if (ToleranciaEntradaRetardo > ToleranciaEntrada) {
+                    respuesta = true;
+                } else {
+                    respuesta = false;
+                }
+                
+            } else {
+                respuesta = true;
+            }
+
+            args.IsValid = respuesta;
+
+        }
+
+        function validaSalidaTemprano(sender, args) {
+           
+
+            let respuesta = false;
+
+            let StrToleranciaSRetardo = $('#<%= TxtToleranciaSRetardo.ClientID %>').val()
+            let ToleranciaSRetardo = isNaN(StrToleranciaSRetardo) ? 0 : parseFloat(StrToleranciaSRetardo);
+
+            let StrFsalida = $('#<%= TxtFsalida.ClientID %>').val()
+            let Fsalida = isNaN(StrFsalida) ? 0 : parseFloat(StrFsalida);
+
+
+            if (ToleranciaSRetardo > 0) {
+
+                if (ToleranciaSRetardo < Fsalida) {
+                    respuesta = true;
+                } else {
+                    respuesta = false;
+                }
+                
+            } else {
+                respuesta = true;
+            }
+            args.IsValid = respuesta;
+        }
+
+    </script>
+
 </asp:Content>

RH/CatTurno.aspx.vb

@@ -12,6 +12,11 @@ Partial Class RH_CatTurno
         If Not Page.IsPostBack Then
             CargaDdlChecadorHorario()
             CargaDatos()
+
+            If UsuarioActual.CveEmpresa <> 158 Then
+                DvToleranciaSRetardo.Visible = True
+            End If
+
         End If
     End Sub
 
@@ -42,14 +47,14 @@ Partial Class RH_CatTurno
             If ChkEstatus.Checked Then Estatus = True
             If HdnModalidad.Value = "A" Then
                 If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
-                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
+                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
                     CargaDatos()
                     CargaGlobalDTTurno()
                     Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
             ElseIf HdnModalidad.Value = "U" Then
                 If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(),
-                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
+                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
                     CargaDatos()
                     CargaGlobalDTTurno()
                     Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
@@ -80,8 +85,11 @@ Partial Class RH_CatTurno
         chkComida.Checked = (GvRow.DataKey("Comida") = "1")
         TxtComidade.Text = GvRow.DataKey("ComidaDe")
         TxtComidaA.Text = GvRow.DataKey("ComidaA")
+        TxtToleranciaSRetardo.Text = GvRow.DataKey("ToleranciaSRetardo")
         ddlDiaDescanso.SelectedValueExist(GvRow.DataKey("DiaDescanso"))
 
+        chkComida_CheckedChanged(Nothing, Nothing)
+
         UpAddTurno.Update()
 
         'CargaGlobalDTTurno()
@@ -103,6 +111,7 @@ Partial Class RH_CatTurno
         ddlDiaDescanso.SelectedValueExist("-1")
         CargaDdlChecadorHorario()
         ChkEstatus.Checked = True
+        DVHorarioComida.Visible = True
         UpAddTurno.Update()
 
 
@@ -154,4 +163,14 @@ Partial Class RH_CatTurno
             End If
         End If
     End Sub
+
+    Protected Sub chkComida_CheckedChanged(sender As Object, e As EventArgs)
+        If chkComida.Checked Then
+            DVHorarioComida.Visible = True
+        Else
+            DVHorarioComida.Visible = False
+        End If
+
+        UpAddTurno.Update()
+    End Sub
 End Class