diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index f6dae6e0f..87a10b5f0 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -111,18 +111,22 @@ Partial Class Compras_RepComprasAF
 
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
             DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal"
+            'LblSubProyecto.Text = "Sucursal"
             LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            ' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+            'DdlSubProyecto.DataBind()
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
             DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto"
+            'LblSubProyecto.Text = "Proyecto"
             LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.DataBind()
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then
             LblProyecto.Text = "Proyecto"
 
@@ -149,10 +153,14 @@ Partial Class Compras_RepComprasAF
     End Sub
 
     Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        'DdlSubProyecto.Items.Clear()
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index fd65f6a70..b3b037570 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -174,6 +174,11 @@ Partial Class Compras_RepComprasAFDetalle
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedores.DataBind()
 
+        If Request.QueryString("CveProveedor") IsNot Nothing AndAlso Request.QueryString("CveProveedor").ToEntero = -3 Then
+            DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
+        End If
+
+
         DdlMonedas.DataSource = GlobalDTMonedas()
         DdlMonedas.DataBind()
 
@@ -325,11 +330,18 @@ Partial Class Compras_RepComprasAFDetalle
             FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
 
 
-            Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
+            Dim Liga As String = ""
+
+
+            If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
+                Liga = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
+            Else
+                Liga = $"/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}"
+            End If
 
 
             If e.Row.DBCampo("Orden") = "1" Then
-                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
+                e.Row.Cells(0).Text = String.Format("<a Class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
             Else
                 e.Row.BackColor = Drawing.Color.LightGray
                 e.Row.Font.Bold = True
diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb
index b3d4480b2..027cc1a66 100644
--- a/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -202,7 +202,23 @@ Partial Class Compras_RepProductosServicios
         DdlGrupo.SelectedValueExist("8")
     End Sub
     Private Sub CargaTipoCentroCosto()
+
+
+
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Centro de costo"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
             DdlSubProyecto.Items.Clear()
             DivProyecto.Visible = False
             LblProyecto.Visible = False
@@ -215,30 +231,18 @@ Partial Class Compras_RepProductosServicios
             DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
             DdlGrupo.DataBind()
 
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.DataBind()
-
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
             DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
             DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
             DdlGrupo.DataBind()
+            LblSubProyecto.InnerText = "Proyecto"
 
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
+            LblProyecto.InnerText = "Proyecto<br/>:"
+            LblSubProyecto.InnerText = "Subproyecto:"
 
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
             DdlGrupo.DataBind()
 
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb
index 953b668dc..c71fb4c3c 100644
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -310,6 +310,19 @@ Partial Class Compras_RepProductosServiciosDetalle
     End Sub
     Private Sub CargaTipoCentroCosto()
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Centro de costo"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
             DdlSubProyecto.Items.Clear()
             DivProyecto.Visible = False
             LblProyecto.Visible = False
@@ -322,30 +335,18 @@ Partial Class Compras_RepProductosServiciosDetalle
             DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
             DdlGrupo.DataBind()
 
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.DataBind()
-
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
             DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
             DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
             DdlGrupo.DataBind()
+            LblSubProyecto.InnerText = "Proyecto"
 
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
+            LblProyecto.InnerText = "Proyecto<br/>:"
+            LblSubProyecto.InnerText = "Subproyecto:"
 
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
             DdlGrupo.DataBind()
 
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
@@ -356,6 +357,53 @@ Partial Class Compras_RepProductosServiciosDetalle
             DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
             DdlGrupo.DataBind()
         End If
+        'If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+        '    DdlSubProyecto.Items.Clear()
+        '    DivProyecto.Visible = False
+        '    LblProyecto.Visible = False
+        '    LblSubProyecto.InnerText = "Sucursal:"
+
+        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        '    'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        '    DdlSubProyecto.DataBind()
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+        '    DdlSubProyecto.Items.Clear()
+        '    DivProyecto.Visible = False
+        '    LblProyecto.Visible = False
+        '    LblSubProyecto.InnerText = "Proyecto:"
+
+        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        '    'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        '    DdlSubProyecto.DataBind()
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
+        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        '    DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+        '    LblProyecto.InnerText = "Sucursal:"
+        '    LblSubProyecto.InnerText = "Proyecto:"
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
+        '    DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+        '    LblProyecto.InnerText = "Proyecto:"
+        '    LblSubProyecto.InnerText = "Sucursal:"
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        '    DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
+        '    DdlGrupo.DataBind()
+        'End If
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
diff --git a/Empresas/Grales/Formatos/RepAnomalias.rdlc b/Empresas/Grales/Formatos/RepAnomalias.rdlc
index 18903cbbc..498e70793 100644
--- a/Empresas/Grales/Formatos/RepAnomalias.rdlc
+++ b/Empresas/Grales/Formatos/RepAnomalias.rdlc
@@ -49,7 +49,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Productos que faltan</Value>
+                              <Value>                     Productos que sobran </Value>
                               <Style>
                                 <FontWeight>Bold</FontWeight>
                               </Style>
@@ -291,7 +291,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>SerieLote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -678,7 +678,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                                 <Format>dd/MM/yyyy</Format>
@@ -1349,7 +1349,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>               Productos que sobran</Value>
+                              <Value>                                     Productos que faltan</Value>
                               <Style>
                                 <FontWeight>Bold</FontWeight>
                               </Style>
@@ -1622,7 +1622,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>SerieLote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -2008,7 +2008,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                                 <Format>dd/MM/yyyy</Format>
@@ -2032,6 +2032,7 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -3033,8 +3034,8 @@
         <Value>=Parameters!LogoPath.Value</Value>
         <Sizing>FitProportional</Sizing>
         <Left>0.12943cm</Left>
-        <Height>2.25453cm</Height>
-        <Width>4.18606cm</Width>
+        <Height>2.25804cm</Height>
+        <Width>3.29186cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -3048,28 +3049,23 @@
         <Paragraphs>
           <Paragraph>
             <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve">                     </Value>
-                <Style>
-                  <FontSize>14pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>=Parameters!NombreEmpresa.Value</Value>
                 <Style>
-                  <FontSize>14pt</FontSize>
+                  <FontSize>12pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
             </TextRuns>
-            <Style />
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Left>4.49188cm</Left>
+        <Left>3.53938cm</Left>
         <Height>0.6cm</Height>
-        <Width>13.51378cm</Width>
+        <Width>17.07793cm</Width>
         <ZIndex>5</ZIndex>
         <Style>
           <Border>
@@ -3090,7 +3086,7 @@
               <TextRun>
                 <Value>REPORTE DE INVENTARIO FISICO</Value>
                 <Style>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>9.5pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -3104,7 +3100,7 @@
               <TextRun>
                 <Value />
                 <Style>
-                  <FontSize>9pt</FontSize>
+                  <FontSize>9.5pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -3116,9 +3112,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>0.90456cm</Top>
-        <Left>4.55144cm</Left>
+        <Left>3.59894cm</Left>
         <Height>0.66174cm</Height>
-        <Width>11.39711cm</Width>
+        <Width>17.01837cm</Width>
         <ZIndex>6</ZIndex>
         <Style>
           <Border>
@@ -3392,6 +3388,10 @@
         <Field Name="SerieLote">
           <DataField>SerieLote</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+         <Field Name="Serie">
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
         </Field>
         <Field Name="CantidadAlmacen">
           <DataField>CantidadAlmacen</DataField>
@@ -3441,6 +3441,10 @@
           <DataField>SerieLote</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Serie">
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="CantidadAlmacen">
           <DataField>CantidadAlmacen</DataField>
           <rd:TypeName>System.Double</rd:TypeName>
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 35fba87eb..1dcd603e0 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -331,12 +331,22 @@
                                         </div>
                                         <div class="row" runat="server" id="TrSubProyectoActivoFijo" visible="false">
                                             <asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label>
-                                            <div class="col-md-2">
-                                                <asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 250px"></asp:DropDownList>
+                                            <div class="col-md-5">
+                                                <asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 100%"></asp:DropDownList>
                                                 <asp:RangeValidator ID="RVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" MinimumValue="0" MaximumValue="9999999" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RVSubProyecto" Width="350px"></ajax:ValidatorCalloutExtender>
                                             </div>
                                         </div>
+                                        <div class="row" runat="server" id="TrActivoFijo" visible="false">
+
+                                            <asp:Label runat="server" ID="Label1" class="col-md-1 truncate">Activo Fijo:</asp:Label>
+                                            <div class="col-md-5">
+                                                <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="95%">
+                                                    <asp:ListItem Selected="True" Text="Seleccione Uno" Value="-1"></asp:ListItem>
+                                                </asp:DropDownList>
+                                            </div>
+
+                                        </div>
                                         <div class="row" runat="server" id="DivRemision" visible="false">
                                             <label class="col-md-1 truncate" style="width: 110px">Remision:</label>
                                             <div class="col-md-2">
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 66740809c..fd2500754 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1508,6 +1508,11 @@ Partial Class Inventarios_EntradasSalidas
                     ActivoFijo = -2
                 End If
 
+                'Esto es parte de consumo interno
+                If DdlActivoFijo.SelectedValue.ToEntero > 0 Then
+                    ActivoFijo = DdlActivoFijo.SelectedValue.ToEntero
+                End If
+
                 'ACTUALIZAR
                 If CveMovimiento > 0 Then
                     Dim Mensaje As String = ""
@@ -3353,15 +3358,22 @@ Partial Class Inventarios_EntradasSalidas
 
             DVCultivosCuadro.Visible = True
             CargaCultivos()
-
         End If
 
+
+        TrActivoFijo.Visible = True
+        DdlActivoFijo.Items.Clear()
+        DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEstadoActivoFijo IN(1,3,4,9) ")
+        DdlActivoFijo.DataBind()
+        DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        DdlActivoFijo.SelectedValueExist(-1)
+
     End Sub
 
 
     Private Sub CargaCultivos()
         DdlModalCultivosCuadro.Items.Clear()
-        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus = 1 ")
         DdlModalCultivosCuadro.DataBind()
         DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 5a2fa61f2..f45738156 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -459,10 +459,10 @@ Partial Class Inventarios_RepAnomalias
             params.Add(New ReportParameter("FechaInicio", Inventario.FechaI))
             params.Add(New ReportParameter("FechaFin", Inventario.FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index e2aacd275..58495dce2 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -8147,7 +8147,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 if (objnom.GetDispersionNominaBanorte(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa))
                 {
-                    CrearLayoutNominaBanorte(objnom.DtResultados, "66564");
+                    CrearLayoutNominaBanorte(objnom.DtResultados, "66564",1);
                 }
             }
 
@@ -8270,475 +8270,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             Alert(SbErrores.ToString(), TipoMensaje.MsgAdvertencia);
     }
 
-
-
-    //private void CrearLayoutAltaBanorte(DataTable DTNomina, string Promotor, string NIE, string RazonSocial)
-    //{
-    //    StringBuilder sb = new StringBuilder();
-    //    StringBuilder SbErrores = new StringBuilder();
-
-    //    char Cero = '0';
-    //    char Espacio = ' ';
-
-    //    bool ErrorProceso = false;
-
-
-
-    //    Promotor = Promotor.Trim();
-    //    NIE = NIE.Trim();
-    //    RazonSocial = RazonSocial.Trim();
-
-    //    //SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout");
-
-
-
-    //    if (DTNomina.Rows.Count > 0)
-    //    {
-
-    //        //Tip oRegistro  1 1-1
-    //        //Clave servicio 2 2-3
-    //        sb.Append($"HNE");
-
-
-    //        //Promotor 8 4-11
-    //        if (Promotor.Length > 0 && Promotor.Length <= 8)
-    //        {
-    //            sb.Append(Promotor.PadLeft(8, Cero));
-    //        }
-    //        else
-    //        {
-    //            SbErrores.AppendLine($"Promotor {Promotor} debe de tener una logitud de entre 1 y 8<br/>");
-    //            ErrorProceso = true;
-    //        }
-
-    //        //NIE 5 12-26
-    //        if (ErrorProceso == false && NIE.Length > 0 && NIE.Length <= 5)
-    //        {
-    //            sb.Append(NIE.PadLeft(5, Espacio));
-    //        }
-    //        else
-    //        {
-    //            SbErrores.AppendLine($"NIE {NIE} debe de tener una logitud de entre 1 y 8<br/>");
-    //            ErrorProceso = true;
-    //        }
-
-
-    //        //Nombre de Empresa ó Razón Social 40 17-56
-    //        if (ErrorProceso == false && RazonSocial.Length > 0 && RazonSocial.Length <= 40)
-    //        {
-    //            sb.Append(RazonSocial.PadLeft(40, Espacio));
-    //        }
-    //        else
-    //        {
-    //            SbErrores.AppendLine($"RazonSocial {RazonSocial} debe de tener una logitud de entre 1 y 40<br/>");
-    //            ErrorProceso = true;
-    //        }
-
-    //        //57-58consecutivo 1 
-    //        sb.Append("1");
-
-
-    //        //Número de registros N 6 59-64 
-    //        sb.Append(DTNomina.Rows.ToString().PadRight(6, Espacio));
-
-    //        //Filler A 283 65-347
-    //        sb.Append(DTNomina.Rows.ToString().PadLeft(283, Espacio));
-
-
-
-    //        if (!ErrorProceso)
-    //        {
-    //            foreach (DataRow dRow in DTNomina.Rows)
-    //            {
-
-
-    //                string CodigoEmpleado = dRow["Codigo"].ToString().Trim();
-    //                string Nombres = dRow["Nombres"].ToString().Trim();
-    //                string APaterno = dRow["APaterno"].ToString().Trim();
-    //                string Amaterno = dRow["AMaterno"].ToString().Trim();
-    //                string CodigoNacionalOperacion = dRow["CodigoNacionalOperacion"].ToString().Trim();
-    //                string NombreCorto = dRow["NombreCorto"].ToString().Trim();
-    //                string TipoDeVia = dRow["TipoDeVia"].ToString().Trim();
-    //                string Direccion = dRow["Direccion"].ToString().Trim();
-    //                string NumExt = dRow["NumExt"].ToString().Trim();
-    //                string TipoDeVivienda = dRow["TipoDeVivienda"].ToString().Trim();
-    //                string Colonia = dRow["Colonia"].ToString().Trim();
-    //                string DelegacionMunicipio = dRow["DelegacionMunicipio"].ToString().Trim();
-    //                string ClaveEstado = dRow["ClaveEstado"].ToString().Trim();
-    //                string CP = dRow["CP"].ToString().Trim();
-    //                string Sexo = dRow["Sexo"].ToString().Trim();
-    //                DateTime FechaNacimiento = dRow["FechaNacimiento"].ToString().ToDate();
-    //                string Nacionalidad = dRow["Nacionalidad"].ToString().Trim();
-    //                string EstadoCivil = dRow["EstadoCivil"].ToString().Trim();
-    //                string Escolaridad = dRow["Escolaridad"].ToString().Trim();
-    //                string TipoEmpleado = dRow["TipoEmpleado"].ToString().Trim();
-    //                string RFC = dRow["RFC"].ToString().Trim();
-    //                string TipoAlta = dRow["TipoAlta"].ToString().Trim();
-    //                string TipoDeTarjeta = dRow["TipoDeTarjeta"].ToString().Trim();
-    //                string CodigoDeBanco = dRow["CodigoDeBanco"].ToString().Trim();
-    //                string TipoCuenta = dRow["TipoCuenta"].ToString().Trim();
-    //                string Cuenta = dRow["Cuenta"].ToString().Trim();
-    //                string ImpresionContrato = dRow["ImpresionContrato"].ToString().Trim();
-
-
-    //                //Tipo de registro A 1 1-1
-    //                sb.AppendLine("D");
-
-
-    //                //CodigoEmpleado A 10 2-11
-    //                if (ErrorProceso == false && CodigoEmpleado.Length > 0 && CodigoEmpleado.Trim().Length <= 10)
-    //                {
-    //                    sb.Append(CodigoEmpleado.PadLeft(10, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"Codigo {CodigoEmpleado} debe de tener una logitud de entre 1 y 10<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-    //                //Nombres A 20 12-31
-    //                if (ErrorProceso == false && Nombres.Length > 0 && Nombres.Trim().Length <= 20)
-    //                {
-    //                    sb.Append(Nombres.PadRight(20, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Nombre {Nombres} debe de tener una logitud de entre 1 y 20<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-    //                //Apellido Paterno A 20 32-51
-    //                if (ErrorProceso == false && APaterno.Length > 0 && APaterno.Trim().Length <= 20)
-    //                {
-    //                    sb.Append(APaterno.PadRight(20, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Apellido Paterno {APaterno} debe de tener una logitud de entre 1 y 20<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-    //                //Aperllido Materno A 20 52-71
-    //                if (ErrorProceso == false && Amaterno.Length > 0 && Amaterno.Trim().Length <= 20)
-    //                {
-    //                    sb.Append(Amaterno.PadRight(20, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Apellido Materno {Amaterno} debe de tener una logitud de entre 1 y 20<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                // Dependencia A 5 72-76
-    //                sb.Append(string.Empty.PadRight(5, Espacio)); // No requerido
-
-
-    //                //CodigoNacionalOperacion  N 2 77-78    Anexo 1
-    //                if (ErrorProceso == false && CodigoNacionalOperacion.Length > 0 && CodigoNacionalOperacion.Trim().Length <= 2)
-    //                {
-    //                    sb.Append(CodigoNacionalOperacion.PadLeft(2, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Codigo Nacional de Operación {CodigoNacionalOperacion} debe de tener una logitud de entre 1 y 20<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-    //                //NombreCorto  A 19 79-97
-    //                if (ErrorProceso == false && NombreCorto.Length > 0 && NombreCorto.Trim().Length <= 19)
-    //                {
-    //                    sb.Append(NombreCorto.PadRight(19, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Nombre Corto{NombreCorto} debe de tener una logitud de entre 1 y 19<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-    //                //TipoDeVia  A 2 98-99 Anexo 2
-    //                if (ErrorProceso == false && TipoDeVia.Length > 0 && TipoDeVia.Trim().Length <= 2)
-    //                {
-    //                    sb.Append(TipoDeVia.PadRight(2, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Tipo De Via  {TipoDeVia} debe de tener una logitud de entre 1 y 2<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-
-    //                //Calle  A 24 100-123
-    //                if (ErrorProceso == false && Direccion.Length > 0 && Direccion.Trim().Length <= 24)
-    //                {
-    //                    sb.Append(Direccion.PadRight(24, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Calle {Direccion} debe de tener una logitud de entre 1 y 24<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-
-    //                //Numero A 7 124-130
-    //                if (ErrorProceso == false && NumExt.Length > 0 && NumExt.Trim().Length <= 7)
-    //                {
-    //                    sb.Append(NumExt.PadRight(7, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Tipo De Via  {NumExt} debe de tener una logitud de entre 1 y 7<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //TipoDeVivienda N 2 131-132
-    //                if (ErrorProceso == false && TipoDeVivienda.Length > 0 && TipoDeVivienda.Trim().Length <= 2)
-    //                {
-    //                    sb.Append(TipoDeVivienda.PadLeft(2, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Tipo de Vivienda {TipoDeVivienda} debe de tener una logitud de entre 1 y 2<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Entrada A 2 133-134
-    //                sb.Append(string.Empty.PadRight(2, Espacio)); // No requerido
-
-    //                //Piso A 5 135-136
-    //                sb.Append(string.Empty.PadRight(2, Espacio)); // No requerido
-
-    //                //Deparatmento A 4 137-140
-    //                sb.Append(string.Empty.PadRight(4, Espacio)); // No requerido
-
-
-    //                //Colonia A 40 141-180
-    //                if (ErrorProceso == false && Colonia.Length > 0 && Colonia.Trim().Length <= 40)
-    //                {
-    //                    sb.Append(Colonia.PadRight(40, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Colonia Municipio {Colonia} debe de tener una logitud de entre 1 y 40<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-    //                //DelegacionMunicipio N 3 181-183
-    //                if (ErrorProceso == false && DelegacionMunicipio.Length > 0 && DelegacionMunicipio.Trim().Length <= 3)
-    //                {
-    //                    sb.Append(DelegacionMunicipio.PadLeft(3, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Delegacion Municipio {DelegacionMunicipio} debe de tener una logitud de entre 1 y 3<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //ClaveEstado N 2 184-185
-    //                if (ErrorProceso == false && ClaveEstado.Length > 0 && ClaveEstado.Trim().Length <= 2)
-    //                {
-    //                    sb.Append(ClaveEstado.PadLeft(2, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Clave Estado {ClaveEstado} debe de tener una logitud de entre 1 y 2<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Codigo Postal N 5 186-190
-    //                if (ErrorProceso == false && CP.Length > 0 && CP.Trim().Length <= 5)
-    //                {
-    //                    sb.Append(CP.PadLeft(5, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Codigo Postal {CP} debe de tener una logitud de entre 1 y 5<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Telefono A 12 191-202
-    //                sb.Append(string.Empty.PadRight(12, Espacio)); // No requerido
-
-    //                //Sexo A 1 203-203
-    //                sb.Append(Sexo); // No requerido
-
-
-    //                //Fecha Nacimiento A N 204-211
-    //                sb.Append(FechaNacimiento.ToString("yyyyMMdd"));
-
-    //                //Nacionalidad N 3 212-214 Anexo 6
-    //                if (ErrorProceso == false && Nacionalidad.Length > 0 && Nacionalidad.Trim().Length <= 3)
-    //                {
-    //                    sb.Append(Nacionalidad.PadLeft(3, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Nacionalidad {Nacionalidad} debe de tener una logitud de entre 1 y 2<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Estado Civil N 3 215-215 Anexo 7
-    //                if (ErrorProceso == false && EstadoCivil.Length > 0 && EstadoCivil.Trim().Length <= 1)
-    //                {
-    //                    sb.Append(EstadoCivil);
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Estado Civil {EstadoCivil} debe de tener una logitud de 1<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Regimen Matrimonial A 1 216-216
-    //                sb.Append(string.Empty.PadRight(1, Espacio)); // No requerido  Anexo 8
-
-
-    //                //Escolaridad  N 3 217-219 Anexo 9
-    //                if (ErrorProceso == false && Escolaridad.Length > 0 && Escolaridad.Trim().Length <= 3)
-    //                {
-    //                    sb.Append(Escolaridad.PadLeft(3, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Escolaridad   {Escolaridad} debe de tener una logitud de entre 1 y 3<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Titulo Profecional N 5 220-223
-    //                sb.Append(string.Empty.PadLeft(3, Cero)); // No requerido  Anexo 10
-
-
-    //                //RFC   N 13 225-237
-    //                if (ErrorProceso == false && RFC.Length > 0 && RFC.Trim().Length <= 13)
-    //                {
-    //                    sb.Append(RFC.PadRight(13, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} RFC {RFC} debe de tener una logitud de entre 1 y 13<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Curp A 18 238-255
-    //                sb.Append(string.Empty.PadLeft(18, Espacio)); // No requerido  
-
-
-    //                //Tipo de Alta  N 2 256-257
-    //                if (ErrorProceso == false && TipoAlta.Length > 0 && TipoAlta.Trim().Length <= 2)
-    //                {
-    //                    sb.Append(TipoAlta.PadLeft(3, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Tipo de Alta  {TipoAlta} debe de tener una logitud de entre 1 y 2<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //TipoDeTarjeta  N 1 258-258
-    //                sb.Append(TipoDeTarjeta);
-
-
-    //                //Número de Tarjeta de Débito N 16 259-274
-    //                sb.Append(string.Empty.PadLeft(16, Cero)); // No requerido  
-
-    //                //Clave del Producto de la Cuenta N 4 275-278
-    //                sb.Append(string.Empty.PadLeft(4, Cero)); // No requerido  
-
-
-    //                //Código de Banco de la Cuenta  N 3 279-281
-    //                if (ErrorProceso == false && CodigoDeBanco.Length > 0 && CodigoDeBanco.Trim().Length <= 3)
-    //                {
-    //                    sb.Append(CodigoDeBanco.PadLeft(3, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Codigo De Banco  {CodigoDeBanco} debe de tener una logitud de entre 1 y 3<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //Tipo Cuenta N 2 282-283
-    //                if (ErrorProceso == false && TipoCuenta.Length > 0 && TipoCuenta.Trim().Length <= 2)
-    //                {
-    //                    sb.Append(TipoCuenta.PadLeft(2, Cero));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Tipo Cuenta  {TipoCuenta} debe de tener una logitud de entre 1 y 2<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-
-    //                //Numero cuenta  18 284-301
-    //                if (ErrorProceso == false && Cuenta.Length > 0 && Cuenta.Trim().Length <= 18)
-    //                {
-    //                    sb.Append(Cuenta.PadRight(18, Espacio));
-    //                }
-    //                else
-    //                {
-    //                    SbErrores.AppendLine($"{CodigoEmpleado} Numero cuenta  {Cuenta} debe de tener una logitud de entre 1 y 18<br/>");
-    //                    ErrorProceso = true;
-    //                }
-
-    //                //CR Chequera N 4 302-305
-    //                sb.Append(string.Empty.PadLeft(4, Cero)); // No requerido  
-
-    //                //Impresion Contrato A 1 306-306
-    //                sb.Append("S");
-
-    //                //Sueldo N 15 307-321
-    //                sb.Append(string.Empty.PadLeft(15, Cero)); // No requerido  
-
-    //                //Numero targeta N 16 307-321
-    //                sb.Append(string.Empty.PadLeft(16, Cero)); // No requerido  
-
-    //                //Filler A 10 338-347
-    //                sb.Append(string.Empty.PadLeft(10, Cero)); // Relleno
-
-    //            }
-
-
-
-
-
-    //            if (!ErrorProceso)
-    //            {
-    //                Response.Clear();
-    //                Response.ClearHeaders();
-    //                Response.AppendHeader("Content-Length", sb.ToString());
-    //                Response.ContentType = "text/plain";
-    //                //Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina{DateTime.Now.ToString("yyyyMMddhhmmss").ToString()}.txt\"");
-    //                Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Alta_Banorte_{DdlPeriodo.SelectedItem.Text }.txt\"");
-    //                Response.Write(sb.ToString());
-    //                this.RegistraScript("$('#ModalLayoutBancos').modal('hide');");
-    //                Response.Flush();
-    //                Response.End();
-    //            }
-    //            else
-    //            {
-    //                this.Alert($"Errores {SbErrores.ToString()}", TipoMensaje.ToastAdventencia);
-    //            }
-
-
-    //        }
-
-
-    //    }
-
-    //    #endregion
-
-
-
-    //}
-
-
-
-    private void CrearLayoutNominaBanorte(DataTable DTNomina, string Emisora)
+    private void CrearLayoutNominaBanorte(DataTable DTNomina, string Emisora, int Consecutivo )
     {
         StringBuilder sb = new StringBuilder();
         StringBuilder SbErrores = new StringBuilder();
@@ -8779,7 +8311,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             //Accion N 1 88-88
             sb.Append("0");
             //filler 77 89-165
-            sb.Append(string.Empty.PadLeft(77, Cero));
+            sb.Append(string.Empty.PadLeft(77, Espacio));
 
             if (!ErrorProceso)
             {
@@ -8857,7 +8389,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 Response.ClearHeaders();
                 Response.AppendHeader("Content-Length", sb.ToString());
                 Response.ContentType = "text/plain";
-                Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina_Banorte_{DdlPeriodo.SelectedItem.Text }.txt\"");
+                Response.AppendHeader("Content-Disposition", $"attachment;filename=\"NI{Emisora.PadLeft(5, Cero)}{Consecutivo.ToString("00")}.PAG\"");
                 Response.Write(sb.ToString());
                 this.RegistraScript("$('#ModalLayoutBancos').modal('hide');");
                 Response.Flush();
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index a4d00d997..6c0c86cb9 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3440,7 +3440,7 @@ Partial Class PV
                 Dim ObjAcum As New ClsAcumuladores
                 Dim ObjVentas As New ClsVentas(ObjAcum.IniciaTransacSQL())
                 Dim ObjContPaq As ClsContPAQi = Nothing
-                If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                     ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                 End If
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 47a5e569d..9a94df0f8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8808,7 +8808,7 @@ Partial Class Ventas
 
 
                 'CONTABILIDAD AUTOMATICA Y AC 
-                If UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                     ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                     ObjContPaq.IniciaTransacSQL()
                 End If
@@ -19715,46 +19715,53 @@ Partial Class Ventas
 
     End Sub
     Private Sub EliminaPoliza()
-        Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
-        ObjAC.IniciaTransacSQL()
-        Dim ObjConta As New ClsContabilidad
-        ObjConta.IniciaTransacSQL()
 
-        Dim ErrorMovimiento = False
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
-        'Elimina la poliza 
-        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
-            If Not ObjAC.RemovePoliza(IdPoliza) Then
-                ErrorMovimiento = True
+            Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
+            ObjAC.IniciaTransacSQL()
+            Dim ObjConta As New ClsContabilidad
+            ObjConta.IniciaTransacSQL()
+
+            Dim ErrorMovimiento = False
+
+            'Elimina la poliza 
+            If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
+                If Not ObjAC.RemovePoliza(IdPoliza) Then
+                    ErrorMovimiento = True
+                End If
             End If
-        End If
 
-        'Desasocia la poliza
-        If Not ErrorMovimiento Then
-            If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then
-                ErrorMovimiento = True
+            'Desasocia la poliza
+            If Not ErrorMovimiento Then
+                If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then
+                    ErrorMovimiento = True
+                End If
             End If
-        End If
 
-        If Not ErrorMovimiento Then
-            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-                ErrorMovimiento = True
+            If Not ErrorMovimiento Then
+                If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    ErrorMovimiento = True
+                End If
             End If
+
+            If Not ErrorMovimiento Then
+                Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
+                ObjAC.Commit()
+                ObjConta.Commit()
+                BtnDescontabilizar.Visible = False
+            Else
+                Alert("Ocurrió un error al desvincular y/o eliminar la póliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
+                ObjAC.RollBack()
+                ObjConta.RollBack()
+            End If
+
+            ObjAC.Dispose()
+            ObjConta.Dispose()
+
         End If
 
-        If Not ErrorMovimiento Then
-            Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
-            ObjAC.Commit()
-            ObjConta.Commit()
-            BtnDescontabilizar.Visible = False
-        Else
-            Alert("Ocurrió un error al desvincular y/o eliminar la póliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
-            ObjAC.RollBack()
-            ObjConta.RollBack()
-        End If
 
-        ObjAC.Dispose()
-        ObjConta.Dispose()
 
     End Sub
     Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs)
@@ -22654,7 +22661,7 @@ Partial Class Ventas
 
         CreaObjetosVenta()
 
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
         End If
 
@@ -34455,35 +34462,42 @@ Partial Class Ventas
 
     Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs)
         CreaObjetosVenta()
-        Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim Msgok As New StringBuilder
-        If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
-            Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFactura)
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
-            If IDPoliza.IdPoliza > 0 Then
+            Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
+            Dim Msgok As New StringBuilder
+            If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
-                Dim ObjVentas As New ClsVentas
+                Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFactura)
 
-                If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, CvePrePoliza, CveVenta, UsuarioActual.CveEmpresa) Then
+                If IDPoliza.IdPoliza > 0 Then
+
+                    Dim ObjVentas As New ClsVentas
+
+                    If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, CvePrePoliza, CveVenta, UsuarioActual.CveEmpresa) Then
+
+                        'Si se facturó la cotización hay que vincular la venta
+                        Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
+                    End If
+
+                    ObjVentas.Dispose()
 
                     'Si se facturó la cotización hay que vincular la venta
                     Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
+
+                Else
+                    ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                 End If
 
-                ObjVentas.Dispose()
-
-                'Si se facturó la cotización hay que vincular la venta
-                Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
-
             Else
-                ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
+                Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
             End If
+            ObjAC.Dispose()
 
-        Else
-            Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
         End If
-        ObjAC.dispose
+
+
     End Sub
 End Class