diff --git a/AC/RepEstadoActividades.aspx.vb b/AC/RepEstadoActividades.aspx.vb
index f2cd112c1..f26d16383 100644
--- a/AC/RepEstadoActividades.aspx.vb
+++ b/AC/RepEstadoActividades.aspx.vb
@@ -332,6 +332,9 @@ Partial Class AC_RepEstadoActividades
         If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
             params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
             params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
+        ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
+            params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
+            params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
         ElseIf (ChkFirma.Checked) Then
             params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
             params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))
diff --git a/AC/RepSituacionFinanciera.aspx.vb b/AC/RepSituacionFinanciera.aspx.vb
index 36109f21b..57265aeff 100644
--- a/AC/RepSituacionFinanciera.aspx.vb
+++ b/AC/RepSituacionFinanciera.aspx.vb
@@ -642,6 +642,9 @@ Partial Class AC_SituacionFinanciera
         If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
             params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
             params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
+        ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
+            params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
+            params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
         ElseIf (ChkFirma.Checked) Then
             params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
             params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))
diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc
index f17742f32..ccef55f1d 100644
--- a/AC/Reportes/RepEstadoActividades.rdlc
+++ b/AC/Reportes/RepEstadoActividades.rdlc
@@ -998,7 +998,7 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>4.50688cm</Height>
+      <Height>2.76063cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -1019,8 +1019,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
-          <Top>3.36021cm</Top>
-          <Left>6.16434cm</Left>
+          <Top>0.49389cm</Top>
+          <Left>10.80759cm</Left>
           <Height>0.9616cm</Height>
           <Width>8.02269cm</Width>
           <Visibility>
@@ -1097,7 +1097,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>3.85438cm</Top>
+          <Top>1.92292cm</Top>
           <Left>0.62818cm</Left>
           <Height>0.6cm</Height>
           <Width>18.2021cm</Width>
@@ -1112,44 +1112,6 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
-        <Textbox Name="Textbox38">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Director administrativo</Value>
-                  <Style />
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox2</rd:DefaultName>
-          <Top>0.49389cm</Top>
-          <Left>9.9076cm</Left>
-          <Height>0.99688cm</Height>
-          <Width>8.02269cm</Width>
-          <ZIndex>3</ZIndex>
-          <Visibility>
-            <Hidden>=Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value &lt;&gt; ""), False, True)</Hidden>
-          </Visibility>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <TopBorder>
-              <Style>Solid</Style>
-            </TopBorder>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
       </ReportItems>
       <Style>
         <Border>
diff --git a/AC/Reportes/RepSituacionFinanciera.rdlc b/AC/Reportes/RepSituacionFinanciera.rdlc
index 25eb158bd..3723ffd7a 100644
--- a/AC/Reportes/RepSituacionFinanciera.rdlc
+++ b/AC/Reportes/RepSituacionFinanciera.rdlc
@@ -2859,7 +2859,7 @@
           </Style>
         </PageHeader>
         <PageFooter>
-          <Height>3.73062cm</Height>
+          <Height>2.27541cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -2883,7 +2883,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox3</rd:DefaultName>
-              <Top>3.13062cm</Top>
+              <Top>1.41083cm</Top>
               <Left>16.37931cm</Left>
               <Height>0.6cm</Height>
               <Width>3.95896cm</Width>
@@ -2952,8 +2952,8 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox2</rd:DefaultName>
-              <Top>2.73374cm</Top>
-              <Left>6.03938cm</Left>
+              <Top>0.07056cm</Top>
+              <Left>10.88047cm</Left>
               <Height>0.99688cm</Height>
               <Width>8.02269cm</Width>
               <ZIndex>2</ZIndex>
@@ -2973,45 +2973,6 @@
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
-            <Textbox Name="Textbox38">
-              <CanGrow>true</CanGrow>
-              <KeepTogether>true</KeepTogether>
-              <Paragraphs>
-                <Paragraph>
-                  <TextRuns>
-                    <TextRun>
-                      <Value xml:space="preserve">
-</Value>
-                      <Style />
-                    </TextRun>
-                  </TextRuns>
-                  <Style>
-                    <TextAlign>Center</TextAlign>
-                  </Style>
-                </Paragraph>
-              </Paragraphs>
-              <rd:DefaultName>Textbox2</rd:DefaultName>
-              <Top>0.10582cm</Top>
-              <Left>10.37435cm</Left>
-              <Height>0.99688cm</Height>
-              <Width>8.02269cm</Width>
-              <ZIndex>3</ZIndex>
-              <Visibility>
-                <Hidden>=Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value &lt;&gt; ""), False, True)</Hidden>
-              </Visibility>
-              <Style>
-                <Border>
-                  <Style>None</Style>
-                </Border>
-                <TopBorder>
-                  <Style>Solid</Style>
-                </TopBorder>
-                <PaddingLeft>2pt</PaddingLeft>
-                <PaddingRight>2pt</PaddingRight>
-                <PaddingTop>2pt</PaddingTop>
-                <PaddingBottom>2pt</PaddingBottom>
-              </Style>
-            </Textbox>
           </ReportItems>
           <Style>
             <Border>
diff --git a/Acumuladores/EntradasUsados.aspx b/Acumuladores/EntradasUsados.aspx
new file mode 100644
index 000000000..b7c2dd864
--- /dev/null
+++ b/Acumuladores/EntradasUsados.aspx
@@ -0,0 +1,19 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasUsados.aspx.vb" Inherits="Acumuladores_EntradasUsados" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+
diff --git a/Acumuladores/EntradasUsados.aspx.vb b/Acumuladores/EntradasUsados.aspx.vb
new file mode 100644
index 000000000..3a0e4f59c
--- /dev/null
+++ b/Acumuladores/EntradasUsados.aspx.vb
@@ -0,0 +1,5 @@
+
+Partial Class Acumuladores_EntradasUsados
+    Inherits System.Web.UI.Page
+
+End Class
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 3762fb841..423775dc4 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -838,12 +838,39 @@ Public Class ClsAcumuladores
             OnError("Ocurrió un error al consultar el reporte de usados. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
-    End Function
+    End Function
+
+    Public Function EntradasUsadosGet(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        'Data = New DataTable
 
+        SqlDataAdapter("PA_Acum_EntradasUsadosGet")
 
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaI
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaF
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
 
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+
+            OnError("Ocurrió un error al consultar los movimientos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+
 #Region " IDisposable Support "
-    ' IDisposable
+    ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)
         If Not disposedValue Then
             If disposing Then
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 55e577b76..68c1d49da 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4093,6 +4093,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
             PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
             PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
+
 #End Region
 #Region "MF"
             PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)
@@ -4578,7 +4579,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Acumuladores/CatTiposDefecto.aspx".ToUpper(), 1033)
             PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
             PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
-            PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
+            PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
+            PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543)
 
 
             'Antes de aquí.
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index e5d9d7edc..f5b737fcd 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -197,7 +197,7 @@
                                 <div class="form-group whitoutcol" style="width: 280px;">
                                     <span class="whitoutcol linewhitsize comprasdfleft">Tipo:</span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
-                                        <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small">
+                                        <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged">
                                             <asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem>
                                             <asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
                                             <asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 36373feb4..4a22ead1a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15644,6 +15644,16 @@ Partial Class Compras_Compras
                 RBLPago.Items(2).Enabled = True
             End If
             ImgAnticiposPendientes.Visible = False
+            If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+                paneldevolucion.Visible = True
+                Pnlalmaceninventarios.Visible = False
+                cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
+                InicializaAplicaNCFact()
+                DivReembolso.Visible = False
+                RBLPago.Items(2).Enabled = False
+                UpPS.Update()
+
+            End If
         End If
         UPCondicionesPago.Update()
     End Sub
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 1a24dcd2a..5f0026b4c 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -703,7 +703,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     'Agrego el IVA
                                     If gvr.DataKey("IVADeducible").ToDecimal > 0 Then
                                         Dim ImporteIVA As Decimal = gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx
index 2e7e910a4..e6577b557 100644
--- a/Nomina/Nomina2.aspx
+++ b/Nomina/Nomina2.aspx
@@ -513,6 +513,74 @@
                                             <ItemStyle Width="80px" HorizontalAlign="Right" />
                                         </asp:BoundField>
 
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
+                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}">
+                                            <ItemStyle Width="80px" HorizontalAlign="Right" />
+                                        </asp:BoundField>
+
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <div style="width: 70px; text-align: right;">
diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs
index 2be97a4b0..b07e6318c 100644
--- a/Nomina/Nomina2.aspx.cs
+++ b/Nomina/Nomina2.aspx.cs
@@ -226,10 +226,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador) && objnom.DTSetResultados.Tables.Count > 1)
             {
-                dtempleados = objnom.DTSetResultados.Tables[0];
-                dtConceptos = objnom.DTSetResultados.Tables[1];
-                dtPeriodo = objnom.DTSetResultados.Tables[2];
-                dtasistencia = objnom.DTSetResultados.Tables[3];
+                dtempleados = objnom.DTSetResultados.Tables[3];
+                dtConceptos = objnom.DTSetResultados.Tables[0];
+                dtPeriodo = objnom.DTSetResultados.Tables[1];
+                dtasistencia = objnom.DTSetResultados.Tables[2];
                 CvePeriodoSeleccionado = CvePeriodo;
                 continuar = true;
             }
@@ -258,7 +258,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 bf = (BoundField)GvNominas.Columns[CurrentColumn];
                 bf.DataField = string.Format("V_{0}", CveConcepto);
                 bf.HeaderText = Concepto;
-                CurrentColumn++;
+                if (GvNominas.Columns[CurrentColumn].Visible)
+                {
+                    CurrentColumn++;
+                }
             }
             if (true)
             {
@@ -279,8 +282,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
                 bf = (BoundField)GvNominas.Columns[CurrentColumn];
                 bf.DataField = string.Format("V_{0}", CveConcepto);
-                bf.HeaderText = Concepto;
-                CurrentColumn++;
+                bf.HeaderText = Concepto; 
+                if (GvNominas.Columns[CurrentColumn].Visible)
+                {
+                    CurrentColumn++;
+                }
             }
 
             if (true)
@@ -308,7 +314,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
                 bf = (BoundField)GvNominas.Columns[CurrentColumn];
                 bf.DataField = string.Format("V_{0}", CveConcepto);
-                CurrentColumn++;
+                bf.HeaderText = Concepto;
+
+                if (GvNominas.Columns[CurrentColumn].Visible)
+                {
+                    CurrentColumn++;
+                }
             }
             if (true)
             {
@@ -1349,7 +1360,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         using (ClsNominas objnom = new ClsNominas())
         {
-            if (objnom.GetTablasNomina (UsuarioActual.CveEmpresa) && objnom.DTSetResultados.Tables.Count > 1)
+            if (objnom.GetTablasNomina(UsuarioActual.CveEmpresa) && objnom.DTSetResultados.Tables.Count > 1)
             {
                 GVFactorDesctInfonavit.DataSource = objnom.DTSetResultados.Tables[0];
                 GVSalariosMinimos.DataSource = objnom.DTSetResultados.Tables[1];
diff --git a/RH/Reclutamiento.aspx b/RH/Reclutamiento.aspx
index 75ae8c1b9..5108a7c66 100644
--- a/RH/Reclutamiento.aspx
+++ b/RH/Reclutamiento.aspx
@@ -2171,11 +2171,19 @@
                                                     <div class="form-group ">
                                                         <label class="col-md-2" for="<%= DDLUsuarioNomina.ClientID.ToString()%>">Nominista:</label>
                                                         <asp:DropDownList ID="DDLUsuarioNomina" runat="server" CssClass="select2me" Width="200px" DataTextField="Nombre" DataValueField="CveUsuario">
+                                                            
                                                             <asp:ListItem Selected="True" Value="-1">Seleccione uno</asp:ListItem>
-                                                            <asp:ListItem Value="1446">Alicia Cordova</asp:ListItem>
+                                                            
                                                             <asp:ListItem Value="79">Pamela Cabrera</asp:ListItem>
+                                                            <asp:ListItem Value="2625">Paola Guerrereo</asp:ListItem>
+                                                            <asp:ListItem Value="2626">Lucero Millanes</asp:ListItem>
+
+                                                            <%--<asp:ListItem Value="1446">Alicia Cordova</asp:ListItem>                                                                                                                        
                                                             <asp:ListItem Value="16">Matilde Gonzalez</asp:ListItem>
-                                                            <asp:ListItem Value="1670">Claudia Hernandez</asp:ListItem>
+                                                            <asp:ListItem Value="1670">Claudia Hernandez</asp:ListItem>--%>
+
+
+
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator InitialValue="-1" ID="rfvDDLUsuarioNomina" Enabled="true" CssClass="help-block errorimput" Display="none" ControlToValidate="DDLUsuarioNomina" ValidationGroup="FirmaDocumentos" runat="server" Text="*" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="rfvcDDLUsuarioNomina" runat="server" HighlightCssClass="vco" TargetControlID="rfvDDLUsuarioNomina" Width="300px"></ajax:ValidatorCalloutExtender>
diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb
index b1f92e239..1a334f1a0 100644
--- a/RH/Reclutamiento.aspx.vb
+++ b/RH/Reclutamiento.aspx.vb
@@ -5352,7 +5352,8 @@ Partial Class RH_Reclutamiento
         End If
         Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
 
-        Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
+        Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
+
         If ValidaGuardaFirmaContratoEvento() Then
             If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal,
                                  TxtLugarnacimiento4.Text, TxtContactoEmergencia4.Text, TxtTipoSangre4.Text, TxtViveCon4.Text, txtCasaDondevive4.Text, DDLEstadoCivil4.Text.ToEntero,
@@ -5447,7 +5448,10 @@ Partial Class RH_Reclutamiento
         DdlRuta.Items.Insert(0, New ListItem("Seleccione una ruta", "-1"))
 
         DDLUsuarioNomina.DataBind()
-        DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+        If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
+            DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        End If
 
         DdlUniforme.DataBind()
         DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
diff --git a/Scripts/custom.js b/Scripts/custom.js
index 3df5108f9..034aef08c 100644
--- a/Scripts/custom.js
+++ b/Scripts/custom.js
@@ -1211,11 +1211,12 @@ function AdsTabWizard() {
         });
     }, 10)
 }
+
 function MoveFixedDiv() {
     var downMove = null;
     var x;
     var y;
-    $(".modal-content .modal-header").mousedown(function (e) {
+    $("body").on('mousedown', '.modal-content >.modal-header', function (e) {
         e.preventDefault();
         downMove = $(this).parent().parent();
         x = e.pageX;
@@ -1768,6 +1769,7 @@ jQuery(document).ready(function () {
 
     loadsortadscroll();
     QuickSidebar.init();
+        MoveFixedDiv();
 
     setswitch();
     function ocultarbtnmaster() { if ($('#btnmaster_actionssidebar + ul').text().trim() == "") { $('#btnmaster_actionssidebar').css('display', 'none'); } else { $('#btnmaster_actionssidebar').css('display', 'block'); } }
@@ -1778,7 +1780,6 @@ jQuery(document).ready(function () {
         loadwebservice();
         ocultarbtnmaster();
         movepanel();
-        MoveFixedDiv();
         loadADSortable();
         loadadscroll();
         CargaPickers();
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index b57206abe..c2751d5d1 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -8743,14 +8743,14 @@ Partial Class Clientes
 
         CreaObjetosVenta(1)
 
-        If ObjFactura.CveCliente > 0 Then
-            If TmpDT.Rows.Count > 0 Then
-                Dim Retorno = ObjFactura.EmitirFactura()
-                For Each Mensaje In Retorno.Mensajes
-                    Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
-                Next
-            End If
-        End If
+        'If ObjFactura.CveCliente > 0 Then
+        '    If TmpDT.Rows.Count > 0 Then
+        '        Dim Retorno = ObjFactura.EmitirFactura(false)
+        '        For Each Mensaje In Retorno.Mensajes
+        '            Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
+        '        Next
+        '    End If
+        'End If
 
         CargaUsados()
 
@@ -8790,17 +8790,19 @@ Partial Class Clientes
         '    Alert("No esta asignada la funcionalidad CvePS Distruibuidor Bonificación Nota")
         'End If
 
-        CreaObjetosVenta(1)
+        CreaObjetosVenta(2)
 
         If ObjFactura.CveCliente > 0 Then
             If TmpDT.Rows.Count > 0 Then
-                Dim Retorno = ObjFactura.EmitirFactura()
+                Dim Retorno = ObjFactura.EmitirFactura(False)
                 For Each Mensaje In Retorno.Mensajes
                     Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
                 Next
             End If
         End If
 
+        Alert("Listo")
+
         CargaUsados()
 
 
@@ -8819,11 +8821,11 @@ Partial Class Clientes
 
         If DTSucursales.Rows.Count > 0 Then
 
-            If ObjFolios.GetFolios(If(Tipo = 1, "RNC", "Egs"), UsuarioActual.CveEmpresa) Then
-
+            If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
+                Dim CveSubProyecto As Integer = DTSucursales.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
                 Dim DT As DataTable
-                If UsuarioActual.CveSubProyecto > 0 Then
-                    DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 ")
+                If CveSubProyecto > 0 Then
+                    DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 AND CveSubProyecto =  " & CveSubProyecto)
                 Else
                     DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 ")
                 End If
@@ -8857,7 +8859,7 @@ Partial Class Clientes
                     e.Row.FCCheckBox("ChkCargo").Visible = False
                 Else
                     e.Row.FCCheckBox("ChkCargo").Checked = False
-                    e.Row.FCCheckBox("ChkCargo").Visible = True
+                    e.Row.FCCheckBox("ChkCargo").Visible = False 'True
                 End If
 
                 If FacturadoBonificacion Then
@@ -9213,7 +9215,7 @@ Partial Class Clientes
         ObjFactura.CveMoneda = 1
         ObjFactura.Moneda = "Pesos"
         ObjFactura.MonedaSAT = "MXN"
-        ObjFactura.TipoDocto = If(Tipo = 1, "RNC", "Egs")
+        ObjFactura.TipoDocto = "RNC"
 
         ObjFactura.Folio = Folio
 
@@ -9366,183 +9368,183 @@ Partial Class Clientes
         Dim TmpDT7Eleven As New DataTable
         Dim TmpDTComplementosTimbrado As New DataTable
 
-        PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+        'PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
 
-        ObjFactura.FemsaFactura = FM
-
-        ObjFactura.Timbre = PreParaTimbre(ObjFactura)
-
-    End Sub
-
-    Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable)
-        FM.AplicaFEMSA = ChkAplicaFEMSA.Checked
-        FM.FEMSA_NumSociedad = ""
-        FM.FEMSA_NumProveedor = ""
-        FM.FEMSA_Mail = ""
-        FM.FEMSA_Version = "".ToEntero
-        FM.FEMSA_NumPedido = "".ToEntero
-        FM.FEMSA_NumEntrada = ""
-        FM.FEMSA_NumRemision = ""
-        FM.FEMSA_NumSocio = ""
-        FM.FEMSA_CentroCosto = ""
-        FM.FEMSA_IPeriodoLiquidacion = ""
-        FM.FEMSA_FPeriodoLiquidacion = ""
-        FM.FEMSA_CodRetencion1 = ""
-        FM.FEMSA_CodRetencion2 = ""
-
-        TmpDT7Eleven.Columns.Add("sevenElevenNumProveedor")
-        TmpDT7Eleven.Columns.Add("sevenElevenFolio")
-        TmpDT7Eleven.Columns.Add("sevenElevenTienda")
-        TmpDT7Eleven.Columns.Add("sevenElevenFecha")
-
-        Dim Row As DataRow = TmpDT7Eleven.NewRow
-        Row("sevenElevenNumProveedor") = ""
-        Row("sevenElevenFolio") = ""
-        Row("sevenElevenTienda") = ""
-        Row("sevenElevenFecha") = ""
-
-        TmpDT7Eleven.Rows.Add(Row)
-
-        TmpDTComplementosTimbrado.Columns.Add("CveComplemento")
-        TmpDTComplementosTimbrado.Columns.Add("IdContabilidad")
-        TmpDTComplementosTimbrado.Columns.Add("TipoProceso")
-        TmpDTComplementosTimbrado.Columns.Add("TipoAmbito")
-        TmpDTComplementosTimbrado.Columns.Add("Entidad")
-
-        Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow
-        Row2("CveComplemento") = -1
-        Row2("IdContabilidad") = -1
-        Row2("TipoProceso") = -1
-        Row2("TipoAmbito") = -1
-        Row2("Entidad") = -1
-
-        TmpDTComplementosTimbrado.Rows.Add(Row2)
-    End Sub
-
-    Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
-        Dim Timbre As New CFDITimbre
-        Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
-        Timbre.Comprobante.Folio = Obj.Folio.ToString
-        Timbre.Comprobante.Serie = Obj.Serie
-        Timbre.Comprobante.Fecha = Obj.FechaCP
-        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
-        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-        Timbre.Comprobante.Subtotal = Obj.SubTotal
-        Timbre.Comprobante.Descuentos = Obj.Descuento
-        Timbre.Comprobante.Moneda = Obj.MonedaSAT
-        Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
-        Timbre.Comprobante.Total = Obj.Total
-
-        Try
-            Obj.SetSubProyecto(Me)
-            Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
-        Catch ex As Exception
-
-        End Try
-
-        Timbre.Comprobante.Confirmacion = ""
-
-        Timbre.Receptor.RFC = Obj.Cliente.RFC
-        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
-        Timbre.Receptor.ResidenciaFiscal = ""
-        Timbre.Receptor.NumeroRegistroTributario = ""
-        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
-
-
-        If Obj.CveTipoRelacion > 0 Then
-            Select Case Obj.CveTipoRelacion
-                Case 1
-                    Timbre.CFDIRelacionados.TipoRelacion = "01"
-                    Timbre.CFDIRelacionados.TipoRelacionTexto = "01-Nota de Crédito aplicada a Ingreso"
-                Case 2
-                    Timbre.CFDIRelacionados.TipoRelacion = "02"
-                    Timbre.CFDIRelacionados.TipoRelacionTexto = "02-Nota de débito de los documentos relacionados"
-                Case 3
-                    Timbre.CFDIRelacionados.TipoRelacion = "03"
-                    Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso"
-                Case 4
-                    Timbre.CFDIRelacionados.TipoRelacion = "04"
-                    Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso"
-                Case 7
-                    Timbre.CFDIRelacionados.TipoRelacion = "07"
-                    Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
-                Case 8
-                    Timbre.CFDIRelacionados.TipoRelacion = "08"
-                    Timbre.CFDIRelacionados.TipoRelacionTexto = "08-Factura generada por pagos en parcialidades  "
-                Case 9
-                    Timbre.CFDIRelacionados.TipoRelacion = "09"
-                    Timbre.CFDIRelacionados.TipoRelacionTexto = "09-Factura generada por pagos diferidos"
-
-            End Select
-        End If
-
-        Dim totSubTotal As Decimal = Obj.SubTotal
-        Dim totIVA As Decimal = Obj.IVA
-        Dim totRetIVA As Decimal = Obj.RetIVA
-        Dim totRetISR As Decimal = Obj.RetISR
-        Dim TasaRetIVA As Decimal = 0
-        Dim TasaRetISR As Decimal = 0
-        Dim i As Integer = 1
-
-        'detalles
-        Dim tPS As String = ""
-
-        For Each drr As DataRow In Obj.DtDetalle.Rows
-            If drr("PS").ToString.Length = 1 Then
-                tPS = drr("Obs").ToString
-            Else
-                If drr("PS").ToString.Length = 0 Then
-                    tPS = ""
-                Else
-                    tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
-                End If
-            End If
-            'condicionante, especial
-            If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
-
-            Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
-                                                        .Descripcion = tPS,
-                                                        .ValorUnitario = drr("PU").ToString.ToDecimal,
-                                                        .Importe = drr("TotalImporte").ToString.ToDecimal,
-                                                        .Descuento = drr("Descuento").ToString.ToDecimal,
-                                                        .Unidad = drr("UM").ToString,
-                                                        .ClaveUnidad = drr("SATClaveUM").ToString,
-                                                        .ClaveProdServ = drr("SATClaveProdServ").ToString,
-                                                        .Noidentificacion = drr("Noidentificacion").ToString,
-                                                        .CuentaPredial = drr("CuentaPredial").ToString}
-            'verifica suma subtotales
-            If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
-                concepto.Importe = totSubTotal
-            End If
-            totSubTotal = totSubTotal - concepto.Importe
-
-            'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
-            ' If drr("ImporteIVA").ToString.ToDouble > 0 Then
-
-            'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
-            If Timbre.Comprobante.Total > 0 Then
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
-            End If
-
-            If drr("ImporteIEPS").ToString.ToDouble > 0 Then
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
-            End If
-
-            If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
-            End If
-
-            If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
-            End If
-
-            Timbre.Conceptos.Add(concepto)
-            i += 1
-        Next
-
-        Return Timbre
-    End Function
+        ObjFactura.FemsaFactura = FM
+
+        ' ObjFactura.Timbre = PreParaTimbre(ObjFactura)
+
+    End Sub
+
+    'Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable)
+    '    FM.AplicaFEMSA = ChkAplicaFEMSA.Checked
+    '    FM.FEMSA_NumSociedad = ""
+    '    FM.FEMSA_NumProveedor = ""
+    '    FM.FEMSA_Mail = ""
+    '    FM.FEMSA_Version = "".ToEntero
+    '    FM.FEMSA_NumPedido = "".ToEntero
+    '    FM.FEMSA_NumEntrada = ""
+    '    FM.FEMSA_NumRemision = ""
+    '    FM.FEMSA_NumSocio = ""
+    '    FM.FEMSA_CentroCosto = ""
+    '    FM.FEMSA_IPeriodoLiquidacion = ""
+    '    FM.FEMSA_FPeriodoLiquidacion = ""
+    '    FM.FEMSA_CodRetencion1 = ""
+    '    FM.FEMSA_CodRetencion2 = ""
+
+    '    TmpDT7Eleven.Columns.Add("sevenElevenNumProveedor")
+    '    TmpDT7Eleven.Columns.Add("sevenElevenFolio")
+    '    TmpDT7Eleven.Columns.Add("sevenElevenTienda")
+    '    TmpDT7Eleven.Columns.Add("sevenElevenFecha")
+
+    '    Dim Row As DataRow = TmpDT7Eleven.NewRow
+    '    Row("sevenElevenNumProveedor") = ""
+    '    Row("sevenElevenFolio") = ""
+    '    Row("sevenElevenTienda") = ""
+    '    Row("sevenElevenFecha") = ""
+
+    '    TmpDT7Eleven.Rows.Add(Row)
+
+    '    TmpDTComplementosTimbrado.Columns.Add("CveComplemento")
+    '    TmpDTComplementosTimbrado.Columns.Add("IdContabilidad")
+    '    TmpDTComplementosTimbrado.Columns.Add("TipoProceso")
+    '    TmpDTComplementosTimbrado.Columns.Add("TipoAmbito")
+    '    TmpDTComplementosTimbrado.Columns.Add("Entidad")
+
+    '    Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow
+    '    Row2("CveComplemento") = -1
+    '    Row2("IdContabilidad") = -1
+    '    Row2("TipoProceso") = -1
+    '    Row2("TipoAmbito") = -1
+    '    Row2("Entidad") = -1
+
+    '    TmpDTComplementosTimbrado.Rows.Add(Row2)
+    'End Sub
+
+    'Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
+    '    Dim Timbre As New CFDITimbre
+    '    Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
+    '    Timbre.Comprobante.Folio = Obj.Folio.ToString
+    '    Timbre.Comprobante.Serie = Obj.Serie
+    '    Timbre.Comprobante.Fecha = Obj.FechaCP
+    '    Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
+    '    Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+    '    Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+    '    Timbre.Comprobante.Subtotal = Obj.SubTotal
+    '    Timbre.Comprobante.Descuentos = Obj.Descuento
+    '    Timbre.Comprobante.Moneda = Obj.MonedaSAT
+    '    Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
+    '    Timbre.Comprobante.Total = Obj.Total
+
+    '    Try
+    '        Obj.SetSubProyecto(Me)
+    '        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+    '    Catch ex As Exception
+
+    '    End Try
+
+    '    Timbre.Comprobante.Confirmacion = ""
+
+    '    Timbre.Receptor.RFC = Obj.Cliente.RFC
+    '    Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+    '    Timbre.Receptor.ResidenciaFiscal = ""
+    '    Timbre.Receptor.NumeroRegistroTributario = ""
+    '    Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
+
+
+    '    If Obj.CveTipoRelacion > 0 Then
+    '        Select Case Obj.CveTipoRelacion
+    '            Case 1
+    '                Timbre.CFDIRelacionados.TipoRelacion = "01"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "01-Nota de Crédito aplicada a Ingreso"
+    '            Case 2
+    '                Timbre.CFDIRelacionados.TipoRelacion = "02"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "02-Nota de débito de los documentos relacionados"
+    '            Case 3
+    '                Timbre.CFDIRelacionados.TipoRelacion = "03"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso"
+    '            Case 4
+    '                Timbre.CFDIRelacionados.TipoRelacion = "04"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso"
+    '            Case 7
+    '                Timbre.CFDIRelacionados.TipoRelacion = "07"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
+    '            Case 8
+    '                Timbre.CFDIRelacionados.TipoRelacion = "08"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "08-Factura generada por pagos en parcialidades  "
+    '            Case 9
+    '                Timbre.CFDIRelacionados.TipoRelacion = "09"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "09-Factura generada por pagos diferidos"
+
+    '        End Select
+    '    End If
+
+    '    Dim totSubTotal As Decimal = Obj.SubTotal
+    '    Dim totIVA As Decimal = Obj.IVA
+    '    Dim totRetIVA As Decimal = Obj.RetIVA
+    '    Dim totRetISR As Decimal = Obj.RetISR
+    '    Dim TasaRetIVA As Decimal = 0
+    '    Dim TasaRetISR As Decimal = 0
+    '    Dim i As Integer = 1
+
+    '    'detalles
+    '    Dim tPS As String = ""
+
+    '    For Each drr As DataRow In Obj.DtDetalle.Rows
+    '        If drr("PS").ToString.Length = 1 Then
+    '            tPS = drr("Obs").ToString
+    '        Else
+    '            If drr("PS").ToString.Length = 0 Then
+    '                tPS = ""
+    '            Else
+    '                tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+    '            End If
+    '        End If
+    '        'condicionante, especial
+    '        If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
+
+    '        Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
+    '                                                    .Descripcion = tPS,
+    '                                                    .ValorUnitario = drr("PU").ToString.ToDecimal,
+    '                                                    .Importe = drr("TotalImporte").ToString.ToDecimal,
+    '                                                    .Descuento = drr("Descuento").ToString.ToDecimal,
+    '                                                    .Unidad = drr("UM").ToString,
+    '                                                    .ClaveUnidad = drr("SATClaveUM").ToString,
+    '                                                    .ClaveProdServ = drr("SATClaveProdServ").ToString,
+    '                                                    .Noidentificacion = drr("Noidentificacion").ToString,
+    '                                                    .CuentaPredial = drr("CuentaPredial").ToString}
+    '        'verifica suma subtotales
+    '        If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
+    '            concepto.Importe = totSubTotal
+    '        End If
+    '        totSubTotal = totSubTotal - concepto.Importe
+
+    '        'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
+    '        ' If drr("ImporteIVA").ToString.ToDouble > 0 Then
+
+    '        'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
+    '        If Timbre.Comprobante.Total > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
+    '        End If
+
+    '        If drr("ImporteIEPS").ToString.ToDouble > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
+    '        End If
+
+    '        If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
+    '        End If
+
+    '        If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
+    '        End If
+
+    '        Timbre.Conceptos.Add(concepto)
+    '        i += 1
+    '    Next
+
+    '    Return Timbre
+    'End Function
 
     'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean
 
@@ -9647,29 +9649,29 @@ Partial Class Clientes
     '        ObjVentas.Commit()
     '        CargaUsados()
 
-    '        Dim DtDetallesVenta As New DataTable
+    '        'Dim DtDetallesVenta As New DataTable
 
-    '        If ObjVentas.GetVentaDetalle(CveVenta) Then
+    '        'If ObjVentas.GetVentaDetalle(CveVenta) Then
 
-    '            DtDetallesVenta = ObjVentas.DtResultados
-    '            'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
+    '        '    DtDetallesVenta = ObjVentas.DtResultados
+    '        '    'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
 
-    '            ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
+    '        '    ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
 
-    '            Dim ObjTimbrado As New Timbrado
-    '            Dim SeTimbro As Boolean = False
+    '        '    Dim ObjTimbrado As New Timbrado
+    '        '    Dim SeTimbro As Boolean = False
 
-    '            SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+    '        '    SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
 
-    '            If SeTimbro Then
-    '                Alert("Se timbro correctamente")
-    '            Else
-    '                Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
-    '            End If
+    '        '    If SeTimbro Then
+    '        '        Alert("Se timbro correctamente")
+    '        '    Else
+    '        '        Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
+    '        '    End If
 
-    '        Else
-    '            Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
-    '        End If
+    '        'Else
+    '        '    Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
+    '        'End If
 
     '    End If
 
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 541ccc1fc..87304968c 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2803,11 +2803,10 @@
                                                         </div>
                                                     </div>
                                                     <div class="row">
-                                                        <div class="col-md-12">
-                                                            <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="100%" AutoPostBack="true">
-                                                                </asp:DropDownList>
-                                                                <label for="<%= DdlClientes.ClientID.ToString()%>">Cliente:</label>
+                                                        <div class="col-md-5">
+                                                            <div  >
+                                                                <label for="<%= DdlClientes.ClientID.ToString()%>">Distribuidor:</label><br />
+                                                                <ADS:Dropdownlost ID="DdlClientes" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
                                                             </div>
                                                         </div>
                                                     </div>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 0f23ec3c5..47a420235 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4973,16 +4973,6 @@ Partial Class PV
         UpAjuste.Update()
     End Sub
 
-    Private Sub CargaClienteAjuste()
-        DdlClientes.Items.Clear()
-
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-        DdlClientes.DataBind()
-        UpAjuste.Update()
-    End Sub
-
     Private Sub CargaBCIAjuste()
         Dim ObjGral As New ClsGenerales
         If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
@@ -5026,8 +5016,8 @@ Partial Class PV
 
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
-        CargaClienteAjuste()
         CargaBCIAjuste()
+        DdlClientes.setEsWebService(True)
         DivChkAjuste.Visible = True
     End Sub
 
@@ -5393,6 +5383,7 @@ Partial Class PV
             DivDatosVenta.Attributes.Add("class", "col-md-6")
             TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});")
             TxtPrecio.Text = TxtPrecio.Text
+            TxtObsPS.Text = "Descuento por garantía"
         Else
             For Each Gvr As GridViewRow In GvRecepcionUsados.Rows
                 If Gvr.RowType = DataControlRowType.DataRow Then
@@ -5757,12 +5748,14 @@ Partial Class PV
             params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
             params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
         Else
-            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
-            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-            params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedItem.Text))
-            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-            params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
+            If (DdlClientes.SelectedValue.ToEntero > 0) Then
+                Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
+                Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
+                Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
+                params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
+                params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+                params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
+            End If
         End If
 
         'Informacion Distribuidor
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index b72868eac..8cfedd04a 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -5873,9 +5873,8 @@
                             <div class="col-md-2">
                             </div>
                             <div class="col-md-4">
-                                <button type="button" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC">
-                                    Aplicar Remisiones
-                                </button>
+                                <asp:Button  ID = "BtnModalAplicarRemisionesNC" runat="server" OnClick="BtnModalAplicarRemisionesNC_Click" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC"/>
+                                     
                             </div>
                             <div class="col-md-6">
                             </div>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5fa28cc1e..5b350b825 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -20872,6 +20872,7 @@ Partial Class Ventas
         End If
         ObjMovtos.Dispose()
         GvRemisionesNC.DataBind()
+        UpModalRemisionesNC.Update()
     End Sub
     Private Sub CargaDescRNC()
 
@@ -21471,7 +21472,7 @@ Partial Class Ventas
                 If ObjIE.DtResultados.Rows.Count > 0 Then
                     Dim tFecha As Date = TxtFecha.Text.ToDate
                     Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
-                    Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC")
+                    Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha > #" & Fecha & "#", "Fecha DESC")
 
                     If drr IsNot Nothing Then
                         TipoCambioFactura = drr("TipoCambio").ToString.ToDecimal
@@ -23799,4 +23800,8 @@ Partial Class Ventas
     End Sub
 #End Region
 
+    Protected Sub BtnModalAplicarRemisionesNC_Click(sender As Object, e As EventArgs)
+        CargaRNC()
+        RegistraScript("$('#ModalAplicarRemisionesNC').modal()")
+    End Sub
 End Class
\ No newline at end of file