-

App_Code/ClsGenerales.vb

@@ -2527,7 +2527,7 @@ Public Class ClsGenerales
                                          CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
                                          Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1,
                                          Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1,
-                                         Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean
+                                         Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraGet")
 
@@ -2554,6 +2554,8 @@ Public Class ClsGenerales
             .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora
             .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+
 
         End With
         'SqlTypes.SqlDateTime.Null

App_Code/ClsInventarios.vb

@@ -131,8 +131,6 @@ Public Class ClsInventarios
     Public Property ResponsableCarga As String
     Public Property ResponsableRecibio As String
     Public Property Modulo As String
-    Public Property ConAplicacion As Boolean
-
 
 
 
@@ -2309,8 +2307,6 @@ Public Class ClsInventarios
                 FechaI = dr("FechaInicio").ToString
                 FechaF = dr("FechaFin").ToString
                 Estatus = dr("Estatus").ToString
-                ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString)
-
                 Retorno = True
             End If
 

App_Code/ClsNominas.vb

@@ -2483,6 +2483,52 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
+#Region "Prorrateo"
+
+    Public Function ProrrateosubproyectoGET(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_Prorrateosubproyecto")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function ProrrateosubproyectoAdd(CvePersonal As Integer, CveSubProyecto As Integer, Porcentaje As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_ProrrateosubproyectoAdd")
+        SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        SqlAdapter.SelectCommand.Parameters.Add("@Porcentaje", SqlDbType.Decimal).Value = Porcentaje
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function ProrrateosubproyectoRemove(CvePersonal As Integer, CveSubProyecto As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_ProrrateosubproyectoRemove")
+        SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
 
 #Region "CRUD_Nom_PersonalIncapacidad"
     Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean

App_Code/ClsRH.vb

@@ -2031,12 +2031,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
+    Public Function UpdateSalariointegrado(CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@SDI", SqlDbType.Money).Value = SDI
             .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
         End With
@@ -2048,13 +2049,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
         Return Retorno
     End Function
-    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
+    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveUsuario As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalUpdateSalarios")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago
             .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
             .Add("@SDI", SqlDbType.Money).Value = SDI
@@ -2448,7 +2450,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Dim Retorno As Boolean = False
         Dim xmlProductos As System.Xml.Linq.XDocument = Nothing
         If registros IsNot Nothing AndAlso registros.Count > 0 Then
-            xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha))))
+            xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha), New System.Xml.Linq.XElement("Motivo", x.Motivo))))
         End If
         Data = New DataTable
         SqlDataAdapter("PA_RH_AsistenciaDetalleUP")

CRM/EmpresaCRM.aspx.cs

@@ -1515,6 +1515,9 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 LnkAgregarAcercamiento.Visible = false;
             }
 
+
+            if (!UsuarioActual.TienePermisoProceso(330))
+            {
                 if ((UsuarioActual.CveVendedor != CveVendedor))
                 {
                     BtnGuardarEmpresa.Visible = false;
@@ -1525,6 +1528,14 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                     GVContactos.Columns[4].Visible = false;
                 }
             }
+
+          
+
+
+
+
+
+        }
     }
     #endregion
 

Compras/eFacturas.aspx.vb

@@ -769,19 +769,24 @@ Partial Class Compras_eFacturas
             If ObjDatos.DtResultados.Rows.Count > 0 Then
                 GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable()
                 DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'")
-            Else
+                'Else
-                GvD.DataSource = Nothing
+                '    GvD.DataSource = Nothing
             End If
         End If
+
+
+
         LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0"))
         LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
 
-        ObjDatos.Dispose()
-
 
         If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
             GvPagos.DataSource = DtPagos
         End If
+
+        ObjDatos.Dispose()
+
+
         GvPagos.DataBind()
         UpPagos.Update()
 
@@ -1118,6 +1123,8 @@ Partial Class Compras_eFacturas
 
             e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)
 
+            Dim RutaXML As String = String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))
+
             If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then
                 e.Row.FCLiteral("LtlXML").Text = String.Format("<a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}"">Ver</a>", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML")))
                 If e.Row.DBCampo("TipoComprobante") = "P" And e.Row.DBCampo("FueValidado") = "1" Then
@@ -2917,7 +2924,7 @@ Partial Class Compras_eFacturas
 
                         For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows
 
-                            If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then
+                            If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper And drow("CveIE").ToString.ToEntero > 0 Then
 
                                 dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero
                                 dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero

Contratos/ContratoObra.aspx.vb

@@ -786,7 +786,7 @@ Partial Class Contratos_ContratoObra
                 LnkAbrirContrato.Visible = False
                 LnkCerrarContrato.Visible = False
 
-                If UsuarioActual.TienePermisoProceso(330) Then
+                If UsuarioActual.TienePermisoProceso(173) Then
 
                     If ObjContratos.TipoEstatus = 1 Then
                         LnkCerrarContrato.Visible = True
@@ -4313,6 +4313,7 @@ Partial Class Contratos_ContratoObra
             Else
                 RGVControlCantidadVentas.Visible = True
                 RGVControlCantidadVentas.MinimumValue = CantidadMinimo.ToString
+                RGVControlCantidadVentas.ErrorMessage = $"No se  puede tener un valor inferior a {CantidadMinimo} lo ya avanzado. "
             End If
 
 

Empresas/158/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -870,7 +870,6 @@
                 <Source>Embedded</Source>
                 <Value>logo</Value>
                 <Sizing>FitProportional</Sizing>
-                <Left>0cm</Left>
                 <Height>2.54331cm</Height>
                 <Width>4.05375cm</Width>
                 <ZIndex>9</ZIndex>
@@ -1892,7 +1891,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>AJA850608L7A</Value>
+                    <Value>AJA9809264V2</Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>6.7pt</FontSize>
@@ -4892,7 +4891,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="Logo119">
       <MIMEType>image/png</MIMEType>

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -1019,7 +1019,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>REMITEMTES Y DESTINATARIOS</Value>
+                <Value>REMITENTES Y DESTINATARIOS</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9pt</FontSize>
@@ -1419,7 +1419,7 @@
                 <Value>=Parameters!SelloCFDI.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>6pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1447,7 +1447,7 @@
                 <Value>=Parameters!CadenaOriginal.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>6pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1473,7 +1473,7 @@
                 <Value>=Parameters!SelloSAT.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>6pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1573,53 +1573,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Tipo de Transporte Internacional:</Value>
+                <Value>Permiso SCT:</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!TipoTI.Value</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Vía de Transporte Internacional:</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!ViaTI.Value</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Permiso STCC:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -1647,6 +1601,37 @@
               <TextAlign>Left</TextAlign>
             </Style>
           </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Numero de Permiso</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>: </Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NumPermiso.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.13111in</Top>
@@ -1708,37 +1693,6 @@
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
         <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Numero de Permiso</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>9pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>: </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!NumPermiso.Value</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
           <Paragraph>
             <TextRuns>
               <TextRun>

General/ExcelToBD.aspx.cs

@@ -83,9 +83,10 @@ public partial class General_ExcelToBD : System.Web.UI.Page
         DdlWorkBooks.DataBind();
         if (workBooks.Count > 0)
         {
-            DdlWorkBooks.SelectedIndex = 0;
+            DdlWorkBooks.SelectedIndex = 1;
             DdlWorkBooks_SelectedIndexChanged(null, null);
         }
+        LnkContinuar_Click(null, null);
     }
 
     protected void DdlWorkBooks_SelectedIndexChanged(object sender, EventArgs e)
@@ -100,7 +101,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page
             columnas = workSheet.LastRowUsed().CellCount();
             TxtFilas.Text = Filas.ToString();
             TxtInicia.Text = "2";
-            TxtColumnas.Text = "62";// columnas.ToString();
+            TxtColumnas.Text = "48";//"62";// columnas.ToString();
         }
 
     }

Nomina/ChecadorAsistencia.aspx

@@ -4,6 +4,9 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
+        .GvBitacora th:nth-child(n+2){
+            text-align: left;
+        }
         .AdsCHeader .GvNominas th:nth-child(1),
         .AdsCHeader .GvNominas td:nth-child(1) {
             text-align: left;
@@ -128,7 +131,7 @@
                             </div>
                         </div>
                         <div class="portlet-body">
-                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
+                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover GvBitacora  Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
                                 <Columns>
                                     <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
                                         <ItemTemplate>
@@ -139,8 +142,8 @@
                                     <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <%--<asp:BoundField DataField="Asistencia" HeaderText="Fecha" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />--%>
+                                    <asp:BoundField DataField="Asistencia" HeaderText="Asistencia" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <%--<asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />--%>
+                                    <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                 </Columns>

Nomina/ChecadorAsistencia.aspx.cs

@@ -191,10 +191,10 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         DataTable dtCon = generateTable();
         GvNominas.DataSource = dtCon;
         GvNominas.DataBind();
-        DateTime fechai = TxtFecha.Text.ToDateTime();
+        DateTime fechai = TxtRpdFechaInicio.Text.ToDateTime();
-        DateTime fechaf = fechai.AddDays(1);
+        DateTime fechaf = TxtRpdFechaFin.Text.ToDateTime().AddDays(1);
         using (ClsGenerales ObjGral = new ClsGenerales()) { 
-            if (ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, FechaInicio: fechai.ToString("yyyy/MM/dd"), FechaFin: fechai.ToString("yyyy/MM/dd")))
+            if (ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, FechaInicio: fechai.ToString("yyyy/MM/dd"), FechaFin: fechaf.ToString("yyyy/MM/dd")))
             {
                 //Alert("Entre");
                 GvBitacora.DataSource = ObjGral.DtResultados;

Nomina/Nomina.aspx

@@ -186,10 +186,10 @@
                 <asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
+                <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkLayoutContable" Visible="false" OnClick="LnkLayoutContable_Click" runat="server"><i class="fa fa-university" aria-hidden="true"></i>Layout banco</asp:LinkButton>
+                <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
             </li>
             <li>
                 <asp:HyperLink ID="LnkProvisionNomina" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión</asp:HyperLink>
@@ -198,7 +198,10 @@
                 <asp:HyperLink ID="LnkProvisionNominaAsimilados" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión Asimilados</asp:HyperLink>
             </li>
             <li>
-                <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
+                <asp:LinkButton ID="LnkOpenProrrateo" OnClick="LnkOpenProrrateo_Click" runat="server"><i class="fa fa-percent"></i> Prorrateo</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkLayoutContable" Visible="false" OnClick="LnkLayoutContable_Click" runat="server"><i class="fa fa-university" aria-hidden="true"></i>Layout banco</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkAsistenciaIncidencias" Visible="true" OnClick="LnkAsistenciaIncidencias_Click" runat="server"><i class="fa fa-check-square"></i>Incidencias asistencia </asp:LinkButton>
@@ -245,6 +248,10 @@
             <li>
                 <asp:HyperLink ID="HypPDFSTimbrados" Visible="false" onclick="GETPDF(-1,0)" NavigateUrl="#" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Recibos timbrados</asp:HyperLink>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkOpenCancelarTimbre" OnClick="LnkOpenCancelarTimbre_Click" runat="server"><i class="fa fa-download"></i> CancelarTimbre</asp:LinkButton>
+            </li>
+
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkListaRaya" />
@@ -3431,6 +3438,146 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+
+
+
+    <div id="DModalProrrateo" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpModalProrrateo" class="modal-dialog" style="width:900px;" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Prorrateo</h4>
+                    </div>
+                    <div class="modal-body">
+                  
+
+
+                        <div class="portlet light bordered xspadding" id="portletprorrateo">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="icon-pin font-green"></i>
+                                    <span class="caption-subject bold uppercase">Agregar prorrateo</span>
+                                </div>
+                                
+                                <div class="tools">
+                                    <a href="javascript:;" class="expand" data-original-title="" title=""></a> 
+                                </div>
+                            </div>
+                            <div class="portlet-body" style="display:none">
+                                <div class="form-group form-md-line-input input-iconright"> 
+                                    <asp:DropDownList ID="DdlPRPersonal" DataTextField="CodigoNombreCompleto" DataValueField="CvePersonal" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control select2me">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:Label runat="server" AssociatedControlID="DdlPRPersonal" Enabled="false" Text="Empleado"></asp:Label>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-6" runat="server" id="divPRddlproyeto">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlPRProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" Width="100%" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <asp:Label ID="LblPRProyecto" runat="server" Text="Proyecto:" AssociatedControlID="DdlPRProyecto"></asp:Label>
+                                        </div>
+                                    </div>
+
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlPRSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <asp:Label ID="LblPRSubProyeccto" AssociatedControlID="DdlPRSubProyecto" runat="server" Text="SubProyecto:"></asp:Label>
+
+                                        </div>
+                                    </div>
+                                </div>
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox CssClass="form-control " ID="TxtPorcentaje" runat="server"  Text="0"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPorcentaje" Text="Porcentaje"></asp:Label>
+                                </div>
+                                <div class="text-right">
+                                    <asp:LinkButton ID="LnkAgregarProrrateo" OnClick="LnkAgregarProrrateo_Click" CssClass="btn btn-primary" runat="server">Agregar</asp:LinkButton>
+                                </div>
+                            </div>
+                        </div>
+                        <asp:GridView ID="GVProrrateo" OnRowDataBound="GVProrrateo_RowDataBound" DataKeyNames="CvePersonal,CveSubProyecto,Porcentaje" runat="server" GridLines="None" Width="100%" CellSpacing="0"
+                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False">
+                            <Columns>
+                                <asp:BoundField DataField="Codigo" HeaderText="Código" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="NombreCompleto" HeaderText="Empleado" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="SubProyecto" HeaderText="Centro de costos" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="Porcentaje" DataFormatString="{0:P2}" HeaderText="Porcentaje" ItemStyle-HorizontalAlign="right" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:TemplateField HeaderStyle-Width="30">
+                                    <ItemTemplate>
+                                        <div style="min-width: 30px; text-align: right; white-space: nowrap; padding-right: 10px;">
+                                            <asp:LinkButton runat="server" ID="LnkEliminarProrrateo" OnClick="LnkEliminarProrrateo_Click" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='icon-trash'></i>"
+                                                data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el prorrateo?" data-btn-ok-label="si" />
+                                        </div>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+
+                    <div class="modal-footer">
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+    <asp:Panel runat="server" ClientIDMode="Static" ID="DmodalCancelartimbre" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCancelarFolioFiscal" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cancelar timbre fiscal</h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="row">
+                            <div class="col-md-8">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtFolioFiscal" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPeriodo">Folio Fiscal</asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtTotal" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtTotal">Total</asp:Label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRFCEmisor" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPeriodo">RFC Emisor</asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRFCReceptor" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPeriodo">RFC Receptor</asp:Label>
+                                </div>
+                            </div>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkCancelarFolioFiscal" OnClick="LnkCancelarFolioFiscal_Click" CssClass="btn btn-success" runat="server">Cancelar folio fiscal</asp:LinkButton>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </asp:Panel>
     <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
     <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
     <asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />

Nomina/Nomina.aspx.cs

@@ -193,11 +193,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (!IsPostBack)
         {
+            DmodalCancelartimbre.Visible = (UsuarioActual.CveUsuario == 100);
+            LnkOpenCancelarTimbre.Visible = (UsuarioActual.CveUsuario == 100);
             LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100);
             TxtPeriodo.Text = $"{DateTime.Now:yyyyMM}";
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
+            CargarCentrosDeCosto(DdlPRProyecto, DdlPRSubProyecto, LblPRProyecto, LblPRSubProyeccto);
             CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto);
             divddlproyeto.Visible = DdlProyecto.Visible;
+            divPRddlproyeto.Visible = DdlPRProyecto.Visible;
             PnlProyecto.Visible = DdlProyecto.Visible;
             if (PnlProyecto.Visible)
             {
@@ -1196,7 +1200,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (CveNomina > 0)
         {
-            ClsNominas Nom = new ClsNominas();
+            using (ClsNominas Nom = new ClsNominas())
+            {
+
                 if (Nom.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa))
                 {
                     Timbrado ObjTimbrado = new Timbrado();
@@ -1205,10 +1211,27 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     decimal Total = Nom.Total.ToString().ToDecimal();
                     string RFCReceptor = Nom.RFC;
                     string RFCEmisor = UsuarioActual.Empresa.RFC;
-
+                    string SerieFolio = Nom.SerieFolio;
 
                     if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
                     {
+                        try
+                        {
+                            string ruta = string.Format("{0}XML\\Nomina\\", UsuarioActual.Empresa.Ruta);
+                            string archivo = string.Format("{0}{1}.xml", ruta, SerieFolio);
+                            int contador = 1;
+                            string archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolio, contador++);
+                            while (System.IO.File.Exists(archivonew))
+                            {
+                                archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolio, contador++);
+                            }
+                            File.Move(archivo, archivonew);
+                        }
+                        catch (Exception)
+                        {
+                            Alert("Ocurrió un error al mover el archivo fiscal cancelado");
+                        }
+
                         Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
 
                         Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
@@ -1222,7 +1245,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
 
 
-            Nom.Dispose();
+            }
 
             cargaDatos();
         }
@@ -7200,4 +7223,124 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         }
     }
+
+    protected void LnkCancelarFolioFiscal_Click(object sender, EventArgs e)
+    {
+
+        Timbrado ObjTimbrado = new Timbrado();
+        string FolioFiscal = TxtFolioFiscal.Text;
+        decimal Total = TxtTotal.Text.ToDecimal();
+        string RFCReceptor = TxtRFCReceptor.Text;
+        string RFCEmisor = TxtRFCEmisor.Text;
+        if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
+        {
+            Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
+        }
+        else
+        {
+
+            Alert(ObjTimbrado.MensajeErrorCFDI, TipoMensaje.MsgAdvertencia);
+        }
+        ObjTimbrado = null;
+    }
+
+    protected void LnkOpenCancelarTimbre_Click(object sender, EventArgs e)
+    {
+        RegistraScript(string.Format("$('#{0}').modal();", DmodalCancelartimbre.ClientID));
+    }
+
+
+    protected void LnkOpenProrrateo_Click(object sender, EventArgs e)
+    {
+        using (ClsRH onom = new ClsRH())
+        {
+
+            if (onom.GetPersonal(-1, UsuarioActual.CveEmpresa))
+            {
+                DdlPRPersonal.DataSource = onom.DtResultados;
+                DdlPRPersonal.DataBind();
+            }
+        }
+        using (ClsNominas onom = new ClsNominas())
+        {
+
+            GVProrrateo.DataSource = null;
+            if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
+            {
+                GVProrrateo.DataSource = onom.DtResultados;
+            }
+            GVProrrateo.DataBind();
+        }
+        RegistraScript(string.Format("$('#DModalProrrateo').modal();"));
+        UpModalProrrateo.Update();
+    }
+    protected void LnkEliminarProrrateo_Click(object sender, EventArgs e)
+    {
+        GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CvePersonal, CveSubProyecto;
+        CvePersonal = gvrow.DataKey("CvePersonal").ToEntero();
+        CveSubProyecto = gvrow.DataKey("CveSubProyecto").ToEntero();
+
+        using (ClsNominas onom = new ClsNominas())
+        {
+
+            if (onom.ProrrateosubproyectoRemove(CvePersonal, CveSubProyecto))
+            {
+                GVProrrateo.DataSource = null;
+                if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
+                {
+                    GVProrrateo.DataSource = onom.DtResultados;
+                }
+                GVProrrateo.DataBind();
+                Alert("Se ha eliminado satisfactoriamente.");
+            }
+        }
+    }
+
+
+    protected void GVProrrateo_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            int CvePersonal, CveSubProyecto;
+            decimal Porcentaje;
+            CvePersonal = e.Row.DataKey("CvePersonal").ToEntero();
+            CveSubProyecto = e.Row.DataKey("CveSubProyecto").ToEntero();
+            Porcentaje = e.Row.DataKey("Porcentaje").ToDecimal();
+            if (CveSubProyecto > 0)
+            {
+
+            }
+            else
+            {
+                e.Row.FindControl("LnkEliminarProrrateo").Visible = false;
+                e.Row.CssClass = Porcentaje == 1 ? "info" : "danger";
+            }
+        }
+    }
+
+    protected void LnkAgregarProrrateo_Click(object sender, EventArgs e)
+    {
+
+        int CvePersonal, CveSubProyecto;
+        decimal Porcentaje;
+
+        CvePersonal = DdlPRPersonal.SelectedValue.ToEntero();
+        CveSubProyecto = DdlPRSubProyecto.SelectedValue.ToEntero();
+        Porcentaje = TxtPorcentaje.Text.ToDecimal();
+        using (ClsNominas onom = new ClsNominas())
+        {
+            if (onom.ProrrateosubproyectoAdd(CvePersonal, CveSubProyecto, Porcentaje))
+            { 
+                GVProrrateo.DataSource = null;
+                if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
+                {
+                    GVProrrateo.DataSource = onom.DtResultados;
+                }
+                GVProrrateo.DataBind();
+                Alert("Se ha agregado satisfactoriamente.");
+            }
+        }
+        UpModalProrrateo.Update();
+    }
 }

RH/ActualizacionMasiva.aspx.vb

@@ -205,7 +205,7 @@ Partial Class RH_ActualizacionMasiva
                     '    ObjPersonal.RollBack()
                     '    Exit For
                     'End If
-                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
+                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(),, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCCheckBox("ChkCalcularSDI").Checked) Then
 
@@ -361,7 +361,7 @@ Partial Class RH_ActualizacionMasiva
                         If Not IsNothing(drow) Then
 
                             Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
-                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
+                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
                                                           Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then
                                 contador = contador + 1
                             Else

RH/CalculoSBC.aspx.cs

@@ -126,7 +126,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                 double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2);
                 double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble();
                 double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
-                if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
+                if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
                 {
 
                 }
@@ -144,7 +144,7 @@ public partial class RH_CalculoSBC : ClsPaginas
         /*
         
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"),UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
 
          * */
     }

RH/CatPersonal.aspx.vb

@@ -1141,8 +1141,8 @@ Partial Class RH_CatPersonal
                    -1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
                    DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
                    0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,
-                   TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151
+                   TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151,
-                   ,CveMedioTransporte:= DdlMedioTransporte.SelectedValue.ToEntero()
+                   CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero()
                 ) Then
                 Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True

RH/Personal.aspx.vb

@@ -6485,7 +6485,7 @@ Partial Class RH_Personal
         calcularSDI()
 
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
+            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
                 TxtSalarioDiario.Text = TxtFISalariodiario.Text
                 TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
                 'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
@@ -6515,7 +6515,7 @@ Partial Class RH_Personal
         TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
         TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
 
 
                 TxtSalarioDiario.Text = TxtSalarioDiarioM.Text

vwd.webinfo

@@ -320,6 +320,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+