Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsRH.vb

@@ -2722,6 +2722,27 @@ Public Class ClsRH
         Return Retorno
     End Function
 
+
+    Public Function GetPersonalPreAsistenciaRegistros(InicioPeriodo As Date, FinPeriodo As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        SqlDataAdapter("PA_RH_PersonalPreAsistenciaRegistrosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@InicioPeriodo", SqlDbType.Date).Value = InicioPeriodo
+            .Add("@FinPeriodo", SqlDbType.Date).Value = FinPeriodo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function AddAsistencia(CvePersonal As Integer, CveCliente As Integer, CveSubProyecto As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double,
                                   HorasDobles As Double, HorasTriples As Double, CveMotivoHoraExtra As Integer, Observacion As String, CveUsuario As Integer, CveEmpresa As Integer, Modulo As String) As Boolean
 
@@ -2768,6 +2789,44 @@ Public Class ClsRH
     End Function
 
 
+    Public Function AddPreAsistencia(CvePersonal As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        Data = New DataTable
+        'SqlAdapter = New SqlDataAdapter("PA_RH_PersonalAsistenciasAddUpd", SqlConexion)
+        'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+        SqlDataAdapter("PA_RH_PersonalPreAsistenciasAddUpd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveAsistenciasInasistencias", SqlDbType.Int).Value = CveAsistenciasInasistencias
+            .Add("@PorcentajePago", SqlDbType.Float).Value = PorcentajePago
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            CveAsistencia = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("x50102;") Then
+                Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la Pre Asistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function UpAsistenciaDetalle(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpAsistenciaDetalle)) As Boolean
         Dim Retorno As Boolean = False
         Dim xmlProductos As System.Xml.Linq.XDocument = Nothing

Compras/Compras.aspx.vb

@@ -20743,7 +20743,7 @@ Partial Class Compras_Compras
                                 Dim Diferencia As Decimal = saldoTotal - TotalAcumuladoTabla - ValImporte
 
                                 If (Diferencia) < 0 Then
-                                    Alert($"No hay presupuesto disponible en el subproyecto <b>{ValSubProyecto}</b> con la clasificación <b>{ValClasificacion}</b>, Tipo de gasto <b>{ValTipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{ValSubProyecto}</b>  <br>Clasificación: <b>{ValClasificacion}</b> <br>Tipo de gasto: <b>{ValTipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}.</b>", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
 
                                 Else
@@ -20751,7 +20751,7 @@ Partial Class Compras_Compras
                                 End If
 
                             Else
-                                Alert($"No hay presupuesto disponible en el subproyecto <b>{ValSubProyecto}</b> con la clasificación <b>{ValClasificacion}</b>, Tipo de gasto <b>{ValTipoGasto}</b> ", TipoMensaje.MsgAdvertencia)
+                                Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{ValSubProyecto}</b>  <br>Clasificación: <b>{ValClasificacion}</b> <br>Tipo de gasto: <b>{ValTipoGasto}</b>.", TipoMensaje.MsgAdvertencia)
                                 respuesta = False
                             End If
                         Else
@@ -20808,16 +20808,24 @@ Partial Class Compras_Compras
                             Dim tieneRegistrosConCveSubProyecto As Boolean = resultadosFiltrados.Any(Function(row) CType(row("CveSubProyecto"), Integer) = item.CveSubProyecto)
 
                             If tieneRegistrosConCveSubProyecto Then
-                                Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+                                'Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+                                '                             Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
+                                '                                   row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+                                '                             Select row.Field(Of Decimal)("Saldo")).Sum()
+
+                                Dim saldoTotal As Decimal = (From row In resultadosFiltrados.AsEnumerable()
                                                              Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
-                                                                   row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+                                                               If(row.IsNull("CveClasificacion"),
+                                                                  0,
+                                                                  row.Field(Of Integer?)("CveClasificacion").GetValueOrDefault()) = item.CveClasificacion
                                                              Select row.Field(Of Decimal)("Saldo")).Sum()
+
                                 If saldoTotal > 0 Then
 
                                     Dim Diferencia As Decimal = saldoTotal - item.TotalSum
 
                                     If (Diferencia) < 0 Then
-                                        Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>, Tipo de gasto <b>{item.TipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                        Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{item.SubProyecto}</b>  <br>Clasificación: <b>{item.Clasificacion}</b> <br>Tipo de gasto: <b>{item.TipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}.</b>", TipoMensaje.MsgAdvertencia)
                                         respuesta = False
                                         Exit For
                                     Else
@@ -20825,7 +20833,7 @@ Partial Class Compras_Compras
                                     End If
 
                                 Else
-                                    Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>, Tipo de gasto <b>{item.TipoGasto}</b>", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{item.SubProyecto}</b>  <br>Clasificación: <b>{item.Clasificacion}</b> <br>Tipo de gasto: <b>{item.TipoGasto}</b>.", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
                                     Exit For
                                 End If

Inventarios/EntregaAlmacen.aspx.vb

@@ -3252,7 +3252,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Consola</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
             End If
 
-            If CveMovimientoEntrada > 0 Then
+            If CveMovimientoEntrada > 0 AndAlso Not UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                 Msg.AppendFormat("<br/><br/> Movimiento Entrada (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
                 Msg.AppendFormat("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
             End If

RH/RepChecadorPreAsistencia.aspx

@@ -16,11 +16,15 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Conditional" >
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >
         <ContentTemplate>
             <li>
                 <asp:LinkButton runat="server" ID="BtnAgregar" Visible="false"  data-toggle="tooltip" data-placement="left" title="Procesar" Text="<i class='fa fa-plus'></i> Procesar"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkEnviarAsistencia" Visible="false"  data-toggle="tooltip" data-placement="left" title="Enviar Asistencia" Text="<i class='fa fa-arrow-right'></i> Enviar Asistencia" 
+                    OnClick="LnkEnviarAsistencia_Click"></asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -33,45 +37,27 @@
             <div class="portlet solid grey-cascade portlet-filter" style="">
                 <div class="portlet-title portlet-filterT" style="">
                     <div class="titlefiltros caption ">                         
+                       
+
                         <ul class="list-inline text-size-12">
+                            <li>Ejercicio:
+                              
+                                  <asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" AutoPostBack="true" 
+                                       style="width: 120px !important;"  CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
+                              
+                            </li>
                             <li>Tipo Periodo:
                                  <asp:DropDownList ID="DdlTipoPeriodo" AutoPostBack="true"  runat="server" CssClass="form-control input-sm select2me" Style="width: 120px !important;" ValidationGroup="GrpGuardar" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo">
                                  </asp:DropDownList>
                             </li>
-                            <li><asp:label ID="LblPeriodo" runat="server"  Visible="true" >Periodo:</asp:label>
+                            <li>
-                                 <asp:DropDownList ID="DdlRango"  Visible="true"   AutoPostBack="true"   runat="server" CssClass="form-control input-sm select2me" Style="width: 275px !important;"  DataTextField="NominaEstatus" DataValueField="CvePeriodo"  ValidationGroup="GrpGuardar">
+                                Período:                                
-                                 </asp:DropDownList>
+                                <asp:DropDownList ID="DdlPeriodo" runat="server"  CssClass="select2me" 
+                                    DataTextField="NominaEstatus" DataValueField="CvePeriodo"   style="width: 120px !important;" >
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
                             </li>
-                        <%--<li>Fecha Inicio:
-                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
-                                    <asp:TextBox ID="TxtInicio" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtInicio" PopupButtonID="ImgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha inicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </li>
-                            <li>Fecha Fin:
-                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
-                                    <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEETxtFechaFin" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CETxtFechaFin" TargetControlID="TxtFechaFin" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                         
-                                <asp:RequiredFieldValidator ID="RfvTxtFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CvTxtFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
-
-                                <ajax:ValidatorCalloutExtender ID="RfvcTxtFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="CvcTxtFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </li>--%>
                             <li>SubProyecto:
                                  <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" Style="width: 135px; !important;"  DataTextField="SubProyecto" DataValueField="CveSubproyecto">
                                  </asp:DropDownList>
@@ -340,7 +326,7 @@
                     <div class="modal-footer">
                         <div class="row">
                             <asp:Button ID="BtnGuardar" Visible="true" runat="server" Text="Guardar" class="btn btn-primary" OnClick="BtnGuardar_Click" />
-                            <asp:Button ID="BtnEstusAsistenciaModal" Visible="false" runat="server" class="btn btn-success" Text="Aceptar" />
+                            <%--<asp:Button ID="BtnEstusAsistenciaModal" Visible="false" runat="server" class="btn btn-success" Text="Aceptar" />--%>
                             <button id="Button4" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
 
                         </div>