diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index bf6801a61..1621c3921 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1090,12 +1090,13 @@ Public Class ClsContabilidad
         Return Concepto
     End Function
 
-    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, Optional CveIE As Integer = -1) As Boolean
+    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_PrePolizasDetalleGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 6845d6528..005766e1f 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -813,10 +813,15 @@ Public Class Timbrado
         'validación especial. 
         If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
 
-            Dim CodigoIncorrecto As Integer = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101")
-                                               Select c.ClaveProdServ).Count()
-            If CodigoIncorrecto > 0 Then
-                MensajeErrorCFDI = "SAT - Hay un concepto con Codigo no permitido."
+            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101")
+                                    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/>")
+            For Each dr In CodigoIncorrecto
+                Str.AppendFormat(" - {0} <br/>", dr.Descripcion)
+            Next
+            If CodigoIncorrecto.Count > 0 Then
+                MensajeErrorCFDI = Str.ToString
                 Return False
             End If
 
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 4042bfc7b..cd2a48d00 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -625,9 +625,12 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim ObjConta As New ClsContabilidad
         If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
             DdlCuentaContableE.DataSource = ObjConta.DtResultados
+            DdlCuentaContable.DataSource = ObjConta.DtResultados
             DtCuentasContables = ObjConta.DtResultados
         End If
-        ObjConta.Dispose()
+        ObjConta.Dispose()
+        DdlCuentaContable.DataBind()
+        DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
         DdlCuentaContableE.DataBind()
         DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
     End Sub
@@ -2225,7 +2228,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
         'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
-        If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+        If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
             Dim dtVC As DataTable
             Dim dr As DataRow
             dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx
index 8e0b6c729..ad6288165 100644
--- a/Contabilidad2/CatCuentas.aspx
+++ b/Contabilidad2/CatCuentas.aspx
@@ -225,6 +225,15 @@
                             <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
                         </div>
                     </asp:Panel>
+                     <asp:Panel runat="server" ID="pnlOpcion8" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Personal"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="100%">
+                                <asp:ListItem Selected="True" Text="Seleccione el personal (Todas)" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </asp:Panel>
 
 
                     <br />
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index d4a8d1ef1..d36ba565b 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -278,6 +278,7 @@ Partial Class Contabilidad2_CatCuentas
                     CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero()
                     DdlAlmacen.SelectedValue = -1
                     DdlAlmacen.SelectedValueExist(CveAlmacen)
+                    DdlPersonal.SelectedValueExist(rowcc("CvePersonal").ToString().ToEntero())
                 End If
 
             End Using
@@ -686,6 +687,10 @@ Partial Class Contabilidad2_CatCuentas
 
                 Case 6
                     pnlOpcion6.Visible = True
+                Case 8
+                    pnlOpcion8.Visible = True
+                    DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+                    DdlPersonal.DataBind()
 
             End Select
         End If
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 2a458ea07..634350948 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4095,7 +4095,8 @@ Partial Class Inventarios_EntradasSalidas
         Dim ImporteConcepto As Decimal = 0
         Dim tConcepto As String = TxtIFDescripcion.Text.Trim
         Dim Fecha = TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd").ToDate
-        Dim tCveSubProyecto As Integer = -1
+        Dim tCveSubProyectoEntrada As Integer = -1
+        Dim tCveSubProyectoSalida As Integer = -1
         Dim TipoMovto As Boolean = False
         Dim idCtaContableEntrada As Integer = 0
         Dim idCtaContableSalida As Integer = 0
@@ -4179,7 +4180,7 @@ Partial Class Inventarios_EntradasSalidas
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then
                     idCtaContableEntrada = drA2("IdCtaContable").ToString.ToEntero
-                    tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+                    tCveSubProyectoEntrada = drA2("CveSubProyecto").ToString.ToEntero
                 End If
             Else
                 ErrorMovInv = True
@@ -4195,7 +4196,7 @@ Partial Class Inventarios_EntradasSalidas
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then
                     idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
-                    tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+                    tCveSubProyectoSalida = drA2("CveSubProyecto").ToString.ToEntero
                 End If
             Else
                 ErrorMovInv = True
@@ -4214,7 +4215,7 @@ Partial Class Inventarios_EntradasSalidas
                 If ValorEntrada <= ValorSalida Then
                     TipoMovto = True : ValorEntrada = -ValorEntrada ' invierto su naturaleza
                 End If
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, "", 68, tConcepto, Fecha, idCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorEntrada, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, "", 68, tConcepto, Fecha, idCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorEntrada, CveSubProyecto:=tCveSubProyectoEntrada, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de entrada"
                 End If
@@ -4226,14 +4227,14 @@ Partial Class Inventarios_EntradasSalidas
                 If ValorSalida < ValorEntrada Then
                     TipoMovto = False : ValorSalida = -ValorSalida ' invierto su naturaleza
                 End If
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, "", 68, tConcepto, Fecha, idCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, "", 68, tConcepto, Fecha, idCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorSalida, CveSubProyecto:=tCveSubProyectoSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de salida"
                 End If
             End If
 
             If ValorEntrada >= ValorSalida Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyecto, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"
                 End If
@@ -4253,7 +4254,7 @@ Partial Class Inventarios_EntradasSalidas
                         tIdCtaGasto = 1321
                 End Select
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 51, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyecto, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 51, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
                 End If