diff --git a/AF/PopUpBuscarAF.aspx b/AF/PopUpBuscarAF.aspx
index 7fc99c76c..f5313feb6 100644
--- a/AF/PopUpBuscarAF.aspx
+++ b/AF/PopUpBuscarAF.aspx
@@ -108,18 +108,18 @@
                 <tr>
                     <td class="text-right"><b>Tipo de Activo Fijo:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlTipoActivoFijo" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                        <asp:DropDownList ID="DdlTipoActivoFijo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVTipoActivoFijo" runat="server" ControlToValidate="DdlTipoActivoFijo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Activo Fijo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOTipoActivoFijo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoActivoFijo" Width="300px"></ajax:ValidatorCalloutExtender>
                     </td>
                     <%--</tr>--%>
                     <%--<tr>--%>
-                    <td class="text-right"><b>SubTipo de Activo Fijo:</b></td>
+                    <td class="text-right"><b>SubTipo de A.F:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlSubTipoActivoFijo" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                        <asp:DropDownList ID="DdlSubTipoActivoFijo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVSubTipoActivoFijo" runat="server" ControlToValidate="DdlSubTipoActivoFijo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubTipo de Activo Fijo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOSubTipoActivoFijo" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubTipoActivoFijo" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -161,8 +161,8 @@
                 <tr>
                     <td class="text-right"><b>Estado:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlEstadoActivoFijo" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin Estado Asignado" Value="-1"></asp:ListItem>
+                        <asp:DropDownList ID="DdlEstadoActivoFijo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo" Width="200px" ValidationGroup="GrpGuardar">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVEstadoActivoFijo" runat="server" ControlToValidate="DdlEstadoActivoFijo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado Activo Fijo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOEstadoActivoFijo" runat="server" HighlightCssClass="vco" TargetControlID="RFVEstadoActivoFijo" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -171,8 +171,8 @@
                             <tr>--%>
                     <td class="text-right"><b>Responsable:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlResponsable" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CvePersonal" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin Responsable Asignado" Value="-1"></asp:ListItem>
+                        <asp:DropDownList ID="DdlResponsable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CvePersonal" Width="200px" ValidationGroup="GrpGuardar">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                     </td>
                 </tr>
@@ -181,8 +181,8 @@
                         <asp:Label runat="server" ID="LblProyecto" Font-Bold="true">Proyecto:</asp:Label>
                     </td>
                     <td runat="server" id="tdDdlProyecto">
-                        <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
+                        <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                     </td>
                     <%-- </tr>
@@ -191,17 +191,18 @@
                         <asp:Label runat="server" ID="LblSubProyectos" Font-Bold="true">SubProyecto:</asp:Label>
                     </td>
                     <td>
-                        <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
+                        <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                     </td>
                 </tr>
                 <tr>
                     <td class="text-right"><b>Cliente:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlCliente" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Nombre" DataValueField="CveCliente" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin Cliente Asignado" Value="-1"></asp:ListItem>
-                        </asp:DropDownList>
+                        <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                            <%--                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>--%>
                     </td>
                 </tr>
                 <tr>
diff --git a/AF/PopUpBuscarAF.aspx.vb b/AF/PopUpBuscarAF.aspx.vb
index 864de32d2..cc61ddb46 100644
--- a/AF/PopUpBuscarAF.aspx.vb
+++ b/AF/PopUpBuscarAF.aspx.vb
@@ -189,7 +189,7 @@ Partial Class AF_PopUpBuscarAF
         DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
         'DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
         DdlSubTipoActivoFijo.DataBind()
-        DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargaCaracteristicas()
@@ -214,7 +214,7 @@ Partial Class AF_PopUpBuscarAF
     '	DdlModeloActivoFijo.Items.Clear()
     '       DdlModeloActivoFijo.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
     '	DdlModeloActivoFijo.DataBind()
-    '	DdlModeloActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '	DdlModeloActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
     'End Sub
     Private Sub CargaMarcaActivoFijo()
         'DdlMarcaActivoFijo.DataSource = GlobalDTMarcaActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -238,15 +238,18 @@ Partial Class AF_PopUpBuscarAF
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
-        DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaEstatusActivoFijo()
         DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
         DdlEstadoActivoFijo.DataBind()
     End Sub
     Private Sub CargaCliente()
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlCliente.DataBind()
+
+        DdlClientes.setEsWebService(True)
+
+        ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlCliente.DataBind()
     End Sub
 #End Region
 
@@ -265,7 +268,6 @@ Partial Class AF_PopUpBuscarAF
         Dim CveProyecto As Integer = -1
         Dim CveSubProyecto As Integer = -1
         Dim EstadoActivoFijo As Integer = -1
-        Dim CveCliente As Integer = -1
 
         If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
         If TxtDescripcion.Text.Trim <> String.Empty Then Descripcion = TxtDescripcion.Text.Trim
@@ -278,7 +280,8 @@ Partial Class AF_PopUpBuscarAF
         If DdlProyecto.SelectedValue <> String.Empty Then CveProyecto = DdlProyecto.SelectedValue.ToEntero
         If DdlSubProyecto.SelectedValue <> String.Empty Then CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
         If DdlEstadoActivoFijo.SelectedValue <> String.Empty Then EstadoActivoFijo = DdlEstadoActivoFijo.SelectedValue.ToEntero
-        If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero
+        'If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
 
         Dim strSQL1 As New StringBuilder
         Dim booPrimerCampo As Boolean = False
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 8949803ec..b6867e5e6 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -5656,7 +5656,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function SolicitudVacacionesAdd(CvePersonal As Integer, Fecha As Date, FechaFin As Date, Estatus As Integer, CveUsuario As Integer, CveAutoriza As Integer, Folio As Integer, Optional Motivo As String = "", Optional FechaPago As String = "", Optional diasinabiles As Integer = 0, Optional PorcentajePrimaVac As Decimal = -1, Optional CveTipoPago As Integer = 0, Optional diasExtras As Integer = 0) As Boolean
+    Public Function SolicitudVacacionesAdd(CvePersonal As Integer, Fecha As Date, FechaFin As Date, Estatus As Integer, CveUsuario As Integer,
+                                           CveAutoriza As Integer, Folio As Integer, Optional Motivo As String = "", Optional FechaPago As String = "",
+                                           Optional diasinabiles As Integer = 0, Optional PorcentajePrimaVac As Decimal = -1,
+                                           Optional CveTipoPago As Integer = 0, Optional diasExtras As Integer = 0,
+                                           Optional Ejercicio As Integer = 0, Optional PrimaVacacional As Integer = 1, Optional CobrarImss As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_SolicitudVacacionesAdd")
@@ -5674,6 +5678,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@FechaPago", SqlDbType.VarChar).Value = FechaPago
             .Add("@CveTipoPago", SqlDbType.Int).Value = CveTipoPago
             .Add("@diasExtras", SqlDbType.Int).Value = diasExtras
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@PrimaVacacional", SqlDbType.Int).Value = PrimaVacacional
+            .Add("@CobrarImss", SqlDbType.Int).Value = CobrarImss
             '.Add("@Motivo", SqlDbType.VarChar).Value = MotivoFechaPago As String = "", Optional diasinabiles 
         End With
 
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 9ddfc1944..25ac07be4 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -813,7 +813,7 @@ Public Class Timbrado
         'validación especial. 
         If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
 
-            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70))
+            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144))
                                     Select c.ClaveProdServ, c.Descripcion)
             Dim Str As New StringBuilder
             Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT: <br/>")
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index a9acdcb77..74bee1337 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -2112,7 +2112,7 @@
                                                     <asp:TemplateField>
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Visible="false" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>
-                                                            <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="100px" Visible="true"></asp:TextBox>
+                                                            <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="80px" Visible="true"></asp:TextBox>
                                                             <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
                                                             <asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
 
@@ -2129,7 +2129,7 @@
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left">
                                                         <ItemTemplate>
-                                                            <asp:DropDownList ID="DdlTipoMantemiento" runat="server" CssClass="form-control select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantemiento_SelectedIndexChanged">
+                                                            <asp:DropDownList ID="DdlTipoMantemiento" runat="server" CssClass="form-control select2me" Width="100px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantemiento_SelectedIndexChanged">
                                                                 <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
                                                                 <asp:ListItem Text="Preventivo" Value="1"></asp:ListItem>
                                                                 <asp:ListItem Text="Correctivo" Value="2"></asp:ListItem>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index fe8890552..ee97de30d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2708,6 +2708,11 @@ Partial Class Compras_Compras
                         TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer))
                     End If
 
+                    If Not TmpDT.Columns.Contains("ImporteSinImpuestos") Then
+                        TmpDT.Columns.Add("ImporteSinImpuestos", GetType(Decimal))
+                    End If
+
+
                     GvPS.DataSource = TmpDT
                     GvPS.DataBind()
 
@@ -10146,6 +10151,7 @@ Partial Class Compras_Compras
 
                         If Not ErrorAC Then
                             Dim Cont As Integer = 0
+                            Dim indiceTR = 0
                             For Each Row As DataRow In TmpDT.Rows
 
                                 'actualizar las clasificaciones, que se hallan hecho
@@ -10170,14 +10176,40 @@ Partial Class Compras_Compras
                                 'Si es AF-COMPRA se guarda en CveActivoFijoCompra 
                                 Dim CveAFCompra = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
 
-                                If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble,
-                                                                    Row("Descuento").ToString.ToDouble, Row("Obs").ToString, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, CveAF, Row("CveCompraDetalle").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia,
-                                                                    RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
-                                                                    IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False)) Then
+                                If Row("CveCompraDetalle").ToString.ToEntero > 0 Then
+                                    If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble,
+                                                                   Row("Descuento").ToString.ToDouble, Row("Obs").ToString, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, CveAF, Row("CveCompraDetalle").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia,
+                                                                   RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
+                                                                   IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False)) Then
 
-                                    Retorno = False
-                                    Exit For
+                                        Retorno = False
+                                        Exit For
+                                    End If
+                                Else
+                                    Dim TipoRecepcion As Integer = -1
+                                    If GvInv.Rows.Count > indiceTR Then
+                                        If GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
+                                            TipoRecepcion = 1
+                                        ElseIf GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "0" Then
+                                            TipoRecepcion = 2
+                                        End If
+                                    End If
+
+                                    If Not ObjCompra.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
+                                                                          Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble, Row("Descuento").ToString.ToDouble,
+                                                                          Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
+                                                                          AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
+                                                                          CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
+                                                                          RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
+                                                                          IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
+                                                                          IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
+                                                                          CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then
+
+                                        Retorno = False
+                                        Exit For
+                                    End If
                                 End If
+                                indiceTR = indiceTR + 1
 
                                 'If Not ObjCompra.VerificaPrepolizas(UsuarioActual.CveEmpresa, CveCompra) Then
                                 '    Retorno = False
@@ -12388,16 +12420,18 @@ Partial Class Compras_Compras
         dr.ItemArray = dr1.ItemArray
 
         dr1("Cantidad") = (dr1("Cantidad").ToString.ToDouble - Cantidad.ToDouble)
-        dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDouble
-        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDouble * dr1("Total").ToString.ToDouble, 6)
+        dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDecimal
+        dr1("Importe") = dr1("Total")
+        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDecimal * dr1("Total").ToString.ToDecimal, 6)
         TmpDT.AcceptChanges()
 
 
         dr("CveActivoFijo") = 0
         dr("CodAF") = ""
-        dr("Cantidad") = Cantidad.ToDouble
-        dr("Total") = dr("PU").ToString.ToDouble * Cantidad.ToDouble
-        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * dr("Total").ToString.ToDouble, 6)
+        dr("Cantidad") = Cantidad.ToDecimal
+        dr("Total") = dr("PU").ToString.ToDecimal * Cantidad.ToDecimal
+        dr("Importe") = dr("Total")
+        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * dr("Total").ToString.ToDecimal, 6)
 
         TmpDT.Rows.InsertAt(dr, Index + 1)
 
@@ -12522,27 +12556,36 @@ Partial Class Compras_Compras
 
 #Region "  AJUSTA IMPORTES  "
     Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
-        'Dim TempSubTotal = TxtSubTotal.Text.ToDouble
+
+        If ImporteAjuste = 0 Then Exit Sub
+
         Dim Amortizacion As Decimal = 0
         If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
             Amortizacion = LblAmortizacion.Text.ToDecimal
         End If
 
         If TmpDT.Rows.Count > 0 Then ' si hay movimientos y si esta afectando al total, que se haga el ajuste
-            'Dim ImporteAjuste As Decimal = Total - (SubTotal2 + IVA - RetencionIVA - RetencionIVA - RetencionISR + IEPS + OtrosImpuestos)
             Dim Indice As Integer = If(TmpDT.Rows(TmpDT.Rows.Count - 1)("CvePS").ToString = UsuarioActual.Empresa.Funcionalidad(112).ToString, TmpDT.Rows.Count - 2, TmpDT.Rows.Count - 1)
             Dim tPU As Decimal
 
-
             If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
                 tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
             Else
                 tPU = 0
             End If
 
-            TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDouble + tPU
-            TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDouble + ImporteAjuste
-            TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDouble() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDouble()).RoundAD(2)
+            If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 Then 'si es negativo, que tome el dato anterior
+                Indice = Indice - 1
+                If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
+                    tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
+                Else
+                    tPU = 0
+                End If
+            End If
+
+            TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU
+            TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste
+            TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDecimal() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDecimal()).RoundAD(2)
             'TmpDT.Rows(Indice)("IVA") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal
             TmpDT.Rows(Indice)("IVA") = (TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal - TmpDT.Rows(Indice)("Descuento").ToString.ToDecimal) * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal
             'Row("IEPSPS") = Math.Round(IEPSPS, DecimalesPermitidos)
@@ -12550,9 +12593,9 @@ Partial Class Compras_Compras
             TmpDT.AcceptChanges()
         End If
 
-        SubTotal = TmpDT.SUM("Total").ToString.ToDecimal
+        SubTotal = TmpDT.SUMD("Total")
         If Not EsCarga Then
-            Descuentos = TmpDT.SUM("Descuento").ToString.ToDecimal
+            Descuentos = TmpDT.SUMD("Descuento")
         End If
         TxtSubTotal.Text = (SubTotal + Descuentos).FormatoNumero()
         TxtSubTotal2.Text = (SubTotal - Amortizacion).FormatoNumero
@@ -12560,15 +12603,6 @@ Partial Class Compras_Compras
         SubTotalConceptos = SubTotal
         GvPS.DataSource = TmpDT : GvPS.DataBind()
 
-        'If TxtOtrosImpuestos.Text.ToDouble > 0 Then TxtOtrosImpuestos.Text = "" : TrOtrosImpuestos.Visible = False
-
-        'EN ESPERA DE ALGUN CASO QUE LO NECESITE - IPP 5 DICIEMBRE 2016
-        'TempSubTotal = TempSubTotal - SubTotal
-        'If TempSubTotal > 0 Then
-        '    TxtTotal.Text = TempSubTotal.ToString.FormatoNumero
-        'End If
-
-        'GVAF.DataSource = TmpDT : GVAF.DataBind()
     End Sub
 
     Protected Sub ImgAjustePorcentaje_Click(sender As Object, e As ImageClickEventArgs) Handles ImgAjustePorcentaje.Click
@@ -12675,10 +12709,10 @@ Partial Class Compras_Compras
             dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlAcreedor.SelectedValue))
 
             If dr IsNot Nothing Then
-                Dim tSaldo As Double = dr("Saldo").ToString.ToDouble
+                Dim tSaldo As Decimal = dr("Saldo").ToString.ToDecimal
                 RVContadoAcreedor.MaximumValue = tSaldo.ToString
                 'si el saldo es mayor de la compra poner el valor de la compra sino el valor del saldo
-                TxtContadoAcreedor.Text = If(tSaldo > TxtTotal.Text.ToDouble, TxtTotal.Text, tSaldo.ToString).FormatoNumero
+                TxtContadoAcreedor.Text = If(tSaldo > TxtTotal.Text.ToDecimal, TxtTotal.Text, tSaldo.ToString).FormatoNumero
 
                 LblDetalle.Visible = True
                 DdlAcreedorDetalle.Visible = True
@@ -19070,7 +19104,7 @@ Partial Class Compras_Compras
         If CveCompra > 0 And GvInvMov.Rows.Count > 0 Then
 
             Dim ObjInventarios As New ClsInventarios
-            If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+            If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
                 DtPendientesAlmacen = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0").Copy
             End If
             ObjInventarios.Dispose()
@@ -19128,7 +19162,7 @@ Partial Class Compras_Compras
 
         If ChkNCInvNC.Checked Then
             Dim ObjInventarios As New ClsInventarios
-            If ObjInventarios.RecepcionAlmacenGet(-1, -1, UsuarioActual.CveEmpresa, CveProveedor) AndAlso ObjInventarios.DtResultados.FiltraParametros($"CantidadF > 0").Rows.Count > 0 Then
+            If ObjInventarios.RecepcionAlmacenGet(-1, -1, CveProveedor, UsuarioActual.CveEmpresa, -1) AndAlso ObjInventarios.DtResultados.FiltraParametros($"CantidadF > 0").Rows.Count > 0 Then
                 DtPendientesAlmacen = ObjInventarios.DtResultados.FiltraParametros($"CantidadF > 0").Copy
             End If
             ObjInventarios.Dispose()
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 554f7e64a..21c7931e4 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -603,22 +603,25 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim Retorno = True
 
         Dim ExistenciaEspecificada As Decimal
+        Dim PendienteporSurtir As Decimal
         Dim CantidadEnGrid As Decimal = DtMovimientos.SUMD("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUnidadMedida} {If(Serie <> "-1", $" AND Serie = '{Serie}'", "")}")
         Dim Existencia As Decimal
 
         Dim Inv As New ClsInventarios
         If Inv.GetExistenciasProducto(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm")) Then
             'si hay existencia en almacen costeado, lo tengo que sacar
-            Existencia = Inv.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CVeAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
+            Existencia = Inv.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
+            PendienteporSurtir = Inv.DtResultados.FiltroPrimeroValor("PendientePorSurtir", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
         End If
         'Existencia= Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), PendientePorSurtir:=1)
 
-        If Existencia > 0 Then
+        If Existencia > Cantidad Then
             'la primera vez valida, que la existencia global, cumpla, considerando lo pendiente por surtir
             'las segunda consulta, que tenga existencia, ya con los parametros especificos
             If (FechaCaducidad > MinFecha OrElse Not Serie.Contiene("", "-1") OrElse Not Lote.Contiene("", "-1")) Then
                 If Inv.GetExistenciasProducto(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
-                    ExistenciaEspecificada = Inv.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CVeAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
+                    'aqui se toma la COLUMNA Existencia, porque ya está validado que hay existencia suficiente para surtir, considerando lo pendiente por surtir, entonces se asume no se tomará la serie/lote
+                    ExistenciaEspecificada = Inv.DtResultados.FiltroPrimeroValor("Existencia", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
                 End If
                 'ExistenciaEspecificada = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, PendientePorSurtir:=-1)
                 Dim StrB As New StringBuilder
diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx
index bbedacc2e..a91e8dc38 100644
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -1359,9 +1359,9 @@
                                                             </div>
                                                             <div class="row">
                                                                 <div class="col-md-6">
-                                                                    <div class="form-group form-md-line-input input-iconright" style=" padding-top: 0px;">
-                                                                        <asp:Label runat="server" AssociatedControlID="DdlFormapagovacaciones" style=" padding-bottom: 0px;margin-bottom: 0px;">Forma de pago</asp:Label><br />
-                                                                        <asp:DropDownList ID="DdlFormapagovacaciones" DataValueField="Cve" style=" margin-top: -4px;" DataTextField="Texto" Width="100%" CssClass="form-control select2me " runat="server">
+                                                                    <div class="form-group form-md-line-input input-iconright" style="padding-top: 0px;">
+                                                                        <asp:Label runat="server" AssociatedControlID="DdlFormapagovacaciones" Style="padding-bottom: 0px; margin-bottom: 0px;">Forma de pago</asp:Label><br />
+                                                                        <asp:DropDownList ID="DdlFormapagovacaciones" DataValueField="Cve" Style="margin-top: -4px;" DataTextField="Texto" Width="100%" CssClass="form-control select2me " runat="server">
                                                                             <asp:ListItem Text="Pagadas por anticipado" Value="1" Selected="True"></asp:ListItem>
                                                                             <asp:ListItem Text="Por pagar" Value="2"></asp:ListItem>
                                                                             <asp:ListItem Text="Trabajadas" Value="3"></asp:ListItem>
@@ -1374,7 +1374,7 @@
                                                                 </div>
                                                                 <div class="col-md-6">
                                                                     <div class="form-group form-md-line-input input-iconright">
-                                                                        <asp:TextBox ID="TxtVacDiasExtra" CssClass="form-control input-sm "  runat="server"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtVacDiasExtra" CssClass="form-control input-sm " runat="server"></asp:TextBox>
                                                                         <asp:Label runat="server" AssociatedControlID="TxtVacDiasExtra">Días extras</asp:Label>
                                                                     </div>
                                                                 </div>
@@ -1382,27 +1382,28 @@
                                                             <div class="row">
                                                                 <div class="col-md-6">
                                                                     <div class="form-group form-md-line-input input-iconright">
-                                                                        <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021"  runat="server"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021" runat="server"></asp:TextBox>
                                                                         <asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label>
                                                                     </div>
                                                                 </div>
                                                             </div>
                                                             <div class="row">
                                                                 <div class="col-md-6">
-                                                                    
+
                                                                     <div style="padding-top: 0px; padding-bottom: 0px;">
                                                                         ¿Prima Vacacional? 
                                                                     </div>
                                                                     <asp:CheckBox ID="ChkVacPrimaVacacional" CssClass="chksino " Text=" " runat="server" />
                                                                 </div>
                                                                 <div class="col-md-6">
-                                                                <div class="col-md-6">
-                                                                    
-                                                                    <div style="padding-top: 0px; padding-bottom: 0px;">
-                                                                        ¿Cobrar IMSS? 
+                                                                    <div class="col-md-6">
+
+                                                                        <div style="padding-top: 0px; padding-bottom: 0px;">
+                                                                            ¿Cobrar IMSS? 
+                                                                        </div>
+                                                                        <asp:CheckBox ID="ChkVacCobrarIMSS" CssClass="chksino " Text=" " runat="server" />
                                                                     </div>
-                                                                    <asp:CheckBox ID="ChkVacCobrarIMSS" CssClass="chksino " Text=" " runat="server" />
-                                                                </div></div>
+                                                                </div>
                                                             </div>
                                                             <div class="text-right">
                                                                 <asp:LinkButton ID="LnkSRVacacionesUP" OnClick="LnkSRVacacionesUP_Click" Visible="false" CssClass="btn btn-success" ValidationGroup="VG_Vacaciones" runat="server">Actualizar</asp:LinkButton>
@@ -1687,20 +1688,45 @@
                                 <asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox CssClass="form-control" ID="TxtmcImporte" runat="server" MaxLength="10"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="TxtmcImporte" Enabled="false" Text="Importe"></asp:Label>
-                            <i></i>
+                        <div class="row">
+                            <div class="col-md-9"></div>
+                            <div class="col-md-3">Calcular automatico</div>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox CssClass="form-control" ID="TxtmcImporteGrabado" runat="server" MaxLength="10"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="TxtmcImporteGrabado" Enabled="false" Text="Gravado"></asp:Label>
-                            <i></i>
+                        <div class="row">
+                            <div class="col-md-9">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox CssClass="form-control" ID="Txtmcvalor" runat="server" MaxLength="10"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="Txtmcvalor" Enabled="false" Text="Valor"></asp:Label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-3 text-center">
+                                <asp:CheckBox ID="ChkCalAutomaticoV" OnCheckedChanged="ChkCalAutomaticoV_CheckedChanged"  AutoPostBack="true"  runat="server" />
+                            </div>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox CssClass="form-control" ID="Txtmcvalor" runat="server" MaxLength="10"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="Txtmcvalor" Enabled="false" Text="Valor"></asp:Label>
-                            <i></i>
+                        <div class="row">
+                            <div class="col-md-9">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox CssClass="form-control" ID="TxtmcImporte" runat="server" MaxLength="10"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtmcImporte" Enabled="false" Text="Importe"></asp:Label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-3 text-center">
+                                <asp:CheckBox ID="ChkCalAutomatico"  OnCheckedChanged="ChkCalAutomatico_CheckedChanged"  AutoPostBack="true"   runat="server" />
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-9">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox CssClass="form-control" ID="TxtmcImporteGrabado" runat="server" MaxLength="10"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtmcImporteGrabado" Enabled="false" Text="Gravado"></asp:Label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-3 text-center">
+                                <asp:CheckBox ID="ChkCalAutomaticoG"  OnCheckedChanged="ChkCalAutomaticoG_CheckedChanged" AutoPostBack="true" runat="server" />
+                            </div>
                         </div>
                     </div>
                     <div class="modal-footer">
@@ -2257,17 +2283,16 @@
                                     </asp:DropDownList>
                                     <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCM">Tipo Periodo:</asp:Label>
                                 </div>
-                                
+
                                 <div class="row">
                                     <div class="col-sm-3 bold">Salario Diario</div>
                                     <div class="col-sm-3">
                                         <asp:Label ID="LblSalarioDiarioSimula" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-sm-3 bold"> </div>
+                                    <div class="col-sm-3 bold"></div>
                                     <div class="col-sm-3">
-                                         
                                     </div>
-                                </div> 
+                                </div>
                                 <%--<table class="table table-striped table-hover Widthall GvConceptossimulador">
 
                                             </table>--%>
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 5f0143d8c..14750421c 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -1823,11 +1823,33 @@ public partial class Nomina_Nomina2 : ClsPaginas
         TxtmcImporte.Text = "";
         TxtmcImporteGrabado.Text = "";
         Txtmcvalor.Text = "";
+        ChkCalAutomaticoG.Checked  = false;
+        ChkCalAutomatico.Checked = false;
+        ChkCalAutomaticoV.Checked = false;
         if (CveConcepto > 0)
         {
             DataRow drow = dtempleadosConceptos.FiltroPrimero(string.Format("CveConcepto={0} AND CvePersonal ={1}", CveConcepto, CvePersonal));
             if (drow != null)
             {
+                int TipoCalculo = drow["Estatus"].ToString().ToEntero();
+                ChkCalAutomaticoG.Checked = true;
+                ChkCalAutomatico.Checked = true;
+                ChkCalAutomaticoV.Checked = true;
+                if (TipoCalculo >= 5)
+                {
+                    TipoCalculo -= 5;
+                    ChkCalAutomaticoG.Checked = false;
+                }
+                if (TipoCalculo >= 3)
+                {
+                    TipoCalculo -= 3;
+                    ChkCalAutomatico.Checked = false;
+                }
+                if (TipoCalculo >= 1)
+                {
+                    ChkCalAutomaticoV.Checked = false;
+
+                }
                 TxtmcImporte.Text = string.Format("{0:N2}", drow["Importe"]);
                 TxtmcImporteGrabado.Text = string.Format("{0:N2}", drow["ImporteGravado"]);
                 Txtmcvalor.Text = string.Format("{0:N2}", drow["Valor"]);
@@ -1841,12 +1863,30 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
         }
         UPpanelModalUpConcepto.Update();
+        ChkCalAutomaticoV_CheckedChanged(ChkCalAutomaticoV, null);
+        ChkCalAutomatico_CheckedChanged(ChkCalAutomatico, null);
+        ChkCalAutomaticoG_CheckedChanged(ChkCalAutomaticoG, null);
+    }
+    protected void ChkCalAutomaticoV_CheckedChanged(object sender, EventArgs e)
+    {
+
+        Txtmcvalor.Enabled = !ChkCalAutomaticoV.Checked;
+    }
+    protected void ChkCalAutomatico_CheckedChanged(object sender, EventArgs e)
+    {
+
+        TxtmcImporte.Enabled = !ChkCalAutomatico.Checked;
+    }
+    protected void ChkCalAutomaticoG_CheckedChanged(object sender, EventArgs e)
+    {
+        TxtmcImporteGrabado.Enabled = !ChkCalAutomaticoG.Checked;
+
     }
     protected void BtnAceptarMC_Click(object sender, EventArgs e)
     {
-        int chkImporte = 1;
-        int chkImporteGravado = 1;
-        int chkImporteValor = 1;
+        int chkImporte = ChkCalAutomatico.Checked? 0:1;
+        int chkImporteGravado = ChkCalAutomaticoG.Checked ? 0 : 1;
+        int chkImporteValor = ChkCalAutomaticoV.Checked ? 0 : 1;
         bool continuar = true;
         int CveNomina = 0;
         double Total = 0;
@@ -1858,12 +1898,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
             CvePersonal = DdlmcPersonal.SelectedValue.ToEntero();
         }
         int CveConcepto = DdlmcConceptos.SelectedValue.ToEntero();
-        if (CveConcepto > 0 && CvePersonal > 0)
-        {
             decimal ImporteConcepto = TxtmcImporte.Text.Replace("$", "").Replace(",", "").ToDecimal();
-            decimal ImporteGravadoConcepto = TxtmcImporteGrabado.Text.Replace("$", "").Replace(",", "").ToDecimal();
+            decimal ImporteGravadoConcepto = ChkCalAutomaticoG.Checked ?  0.0m : TxtmcImporteGrabado.Text.Replace("$", "").Replace(",", "").ToDecimal();
             decimal ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto;
             decimal ImporteValor = Txtmcvalor.Text.Replace("$", "").Replace(",", "").ToDecimal();
+        if ((ImporteConcepto>= 0 && ImporteGravadoConcepto<= ImporteConcepto)|| (ImporteConcepto < 0 && ImporteGravadoConcepto >= ImporteConcepto))
+        {
+
+        if (CveConcepto > 0 && CvePersonal > 0)
+        {
             using (ClsNominas objNomina = new ClsNominas())
             {
 
@@ -1933,6 +1976,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 Alert("Debe seleccionar un concepto.", TipoMensaje.MsgAdvertencia);
             }
+            }
+        }
+        else
+        {
+            Alert("el importe gravado no puede ser mayor al importe total, en caso de que el importe total sea negativo no puede ser menor.",TipoMensaje.MsgAdvertencia );
         }
 
     }
@@ -5728,7 +5776,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
             VacFolioActual = VacFolioActual + 1;
             ClsRH objRH = new ClsRH();
             // Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
-            bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero());//
+            bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, 
+                diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero()); 
             if (objRH.DtResultados.Rows.Count > 0)
             {
                 string ShowError = objRH.DtResultados.Rows[0]["ShowError"].ToString();
@@ -6733,4 +6782,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
         LnkSRVacacionesADD.Visible = true;
     }
 
+
 }
diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx
index 3f6a9d946..656147974 100644
--- a/RH/CatPersonal.aspx
+++ b/RH/CatPersonal.aspx
@@ -939,7 +939,16 @@
                                                     <asp:CompareValidator ID="CVFechaIngreso" runat="server" ControlToValidate="TxtFechaIngreso" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaIngreso''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarAddS"></asp:CompareValidator>
                                                 </div>
                                             </div>
-                                            <div class="col-md-3" style="display: none;">
+                                            <div class="col-md-3">
+
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" runat="server" MaxLength="10"></asp:TextBox>
+                                                    <asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled="false" Text="Salario Diario (SDD):"></asp:Label>
+                                                    <%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                    <i></i>
+                                                </div>
+                                            </div>
+                                            <div class="col-md-5" style="display: none;">
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox CssClass="form-control" ID="TxtCodigo" runat="server" MaxLength="12" Text="-1"></asp:TextBox>
                                                     <asp:Label AssociatedControlID="TxtCodigo" runat="server" Text="Código:"></asp:Label>
@@ -1098,7 +1107,7 @@
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkGuardar" OnClick="LnkGuardar_Click" CssClass="btn btn-primary" ValidationGroup="GrpGuardarAddS" runat="server">Agregar</asp:LinkButton>
                         <asp:Button ID="ClickOnHideModal" ClientIDMode="Static" OnClick="ClickOnHideModal_Click" CssClass="hidden" runat="server" Text="Button" />
-                        
+
                         <button type="button" class="btn btn-default" data-dismiss="modal">Terminar</button>
                     </div>
                 </div>
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index 302083385..c93504f22 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -1121,13 +1121,14 @@ Partial Class RH_CatPersonal
         Dim isSindicalizado As Boolean = (DDlSindicalizado.SelectedValue = "1")
         Dim CvePuesto As Integer = DdlPuestoAdd.SelectedValue.ToEntero()
         Dim CveSATRiesgoPuesto As Integer = DdlRiesgoPuesto.SelectedValue.ToEntero()
+        Dim SalarioDiario As Decimal = TxtSalarioDiario.Text.ToDecimal()
         Dim continuar As Boolean = False
         Dim CvePersonal As Integer = 0
         Using ObjPersonal As New ClsRH()
 
             If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
-                   DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, 0,
-                   0, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
+                   DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, True, SalarioDiario,
+                   SalarioDiario, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
                    DdlTipoContratoAdd.SelectedValue.ToEntero, "",
                    DdlTurno.SelectedValue.ToEntero, CvePuesto,
                    DdlDepartamentoAdd.SelectedValue.ToEntero,
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 76908b21e..f4d11b79a 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -645,22 +645,22 @@
                                                 </div>
                                                 <div class="portlet-body form">
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList Width="100%" ID="DdlEstatusPersonal" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="EstatusPersonal" DataValueField="CveEstatusPersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                        <asp:DropDownList Width="100%" ID="DdlEstatusPersonal" Enabled="false" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="EstatusPersonal" DataValueField="CveEstatusPersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <label for="<%= DdlEstatusPersonal.ClientID.ToString()%>">Estatus:  </label>
                                                         <asp:RequiredFieldValidator ID="RFVEstatusPersonal" runat="server" ControlToValidate="DdlEstatusPersonal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''EstatusPersonal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
                                                     </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
+<%--                                                    <div class="form-group form-md-line-input input-iconright">
                                                         <asp:DropDownList Width="100%" ID="DdlMotivoBaja" runat="server" AppendDataBoundItems="True" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin asignar Motivo de Baja" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <label for="<%= DdlMotivoBaja.ClientID.ToString()%>">Motivo de Baja:  </label>
                                                         <i></i>
-                                                    </div>
+                                                    </div>--%>
 
-                                                    <div runat="server" id="DivFechaActivo" visible="true" class="form-group form-md-line-input input-iconright">
+<%--                                                    <div runat="server" id="DivFechaActivo" visible="true" class="form-group form-md-line-input input-iconright">
 
                                                         <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        padding: 5px 0px;">
                                                             <asp:TextBox ID="TxtFechaActivo" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
@@ -677,9 +677,9 @@
 
                                                         <i></i>
 
-                                                    </div>
+                                                    </div>--%>
 
-                                                    <div runat="server" id="DivFechaBaja" visible="true" class="form-group form-md-line-input input-iconright">
+<%--                                                    <div runat="server" id="DivFechaBaja" visible="true" class="form-group form-md-line-input input-iconright">
 
                                                         <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        padding: 5px 0px;">
                                                             <asp:TextBox ID="TxtFechaBaja" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
@@ -696,9 +696,9 @@
                                                         <asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> es necesario " ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
 
-                                                    </div>
+                                                    </div>--%>
 
-                                                    <div runat="server" id="DivFechaReingreso" visible="true" class="form-group form-md-line-input input-iconright">
+<%--                                                    <div runat="server" id="DivFechaReingreso" visible="true" class="form-group form-md-line-input input-iconright">
 
                                                         <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        padding: 5px 0px;">
                                                             <asp:TextBox ID="TxtFechaReingreso" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
@@ -715,7 +715,7 @@
                                                         <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFechaReingreso" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Reingreso''</b> es necesario " ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
 
-                                                    </div>
+                                                    </div>--%>
 
 
                                                     <div>
@@ -4813,7 +4813,7 @@
                             <div style="        width: 200px;
         display: inline-block;">
                                 <div class="form-group form-md-line-input">
-                                    <asp:TextBox ID="TxtFechamodSalario" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFechamodSalario" CssClass="form-control" runat="server"></asp:TextBox>
                                     <asp:Label runat="server" AssociatedControlID="TxtFechamodSalario">Fecha:</asp:Label>
                                     <ajax:MaskedEditExtender ID="MEEFechaModSalario" runat="server" TargetControlID="TxtFechamodSalario" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender runat="server" ID="CEEFechaModSalario" TargetControlID="TxtFechamodSalario" PopupButtonID="LnkFechaModSalario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index b7914cc5b..7c3ca2caf 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1075,8 +1075,8 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaMotivoBaja()
-        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlMotivoBaja.DataBind()
+        'DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        'DdlMotivoBaja.DataBind()
     End Sub
 
     Private Sub CargaEstatusPersonal()
@@ -1524,14 +1524,13 @@ Partial Class RH_Personal
 
                 DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString()
                 DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString()
-                DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
+                'DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
 
-                TxtFechaBaja.Text = If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)
 
-                If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
-                    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
-                    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
-                End If
+                'If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+                '    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
+                '    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
+                'End If
 
                 DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString()
 
@@ -1713,19 +1712,18 @@ Partial Class RH_Personal
         Dim Mensaje = ""
         Dim Accion = ""
 
-        Dim FechaBaja As Date = MinFecha
-        Dim FechaActivo As Date = MinFecha
-        Dim FechaReingreso As Date = MinFecha
+        'Dim FechaBaja As Date = MinFecha
+        'Dim FechaActivo As Date = MinFecha
+        'Dim FechaReingreso As Date = MinFecha
 
-        If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
-            If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
-                FechaActivo = TxtFechaActivo.Text.ToDate
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
-                FechaBaja = TxtFechaBaja.Text.ToDate
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
-                FechaReingreso = TxtFechaReingreso.Text.ToDate
-            End If
-        End If
+        'If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
+        '    If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
+        '        FechaActivo = TxtFechaActivo.Text.ToDate
+        '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
+        '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
+        '        FechaReingreso = TxtFechaReingreso.Text.ToDate
+        '    End If
+        'End If
 
         If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
             TxtSalarioCotizado.Text = TxtSDI.Text
@@ -1745,7 +1743,7 @@ Partial Class RH_Personal
                DdlEscolaridad.SelectedValue.ToEntero,
                DdlEstadoCivil.SelectedValue.ToEntero,
                DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               -1, "-1",
                DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
@@ -1816,7 +1814,7 @@ Partial Class RH_Personal
                DdlEscolaridad.SelectedValue.ToEntero,
                DdlEstadoCivil.SelectedValue.ToEntero,
                DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               -1, "-1",
                DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
@@ -1826,7 +1824,7 @@ Partial Class RH_Personal
                URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
-               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), CvePais:=DdlPais.SelectedValue.ToEntero) Then
+               CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), CvePais:=DdlPais.SelectedValue.ToEntero) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -2652,16 +2650,18 @@ Partial Class RH_Personal
 
     Private Sub MostrarOcultarFechasEstatus()
 
+        'DivFechaReingreso.Visible = False
+        'DivFechaActivo.Visible = False
 
-        If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
-            DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
-            DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
-            DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
-        Else
-            DivFechaActivo.Visible = False
-            DivFechaBaja.Visible = False
-            DivFechaReingreso.Visible = False
-        End If
+        'If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
+        '    DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
+        '    'DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
+        '    'DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
+        'Else
+        '    DivFechaActivo.Visible = False
+        '    'DivFechaBaja.Visible = False
+        '    DivFechaReingreso.Visible = False
+        'End If
 
     End Sub
 
@@ -3396,7 +3396,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", ""))
                 params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                 params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                 params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
@@ -3490,7 +3490,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", ""))
                 params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                 params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                 params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5dadb0640..ef0190b68 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8244,7 +8244,7 @@ Partial Class Ventas
                             If (TieneAnticipo AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2") OrElse (ListaNCDesc IsNot Nothing AndAlso ListaNCDesc.Count > 0) Then
                                 CreaObjetosVentaAmortizacion(ObjVentas, FolioFiscalRelacionado, CveVentaRelacionada, NCDescuento:=NCDescuento)
                                 If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, ObjFacturaDevolucion, ObjBancos, Nothing,
-                                                               Nothing, NCDescuento:=NCDescuento, ListaNCDescuento:=ListaNCDesc, IndexNC:=(DtVentasNC.Rows.Count - 1)) Then
+                                                               Nothing, NCDescuento:=NCDescuento, ListaNCDescuento:=ListaNCDesc, IndexNC:=(If(DtVentasNC IsNot Nothing, DtVentasNC.Rows.Count - 1, 0))) Then
                                     Obj2.Add(ObjFacturaDevolucion)
                                 End If
                             End If
diff --git a/vwd.webinfo b/vwd.webinfo
index dd3b12836..cdafc5010 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -290,6 +290,12 @@
     
   
     
+  
+    
+  
+    
+  
+