diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx
index 3089b032b..150702154 100644
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -162,7 +162,7 @@
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
                                     <ItemTemplate>
-                                        <asp:Literal ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>'></asp:Literal>
+                                        <asp:Label ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>' ToolTip='<%# Eval("CveFolioGarantia") %>'></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Usuario">
diff --git a/Acumuladores/CatGarantiasMeses.aspx b/Acumuladores/CatGarantiasMeses.aspx
index d9cca1c6c..c9b99fdbb 100644
--- a/Acumuladores/CatGarantiasMeses.aspx
+++ b/Acumuladores/CatGarantiasMeses.aspx
@@ -90,10 +90,7 @@
                                     <div class="col-md-1 truncate" style="text-align: right!important">Tipo Uso</div>
                                     <div class="col-md-2">
                                         <asp:DropDownList ID="DdlTipoUso" DataTextField="TipoUso" DataValueField="CveTipoUso" CssClass="form-control input-sm select2me" runat="server" Width="200px"></asp:DropDownList>
-                                    </div>
-
-
-
+                                    </div> 
                                 </div>
 
                             </div>
@@ -116,8 +113,8 @@
                     <ContentTemplate>
 
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaIng"
-                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
+                            DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaInicioVigencia,FechaIng"
+                            EmptyDataText="No se encontraron registros" 
                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
                             data-sort="true"
                             data-freezerows="1"
@@ -129,31 +126,36 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Tipo Uso" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Tipo Uso" >
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlTiposUso" runat="server" Text='<%# Eval("TipoUso")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Mes" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Mes" ItemStyle-Width="100px">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlMes" runat="server" Text='<%# Eval("Mes")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Valor" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Valor" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlValor" runat="server" Text='<%# Eval("Valor", "{0:N2}")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Inicio Vigencia" ItemStyle-Width="120px">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="LtlIVigencia" runat="server" Text='<%# Eval("FechaInicioVigencia", "{0:d}")%>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField ItemStyle-Width="300px" HeaderText="Usuario">
+                                <asp:TemplateField  HeaderText="Usuario">
                                     <ItemTemplate>
                                         <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                                     </ItemTemplate>
@@ -215,6 +217,24 @@
                                     <label for="<%= TxtValor.ClientID.ToString()%>">Valor:</label>
                                     <i></i>
                                 </div>
+                               <div class="col-md-2 truncate">
+                                Fecha Inicio:
+                           
+                            </div>
+                            <div class="col-md-1" style="min-width: 125px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
                                   <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
                                       <asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" />
                                     <label for="<%= ChkSeguir.ClientID.ToString()%>">Seguir Registrando:</label>
diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb
index 3b58370b8..9ce2b7d8d 100644
--- a/Acumuladores/CatGarantiasMeses.aspx.vb
+++ b/Acumuladores/CatGarantiasMeses.aspx.vb
@@ -126,7 +126,7 @@ Partial Class Acumuladores_CatFoliosGarantia
         Dim ObjAcum As New ClsAcumuladores
 
         If Not Actualizar Then
-            If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
 
                 TxtMes.Text = TxtMes.Text.ToEntero + 1
                 TxtValor.Text = ""
@@ -147,7 +147,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                 Alert("Ocurrió un error al guardar la Garantía de Mes", TipoMensaje.MsgError)
             End If
         Else
-            If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario) Then
+            If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario) Then
 
                 TxtMes.Text = ""
                 TxtValor.Text = ""
@@ -211,6 +211,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         TxtMes.Text = GvRow.DataKey("Mes")
         TxtValor.Text = GvRow.DataKey("Valor")
+        txtFechaI.Text = GvRow.DataKey("FechaInicioVigencia")
         CargaCombosModal()
         DdlMarcaM.SelectedValueExist(GvRow.DataKey("CveMarca").ToEntero)
         DdlTipoUsoM.SelectedValueExist(GvRow.DataKey("CveTipoUso").ToEntero)
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index e9aa5a929..54581d959 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -608,14 +608,14 @@ Public Class ClsAcumuladores
         End Try
         Return Retorno
 
-    End Function
-
-
+    End Function
+
+
 #End Region
-
+
 #Region " GARANTÍAS MESES "
-
-    Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1) As Boolean
+
+    Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1, Optional FechaInicioVigencia As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -625,7 +625,8 @@ Public Class ClsAcumuladores
             .Add("@CveGarantiaMes", SqlDbType.Int).Value = CveGarantiaMes
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
+            .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
+            .Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
             .Add("@Mes", SqlDbType.Int).Value = Mes
         End With
 
@@ -641,7 +642,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -653,6 +654,7 @@ Public Class ClsAcumuladores
             .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
             .Add("@Mes", SqlDbType.Int).Value = Mes
             .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
+            .Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
@@ -670,7 +672,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer) As Boolean
+    Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -682,7 +684,8 @@ Public Class ClsAcumuladores
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
             .Add("@Mes", SqlDbType.Int).Value = Mes
-            .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
+            .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
+            .Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
 
         End With
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 05fcb23df..355c7a521 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8111,7 +8111,7 @@ Partial Class Compras_Compras
                                     End If
 
                                     'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
                                         If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
                                             Dim CvePreComprobacion As Integer
                                             If ObjCompras.DtResultados.Rows.Count = 0 Then
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 119b25338..dec88a6df 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5986,189 +5986,211 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("Observaciones", Observacion))
             params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
 
-            Dim DtMovimientosPoliza As DataTable = Nothing
-            If UsuarioActual.CveEmpresa = 48 Then
-                'Movimientos del IE
-                If ObjIE.IDPoliza > 0 Then
 
-                    Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-                    If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
-                        Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
-                    Else
-                        DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
+            If UsuarioActual.CveEmpresa.Contiene(141) Then
+
+
+                Dim InicialesUsuarioGenero As String = ""
+
+                Try
+                    Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
+                    If NombreUsuarioRenero.Trim.Length > 0 Then
+                        NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
                     End If
+                Catch ex As Exception
 
-                    ObjConta.Dispose()
-                Else
-                    DtMovimientosPoliza = New DataTable
-                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
-                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
+                End Try
 
-                    Dim Dr = DtMovimientosPoliza.NewRow
-                    Dr("CODIGO") = ""
-                    Dr("Cuenta") = ""
-                    Dr("Cargo") = 0
-                    Dr("Abono") = 0
-                    DtMovimientosPoliza.Rows.Add(Dr)
+
+                params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
+
+
+
+            End If
+
+            Dim DtMovimientosPoliza As DataTable = Nothing
+                If UsuarioActual.CveEmpresa = 48 Then
+                    'Movimientos del IE
+                    If ObjIE.IDPoliza > 0 Then
+
+                        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+                        If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
+                            Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
+                        Else
+                            DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
+                        End If
+
+                        ObjConta.Dispose()
+                    Else
+                        DtMovimientosPoliza = New DataTable
+                        DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
+                        DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
+
+                        Dim Dr = DtMovimientosPoliza.NewRow
+                        Dr("CODIGO") = ""
+                        Dr("Cuenta") = ""
+                        Dr("Cargo") = 0
+                        Dr("Abono") = 0
+                        DtMovimientosPoliza.Rows.Add(Dr)
+                    End If
+                ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+                    Dim PreP As New ClsContabilidad
+                    If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                        DtMovimientosPoliza = New DataTable
+                        DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
+                        DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
+
+                        If PreP.DtResultados.Rows.Count > 0 Then
+
+                            For Each drt As DataRow In PreP.DtResultados.Rows
+                                Dim Dr = DtMovimientosPoliza.NewRow
+                                Dr("CODIGO") = drt("CuentaCodigo")
+                                Dr("Cuenta") = drt("CuentaNombre")
+                                Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
+                                Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
+                                DtMovimientosPoliza.Rows.Add(Dr)
+
+                            Next
+
+
+                        End If
+                    End If
+                    PreP.Dispose()
                 End If
-            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+
+
+                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
+
+                If Archivo.Exists Then
+                    ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+                Else
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
+                    ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+                End If
+
+
+            ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
+
+                Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
+                Dim FechaExpedicion As Date = Now
+                Dim Importe As Double
+                Dim FormatoCheque As String = ""
+
+                Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
+                Dim tIdPoliza As Integer
+                Dim DtMovimientosPoliza As DataTable = Nothing
+                Dim RFC As String = ""
+                Dim Correo As String = ""
+                Dim CLABE As String = ""
+                Dim NoSucursal As String = ""
+                Dim Telefono As String = ""
+                Dim IVA As Double = 0
+
+                Folio = ""
+                TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
+                CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
+                Ruta = UsuarioActual.Empresa.Ruta
+
+                PagueseA = ObjIE.PagueseA
+                Folio = ObjIE.Folio
+                Importe = ObjIE.Importe
+                CveTipoTransaccion = ObjIE.CveTipoTransaccion
+                Banco = ObjIE.Banco
+                NumCuenta = ObjIE.DepositoCuenta
+                If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
+                CLABE = ObjIE.DepositoCLABE
+                If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
+                NoSucursal = ObjIE.DepositoSucursal
+                RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
+                TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
+                FechaExpedicion = ObjIE.FechaDocumento
+                Observacion = ObjIE.Observaciones
+                UsuarioRegistro = ObjIE.UsuarioNombre
+                SubProyecto = ObjIE.SubProyecto
+                AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
+                NotificarA = ObjIE.NotificarA
+                tIdPoliza = ObjIE.IDPoliza
+
                 Dim PreP As New ClsContabilidad
                 If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                    DtMovimientosPoliza = New DataTable
-                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
-                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
-
                     If PreP.DtResultados.Rows.Count > 0 Then
+                        CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
+                        CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
 
-                        For Each drt As DataRow In PreP.DtResultados.Rows
-                            Dim Dr = DtMovimientosPoliza.NewRow
-                            Dr("CODIGO") = drt("CuentaCodigo")
-                            Dr("Cuenta") = drt("CuentaNombre")
-                            Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
-                            Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
-                            DtMovimientosPoliza.Rows.Add(Dr)
+                        IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
 
-                        Next
+                        If CveProveedor > 0 Then
+                            Dim Prov As New ClsCompProveedores
+                            If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
+                                If Prov.DtResultados.Rows.Count > 0 Then
+                                    RFC = Prov.DtResultados.Rows(0)("RFC").ToString
+                                    Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
+                                End If
+                            End If
+                            Prov.Dispose()
+                        End If
+
+                        If CvePersonal > 0 Then
+                            Dim RH As New ClsRH
+                            If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
+                                If RH.DtResultados.Rows.Count > 0 Then
+                                    Correo = RH.DtResultados.Rows(0)("Correo").ToString
+                                    Banco = RH.DtResultados.Rows(0)("Banco").ToString
+                                    NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
+                                    CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
+                                End If
 
 
+                            End If
+
+                            RH.Dispose()
+
+                        End If
                     End If
                 End If
                 PreP.Dispose()
-            End If
 
 
-            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
+                params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
+                params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
+                params.Add(New ReportParameter("PagueseA", PagueseA))
+                params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
+                params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
+                params.Add(New ReportParameter("Banco", Banco))
+                params.Add(New ReportParameter("NumCuenta", NumCuenta))
+                params.Add(New ReportParameter("CLABE", CLABE))
+                params.Add(New ReportParameter("Concepto", Observacion))
+                params.Add(New ReportParameter("Factura", ""))
+                params.Add(New ReportParameter("RFC", RFC))
+                params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
+                params.Add(New ReportParameter("NumSucursal", NoSucursal))
+                params.Add(New ReportParameter("Correo", Correo))
+                params.Add(New ReportParameter("Telefono", Telefono))
+                params.Add(New ReportParameter("NotifiqueA", NotificarA))
+                params.Add(New ReportParameter("Obra", SubProyecto))
+                params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
+                params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
 
-            If Archivo.Exists Then
-                ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
-            Else
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
-                ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
-            End If
-
-
-        ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
-
-            Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
-            Dim FechaExpedicion As Date = Now
-            Dim Importe As Double
-            Dim FormatoCheque As String = ""
-
-            Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
-            Dim tIdPoliza As Integer
-            Dim DtMovimientosPoliza As DataTable = Nothing
-            Dim RFC As String = ""
-            Dim Correo As String = ""
-            Dim CLABE As String = ""
-            Dim NoSucursal As String = ""
-            Dim Telefono As String = ""
-            Dim IVA As Double = 0
-
-            Folio = ""
-            TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
-            CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
-            Ruta = UsuarioActual.Empresa.Ruta
-
-            PagueseA = ObjIE.PagueseA
-            Folio = ObjIE.Folio
-            Importe = ObjIE.Importe
-            CveTipoTransaccion = ObjIE.CveTipoTransaccion
-            Banco = ObjIE.Banco
-            NumCuenta = ObjIE.DepositoCuenta
-            If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
-            CLABE = ObjIE.DepositoCLABE
-            If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
-            NoSucursal = ObjIE.DepositoSucursal
-            RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
-            TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
-            FechaExpedicion = ObjIE.FechaDocumento
-            Observacion = ObjIE.Observaciones
-            UsuarioRegistro = ObjIE.UsuarioNombre
-            SubProyecto = ObjIE.SubProyecto
-            AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
-            NotificarA = ObjIE.NotificarA
-            tIdPoliza = ObjIE.IDPoliza
-
-            Dim PreP As New ClsContabilidad
-            If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                If PreP.DtResultados.Rows.Count > 0 Then
-                    CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
-                    CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
-
-                    IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
-
-                    If CveProveedor > 0 Then
-                        Dim Prov As New ClsCompProveedores
-                        If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
-                            If Prov.DtResultados.Rows.Count > 0 Then
-                                RFC = Prov.DtResultados.Rows(0)("RFC").ToString
-                                Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
-                            End If
-                        End If
-                        Prov.Dispose()
-                    End If
-
-                    If CvePersonal > 0 Then
-                        Dim RH As New ClsRH
-                        If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
-                            If RH.DtResultados.Rows.Count > 0 Then
-                                Correo = RH.DtResultados.Rows(0)("Correo").ToString
-                                Banco = RH.DtResultados.Rows(0)("Banco").ToString
-                                NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
-                                CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
-                            End If
-
-
-                        End If
-
-                        RH.Dispose()
-
-                    End If
+                If UsuarioActual.CveEmpresa = 66 Then
+                    params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
                 End If
-            End If
-            PreP.Dispose()
 
 
-            params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
-            params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
-            params.Add(New ReportParameter("PagueseA", PagueseA))
-            params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
-            params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
-            params.Add(New ReportParameter("Banco", Banco))
-            params.Add(New ReportParameter("NumCuenta", NumCuenta))
-            params.Add(New ReportParameter("CLABE", CLABE))
-            params.Add(New ReportParameter("Concepto", Observacion))
-            params.Add(New ReportParameter("Factura", ""))
-            params.Add(New ReportParameter("RFC", RFC))
-            params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
-            params.Add(New ReportParameter("NumSucursal", NoSucursal))
-            params.Add(New ReportParameter("Correo", Correo))
-            params.Add(New ReportParameter("Telefono", Telefono))
-            params.Add(New ReportParameter("NotifiqueA", NotificarA))
-            params.Add(New ReportParameter("Obra", SubProyecto))
-            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
-            params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
+                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
+                If Archivo.Exists Then
+                    ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
+                Else
+                    ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
+                End If
 
-            If UsuarioActual.CveEmpresa = 66 Then
-                params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
-            End If
-
-
-            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
-            If Archivo.Exists Then
-                ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-            Else
-                ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-            End If
-
-        ElseIf CveTipoTransaccion.Contiene(6) Then
-            'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
-            Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
+            ElseIf CveTipoTransaccion.Contiene(6) Then
+                'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
+                Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
             Dim Ruta As String = UsuarioActual.Empresa.Ruta
             Dim FechaExpedicion As Date = Now
             Dim Importe As Double
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 4b02bd7d4..36dbcce18 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -586,7 +586,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
-            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
+            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
             If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
diff --git a/Empresas/141/Formatos/CHQ-7451.rdlc b/Empresas/141/Formatos/CHQ-7451.rdlc
index 3c26bcd98..e264827c0 100644
--- a/Empresas/141/Formatos/CHQ-7451.rdlc
+++ b/Empresas/141/Formatos/CHQ-7451.rdlc
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -818,7 +818,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>IAP</Value>
+                      <Value>=Parameters!InicialesUsuarioGenero.Value</Value>
                       <Style>
                         <FontWeight>Bold</FontWeight>
                       </Style>
@@ -829,9 +829,9 @@
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
               <Top>1.36525cm</Top>
-              <Left>3.13986cm</Left>
+              <Left>2.53509cm</Left>
               <Height>0.6cm</Height>
-              <Width>0.85958cm</Width>
+              <Width>1.46435cm</Width>
               <Style>
                 <Border>
                   <Style>None</Style>
@@ -1042,6 +1042,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="InicialesUsuarioGenero">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>es-MX</Language>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc
index 77447f2a8..6ca51520a 100644
--- a/Empresas/141/Formatos/CHQ-7452.rdlc
+++ b/Empresas/141/Formatos/CHQ-7452.rdlc
@@ -818,7 +818,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>IAP</Value>
+                      <Value>=Parameters!InicialesUsuarioGenero.Value</Value>
                       <Style>
                         <FontWeight>Bold</FontWeight>
                       </Style>
@@ -829,9 +829,9 @@
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
               <Top>1.36525cm</Top>
-              <Left>3.13986cm</Left>
+              <Left>2.53509cm</Left>
               <Height>0.6cm</Height>
-              <Width>0.85958cm</Width>
+              <Width>1.46435cm</Width>
               <Style>
                 <Border>
                   <Style>None</Style>
@@ -1042,6 +1042,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="InicialesUsuarioGenero">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>es-MX</Language>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
index 46b34244a..d76f7677e 100644
--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -41,7 +41,8 @@ Partial Class General_RepIndicadorResumen
         End If
 
         If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
-                                              UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
+                                              UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, TipoDocto:="Fac",
+                                              CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
             GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC")
         End If
 
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 18e714c79..9865b593f 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3947,7 +3947,7 @@ Partial Class Inventarios_EntradasSalidas
                                                 End If
 
                                             Next
-                                            End If
+                                        End If
                                         End If
                                     End If
                                 End If
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 4b7bbcf57..8f39f2c0a 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1383,8 +1383,9 @@ Partial Class Sistemas_UsuarioDetalle
         GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
         GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
-        If UsuarioActual.CveUsuario = 100 Then
-            Alert("Globals Recargados")
+        GlobalDTUsuarios(CveEmpresa:=-1) = Nothing
+        If UsuarioActual.CveUsuario = 100 Or UsuarioActual.CveRol = 1 Then
+            Alert("Globals Recargados " & UsuarioActual.CveEmpresa)
         End If
         'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
diff --git a/Sistemas/Usuarios.aspx.vb b/Sistemas/Usuarios.aspx.vb
index 77a00c22f..e6578379b 100644
--- a/Sistemas/Usuarios.aspx.vb
+++ b/Sistemas/Usuarios.aspx.vb
@@ -60,7 +60,10 @@ Partial Class Sistemas_Usuarios
 #End Region
 	Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 		If Not Page.IsPostBack Then
-			ViewState("Orden") = ""
+
+
+
+            ViewState("Orden") = ""
             ViewState("CveRol") = -1
             CargarEmpresa()
             CargaDatos()
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 9ac8c8c5d..5d60ca69c 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -3115,7 +3115,8 @@
                                                             <div class="col-md-6">
                                                                 <div class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox ID="TxtEtiqueta" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                    <label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta:</label>
+                                                                     <ajax:MaskedEditExtender ID="MEEEtiqueta" runat="server" TargetControlID="TxtEtiqueta" Mask="99\/99" MaskType="None" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                    <label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta (mm/yy):</label>
                                                                 </div>
                                                             </div>
                                                         </div>
@@ -3142,7 +3143,7 @@
                                                             <div class="col-md-8">
                                                                 <div id="DivCodEnsamble" runat="server" class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                    <asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" ClientValidationFunction="ValidarCodigoEnsamble" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
+                                                                    <asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" Display="None" ClientValidationFunction="ValidarCodigoEnsamble" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
                                                                     <label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
                                                                 </div>
                                                             </div>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index eda19c635..ee059d485 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -6663,7 +6663,7 @@ Partial Class PV
         Dim ObjCliente As New ClsClientes
 
         Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
-        Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1, True, False)
+        Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
 
         If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
                                                 TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
@@ -7126,7 +7126,7 @@ Partial Class PV
         Else
             'TxtPUFactura.Enabled = True
             'TxtPUFactura.Text = ""
-            DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            ' DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
         End If
         DdlPSAjuste.DataBind()
         ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7418,6 +7418,10 @@ Partial Class PV
             Alert("No se ha especificado producto de ajuste a entregar")
             Exit Sub
         End If
+        If TxtEtiqueta.Text <> "" OrElse TxtEtiqueta.Text.Length <> 4 Then
+            Alert("No se ha especificado la etiqueta.")
+            Exit Sub
+        End If
         If Not CalculaMesesUso() Then
             Exit Sub
         End If
@@ -7427,53 +7431,63 @@ Partial Class PV
             If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
                 Dim CveMarca As Integer = -1
 
-                CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
+                CveMarca = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
                 Dim ImportePagarCliente As Decimal = 0
                 Dim ObjAcum As New ClsAcumuladores
                 If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
                     If ObjAcum.DtResultados.Rows.Count > 0 Then
-                        TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
+                        ''obtener siempre y cuando la fecha de inicio sea mayor
+                        Dim strDate As Date = ($"01/{TxtEtiqueta.Text.Substring(0, 2)}/{TxtEtiqueta.Text.Substring(2, 2)}").ToDate
+                        Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# > FechaInicioVigencia ", "FechaInicioVigencia")
+                        If drg IsNot Nothing Then
 
-                        TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
-                        ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
+                            TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString
+                            TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
+                            ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
 
-                        Dim CargoVendido As Decimal = 0
-                        Dim CargoGarantia As Decimal = 0
-                        Dim CveTamaño As Integer = 0
+                            Dim CargoVendido As Decimal = 0
+                            Dim CargoGarantia As Decimal = 0
+                            Dim CveTamaño As Integer = 0
 
-                        If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
-                            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
-                            If Dr IsNot Nothing Then
-                                CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                            If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
+                                Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
+                                If Dr IsNot Nothing Then
+                                    CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                                End If
                             End If
-                        End If
 
-                        If DdlPS.SelectedValue.ToEntero > 0 Then
-                            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
-                            If Dr IsNot Nothing Then
-                                CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                            If DdlPS.SelectedValue.ToEntero > 0 Then
+                                Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                                If Dr IsNot Nothing Then
+                                    CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                                End If
                             End If
-                        End If
 
-                        Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
-                        If DrCargo IsNot Nothing Then
+                            Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
+                            If DrCargo IsNot Nothing Then
 
-                            CargoVendido = DrCargo("Cargo").ToString.ToDecimal
+                                CargoVendido = DrCargo("Cargo").ToString.ToDecimal
 
-                        End If
+                            End If
 
-                        'el ajuste no puede ser mayor al precio de lo vendido de nuevo
-                        If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
+                            'el ajuste no puede ser mayor al precio de lo vendido de nuevo
+                            If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
 
+                                TxtImporteAjuste.Text = "0.00"
+                                CargoGarantia = CargoVendido
+                                ImportePagarCliente = 0
+                            End If
+                            ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
+
+                            TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
+                            TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
+                            'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
+                        Else
+                            Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
+                            'cuando no está registrada, no da ajuste
+                            TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
                             TxtImporteAjuste.Text = "0.00"
-                            CargoGarantia = CargoVendido
-                            ImportePagarCliente = 0
                         End If
-                        ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
-
-                        TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
-                        TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
-                        'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
                     Else
                         Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
                         'cuando no está registrada, no da ajuste
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 6225d3e6e..ed6a05dc5 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -61,29 +61,31 @@ Partial Class Ventas_RepProductosServicios
 
 #Region "  CARGA DATOS INICIALES  "
 
-    Private Sub CargaGrupo()
-        DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
-        DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
-        DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
-        DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
-        DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
-        DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8"))
-        DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9"))
-        DdlGrupo.Items.Insert(7, New ListItem("Cliente", "10"))
-        DdlGrupo.Items.Insert(8, New ListItem("Vendedor", "12"))
-        DdlGrupo.Items.Insert(9, New ListItem("Usuario", "13"))
-        DdlGrupo.Items.Insert(10, New ListItem("Estatus Fact.", "14"))
-        DdlGrupo.Items.Insert(11, New ListItem("Año Ejec.", "15"))
-        DdlGrupo.Items.Insert(12, New ListItem("Mes Ejec.", "16"))
-        DdlGrupo.Items.Insert(13, New ListItem("Año/Mes Ejec.", "17"))
-        DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18"))
-        DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
-        DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
-        DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
-        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
-        DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
-        DdlGrupo.Items.Insert(18, New ListItem("Cliente Sucursal", "26"))
-        DdlGrupo.Items.Insert(18, New ListItem("Giro", "27"))
+    Private Sub CargaGrupo()
+        If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
+        DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
+        DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
+        DdlGrupo.Items.Add(New ListItem("Productos-Servicios", "5"))
+        DdlGrupo.Items.Add(New ListItem("Año", "6"))
+        DdlGrupo.Items.Add(New ListItem("Mes", "7"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes", "8"))
+        DdlGrupo.Items.Add(New ListItem("Fecha", "9"))
+        DdlGrupo.Items.Add(New ListItem("Cliente", "10"))
+        DdlGrupo.Items.Add(New ListItem("Vendedor", "12"))
+        DdlGrupo.Items.Add(New ListItem("Usuario", "13"))
+        DdlGrupo.Items.Add(New ListItem("Estatus Fact.", "14"))
+        DdlGrupo.Items.Add(New ListItem("Año Ejec.", "15"))
+        DdlGrupo.Items.Add(New ListItem("Mes Ejec.", "16"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes Ejec.", "17"))
+        DdlGrupo.Items.Add(New ListItem("Fecha Ejec.", "18"))
+        DdlGrupo.Items.Add(New ListItem("Cliente - PS", "20"))
+        DdlGrupo.Items.Add(New ListItem("Sucursal - PS", "21"))
+        DdlGrupo.Items.Add(New ListItem("Familia - Marca - Tipo", "22"))
+        DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Add(New ListItem("Marca", "24"))
+        DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
+        DdlGrupo.Items.Add(New ListItem("Giro", "27"))
 
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
@@ -157,9 +159,9 @@ Partial Class Ventas_RepProductosServicios
         DdlClienteClasificacion.DataBind()
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        CargaGrupo()
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargaGrupo()
 
         TipoCambio = 1
         TCEspecifico = 0