Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsNominas.vb

@@ -3812,6 +3812,27 @@ Public Class ClsNominas
     End Function
 
 
+    Public Function MovimientosSaldosGet(cvePersonal As Int32, cvePeriodo As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Nom_MovimientosSaldosGet", CommandType.StoredProcedure)
+        addParameters("@CvePersonal", SqlDbType.Int, cvePersonal)
+        addParameters("@CvePeriodo", SqlDbType.Int, cvePeriodo)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        retorno = RunQuery("Ocurrió un error al obtener el MovimientosSaldosGet.")
+        Return retorno
+    End Function
+
+    Public Function NomMovimientosShow(cvePersonal As Int32, cvePeriodo As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Nom_MovimientosShow", CommandType.StoredProcedure)
+        addParameters("@CvePersonal", SqlDbType.Int, cvePersonal)
+        addParameters("@CvePeriodo", SqlDbType.Int, cvePeriodo)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        retorno = RunQuery("Ocurrió un error al obtener el NomMovimientosShow.")
+        Return retorno
+    End Function
 
     Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object)
         SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor

App_Code/ClsOS.vb

@@ -1728,7 +1728,7 @@ Public Class ClsOS
 
         Return Retorno
     End Function
-    Public Function UpdateOrdenesServiciosAsignadas(CveOSDetalle As Integer, CveUsuario As Integer, FechaCita As Date, HoraCita As DateTime, CveEmpresa As Integer) As Boolean
+    Public Function UpdateOrdenesServiciosAsignadas(CveOSDetalle As Integer, CveUsuarioAtendio As Integer, FechaCita As Date, HoraCita As DateTime, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_OS_OrdenesServiciosAsignadasUpdate")
 
@@ -1737,6 +1737,7 @@ Public Class ClsOS
             .Add("@FechaCita", SqlDbType.Date).Value = FechaCita
             .Add("@HoraCita", SqlDbType.DateTime).Value = HoraCita
             .Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
+            .Add("@CveUsuarioAtendio", SqlDbType.Int).Value = CveUsuarioAtendio
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 

App_Code/ClsPaginas.vb

@@ -7945,10 +7945,11 @@ Public Class ClsPaginas
 #End Region
 #Region "PDF NOMINA"
     Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String, Optional indemnizacion As Boolean = False) As Byte()
-        Dim ObjNomina As New ClsNominas
-        Dim ObjPersonal As New ClsRH
-        Dim TieneError As Boolean = False
         Dim Retorno As Byte() = Nothing
+        Using ObjNomina As New ClsNominas
+            Using ObjPersonal As New ClsRH
+
+                Dim TieneError As Boolean = False
                 If Not ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, CveEmpresa) Then
                     Alert("Ocurrio un erro al obtener datos de la nomina", TipoMensaje.MsgError)
                     ObjPersonal.Dispose()
@@ -7968,7 +7969,11 @@ Public Class ClsPaginas
                 SelloCFDi = ""
                 SelloSAT = ""
                 NoSerieCertificadoContribuyente = ""
-        Dim RutaCBB As String = String.Format("{0}CBB\Nomina\{1}.jpg", RutaEmpresa, ObjNomina.SerieFolio)
+                Dim RutaCBBDir As String = String.Format("{0}CBB\Nomina\", RutaEmpresa)
+                If Not (System.IO.Directory.Exists(RutaCBBDir)) Then
+                    System.IO.Directory.CreateDirectory(RutaCBBDir)
+                End If
+                Dim RutaCBB As String = String.Format("{0}{1}.jpg", RutaCBBDir, ObjNomina.SerieFolio)
                 Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
                 Dim ImgCBB As String
                 Dim RutaFormato As String = String.Format("{0}Formatos\Nomina.rdlc", RutaEmpresa)
@@ -8203,6 +8208,17 @@ Public Class ClsPaginas
                             Next
                         End If
                     End If
+
+                    If ObjNomina.NomMovimientosShow(CvePersonal, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                        If Not IsNothing(ObjNomina.DtResultados) And ObjNomina.DtResultados.Rows.Count > 0 And ObjNomina.DtResultados.Rows(0)("ShowMovtosPermanentes").ToString() = "1" Then
+                            If ObjNomina.MovimientosSaldosGet(CvePersonal, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                                Dim RptDSMP As New ReportDataSource
+                                RptDSMP.Name = "DsMovtosPermanentes"
+                                RptDSMP.Value = ObjNomina.DtResultados
+                                LSRds.Add(RptDSMP)
+                            End If
+                        End If
+                    End If
                     Dim RptDS As New ReportDataSource
                     RptDS.Name = "DsOC"
                     RptDS.Value = DTPercepciones
@@ -8236,8 +8252,8 @@ Public Class ClsPaginas
                     GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))
                 End Try
 
-        ObjNomina.Dispose()
+            End Using
-        ObjPersonal.Dispose()
+        End Using
         Return Retorno
     End Function
 #End Region

App_Code/ClsRH.vb

@@ -321,6 +321,21 @@ Public Class ClsRH
 #End Region
 
 #Region "ClsRHAsistenciasInasistencias"
+
+    Public Function CargaInicialAsistenciaInasistencia(cveEmpresa As Int32, cveUsuario As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_CargaInicialAsistenciaInasistencia", CommandType.StoredProcedure)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al realizar la carga inicial de asistencia inasistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
     Public Function GetAsistenciasInasistencias(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 

Compras/Compras.aspx.vb

@@ -3594,13 +3594,10 @@ Partial Class Compras_Compras
                 End If
             End If
 
-<<<<<<< HEAD
-            CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
-            CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
 
             CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
             CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
->>>>>>> GDiaz  2024.05.21
+
 
             LbAgregar.Enabled = True
             UpPSS.Update()
@@ -3647,11 +3644,7 @@ Partial Class Compras_Compras
                 PorcentajeProntoPago = ObjProveedor.PorcentajeProntoPago
             End If
 
-<<<<<<< HEAD
-=======
 
-
->>>>>>> GDiaz  2024.05.21
         Else
             Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
         End If
@@ -3659,9 +3652,6 @@ Partial Class Compras_Compras
 
 
 
-<<<<<<< HEAD
-=======
->>>>>>> GDiaz  2024.05.21
         If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
                     If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then
                         If ObjProveedor.DtResultados.Rows.Count > 0 Then

General/SaldosIniciales.aspx.vb

@@ -3967,7 +3967,7 @@ Partial Class General_SaldosIniciales
                     TxtExcel.Text = ""
                     UpDatos.Update()
                 Else
-                    Alert(String.Format("Se agregaron: <b>{0}</b> Empleados correctamente.", NumRows), TipoMensaje.MsgInformacion)
+                    Alert(String.Format("Se agregaron: <b>{0}</b> Empleados correctamente.", ContadorAgregados), TipoMensaje.MsgInformacion)
                     ObjRH.Commit()
                     TxtExcel.Text = ""
                     UpDatos.Update()

Nomina/Nomina.aspx.cs

@@ -326,6 +326,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (!IsPostBack)
         {
+            cargarutaempresa();
             {
 
             DtNomOrden = new DataTable();
@@ -474,6 +475,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
         }
     }
+    private void cargarutaempresa()
+    {
+        string rutaCBBDir = String.Format("{0}CBB\\Nomina\\", UsuarioActual.Empresa.Ruta);
+
+        if (!Directory.Exists(rutaCBBDir))
+        {
+            Directory.CreateDirectory(rutaCBBDir); 
+        } 
+    }
     #region Filtros
     private void cargaEjercicios()
     {
@@ -2109,7 +2119,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     column++;
                     libro.Cell(1, column).Value = row["CveConcepto"].ToString();
-                    libro.Cell(FilaConceptos, column).Value = "N";
+                    libro.Cell(FilaConceptos, column).Value = "S";
                     libro.Cell(3, column).Value = row["Concepto"].ToString();
                     libro.Cell(4, column).Value = row["Codigo"].ToString();
                     libro.Column(column).Width = 15;
@@ -2124,7 +2134,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     column++;
                     libro.Cell(1, column).Value = row["CveConcepto"].ToString();
-                    libro.Cell(FilaConceptos, column).Value = "N";
+                    libro.Cell(FilaConceptos, column).Value = "S";
                     libro.Cell(3, column).Value = row["Concepto"].ToString();
                     libro.Cell(4, column).Value = row["Codigo"].ToString();
                     libro.Column(column).Width = 15;
@@ -2139,7 +2149,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     column++;
                     libro.Cell(1, column).Value = row["CveConcepto"].ToString();
-                    libro.Cell(FilaConceptos, column).Value = "N";
+                    libro.Cell(FilaConceptos, column).Value = "S";
                     libro.Cell(3, column).Value = row["Concepto"].ToString();
                     libro.Cell(4, column).Value = row["Codigo"].ToString();
                     libro.Column(column).Width = 15;

Nomina/ReportePTU.aspx

@@ -82,17 +82,26 @@
                 </div>
             </asp:Panel>
             <br />
+            <div   style=" text-align: right" ">
+                <div  >
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCalcularUtilidades.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCalcularUtilidades.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+            </div>
             <asp:GridView ID="GVCalcularUtilidades" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalcularUtilidades" AutoGenerateColumns="False"
                 DataKeyNames="Nombre,CvePersonal,DiasLaborados,SueldoTotal,Importe" >
                 <Columns>
                      <asp:TemplateField HeaderText="Código ">
                         <ItemTemplate>
-                            <asp:Label ID="lblC" runat="server" Text='<%# Eval("Codigo")%>'> </asp:Label>
+                            <%--<asp:Literal ID="lblC" runat="server" > </asp:Literal>--%>
+                                    <asp:HyperLink ID="lblC" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CvePersonal", "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink>
+
                         </ItemTemplate>
                            </asp:TemplateField>
                     <asp:TemplateField HeaderText="Nombre ">
                         <ItemTemplate>
-                            <asp:Label ID="lblnombreCompleto" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                                    <asp:HyperLink ID="lblnombreCompleto" runat="server" Text='<%# Eval("Nombre") %>' NavigateUrl='<%# Eval("CvePersonal", "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink>
+                            <%--<asp:Literal ID="lblnombreCompleto" runat="server" > </asp:Literal>--%>
                         </ItemTemplate>
                     </asp:TemplateField>
                     

Nomina/ReportePTU.aspx.vb

@@ -241,4 +241,18 @@ Partial Class Nomina_ReportePTU
             End If
         End If
     End Sub
+
+    'Protected Sub GVCalcularUtilidades_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+    '        Dim dataItem As DataRowView = CType(e.Row.DataItem, DataRowView)
+    '        Dim cvePersonal As String = e.Row.DataKey("CvePersonal").ToString()
+    '        Dim codigo As String = e.Row.DataKey("Codigo").ToString()
+    '        Dim nombre As String = e.Row.DataKey("Nombre").ToString()
+
+    '        Dim lblC As Label = CType(e.Row.FindControl("lblC"), Label)
+    '        lblC.Text = String.Format("<a class='Texto sline' href='/RH/Personal.aspx?CvePersonal={0}'>{1}</a>", cvePersonal, codigo)
+    '        Dim lblnombreCompleto As Label = CType(e.Row.FindControl("lblnombreCompleto"), Label)
+    '        lblnombreCompleto.Text = String.Format("<a class='Texto sline' href='/RH/Personal.aspx?CvePersonal={0}'>{1}</a>", cvePersonal, nombre)
+    '    End If
+    'End Sub
 End Class

OS/OrdenesServicios.aspx.vb

@@ -1866,7 +1866,7 @@ Partial Class OS_OrdenesServicios
             GvHistorial.DataSource = Nothing
         End If
         GvHistorial.DataBind()
-        ObjGral.Dispose()
+        UpHistorial.Update()
     End Sub
 
 #End Region
@@ -3536,24 +3536,40 @@ Partial Class OS_OrdenesServicios
     End Class
     Protected Sub LnkActualizarUsaurioAtendio_Click(sender As Object, e As EventArgs)
 
-        Dim ObjOs As New ClsOS
+
-        Dim ProcesoOk As Boolean = True
 
         If DdlUsuarioAtendio.SelectedValue.ToEntero > 0 Then
+
+            Dim ObjOS As New ClsOS
+            ObjOS.IniciaTransacSQL()
+
+            Dim ProcesoOk As Boolean = True
+
             For Each GvRow As GridViewRow In GvPS.Rows
-                If Not ObjOs.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa) Then
+                If Not ObjOS.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                     ProcesoOk = False
-                    Alert($"Se presento un error al actualizar el técnico.")
                     Exit For
                 End If
             Next
+
             If ProcesoOk Then
-                Alert($"Técnico actualizado correctamenrte  a {DdlUsuarioAtendio.SelectedItem.Text}.")
+                ObjOS.Commit()
+            Else
+                ObjOS.RollBack()
             End If
+
+            ObjOS.Dispose()
+
+            If ProcesoOk Then
+                Alert($"Se presento un error al actualizar el técnico.")
+                CargaHistorial()
+            End If
+
         Else
             Alert("Debe de seleccionar un ténico para actualziar", TipoMensaje.MsgAdvertencia)
         End If
-        ObjOs.Dispose()
+
+
 
     End Sub
 

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>
+                                                        <asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control   input-sm select2me"></asp:DropDownList>
-                                                        <label for="<%= TxtCiudadOrigen.ClientID.ToString()%>">Ciudad Nacimiento: </label>
+                                                        <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>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtCiudadOrigen" runat="server" MaxLength="30"></asp:TextBox>
-                                                        <label for="<%= DdlEstados.ClientID.ToString()%>">Lugar de nacimiento: </label>
+                                                        <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