Compras/PopUpVerFactura.aspx.vb

@@ -562,6 +562,10 @@ Partial Class PopUpVerFactura
         If Not IsNothing(Request("cvePersonal")) Then
             cvePersonal = Request("cvePersonal").ToString.ToEntero()
         End If
+        If Not IsNothing(Request("cveSubProyecto")) Then
+            cveSubProyecto = Request("cveSubProyecto").ToString.ToEntero()
+        End If
+
         Dim params As New List(Of ReportParameter)
         Dim lrds As New List(Of ReportDataSource)
         Using objnom As New ClsNominas

Contratos/ContratoObra.aspx

@@ -2808,8 +2808,8 @@
                         </div>
 
                           <div class="form-group form-md-line-input input-iconright"> 
-                              <ADS:Dropdownlost runat="server" ID="DdlProductows" CssStyle="width: 100%;" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />                         
                             <label for="<%= DdlProductows.ClientID.ToString()%>">Producto:</label>
+                              <ADS:Dropdownlost runat="server" ID="DdlProductows" CssStyle="width: 100%;" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />                         
                         </div>
 
 

Nomina/Nomina.aspx

@@ -2263,11 +2263,11 @@
     
     <div id="ModalViewCorreo" class="modal ADS fade" role="dialog">
 
-        <asp:UpdatePanel class="modal-dialog " runat="server" ID="UpviewCorreos" UpdateMode="Conditional">
+        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UpviewCorreos" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-content">
                     <div class="modal-header ">
-                        <h4 class="modal-title">Registrode Correos</h4>
+                        <h4 class="modal-title">Registro de correos</h4>
                     </div>
                     <div class="modal-body">
                         
@@ -2284,14 +2284,9 @@
                                         <asp:Label runat="server" Text='<%# Eval("NombreCompleto")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Periodo" Visible="false" ItemStyle-CssClass="text-left">
-                                    <ItemTemplate>
-                                        <asp:Label runat="server" Text='<%# Eval("PeriodoTexto")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Fecha" ItemStyle-CssClass="text-left">
                                     <ItemTemplate>
-                                        <asp:Label runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
+                                        <asp:Label runat="server" Text='<%# Eval("Fecha","{0:dd/MM/yyyy HH:MM}")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Se envio a" ItemStyle-CssClass="text-left">

Nomina/Nomina.aspx.cs

@@ -1427,7 +1427,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             UsuarioActual = this.UsuarioActual;
         }*/
-        string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual);
+        string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual,(UsuarioActual.CveUsuario==100?3:4));
         if (Msg != null && Msg.Length > 0)
         { Alert(string.Format("El empleado no se pudo timbrar, el sat nos devolvio el siguiente mensaje:<br/>{0}", Msg), TipoMensaje.MsgAdvertencia); }
         else
@@ -7350,6 +7350,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         TxtSRINCfolio.Text = "";
         TxtSRINCfechaInicio.Text = "";
         TxtSRINCdiasAutorizados.Text = "";
+        TxtDiasPagoEmpresa.Text = UsuarioActual.CveEmpresa ==141?"3":"";
         DdlSRINCcveTipodeIncidencia.SelectedValue = "-1";
         DdlSRINCcveRamoSeguro.SelectedValue = "-1";
         DdlSRINCcveTipoRiesgo.SelectedValue = "-1";

RH/ActualizacionMasiva.aspx.vb

@@ -102,11 +102,17 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Private Sub CargaSuperioresOrganigrama()
+        Using objbase As New ClsClaseBase
+            Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM  RH_Organigrama )", UsuarioActual.CveEmpresa)
+            If (objbase.runQuerystr(strquery)) Then
+                DdlSupervisor.DataSource = objbase.DtResultados
+
+            End If
+        End Using
         Dim ObjRH As New ClsRH
 
         If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
             ViewState("dtSupervisores") = ObjRH.DtResultados
-            DdlSupervisor.DataSource = ObjRH.DtResultados
         Else
             DdlSupervisor.DataSource = Nothing
             Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")

RH/Asistencias.aspx.vb

@@ -25,15 +25,23 @@ Partial Class RH_Asistencias
 
 #Region "  ORGANIGRAMA  "
     Private Sub CargaSuperioresOrganigrama()
-        Dim ObjRH As New ClsRH
+        'Dim ObjRH As New ClsRH
 
-        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+        'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-            DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
+        '    DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
-        Else
+        'Else
-            DdlSupervisorOrganigrama.DataSource = Nothing
+        '    DdlSupervisorOrganigrama.DataSource = Nothing
-            Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
+        '    Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
-        End If
+        'End If
-        ObjRH.Dispose()
+        'ObjRH.Dispose()
+
+        Using objbase As New ClsClaseBase
+            Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM  RH_Organigrama )", UsuarioActual.CveEmpresa)
+            If (objbase.runQuerystr(strquery)) Then
+                DdlSupervisorOrganigrama.DataSource = objbase.DtResultados
+
+            End If
+        End Using
 
         If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
             DdlSupervisorOrganigrama.DataBind()

RH/Personal.aspx.vb

@@ -7297,6 +7297,7 @@ Partial Class RH_Personal
         TxtSRINCfolio.Text = ""
         TxtSRINCfechaInicio.Text = ""
         TxtSRINCdiasAutorizados.Text = ""
+        TxtDiasPagoEmpresa.Text = If(UsuarioActual.CveEmpresa = 141, "3", "")
         DdlSRINCcveTipodeIncidencia.SelectedValue = "-1"
         DdlSRINCcveRamoSeguro.SelectedValue = "-1"
         DdlSRINCcveTipoRiesgo.SelectedValue = "-1"

vwd.webinfo

@@ -538,6 +538,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+