diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index b06d1b586..c04c98792 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -199,7 +199,8 @@ Public Class ClsCompras
                               Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
                               Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Decimal = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
                               Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Integer = 0, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Decimal = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
-                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False, Optional CveSubProyecto As Integer = -1, Optional DoctosRelacionados As String = "-1", Optional CveFolioGarantia As Integer = -1) As Boolean
+                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False, Optional CveSubProyecto As Integer = -1, Optional DoctosRelacionados As String = "-1", Optional CveFolioGarantia As Integer = -1,
+                              Optional CveCompraRelacionada As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -255,6 +256,7 @@ Public Class ClsCompras
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@DoctosRelacionados", SqlDbType.VarChar).Value = DoctosRelacionados
             .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
+            .Add("@CveCompraRelacionada", SqlDbType.Int).Value = CveCompraRelacionada
         End With
 
         Try
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 81d96ea9f..6656873c3 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -376,7 +376,8 @@ Public Class ClsInventarios
     End Function
 
 
-    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean
+    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1,
+                               Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1, Optional AlmacenAbreviatura As String = "-1") As Boolean
         Dim Retorno As Boolean = False
         CveAlmacenAgregado = -1
 
@@ -394,6 +395,7 @@ Public Class ClsInventarios
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
             .Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual
+            .Add("@AlmacenAbreviatura", SqlDbType.VarChar).Value = AlmacenAbreviatura
             .Add("@CveAlmacenAgregado", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -414,7 +416,8 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean
+    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Orden As Integer = -1,
+                                  Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1, Optional AlmacenAbreviatura As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesUpdate")
@@ -432,6 +435,7 @@ Public Class ClsInventarios
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
             .Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual
+            .Add("@AlmacenAbreviatura", SqlDbType.VarChar).Value = AlmacenAbreviatura
 
         End With
 
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 4bbe11761..b72b6e8a7 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2700,6 +2700,32 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
+
+
+    Public Function ReporteVacaciones(CveProyecto As Integer, CveSubProyecto As Integer, cveEmpresa As Integer, fechaInicio As String, fechaFin As String) As Boolean
+        Dim retorno As Boolean = False
+        Try
+            DTSet = New DataSet()
+            DataAdapter("PA_Nom_ReporteVacaciones", CommandType.StoredProcedure)
+            SqlAdapter.SelectCommand.CommandTimeout = 2400
+            With SqlAdapter.SelectCommand.Parameters
+                .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+                .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+                .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+                .Add("@FechaInicio", SqlDbType.Date).Value = fechaInicio
+                .Add("@FechaFin", SqlDbType.Date).Value = fechaFin
+            End With
+            SqlAdapter.Fill(DTSet)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al realizar el reporte de vacaciones.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al realizar el reporte de vacaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
     Public Function GetNominasSinTimbrar(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
         Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 79de443d4..b11a0195e 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8452,7 +8452,7 @@ Public Class ClsPaginas
                             RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
                             RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
                             RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
-                            RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"-
+                            RptParametro.Add(New ReportParameter("MetodoPago", """PUE"" (Pago en una sola exhibición)")) 'ObjNomina.MetodoPago
                             RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
                             RptParametro.Add(New ReportParameter("Cantidad", "1"))
                             RptParametro.Add(New ReportParameter("Unidad", "ACT"))
@@ -9852,6 +9852,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Documentacion/TableroMaterialidadDetalle.aspx".ToUpper(), 965)
             PaginaDict.Add("/RH/DiasFestivos.aspx".ToUpper(), -1)
             PaginaDict.Add("/Nomina/FiniquitoB.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Nomina/ReporteVacaciones.aspx".ToUpper(), -1)
 
             '------------ Páginas agregadas recientemente (Implementación Metronic) ------------
             PaginaDict.Add("/Default2.aspx".ToUpper(), -1)
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index bb81bc959..966cac521 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2482,7 +2482,8 @@ Public Class ClsVentas
 
 #Region "   PROMOCIONES   "
     Public Function GetPromociones(CvePromocion As Integer, Fecha As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,
-                                   CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean
+                                   CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1) As Boolean
+
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesGet")
 
@@ -2496,6 +2497,7 @@ Public Class ClsVentas
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
         End With
 
         Try
@@ -7568,6 +7570,28 @@ Public Class ClsVentas
 
 #End Region
 
+
+
+    Public Function GetRepVentasBiosistemas(CveEmpresa As Integer, Opcion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasBiosistemasGetRep")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
 #Region "IDisposable Support"
 
 
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index e26f6c71c..13f8514aa 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -37,9 +37,9 @@
 </asp:Content>
 
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-      <li>
-      <asp:HyperLink ID="HplImprimirPDF" runat="server" Target="_blank" Visible="true" ><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:HyperLink>
-   </li>   
+    <li>
+        <asp:HyperLink ID="HplImprimirPDF" runat="server" Target="_blank" Visible="true"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:HyperLink>
+    </li>
     <%-- <li>
         <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
     </li>--%>
@@ -104,7 +104,7 @@
                                         <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
                                         <asp:ListItem Value="8" Text="Transferencias"></asp:ListItem>
                                         <asp:ListItem Value="11" Text="Tarjeta de Debito"></asp:ListItem>
-                                        <asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>                                        
+                                        <asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
                                         <asp:ListItem Value="-2" Text="Tarjetas"></asp:ListItem>
                                     </asp:DropDownList>
                                     <asp:DropDownList ID="DDlMesesSinIntereses" runat="server" Visible="false" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="40px">
@@ -152,8 +152,8 @@
                 </div>
                 <div class="col-md-2" runat="server">
                     <asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
-                    <asp:RequiredFieldValidator ID="RfvDdlCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito"  InitialValue="-1" CssClass="help-block errorimput" Display="None"
-                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es requerido por la aplicación, por favor ingrese una fecha."  ValidationGroup="Valida">
+                    <asp:RequiredFieldValidator ID="RfvDdlCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" InitialValue="-1" CssClass="help-block errorimput" Display="None"
+                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida">
                     </asp:RequiredFieldValidator>
                     <ajax:ValidatorCalloutExtender ID="VCRfvDdlCuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlCuentaDeposito" Width="350px"></ajax:ValidatorCalloutExtender>
                 </div>
@@ -179,19 +179,19 @@
                 <div class="col-md-1" runat="server" id="divTipoPago1">
                     <label style="width: 100px;">Forma de Pago:</label>
                 </div>
-                <div class="col-md-1" runat="server" id="divTipoPago" >
-                     <asp:DropDownList ID="DdlTipoDeposito" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me" >
-                         <asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
-                         <asp:ListItem Value="13" Text="Efectivo"></asp:ListItem>
-                         <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
-                         <asp:ListItem Value="11" Text="Tarjeta de Débito"></asp:ListItem>
-                         <asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
-                         <asp:ListItem Value="8" Text="Transferencia"></asp:ListItem> 
-                     </asp:DropDownList>
-                    <asp:RequiredFieldValidator ID="RfvDdlTipoDeposito" runat="server" ControlToValidate="DdlTipoDeposito"  InitialValue="-1" CssClass="help-block errorimput" Display="None"
-                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma de Pgo''</b> es requerido por la aplicación, por favor ingrese una fecha."  ValidationGroup="Valida">
+                <div class="col-md-1" runat="server" id="divTipoPago">
+                    <asp:DropDownList ID="DdlTipoDeposito" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                        <asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
+                        <asp:ListItem Value="13" Text="Efectivo"></asp:ListItem>
+                        <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
+                        <asp:ListItem Value="11" Text="Tarjeta de Débito"></asp:ListItem>
+                        <asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
+                        <asp:ListItem Value="8" Text="Transferencia"></asp:ListItem>
+                    </asp:DropDownList>
+                    <asp:RequiredFieldValidator ID="RfvDdlTipoDeposito" runat="server" ControlToValidate="DdlTipoDeposito" InitialValue="-1" CssClass="help-block errorimput" Display="None"
+                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma de Pgo''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida">
                     </asp:RequiredFieldValidator>
-                     <ajax:ValidatorCalloutExtender ID="VCRfvDdlTipoDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlTipoDeposito" Width="350px"></ajax:ValidatorCalloutExtender>
+                    <ajax:ValidatorCalloutExtender ID="VCRfvDdlTipoDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlTipoDeposito" Width="350px"></ajax:ValidatorCalloutExtender>
 
                 </div>
                 <div class="col-md-1" runat="server" id="divFolio" visible="false">
@@ -220,7 +220,7 @@
     <asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-            <div class="row rowcheck truncate " id="DivComisioncheck" style="padding:0px!important;margin:0px!important">
+            <div class="row rowcheck truncate " id="DivComisioncheck" style="padding: 0px!important; margin: 0px!important">
                 <div class="col-md-1 truncate" runat="server" id="DivFaltante" style="width: 155px;">
                     <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox" />
                 </div>
@@ -257,109 +257,108 @@
 
             </div>
 
-            <div class="row rowcheck truncate" id="DivDescuentocheck"  runat="server" style="padding:0px!important;margin:0px!important" >
+            <div class="row rowcheck truncate" id="DivDescuentocheck" runat="server" style="padding: 0px!important; margin: 0px!important">
                 <div class="col-md-1" runat="server" id="Div1" style="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox" />
                 </div>
-                <div class="col-md-1 DivDescuento" style="display:none" >                   
+                <div class="col-md-1 DivDescuento" style="display: none">
                     <div class="form-group form-md-line-input input-iconright">
-                         <asp:TextBox runat="server" ID="TxtDescuento"  Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control   Numeros"></asp:TextBox>
+                        <asp:TextBox runat="server" ID="TxtDescuento" Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control   Numeros"></asp:TextBox>
                         <label for="<%=  TxtDescuento.ClientID.ToString()%>">Importe:</label>
-                    </div>  
+                    </div>
                 </div>
 
-                <div class="col-md-1 DivDescuento" style="display:none" >                    
+                <div class="col-md-1 DivDescuento" style="display: none">
                     <div class="form-group form-md-line-input input-iconright">
-                        <asp:DropDownList ID="DdlSubProyectoDescuento" Width="100px"  runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"  CssClass="form-control select2me" >
+                        <asp:DropDownList ID="DdlSubProyectoDescuento" Width="100px" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me">
                         </asp:DropDownList>
                         <label for="<%=  DdlSubProyectoDescuento.ClientID.ToString()%>">SubProyecto:</label>
-                    </div>  
+                    </div>
 
                 </div>
 
-                <div class="col-md-2 DivDescuento" style="display:none">
+                <div class="col-md-2 DivDescuento" style="display: none">
                     <div class="form-group form-md-line-input input-iconright">
-                        <asp:DropDownList ID="DdlClasificacionDescuento" Width="100%"  AutoPostBack="false"  runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control select2me">
+                        <asp:DropDownList ID="DdlClasificacionDescuento" Width="100%" AutoPostBack="false" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control select2me">
                         </asp:DropDownList>
                         <label for="<%=  DdlClasificacionDescuento.ClientID.ToString()%>">Clasificación:</label>
                     </div>
                 </div>
 
-                <div class="col-md-2 DivDescuento" style="display:none">
-                     <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Width="100%"   runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control select2me">
-                            </asp:DropDownList>
-                         <label for="<%=  DdlPersonal.ClientID.ToString()%>">Emp:</label>
-                     </div>  
+                <div class="col-md-2 DivDescuento" style="display: none">
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Width="100%" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control select2me">
+                        </asp:DropDownList>
+                        <label for="<%=  DdlPersonal.ClientID.ToString()%>">Emp:</label>
+                    </div>
                 </div>
             </div>
 
-            <div class="row rowcheck truncate" id="DivIntercheck"   runat="server" style="padding:0px!important;margin:0px!important">
+            <div class="row rowcheck truncate" id="DivIntercheck" runat="server" style="padding: 0px!important; margin: 0px!important">
 
                 <div class="col-md-1" runat="server" id="Div2" style="width: 155px">
                     <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario" CssClass="checkbox" />
                 </div>
                 <div class="col-md-10 rowcheckCampos xspadding" id="DivInter" style="display: none">
-                    <div class="col-md-1" id="dd" >
-                        <div class="form-group form-md-line-input input-iconright" >
-                            <asp:DropDownList ID="DdlProveedorIntermediario" CssClass="form-control select2me" Width="100%"  DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:DropDownList>                            
+                    <div class="col-md-1" id="dd">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlProveedorIntermediario" CssClass="form-control select2me" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:DropDownList>
                             <label for="<%=  DdlProveedorIntermediario.ClientID.ToString()%>">Intermediario:</label>
                         </div>
                     </div>
-                    
-                    <div class="col-md-1" id="DivinterImporte" >
-                        <div class="form-group form-md-line-input input-iconright" >
-                            <asp:TextBox runat="server" ID="TxtComisionIntermediario"  Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
+
+                    <div class="col-md-1" id="DivinterImporte">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox runat="server" ID="TxtComisionIntermediario" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
                             <label for="<%=  TxtComisionIntermediario.ClientID.ToString()%>">Importe:</label>
                         </div>
                     </div>
 
                     <div class="col-md-1" id="DivIVA">
-                        <div class="form-group form-md-line-input input-iconright" >
+                        <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox runat="server" ID="TxtIVA" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
                             <label for="<%=  TxtIVA.ClientID.ToString()%>">IVA:</label>
                         </div>
                     </div>
-                    
+
                     <div class="col-md-1" id="dd2" style="margin-right: 100px;">
 
-                        <div class="form-group form-md-line-input input-iconright" >
+                        <div class="form-group form-md-line-input input-iconright">
                             <asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class="  form-control  select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
-                                </asp:DropDownList>
-                            <label for="<%=  DdlClasificacionIntermediario.ClientID.ToString()%>"><label id="LblClasificacion3">Gasto:</label></label>
+                            </asp:DropDownList>
+                            <label for="<%=  DdlClasificacionIntermediario.ClientID.ToString()%>">
+                                <label id="LblClasificacion3">Gasto:</label></label>
                         </div>
-                        
-                        
+
+
                     </div>
                     <div class="col-md-2" id="divSubProyectoIntermediario">
-                        <div class="form-group form-md-line-input input-iconright" >                            
-                            <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%"  AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me" >
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me">
                             </asp:DropDownList>
-                            <label for="<%=  DdlSubProyectoIntermediario.ClientID.ToString()%>"><label id="LblSubproyectoIntermediario">SubProyecto:</label></label>
-                        </div>                        
+                            <label for="<%=  DdlSubProyectoIntermediario.ClientID.ToString()%>">
+                                <label id="LblSubproyectoIntermediario">SubProyecto:</label></label>
+                        </div>
                     </div>
                 </div>
             </div>
-            
-            <div class="row rowcheck truncate" id="DivRowCuenta" style="padding:0px!important;margin:0px!important" runat="server" visible="false" >
 
+            <div class="row rowcheck truncate" id="DivRowCuenta" style="padding: 0px!important; margin: 0px!important" runat="server" visible="false">
                 <div class="col-md-1" runat="server" id="Div3" style="width: 155px">
                     <asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Caja" CssClass="checkbox" />
-                </div>                    
-                        <div class="col-md-2 DivRowCuenta2" id="DivCuentaImporte" style="display:none">                            
-                                <div class="form-group form-md-line-input input-iconright" >
-                                    <asp:TextBox runat="server" ID="TxtCuentaRetorno"  Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
-                                    <label for="<%=  TxtCuentaRetorno.ClientID.ToString()%>">Importe:</label>
-                                </div>
-                        </div>
-                        <div class="col-md-6 DivRowCuenta2"  style="display:none">
-                             <div class="form-group form-md-line-input input-iconright" >
-                                 <asp:TextBox runat="server" ID="TxtCuentaRetornoObs"   Width="100%" CssClass=" form-control" ></asp:TextBox>
-                                 <label for="<%=  TxtCuentaRetornoObs.ClientID.ToString()%>">Obs:</label>
-                             </div>
-                        </div>
-                    
-                
+                </div>
+                <div class="col-md-2 DivRowCuenta2" id="DivCuentaImporte" style="display: none">
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:TextBox runat="server" ID="TxtCuentaRetorno" Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
+                        <label for="<%=  TxtCuentaRetorno.ClientID.ToString()%>">Importe:</label>
+                    </div>
+                </div>
+                <div class="col-md-6 DivRowCuenta2" style="display: none">
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:TextBox runat="server" ID="TxtCuentaRetornoObs" Width="100%" CssClass=" form-control"></asp:TextBox>
+                        <label for="<%=  TxtCuentaRetornoObs.ClientID.ToString()%>">Obs:</label>
+                    </div>
+                </div>
             </div>
 
         </ContentTemplate>
@@ -664,21 +663,13 @@
         }
 
         function txtSumaCuentaRetorno(txt) {
-            debugger;
             var comision2 = ToDouble($('#C_TxtCuentaRetorno').val());
-            //if (comision2 > ValorTotalSeleccionado) {
-            //    $('#C_TxtCuentaRetorno').val(descuento)
-            //    alert("No es posible poner un IVA superior a lo seleccionado")
-            //} else {
-                saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario;
-                $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
-                descuento = ToDouble($('#C_TxtCuentaRetorno').val())
-            //}
-
+
+            saldo = ValorTotalSeleccionado + comision2 + comision - IVA - ComisionIntermediario;
+            $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
         }
 
 
-
         function txtSumaIVA(txt) {
             var comision2 = ToDouble($('#C_TxtIVA').val());
             if (comision2 > ValorTotalSeleccionado) {
@@ -688,8 +679,7 @@
                 saldo = ValorTotalSeleccionado - descuento + comision - comision2 - ComisionIntermediario - CuentaRetorno;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 IVA = ToDouble($('#C_TxtIVA').val());
-            }
-
+            }
         }
 
         function txtSumaTntermediario(txt) {
@@ -759,25 +749,28 @@
                 $('#DivRowCuenta').removeClass("truncate");
 
             } else {
-                
+                $('#C_TxtCuentaRetorno').val(0);
                 Recalcular();
                 $('.DivRowCuenta2').css("display", "none");
                 $('#DivRowCuenta').addClass("truncate");
             }
         }
 
-        function Recalcular() {
-            debugger;
-            var Comision = ToDouble($('#C_TxtComision').val());
-            var Descuento = ToDouble($('#C_TxtDescuento').val());
-            var IVA = ToDouble($('#C_TxtIVA').val());
-            var ImporteInter = ToDouble($('#C_TxtComisionIntermediario').val());
-            var ImporteCuentaRetorno= ToDouble($('#C_TxtCuentaRetorno').val());
+        function Recalcular() {
+            let Comision = ToDouble($('#C_TxtComision').val());
+            let Descuento = 0;
+            let ImporteInter = 0;
+            let IVA = 0;
 
-            var total = ValorTotalSeleccionado + Comision - Descuento - IVA - ImporteInter - ImporteCuentaRetorno
+            if ('<%= If(UsuarioActual.CveEmpresa = 189, "0", "1") %>' == '1') {
+                Descuento = ToDouble($('#C_TxtDescuento').val());
+                ImporteInter = ToDouble($('#C_TxtComisionIntermediario').val());
+                IVA = ToDouble($('#C_TxtIVA').val());
+            }
+            let ImporteCuentaRetorno = ToDouble($('#C_TxtCuentaRetorno').val());
+
+            let total = ValorTotalSeleccionado + Comision - Descuento - IVA - ImporteInter + ImporteCuentaRetorno;
             $('#C_lblValorTotal').text(FormatoNumero(total, 2));
-            debugger;
-
         }
 
         function Depositar() {
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index a7526ef43..dab5c1c11 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -34,6 +34,7 @@ Partial Class Bancos_DepositosCaja
             End If
 
             CargaCuentas()
+
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
             ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
             ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
@@ -222,7 +223,7 @@ Partial Class Bancos_DepositosCaja
         End If
 
         If CuentaRetorno <> 0 Then
-            TotalImporte = TotalImporte - CuentaRetorno
+            TotalImporte = TotalImporte + CuentaRetorno
             'Descuento = -(Descuento) ' se inverte el valor, va cargada
             'If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
             '    Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
@@ -364,7 +365,7 @@ Partial Class Bancos_DepositosCaja
                     CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero
                     CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero
                     If Comision <> 0 Then
-                        If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, Comision * TipoCambio, 78, $"Depósito Bancario - {tSubProyectoDeposito}", $"Depósito Bancario - {tSubProyectoDeposito}", CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision) Then
+                        If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, Comision * TipoCambio, 78, $"Depósito Bancario - FALTANTE/SOBRANTE - {tSubProyectoDeposito}", $"Depósito Bancario - {tSubProyectoDeposito}", CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision) Then
                             OcurrioError = True
                         End If
                     End If
@@ -387,7 +388,7 @@ Partial Class Bancos_DepositosCaja
                 FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco)
                 Dim CveIEOrigenRetorno As Integer = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, $"Retorno Depósito Bancario - {tSubProyectoDeposito}", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, CuentaRetorno, CuentaRetorno * TipoCambio, 30, $"Depósito Bancario - {tSubProyectoDeposito}", TxtCuentaRetornoObs.Text.Trim, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigenRetorno) Then
+                If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, CuentaRetorno, CuentaRetorno * TipoCambio, 30, $"Depósito Bancario - CAJA - {tSubProyectoDeposito}", TxtCuentaRetornoObs.Text.Trim, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigenRetorno) Then
                     OcurrioError = True
                 End If
             End If
diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx
index 41b6c9341..2377a6341 100644
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/Bancos/ProveedoresAbonar.aspx
@@ -342,10 +342,10 @@
                             <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" class="btn btn-primary" />
                             <asp:CheckBox Text=" No Validar ante SAT" ID="ChkNoValidaSAT" CssClass="md-checksd" runat="server" Checked="false" Visible="false" />
                             <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
-                            <asp:CheckBox Text="Descuento" ID="chkaplicaDescuento" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuento_CheckedChanged" AutoPostBack="true" Visible="false" />
-                            <asp:CheckBox Text="Descuento Masivo" ID="chkaplicaDescuentoMasivo" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuentoMasivo_CheckedChanged" AutoPostBack="true" Visible="false" />
+                            <asp:CheckBox Text="Descuento" ID="chkaplicaDescuento" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuento_CheckedChanged" AutoPostBack="true" Visible="false" />                            
                             <asp:TextBox runat="server" ID="TxtDescuenoMasivo" ClientIDMode="Static" onkeyup="DescuenoMasivo(this)" Visible="false" Width="60px"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuenoMasivo" FilterType="Custom" ValidChars="1234567890+" />
+                            <asp:CheckBox Text="Generar Remisión" ID="ChkGeneraRNC" CssClass="md-checksd" runat="server" Checked="false"     Visible="false" />                            
                         </td>
 
                     </tr>
@@ -609,14 +609,27 @@
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript" language="javascript">
+        
         var Facturas = '';
+        var RNCAutocheck = true;
 
-        function FnSuma(t, txt, importe) {
+        function FnSuma(t, txt, importe, idTxtDescuento) {
             var chkPesosBancos = $get("ChkPagarPesos");
             var chkDolaresBancos = $get("ChkPagarDolares");
 
             if (t.checked) {
+
                 txt.value = FormatoNumero(importe, 2);
+
+                let txtDescuento =   $("#" + idTxtDescuento)
+
+                if (typeof txtDescuento.val() === "string"){                      
+                      let descuentoValue = $("#" + idTxtDescuento).val().trim();
+                      if (descuentoValue.length > 0) {
+                          calculaDescuentoEscalonado(importe, idTxtDescuento, txt, t, 'El Importe no debe de exceder el saldo',1);
+                      }
+                }                
+
             } else {
                 txt.value = "";
             }
@@ -645,46 +658,50 @@
                     if (textBoxes[i].id.indexOf('C_GvCxP_TxtAbonar') >= 0) {
                         if (textBoxes[i].value != '') {
                             idd = textBoxes[i].id.replace('C_GvCxP_TxtAbonar_', '');
-                            Facturas = Facturas + (Importe == 0 ? '' : ', ') + $get("C_GvCxP_HplF_" + idd).innerText;
-                            let importeFactura = 0;
+                            let chk = $('#C_GvCxP_Chk_'+idd)   //C_GvCxP_Chk_
+                            
+                            if(chk.is(':checked')){
+                                Facturas = Facturas + (Importe == 0 ? '' : ', ') + $get("C_GvCxP_HplF_" + idd).innerText;
+
+                                let importeFactura = 0;
 
-                            if (cveMonedaPago == 0) {
-                                if (aplicaTC && $get('TxtTC') != null) {
-                                    importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) * parseFloat($get('TxtTC').value), 2).split(',').join(''));
-                                } else {
-                                    importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
-                                }
-                            } else {
-                                let cveMonedaCompra = textBoxes[i].getAttribute("cvemoneda");
+                                if (cveMonedaPago == 0) {
+                                    if (aplicaTC && $get('TxtTC') != null) {
+                                        importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) * parseFloat($get('TxtTC').value), 2).split(',').join(''));
+                                    } else {
+                                        importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
+                                    }
+                                } else {
+                                    let cveMonedaCompra = textBoxes[i].getAttribute("cvemoneda");
 
-                                switch (cveMonedaPago) {
-                                    case 1: //PAGO CON PESOS
+                                    switch (cveMonedaPago) {
+                                        case 1: //PAGO CON PESOS
+
+                                            //SI SON DOLARES MULTIPLICAR POR TC
+                                            if (cveMonedaCompra == '2') {
+                                                importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) * parseFloat($get('TxtTC').value), 2).split(',').join(''));
+                                                //MISMA MONEDA DEBE SOLO SUMAR
+                                            } else if (cveMonedaCompra == '1') {
+                                                importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
+                                            }
+
+                                            break;
+                                        case 2: //PAGO CON DOLARES
 
-                                        //SI SON DOLARES MULTIPLICAR POR TC
-                                        if (cveMonedaCompra == '2') {
-                                            importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) * parseFloat($get('TxtTC').value), 2).split(',').join(''));
                                             //MISMA MONEDA DEBE SOLO SUMAR
-                                        } else if (cveMonedaCompra == '1') {
-                                            importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
-                                        }
-
-                                        break;
-                                    case 2: //PAGO CON DOLARES
-
-                                        //MISMA MONEDA DEBE SOLO SUMAR
-                                        if (cveMonedaCompra == '2') {
-                                            importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
-                                            //SI SON PESOS DIVIDIR ENTRE EL TC
-                                        } else if (cveMonedaCompra == '1') {
-                                            importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) / parseFloat($get('TxtTC').value), 2).split(',').join(''));
-                                        }
-                                        break;
+                                            if (cveMonedaCompra == '2') {
+                                                importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
+                                                //SI SON PESOS DIVIDIR ENTRE EL TC
+                                            } else if (cveMonedaCompra == '1') {
+                                                importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) / parseFloat($get('TxtTC').value), 2).split(',').join(''));
+                                            }
+                                            break;
+                                    }
                                 }
-
-
-                            }
-
-                            Importe = parseFloat(Importe) + importeFactura;
+                                Importe = parseFloat(Importe) + importeFactura;
+
+                            }                           
+                            
                         }
                     }
                     if (textBoxes[i].id.indexOf('C_GvCxP_TxtComision') >= 0) {
@@ -715,12 +732,14 @@
         }
 
         function FnCambia(chk, txt, saldo, op, text, Tipo) {
-            debugger;
+            
             var chkPesosBancos = $get("ChkPagarPesos");
             var chkDolaresBancos = $get("ChkPagarDolares");
             if (op == 1) {
                 if (txt.value != '') {
-                    chk.checked = true;
+                    if( RNCAutocheck){
+                        chk.checked = true;
+                    }                    
                 } else {
                     chk.checked = false;
                 }
@@ -832,7 +851,7 @@
 
         var TipoCambioActual = 0.0;
         function CambiaTC(txt) {
-            debugger;
+            
             //let TipoCambioTxt = ToDouble(txt.value)
             //if (TipoCambioActual != TipoCambioTxt) {
             $get("BtnCambiaTipoMoneda").click();
@@ -840,8 +859,8 @@
             //}
         }
 
-        function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk, Text, Tipo) {
-            let idTxtDescuento = TxtDescuento.id;
+        function calculaDescuentoEscalonado(saldo, idTxtDescuento, TxtAbonar, chk, Text, Tipo) {
+            //let idTxtDescuento = TxtDescuento.id;
             let idTxtAbonar = TxtAbonar.id;
 
             let descuentoValue = $("#" + idTxtDescuento).val().trim();
@@ -871,6 +890,8 @@
 
 
         function DescuenoMasivo(txt) {
+
+            RNCAutocheck = false;
             $(".selDescuento").val(txt.value);
             $(".selDescuento").trigger("keyup");
         }
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 96b6496a6..c647ba164 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2,6 +2,11 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Data.SqlClient
+Imports ClsPaginas
+Imports System.IO
+Imports System.Xml
+Imports DocumentFormat.OpenXml.ExtendedProperties
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class Bancos_ProveedoresAbonar
@@ -220,6 +225,31 @@ Partial Class Bancos_ProveedoresAbonar
         End Set
     End Property
 
+    Private Property CveTipoProveedor As Integer
+        Get
+            If ViewState("CveTipoProveedor") Is Nothing Then
+                ViewState("CveTipoProveedor") = -1
+            End If
+            Return ViewState("CveTipoProveedor").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoProveedor") = value
+        End Set
+    End Property
+    Private Property CveTipoConceptoProveedor As Integer
+        Get
+            If ViewState("CveTipoConceptoProveedor") Is Nothing Then
+                ViewState("CveTipoConceptoProveedor") = -1
+            End If
+            Return ViewState("CveTipoConceptoProveedor").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoConceptoProveedor") = value
+        End Set
+    End Property
+
 
 #End Region
 
@@ -344,7 +374,6 @@ Partial Class Bancos_ProveedoresAbonar
             If UsuarioActual.TienePermisoProceso(361) Then
                 'GvCxP.Columns(11).Visible = True
                 chkaplicaDescuento.Visible = True
-                chkaplicaDescuentoMasivo.Visible = True
             End If
 
 
@@ -452,6 +481,9 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
                 End If
 
+                CveTipoProveedor = ObjProveedor.CveTipoProveedor
+                CveTipoConceptoProveedor = ObjProveedor.CveTipoProveedor
+
                 CargaDatos() '(tCveProveedor, CveMoneda, FechaI, FechaF, CveUsuarioRegistro, CveUsuarioProgramo, Serie)
                 CargaCuentasDepositos()
 
@@ -478,7 +510,7 @@ Partial Class Bancos_ProveedoresAbonar
             e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right
 
-            e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo")))
+            e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format(" RNCAutocheck = true; FnSuma(this,{0},{1},'{2}');", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCTextBox("TxtDescuento").ClientID))
 
             If FiltrarCuentas = 1 AndAlso e.Row.RowIndex = 0 Then
                 e.Row.FCHyperLink("HplF").Text = (CType(GvCxP.DataSource, DataTable).Rows.Count - 1).ToString
@@ -490,8 +522,8 @@ Partial Class Bancos_ProveedoresAbonar
                 e.Row.FCCheckBox("Chk").Visible = False
                 e.Row.FCTextBox("TxtComision").Visible = False
             Else
-                e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},1,'{2}',1);", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo"))
-                e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},2,'{2}',2);", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo"))
+                e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format(" RNCAutocheck = true; FnCambia({0},this,{1},1,'{2}',1);", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo"))
+                e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format(" RNCAutocheck = true;FnCambia({0},this,{1},2,'{2}',2);", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo"))
             End If
 
             If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(7).ForeColor = Drawing.Color.Red
@@ -554,7 +586,7 @@ Partial Class Bancos_ProveedoresAbonar
 
 
                 e.Row.FCLiteral("LtlAux").Text = String.Format("<a Class=""Texto thickbox"" href=""/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=370&width=900"" />Ir</a>", e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveCompra"))
-                e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},1,'{2}',1);{3}", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo", FiltroInv))
+                e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format(" RNCAutocheck = true; FnCambia({0},this,{1},1,'{2}',1);{3}", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo", FiltroInv))
 
 
 
@@ -591,7 +623,7 @@ Partial Class Bancos_ProveedoresAbonar
                     e.Row.FCCheckBox("Chk").Enabled = False
                 End If
 
-                e.Row.FCTextBox("TxtDescuento").Attributes.Add("onkeyup", $"calculaDescuentoEscalonado({e.Row.DBCampo("Saldo")},{e.Row.FCTextBox("TxtDescuento").ClientID},{e.Row.FCTextBox("TxtAbonar").ClientID},{e.Row.FCCheckBox("Chk").ClientID},'El Importe no debe de exceder el saldo',1)")
+                e.Row.FCTextBox("TxtDescuento").Attributes.Add("onkeyup", $" calculaDescuentoEscalonado({e.Row.DBCampo("Saldo")},'{e.Row.FCTextBox("TxtDescuento").ClientID}',{e.Row.FCTextBox("TxtAbonar").ClientID},{e.Row.FCCheckBox("Chk").ClientID},'El Importe no debe de exceder el saldo',1)")
             Else
                 e.Row.FCTextBox("TxtDescuento").Visible = False
 
@@ -608,14 +640,16 @@ Partial Class Bancos_ProveedoresAbonar
 
         Dim ValFechaDocumento As Boolean = False
         Dim FoliosFechasValFechaDocumento As New StringBuilder
+        Dim sbRNC As New StringBuilder
 
         FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
 
+        Dim sbDescuentos As New StringBuilder
+
         For Each gvRowVal As GridViewRow In GvCxP.Rows
 
             If gvRowVal.FCCheckBox("Chk").Checked Then
 
-
                 Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
                 Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
 
@@ -634,9 +668,11 @@ Partial Class Bancos_ProveedoresAbonar
                         ValFechaDocumento = True
                     End If
                 End If
+
             End If
         Next
 
+
         If ValFechaDocumento Then
             Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -893,6 +929,88 @@ Partial Class Bancos_ProveedoresAbonar
                                 If MsgError = "" AndAlso gvr.DataKey("ImporteProgramo").ToDouble > 0 Then
                                     ObjComp.ProgramarCompra(gvr.DataKey("CveCompra").ToEntero, 0, UsuarioActual.CveUsuario, -1)
                                 End If
+
+
+                                'INICIO Descuento Remision Nota de credito
+                                If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(574) = "1" And ChkGeneraRNC.Checked Then
+                                    Dim descuentoParts As String() = gvr.FCTextBox("TxtDescuento").Text.Split("+"c)
+                                    Dim Descuento As Decimal = 0
+                                    Dim TotalTemp As Decimal = gvr.DataKey("Saldo").ToDecimal
+
+                                    If descuentoParts.Length = 0 Then
+                                        Descuento = 0
+                                    Else
+
+                                        For i As Integer = 0 To descuentoParts.Length - 1
+                                            Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
+                                            If descuentoPart > 0 Then
+                                                Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
+                                            Else
+                                                Continue For
+                                            End If
+                                        Next
+
+                                    End If
+
+                                    If Descuento > 0 Then
+
+                                        Dim PorcentajeIVA As Decimal = gvr.DataKey("PorcentajeIVA").ToDecimal
+                                        Dim serieFolioArray As String() = gvr.DataKey("SerieFolio").ToString.Split("-"c)
+                                        Dim SerieRNC As String = ""
+                                        Dim FolioRNC As String = ""
+
+                                        Dim SerieFolioRNC As String = serieFolioArray(0)
+                                        If serieFolioArray.Length = 2 Then
+                                            SerieRNC = serieFolioArray(0)
+                                            FolioRNC = serieFolioArray(1)
+                                            SerieFolioRNC = $"{FolioRNC}-D-{SerieRNC = serieFolioArray(0)}"
+
+                                        Else
+                                            FolioRNC = serieFolioArray(0)
+                                        End If
+
+                                        Descuento = Descuento.RoundSQL(2)
+                                        If PorcentajeIVA > 0 Then
+
+                                            Descuento = ((Descuento) / (1 + PorcentajeIVA))
+                                            'Descuento = ((Descuento) / (1 + PorcentajeIVA)).RoundSQL(2)
+
+                                            Dim saldo As Decimal = gvr.DataKey("Saldo").ToDecimal
+                                            Dim abonado As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
+                                            Dim TotalRNC = Descuento + (Descuento * PorcentajeIVA).RoundSQL
+                                            Dim dif As Decimal = saldo - (TotalRNC + abonado)
+
+                                            If dif.Abs() >= 0.01 Then
+                                                If dif > 0 Then
+                                                    'Descuento = Descuento + 0.01D
+                                                End If
+
+                                                If dif < 0 Then
+                                                    'Descuento = Descuento - 0.01D
+                                                End If
+                                            End If
+
+                                        End If
+
+                                        Dim CveCompraRNC As Integer = GeneraRNC(Descuento, ObjComp.IniciaTransacSQL, gvr.DataKey("CveCompra").ToEntero, CompraActual, ObjMov, CvePrePoliza, CveProveedor, HplProveedor.Text, TxtFechaDocumento.Text.ToDate,
+                                                         $"Remisión Nota de Crédito pago {gvr.DataKey("SerieFolio").ToString}", gvr.DataKey("CveMoneda").ToEntero, TxtTC.Text.ToDecimal, SerieRNC, FolioRNC, PorcentajeIVA:=PorcentajeIVA,
+                                                         CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero)
+
+                                        If CveCompraRNC > 0 Then
+
+                                            sbRNC.AppendLine($"<a class='Texto' href='../Compras/Compras.aspx?CveCompra={CveCompraRNC}' > {SerieFolioRNC}</a><br>")
+
+                                        Else
+                                            'TieneError = True
+                                            MsgError = $"Error al Generar Remisión de Nota de Crédito de factura {gvr.DataKey("SerieFolio").ToString}"
+                                            Exit For
+                                        End If
+                                    End If
+                                End If
+                                'FIN Descuento Remision Nota de credito
+
+
+
                             End If
                         Next
 
@@ -1057,6 +1175,11 @@ Partial Class Bancos_ProveedoresAbonar
                             Msg.AppendFormat("<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
                         End If
 
+
+                        If sbRNC.Length > 0 Then
+                            Msg.AppendFormat($"<br>Remisiones de Nota de Crédito Generadas y Aplicadas<BR>{sbRNC.ToString}")
+                        End If
+
                         Dim Mensaje As String = String.Format("El Documento se generó correctamente.<br /><br />  {0} ", Msg.ToString)
 
                         'LIMPIA
@@ -1750,16 +1873,12 @@ Partial Class Bancos_ProveedoresAbonar
     Protected Sub chkaplicaDescuento_CheckedChanged(sender As Object, e As EventArgs)
 
         GvCxP.Columns(11).Visible = chkaplicaDescuento.Checked
+        TxtDescuenoMasivo.Visible = chkaplicaDescuento.Checked
+        ChkGeneraRNC.Visible = chkaplicaDescuento.Checked
         UPCompras.Update()
     End Sub
 
 
-    Protected Sub chkaplicaDescuentoMasivo_CheckedChanged(sender As Object, e As EventArgs)
-
-        GvCxP.Columns(11).Visible = chkaplicaDescuentoMasivo.Checked
-        TxtDescuenoMasivo.Visible = chkaplicaDescuentoMasivo.Checked
-        UPCompras.Update()
-    End Sub
 
     Private Sub tmpValida()
 
@@ -1833,5 +1952,2191 @@ Partial Class Bancos_ProveedoresAbonar
         Dim url As String = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&TipoPago={4}&CveUsuarioRegistro={5}&CveUsuarioResponsable={6}&CveClasificacion={7}&CveMoneda={8}&CveEstatus={9}&CveProveedorSucursal={10}&CveAplicaNC={11}&CodigoProgramacion={12}&CveSubProyecto={13}", DdlProveedores.SelectedValue, Request("FechaI").ToString(), Request("FechaF").ToString(), Request("CveUsuarioProgramo").ToString(), -1, Request("CveUsuarioRegistro").ToString(), Request("CveUsuarioResponsable").ToString(), Request("CveClasificacion").ToString(), Request("CveMoneda").ToString(), Request("CveEstatus").ToString(), Request("CveProveedorSucursal").ToString(), Request("CveAplicaNC").ToString(), Request("CodigoProgramacion").ToString(), Request("CveSubProyecto").ToString())
         Response.Redirect(url)
     End Sub
+
+
+    Public Function GeneraRNC(ImporteRNC As Decimal, ByRef sqltransaccion As SqlTransaction, CveCompraAmortizada As Integer, ByRef CompraActual As Compra, ByRef ObjConta As ClsContabilidad, CvePrePoliza As Integer,
+                          CveProveedor As Integer, NombreProveedor As String, Fecha As Date, Descripcion As String, CveMoneda As Integer, TipoCambio As Decimal, Serie As String, Folio As String, Optional EsDRMN As Boolean = False,
+                              Optional TmpListadoPS As DataTable = Nothing, Optional PorcentajeIVA As Decimal = 0, Optional CveSubProyecto As Integer = -1) As Integer
+        Dim CveCompraRNC As Integer = -1
+        Dim respuesta As Boolean = True
+        'Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+
+        Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
+        Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
+        Dim CveSubProyectoPrincipal As Integer = CveSubProyecto 'AsignarSubProyectoPrincipal()
+        Dim SubProyecto As String = ""
+
+        If Not CvePS_RNC > 0 Then
+            Alert("No esta definido el producto de Remisión de Nota de Crédito.", TipoMensaje.MsgAdvertencia)
+            Return -1
+        End If
+
+        If Not CveSubProyectoPrincipal > 0 Then
+            Alert("No esta definido el Sub Proyecto.", TipoMensaje.MsgAdvertencia)
+            Return -1
+        End If
+
+        SubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPrincipal).FiltroPrimeroValor("SubProyecto")
+
+        If PSRow IsNot Nothing Then
+
+            Dim CompraRNC As New ClsCompraManagerComprasCA(UsuarioActual) With {
+                .TipoDocto = "RNC",
+                .CveProveedor = CveProveedor,
+                .CveTipoProveedor = CveTipoProveedor,
+                .CveTipoConceptoProveedor = CveTipoConceptoProveedor,
+                .Descripcion = Descripcion,
+                .NombreProveedor = NombreProveedor,
+                .Fecha = Fecha,
+                .CveMoneda = CveMoneda,
+                .TipoCambio = If(CveMoneda = 1, 1, TipoCambio),
+                .Serie = $"D-{Serie}",
+                .Folio = Folio,
+                .CveCompraAmortizacion = CveCompraAmortizada,
+                .CveCompraRelacionada = CveCompraAmortizada
+            }
+
+            'Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
+            'If PSRow("CvePSCargo").ToString <> "" Then
+            '    CveTipoPS = 2
+            'End If
+
+            Dim CveClasificacion As Integer = PSRow("CveClasificacion").ToString.ToEntero
+            Dim Clasificacion As String = PSRow("Clasificacion").ToString
+            Dim PS As String = PSRow("PSCodigo").ToString
+            Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero
+            Dim UM As String = PSRow("UnidadMedida").ToString
+
+            Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
+            Dim TotalRNC As Decimal = (ImporteRNC + IVARNC).RoundSQL(2)
+
+            CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC.RoundSQL(2), IVARNC, TotalRNC, PorcentajeIVA)
+
+            If CompraRNC.AddCompra(sqltransaccion) Then
+                Dim tImporteRNC = (ImporteRNC + IVARNC).RoundSQL(2) ' le agrego el importe del iva
+                Dim Pago As New CompraPago
+                Pago.ImportePago = tImporteRNC
+                Pago.CveMonedaPago = CompraActual.CveMoneda
+                Pago.CveCompraAmortizacion = CompraRNC.CveCompra
+                Pago.Referencia = CompraRNC.SerieFolio
+                Pago.TCPago = CompraActual.TC
+                Pago.AplicaAcreditable = False
+                Pago.TipoPago = "RNC"
+                Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+                CveCompraRNC = CompraRNC.CveCompra
+                respuesta = Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+
+                If Not respuesta Then
+                    Dim error_ As Boolean = True
+                End If
+            Else
+                respuesta = False
+            End If
+
+            'If respuesta AndAlso ImporteRNCProntoPago > 0 Then
+
+            '    Dim CompraRNCProntoPago As New ClsCompraManagerCompras(UsuarioActual) With {
+            '        .TipoDocto = "RNC",
+            '        .CveProveedor = CveProveedor,
+            '        .CveTipoProveedor = CveTipoProveedor,
+            '        .CveTipoConceptoProveedor = CveTipoConcepto,
+            '        .Descripcion = Descripcion,
+            '        .NombreProveedor = NombreProveedor,
+            '        .Fecha = Fecha,
+            '        .CveMoneda = CveMoneda,
+            '        .TipoCambio = If(CveMoneda = 1, 1, TipoCambio),
+            '        .Serie = $"PP-{Serie}",
+            '        .Folio = $"{Folio}",
+            '        .CveCompraAmortizacion = CveCompraRegistrada
+            '    }
+            '    Dim IVARNCProntoPago As Decimal = (ImporteRNCProntoPago * PorcentajeIVA).RoundSQL(2)
+
+            '    CompraRNCProntoPago.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago, PorcentajeIVA)
+            '    If CompraRNCProntoPago.AddCompra(sqltransaccion) Then
+            '        Dim tImporteRNCProntoPago = ImporteRNCProntoPago + IVARNCProntoPago ' le agrego el importe del iva
+            '        Dim Pago As New CompraPago
+            '        Pago.ImportePago = tImporteRNCProntoPago
+            '        Pago.CveMonedaPago = CompraActual.CveMoneda
+            '        Pago.CveCompraAmortizacion = CompraRNCProntoPago.CveCompra
+            '        Pago.Referencia = CompraRNCProntoPago.SerieFolio
+            '        Pago.TCPago = CompraActual.TC
+            '        Pago.AplicaAcreditable = False
+            '        Pago.TipoPago = "RNC"
+            '        Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+            '        respuesta = Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+            '    Else
+            '        respuesta = False
+            '    End If
+            'End If
+        End If
+
+        Return If(respuesta, CveCompraRNC, -1)
+
+    End Function
+
+
+End Class
+
+
+
+
+
+Public Class MMensajeDevolucion
+    Public Property CveMovimiento As Integer
+    Public Property TieneError As Boolean
+    Public Property DebeRealizarDevolucion As Boolean
+    Public Property Total As Decimal
+End Class
+
+
+
+Public Class ClsCompraManagerComprasCA
+
+    Enum EnumCargaCompra
+        DesdeXML
+        DesdeArchivo
+        SinXML
+    End Enum
+    Public Enum EnumCFDIVersion
+        v32
+        v33
+        v40
+    End Enum
+    Public Enum EnumTipoCompra
+        SinDefinir = -1
+        Gasto_con_almacen = 10
+        Activo_Fijo = 1
+        'Costo_Indirecto = 2
+        Almacen = 3
+        Almacen_con_costo_indirecto = 8
+        Costo_Indirecto = 4
+        Importación = 5
+        NC_Con_Productos = 6
+        Apoyo_Logístico = 9
+        NC_Por_Devolución = 11
+        Garantia = 12
+    End Enum
+
+
+    Public Enum EnumModalidadAccionPS
+        Agregar
+        Actualizar
+    End Enum
+
+    Public Property CveCompra As Integer = -1
+    Public Property CveProveedor As Integer
+    Public Property CveTipoConceptoProveedor As Integer
+    Public Property CveMoneda As Integer
+    Public Property Fecha As Date
+    Public ReadOnly Property SerieFolio As String
+        Get
+            If Serie.Length > 0 Then
+                Return $"{Serie}-{Folio}"
+            Else
+                Return $"{Folio}"
+            End If
+        End Get
+    End Property
+
+    Public Property Serie As String = ""
+    Public Property Folio As String = ""
+    Public Property FolioSecundario As String = ""
+    Public Property Descripcion As String = ""
+    Public Property CFDIVersion As EnumCFDIVersion = EnumCFDIVersion.v40
+    Public Property ProveedorNombre As String = ""
+    Public Property EsImportacion As Boolean = False
+    Public Property TC As Decimal = 1
+    Public Property SubTotal As Decimal = 0D
+    Public Property SubTotal2 As Decimal = 0D
+    Public Property Descuento As Decimal = 0D
+    Public Property Total As Decimal = 0D
+    Public Property Moneda As String = ""
+    Public Property TipoComprobante As String
+    Public Property TipoDocto As String = "Fac"
+    Public Property TipoCambio As Decimal = 1
+    Public Property CompraNoDeducible As Integer = 0
+    Public Property IVA As Decimal = 0D
+    Public Property IVADeducible As Decimal = 0D
+    Public Property IVANoDeducible As Decimal = 0
+    Public Property IEPS As Decimal = 0D
+    Public Property RetIVA As Decimal = 0D
+    Public Property RetISR As Decimal = 0D
+    Public Property PorcentajeIVA As Decimal = 0
+    Public Property PorcentajeISR As Decimal = 0
+    Public Property CveRetIVAConcepto As Integer = -1
+    Public Property CveRetISRConcepto As Integer = -1
+    Public Property CveSubProyecto As Integer = -1
+    Public Property UsuarioActual As Usuario
+    Public ReadOnly Property ConceptoPrePolizaIVA As ClsPaginas.ConceptosRetenciones
+        Get
+            Dim Ret As New ClsPaginas.ConceptosRetenciones
+            If EsImportacion Then
+                Ret.CveConceptoAcreditable = 288
+                Ret.CveConceptoxAcreditar = 287
+            Else
+                Ret.CveConceptoAcreditable = 19
+                Ret.CveConceptoxAcreditar = 14
+            End If
+            Return Ret
+        End Get
+    End Property
+    Public ReadOnly Property ConceptoPrePolizaRetIVA As ClsPaginas.ConceptosRetenciones
+        Get
+            Dim Ret As New ClsPaginas.ConceptosRetenciones
+            Dim Funcionalidad, FuncionalidadxAcred As Integer
+            If CveRetIVAConcepto = 1 Then
+                Funcionalidad = 308 : FuncionalidadxAcred = 307
+                Ret.CveConceptoAcreditable = 22
+                Ret.CveConceptoxAcreditar = 15
+            ElseIf CveRetIVAConcepto = 2 Then
+                Funcionalidad = 310 : FuncionalidadxAcred = 309
+                Ret.CveConceptoAcreditable = 184
+                Ret.CveConceptoxAcreditar = 183
+            ElseIf CveRetIVAConcepto = 3 Then
+                Funcionalidad = 312 : FuncionalidadxAcred = 311
+                Ret.CveConceptoAcreditable = 186
+                Ret.CveConceptoxAcreditar = 185
+            ElseIf CveRetIVAConcepto = 4 Then
+                Funcionalidad = 314 : FuncionalidadxAcred = 313
+                Ret.CveConceptoAcreditable = 249
+                Ret.CveConceptoxAcreditar = 248
+            ElseIf CveRetIVAConcepto = 5 Then
+                Funcionalidad = 578 : FuncionalidadxAcred = 578
+                Ret.CveConceptoAcreditable = 286
+                Ret.CveConceptoxAcreditar = 285
+            ElseIf CveRetIVAConcepto = 6 Then
+                Funcionalidad = 578 : FuncionalidadxAcred = 578
+                Ret.CveConceptoAcreditable = 333
+                Ret.CveConceptoxAcreditar = 334
+            End If
+            Return Ret
+        End Get
+    End Property
+    Public ReadOnly Property ConceptoPrePolizaRetISR As ClsPaginas.ConceptosRetenciones
+        Get
+            Dim Ret As New ClsPaginas.ConceptosRetenciones
+            Dim Funcionalidad, FuncionalidadxAcred As Integer
+            If CveRetISRConcepto = 1 Then
+                Funcionalidad = 316 : FuncionalidadxAcred = 315
+                Ret.CveConceptoAcreditable = 23
+                Ret.CveConceptoxAcreditar = 16
+            ElseIf CveRetISRConcepto = 2 Then
+                Funcionalidad = 318 : FuncionalidadxAcred = 317
+                Ret.CveConceptoAcreditable = 244
+                Ret.CveConceptoxAcreditar = 243
+            ElseIf CveRetISRConcepto = 3 Then
+                Funcionalidad = 349 : FuncionalidadxAcred = 348
+                Ret.CveConceptoAcreditable = 328
+                Ret.CveConceptoxAcreditar = 327
+            End If
+            Return Ret
+        End Get
+    End Property
+
+    Public Property CveMetodoPago As Integer
+    Public Property MetodoPago As String
+    Public Property DocumentosRelacionadosUUIDSList As List(Of String) = New List(Of String)
+    Public ReadOnly Property DocumentosRelacionadosUUIDSString As String
+        Get
+            Return GeneraStringDoctosRelacionados()
+        End Get
+    End Property
+
+    Public Property DocumentosRelacionadosAnticiposUUIDList As List(Of String) = New List(Of String)
+    Public Property TieneAnticiposXML As Boolean = False
+    Public Property EmisorRFC As String
+    Public Property ReceptorRFC As String
+    Public Property UUID As String = ""
+    Public Property TotalRetenciones As Decimal = 0D
+    Public Property RetencionIVA As Decimal = 0D
+    Public Property RetencionISR As Decimal = 0D
+    Public Property SumaTotalRetenciones As Decimal = 0D
+    Public Property TotalTraslados As Decimal = 0D
+    Public Property TrasladoIVA As Decimal = 0D
+    Public Property TrasladoIEPS As Decimal = 0D
+    Public Property SumaTotalTraslados As Decimal = 0D
+    Public Property OtrosImpuestos As Decimal = 0D
+    Private Property OtrosImpuestosRetenciones As Decimal = 0D
+    Public Property Amortizacion As Decimal = 0D
+    Public Property FechaPago As Date 'FIX ME corregir usando fecha interna calculada por los dias de credito del proveedor
+    Public Property AplicaNotaCredito As Boolean = False
+    Public Property XMlStr As String
+    Public Property XMLCargaExistosa As Boolean = True
+    Public Property Observaciones As String = ""
+    Public Property CveEstatusFactura As Integer = 1
+    Public Property CvePrePoliza As Integer = -1
+    Public Property Redondeo As Decimal = 0
+    Public Property IdPoliza As Integer = -1
+    Public Property CveCajaChica As Integer = -1
+    Public Property CvePersonal As Integer = -1
+    Public Property NumeroReembolso As String = ""
+    Public Property CveProveedorSucursal As Integer = -1
+    Public Property AplicoPromocion As Boolean = False
+    Public Property CveConceptoContableAlmacen As Integer = -1
+    Public Property NoDeducible As Integer = 0
+    Public Property CveTipoCompra As Integer = -1
+    Public Property TotalOriginal As Decimal = 0D
+    Public Property CveTipoConcepto As Integer = 1 'FIX ME  Esto tiene  que ver con el CveTipoProveedor  1 y 3  es CveTipoConcepto 1   y  2 es CveTipoConcepto 2
+    Public Property CveSubProyectoPrincipal As Integer = -1
+    Public Property CveFactura As Integer = -1
+    Public Property CveFolioGarantia As Integer = -1
+    Public Property TmpDT As DataTable = New DataTable
+    Public Property SubTotalConceptos As Decimal = 0D
+
+    Private Errores As StringBuilder = New StringBuilder
+
+    Public ReadOnly Property MensajeError As String
+        Get
+            Return Errores.ToString()
+        End Get
+    End Property
+
+    Public Property CompraSaldo As Decimal = 0D
+    Public Property SubTotalOriginal As Decimal = 0D
+    Public Property SubTotal2Original As Double = 0D
+    Public Property IVAOriginal As Decimal = 0D
+    Public Property RetIVAOriginal As Decimal = 0D
+    Public Property RetISROriginal As Decimal = 0D
+    Public Property Proyecto As String = ""
+    Public Property CveProyecto As Integer = -1
+    Public Property SubProyecto As String = ""
+    Public Property TipoCompra As EnumTipoCompra = EnumTipoCompra.SinDefinir
+    Private Property DTTiposGastos() As DataTable
+    Public Property CveTipoProveedor As Integer = -1
+    Public Property IEPSGasto As Boolean = False
+    Public Property OtrosImpuestosGasto As Boolean = False
+    Public Property OCVinculada As Boolean = False
+    Public Property NumNoDed As Integer = 0
+    Public Property CveTipoPoliza As Integer = -1
+    Public Property NombreProveedor As Object
+    Public Property CveCreditoDetalle As Integer = -1
+    Public Property CveIE As Integer = -1
+    Public Property CveCompraAmortizacion As Integer = -1
+    Public Property CveCompraRelacionada As Integer = -1
+
+
+    Public Sub New(UsuarioActual As Usuario)
+
+        Errores = New StringBuilder
+
+        Me.UsuarioActual = UsuarioActual
+
+    End Sub
+
+    Public Sub New(XmlFuente As String, OpcionCarga As EnumCargaCompra, DTTiposGastos As DataTable, UsuarioActual As Usuario)
+
+        Errores = New StringBuilder
+        Me.DTTiposGastos = DTTiposGastos
+        Me.UsuarioActual = UsuarioActual
+
+        If OpcionCarga = EnumCargaCompra.SinXML Then
+
+        Else
+            If OpcionCarga = EnumCargaCompra.DesdeArchivo Then
+                CargaDesdeArchivo(XmlFuente)
+            Else
+                CargaDesdeString(XmlFuente)
+            End If
+        End If
+    End Sub
+
+#Region "C  A  R  G  A  S    D E    F U E N T E S  "
+
+    Private Sub CargaDesdeArchivo(XmlFuenteRuta As String)
+
+        Dim XMLDoc As New XmlDocument
+
+        If IO.File.Exists(XmlFuenteRuta) Then
+            XMlStr = File.ReadAllText(XmlFuenteRuta).Replace("&lt;br&gt;", "").Replace("&lt;", "").Replace("o;?", "")
+            Try
+                XMLDoc.LoadXml(XMlStr)
+                XMLCargaExistosa = True
+            Catch ex As Exception
+                Try
+                    Dim oReader As New StreamReader(XmlFuenteRuta, Encoding.GetEncoding("ISO-8859-1"))
+                    XMLDoc.Load(oReader)
+                    oReader.Dispose()
+                    XMLCargaExistosa = True
+                Catch ex2 As Exception
+                    GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
+                    Errores.AppendLine("Error al intentar leer el XML. Error:" & ex2.ToString())
+                    XMLCargaExistosa = False
+                End Try
+            End Try
+        End If
+
+        If XMLCargaExistosa Then
+            CargaComprobanteXML(XMLDoc)
+        End If
+
+    End Sub
+    Private Sub CargaDesdeString(XmlFuente As String)
+        XMlStr = XmlFuente.Replace("&lt;br&gt;", "").Replace("&lt;", "").Replace("o;?", "")
+        Dim XMLDoc As New XmlDocument
+        Try
+            XMLDoc.LoadXml(XMlStr)
+            XMLCargaExistosa = True
+        Catch ex As Exception
+            GuardaLog("Error al intentar leer . Error:" & ex.ToString())
+            Errores.AppendLine("Error al intentar leer el XML. Error:" & ex.ToString())
+            XMLCargaExistosa = False
+        End Try
+
+        If XMLCargaExistosa Then
+            CargaComprobanteXML(XMLDoc)
+        End If
+
+    End Sub
+    Private Sub CargaComprobanteXML(XMLDoc As XmlDocument)
+        Dim nodo As XmlNode = XMLDoc.DocumentElement
+
+        Serie = ValorXML(nodo, "serie")
+
+        Dim StrCFDIVerion As String = ValorXML(nodo, "version")
+
+        If StrCFDIVerion = "3.2" Then
+            CFDIVersion = EnumCFDIVersion.v32
+        ElseIf StrCFDIVerion = "3.3" Then
+            CFDIVersion = EnumCFDIVersion.v33
+        ElseIf StrCFDIVerion = "4.0" Then
+            CFDIVersion = EnumCFDIVersion.v40
+        Else
+            GuardaLog($"CFDI Versión {StrCFDIVerion} no soportada")
+            Errores.AppendLine($"CFDI Versión {StrCFDIVerion} no soportada")
+            XMLCargaExistosa = False
+            Exit Sub
+        End If
+
+        Folio = ValorXML(nodo, "folio")
+        Fecha = ValorXML(nodo, "fecha").ToDate
+        SubTotal = ValorXML(nodo, "subTotal").ToDecimal
+        Total = ValorXML(nodo, "total").ToDecimal
+        Descuento = ValorXML(nodo, "descuento").ToDecimal
+        Moneda = ValorXML(nodo, "Moneda")
+
+        CveMoneda = ClsPaginas.GlobalDTMonedas().FiltroPrimeroValor("CveMoneda", $" AbreviaturaSAT = '{Moneda}' ").ToEntero
+        If Not CveMoneda > 0 Then
+            GuardaLog($"Moneda {Moneda} no se obtuvo la clabe")
+            Errores.AppendLine($"Moneda {Moneda} no se obtuvo la clabe")
+            XMLCargaExistosa = False
+            Exit Sub
+        End If
+
+        TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
+        TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal
+
+        If CFDIVersion = EnumCFDIVersion.v33 Or CFDIVersion = EnumCFDIVersion.v40 Then
+            Dim drm As DataRow = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
+            If drm IsNot Nothing Then
+                CveMetodoPago = drm("CveMetodoPago").ToString.ToEntero
+                MetodoPago = drm("MetodoPagoSAT").ToString
+            End If
+        End If
+
+        Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
+        Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
+        Dim cfdVer As String = ""
+
+        If CFDIVersion = EnumCFDIVersion.v32 Then
+            Prefijo = "cfd"
+            cfdVer = "http://www.sat.gob.mx/cfd/2"
+        ElseIf CFDIVersion = EnumCFDIVersion.v33 Then
+            cfdVer = "http://www.sat.gob.mx/cfd/3"
+        Else ' se considera que es la version 4.0
+            cfdVer = "http://www.sat.gob.mx/cfd/4"
+        End If
+        namespaces.AddNamespace(Prefijo, cfdVer)
+        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
+        namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
+        namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
+        namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
+
+        If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40) Then
+            Dim UUIDS As String = ""
+
+            Dim UUIDSLista As New List(Of String)
+            Dim nodeCFDIRelacionados As XmlNode
+            nodeCFDIRelacionados = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
+
+            If nodeCFDIRelacionados IsNot Nothing Then
+                For Each CFDIRelacionados As XmlNode In nodeCFDIRelacionados
+                    UUIDSLista.Add("" & CFDIRelacionados.Attributes("UUID").Value.ToString & "")
+                Next
+            End If
+            DocumentosRelacionadosUUIDSList = UUIDSLista
+
+        End If
+
+        Dim node As XmlNode
+        node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces)
+
+        If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
+            EmisorRFC = ValorXML(node, "RFC")
+        End If
+
+        node = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)
+
+        If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
+            ReceptorRFC = ValorXML(node, "RFC")
+        End If
+
+        If UsuarioActual.CveEmpresa.Contiene(119, 7) Then
+            node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
+            If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
+                If ValorXML(node, "TipoRelacion").ToString.Contiene("07") Then
+                    Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces)
+                    For Each documento As XmlNode In nodeDocumentosRelacionados
+                        If documento.Attributes("UUID").Value <> "" Then
+                            DocumentosRelacionadosAnticiposUUIDList.Add(documento.Attributes("UUID").Value)
+                        End If
+                        TieneAnticiposXML = True
+                    Next
+                End If
+            End If
+        End If
+
+        node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces)
+        If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
+            Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces)
+
+            TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal
+
+            If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
+
+                For Each retencion As XmlNode In nodeRetenciones
+                    If retencion.Attributes("Impuesto").Value = "002" Then RetencionIVA += retencion.Attributes("Importe").Value.ToDecimal
+                    If retencion.Attributes("Impuesto").Value = "001" Then RetencionISR += retencion.Attributes("Importe").Value.ToDecimal
+                Next
+
+            Else
+
+                For Each retencion As XmlNode In nodeRetenciones
+                    If retencion.Attributes("impuesto").Value = "IVA" Then RetencionIVA += retencion.Attributes("importe").Value.ToDecimal
+                    If retencion.Attributes("impuesto").Value = "ISR" Then RetencionISR += retencion.Attributes("importe").Value.ToDecimal
+                Next
+            End If
+            SumaTotalRetenciones += RetencionIVA
+            SumaTotalRetenciones += RetencionISR
+
+            TotalTraslados = ValorXML(node, "totalImpuestosTrasladados", "0").ToDecimal
+            Dim nodeTraslados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces)
+
+            If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
+
+                For Each traslado As XmlNode In nodeTraslados
+
+                    If traslado.Attributes("Importe") IsNot Nothing Then
+                        If traslado.Attributes("Impuesto").Value = "002" Then TrasladoIVA += traslado.Attributes("Importe").Value.ToDecimal
+                        If traslado.Attributes("Impuesto").Value = "003" Then TrasladoIEPS += traslado.Attributes("Importe").Value.ToDecimal
+                    End If
+                Next
+            Else
+
+                For Each traslado As XmlNode In nodeTraslados
+                    If traslado.Attributes("Importe") IsNot Nothing Then
+                        If traslado.Attributes("impuesto").Value = "IVA" Then TrasladoIVA += traslado.Attributes("importe").Value.ToDecimal
+
+                        If traslado.Attributes("impuesto").Value = "IEPS" Then TrasladoIEPS += traslado.Attributes("importe").Value.ToDecimal
+                    End If
+                Next
+            End If
+
+            SumaTotalTraslados += TrasladoIVA
+            SumaTotalTraslados += TrasladoIEPS
+        End If
+
+        Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces)
+        If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
+
+            Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
+
+            UUID = ValorXML(nodeTFD, "UUID", "")
+
+            Dim nodeRF As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CFDIRegistroFiscal ", "registrofiscal"), namespaces)
+            If nodeRF IsNot Nothing Then
+                Folio = ValorXML(nodeRF, "folio").TrimStart("0"c)
+            End If
+
+            node = node.SelectSingleNode(String.Format("//{0}:ImpuestosLocales", "implocal"), namespaces)
+
+            If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
+                OtrosImpuestos = ValorXML(node, "TotaldeTraslados", "0").ToDecimal
+                '2022.06.04-- se quitan los datos de retenciones de impuestos locales, generan conflicto. RMF
+                'OtrosImpuestosRetenciones = ValorXML(node, "TotaldeRetenciones", "0").ToDecimal
+            End If
+        End If
+
+
+        If XMLCargaExistosa Then
+            If Not ValidateUUID(UUID) Then
+                GuardaLog($"UUID Invalido {UUID} .")
+                Errores.AppendLine($"UUID Invalido {UUID} .")
+                XMLCargaExistosa = False
+            End If
+        End If
+
+
+#Region "DETALLES"
+
+        Dim ObjeFacturas As New ClsCompras
+        Dim AjustaUltimoConcepto As Boolean = False
+
+        Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
+        Dim XML As String = Replace(nodeconceptos.OuterXml, "<cfdi:", "<")
+        XML = XML.Replace("</cfdi:", "</")
+        XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", "")
+        XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", "")
+        XML = XML.Replace("&quot;", "") 'comillas
+        XML = System.Web.HttpUtility.HtmlDecode(XML.ToString)
+        XML = XML.Replace(Chr(13), "") 'salto de linea
+        XML = XML.Replace(Chr(10), "")
+        XML = XML.Replace("<br />", "") 'salto de linea html
+        XML = XML.Replace("&lt;br&gt;", "")
+        XML = XML.Replace("&lt;", "")
+
+        XML = XML.Replace("&", "") 'adicional, si hay otros
+
+        If ObjeFacturas.GetFacturasComparacionXML(StrCFDIVerion, XML, UsuarioActual.CveEmpresa) Then
+            TmpDT = ObjeFacturas.DtResultados
+            TmpDT.Columns.Add("CveSATPSActualizado")
+            SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL
+
+            If Not TmpDT.Columns.Contains("Amortizacion") Then TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+
+            If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
+
+            If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
+
+            If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String))
+
+            If Not TmpDT.Columns.Contains("FechaCaducidad") Then TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
+
+            'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
+            Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+            For Each drr As DataRow In TmpDT.FiltraParametros("ClaveProdServ = '01010101'").Rows
+                ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", drr("PS"))
+            Next
+
+            If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+                Errores.AppendLine($"El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{ProductosCodigoSATNoPermitidos.ToString}")
+            End If
+        Else
+            GuardaLog($"Error al cargar detalles GetFacturasComparacionXML.")
+            Errores.AppendLine($"Error al cargar detalles GetFacturasComparacionXML.")
+            XMLCargaExistosa = False
+        End If
+
+        ObjeFacturas.Dispose()
+
+        If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
+            If Not TmpDT.Columns.Contains("Amortizacion") Then
+                TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+            End If
+            TmpDT.AcceptChanges()
+            ValidacionesTotalesXml()
+        End If
+
+        Me.PorcentajeIVA = TmpDT.MAX("IVAPorcentaje").ToDecimal
+
+#End Region
+    End Sub
+
+#End Region
+
+    Public Function ConfiguraRegistroRapidoReembolso(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer, NumeroReembolso As String) As Boolean
+
+        Dim respuesta As Boolean = True
+        Me.CveSubProyecto = CveSubProyecto
+        Me.CveSubProyectoPrincipal = CveSubProyecto
+        Me.CveCajaChica = CveCajaChica
+        Me.CvePersonal = CvePersonal
+        Me.CveRetIVAConcepto = CveRetIVAConcepto
+        Me.CveRetISRConcepto = CveRetISRConcepto
+        Me.CveTipoPoliza = 3
+        Me.NumeroReembolso = NumeroReembolso
+
+        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
+
+        If dRowSubProyecto IsNot Nothing Then
+            Me.Proyecto = dRowSubProyecto("Proyecto").ToString
+            Me.CveProyecto = (dRowSubProyecto("CveProyecto").ToString).ToEntero
+            Me.SubProyecto = dRowSubProyecto("SubProyecto").ToString
+        Else
+            Errores.AppendLine($"Error al cargar el Sub Proyecto CveSubProyecto: {CveSubProyecto}")
+            Return False
+        End If
+
+        Dim DTIndex As DataTable = TmpDT.FiltraParametros("", DistinctColumns:={"Consec"})
+
+        For Each dRowIndex As DataRow In DTIndex.Rows
+            If Not UpdatePSReembolso(dRowIndex("Consec").ToString.ToEntero, CvePS) Then
+                respuesta = False
+            End If
+        Next
+
+        If respuesta AndAlso IEPS > 0 Then
+            If Not AgregaIEPSReembolso(CvePS:=CvePS) Then
+                respuesta = False
+            Else
+                IEPS = 0
+            End If
+        End If
+
+        If Not AjustesValidacion() Then
+            respuesta = False
+        End If
+
+        Return respuesta
+
+    End Function
+    Public Function ConfiguraRegistroRapido(CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, PS As String, CveSubProyecto As Integer, SubProyecto As String,
+                                               SubTotal As Decimal, IVA As Decimal, Total As Decimal, PorcentajeIVA As Decimal) As Boolean
+
+        Dim respuesta As Boolean = True
+        Me.CveSubProyecto = CveSubProyecto
+        Me.CveSubProyectoPrincipal = CveSubProyecto
+        Me.CveCajaChica = -1
+        Me.CvePersonal = -1
+        Me.CveRetIVAConcepto = -1
+        Me.CveRetISRConcepto = -1
+        Me.CveTipoPoliza = 3
+        Me.NumeroReembolso = ""
+        Me.SubTotal = SubTotal
+        Me.IVA = IVA
+        Me.Total = Total
+        Me.PorcentajeIVA = PorcentajeIVA
+
+        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
+
+        If dRowSubProyecto IsNot Nothing Then
+            Me.Proyecto = dRowSubProyecto("Proyecto").ToString
+            Me.CveProyecto = (dRowSubProyecto("CveProyecto").ToString).ToEntero
+            Me.SubProyecto = dRowSubProyecto("SubProyecto").ToString
+        Else
+            Errores.AppendLine($"Error al cargar el Sub Proyecto CveSubProyecto: {CveSubProyecto}")
+            Return False
+        End If
+
+        CreaDTCompras()
+        AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, "", "-1", "", SubTotal, Total, 0, 0, 0, 0, 0, 0, PorcentajeIVA:=PorcentajeIVA)
+
+        'If respuesta AndAlso IEPS > 0 Then
+        '    If Not AgregaIEPSReembolso(CvePS:=CvePS) Then
+        '        respuesta = False
+        '    Else
+        '        IEPS = 0
+        '    End If
+        'End If
+
+        'If Not AjustesValidacion() Then
+        '    respuesta = False
+        'End If
+
+        Return respuesta
+
+    End Function
+
+
+    Private Sub CreaDTCompras()
+
+        TmpDT = New DataTable
+        TmpDT.Columns.Add("Consec", GetType(Integer))
+        TmpDT.Columns.Add("Cantidad", GetType(Decimal))
+        TmpDT.Columns.Add("Codigo", GetType(String))
+        TmpDT.Columns.Add("CveUM", GetType(Integer))
+        TmpDT.Columns.Add("UM", GetType(String))
+        TmpDT.Columns.Add("CveClasificacion", GetType(Integer))
+        TmpDT.Columns.Add("Clasificacion", GetType(String))
+        TmpDT.Columns.Add("CveClasificacionActualizar", GetType(Integer))
+        TmpDT.Columns.Add("CvePS", GetType(Integer))
+        TmpDT.Columns.Add("PS", GetType(String))
+        TmpDT.Columns.Add("Obs", GetType(String))
+        TmpDT.Columns.Add("PU", GetType(Decimal))
+        TmpDT.Columns.Add("IVA", GetType(Decimal))
+        TmpDT.Columns.Add("IVAPorcentaje", GetType(Decimal))
+        TmpDT.Columns.Add("RetIVA", GetType(Decimal))
+        TmpDT.Columns.Add("RetIVAPorcentaje", GetType(Decimal))
+        TmpDT.Columns.Add("RetISR", GetType(Decimal))
+        TmpDT.Columns.Add("RetISRPorcentaje", GetType(Decimal))
+        TmpDT.Columns.Add("IEPSPS", GetType(Double))
+        TmpDT.Columns.Add("IEPSPSPorcentaje", GetType(Double))
+        TmpDT.Columns.Add("IEPSPSIVA", GetType(Double))
+        TmpDT.Columns.Add("IEPSPSIVAPorcentaje", GetType(Double))
+        TmpDT.Columns.Add("Descuento", GetType(Decimal))
+        TmpDT.Columns.Add("OtrosGastos", GetType(Decimal))
+        TmpDT.Columns.Add("Total", GetType(Decimal))
+        TmpDT.Columns.Add("AsientoContableCompras", GetType(Integer))
+        TmpDT.Columns.Add("Proyecto", GetType(String))
+        TmpDT.Columns.Add("CveProyecto", GetType(Integer))
+        TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
+        TmpDT.Columns.Add("CveContrato", GetType(Integer))
+        TmpDT.Columns.Add("SubProyecto", GetType(String))
+        'TmpDT.Columns.Add("CveEq", GetType(Integer))
+        TmpDT.Columns.Add("CveAlmacen", GetType(Integer))
+        TmpDT.Columns.Add("CvePersonal", GetType(String))
+        TmpDT.Columns.Add("Referencia", GetType(String))
+
+        'AC
+        TmpDT.Columns.Add("CveTipoGastoAC", GetType(Integer))
+        TmpDT.Columns.Add("CvePresupuestoEgreso", GetType(Integer))
+        TmpDT.Columns.Add("CveProgramaOperativo", GetType(Integer))
+        TmpDT.Columns.Add("CveUnidadAdministrativa", GetType(Integer))
+        TmpDT.Columns.Add("CveFuenteFinanciamiento", GetType(Integer))
+        TmpDT.Columns.Add("CveClasificacionOG", GetType(Integer))
+
+        TmpDT.Columns.Add("IdCuentaComprometido", GetType(Integer))
+        TmpDT.Columns.Add("IdCuentaPorEjercer", GetType(Integer))
+        TmpDT.Columns.Add("IdCuentaDevengado", GetType(Integer))
+        TmpDT.Columns.Add("IdCuentaMatriz", GetType(Integer))
+
+        'INVENTARIO SERIE/LOTE
+        TmpDT.Columns.Add("CveMetodoInventario", GetType(Integer))
+
+        TmpDT.Columns.Add("CveConcepto", GetType(Integer))
+
+        'AF
+        TmpDT.Columns.Add("CveActivoFijo", GetType(Integer))
+        TmpDT.Columns.Add("CodAF", GetType(String))
+        TmpDT.Columns.Add("TipoAF", GetType(Integer))
+        TmpDT.Columns.Add("AFMedida", GetType(Integer))
+        TmpDT.Columns.Add("AFTipoMantenimiento", GetType(Integer))
+
+        'PS
+        TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
+        TmpDT.Columns.Add("CodigoPS", GetType(String))
+        TmpDT.Columns.Add("PSDescripcion", GetType(String))
+        'CAMPO ESPECIAL PARA GLUYAS -  LEE EL DEL XML -  A GLUYAS LE INTERESA EL CODIGO DEL PROVEEDOR
+        TmpDT.Columns.Add("PSCodigo", GetType(String))
+
+
+        'OC
+        TmpDT.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
+        TmpDT.Columns.Add("ProductoOC", GetType(String))
+        TmpDT.Columns.Add("CantidadF", GetType(Double))
+
+        'Consignaciones
+        TmpDT.Columns.Add("CveAlmacenConsignacion", GetType(Integer))
+        TmpDT.Columns.Add("NoConsignacion", GetType(Integer))
+        TmpDT.Columns.Add("CveConsignacion", GetType(Integer))
+        TmpDT.Columns.Add("HdnPS", GetType(String))
+        TmpDT.Columns.Add("HdnCvePS", GetType(String))
+        TmpDT.Columns.Add("HdnClasificacion", GetType(String))
+        TmpDT.Columns.Add("HdnCveClasificacion", GetType(String))
+        TmpDT.Columns.Add("HdnCveAlmacen", GetType(String))
+
+        'Fletes y Servicios
+        TmpDT.Columns.Add("AplicaCostoIndirecto", GetType(Integer))
+        TmpDT.Columns.Add("CostoIndirectoAlmacen", GetType(Decimal))
+        TmpDT.Columns.Add("CveCompraDetalle", GetType(Integer))
+
+        TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
+
+        'SAT
+        TmpDT.Columns.Add("CveSATPS", GetType(Integer))
+        TmpDT.Columns.Add("SATClaveProductoServicio", GetType(String))
+        TmpDT.Columns.Add("CveUnidadMedidaSAT", GetType(Integer))
+        TmpDT.Columns.Add("SATClaveUnidadMedida", GetType(String))
+        TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer))
+
+
+        'Tipo de Gasto
+        TmpDT.Columns.Add("CveTipoGasto", GetType(Integer))
+        TmpDT.Columns.Add("TipoGasto", GetType(String))
+
+        TmpDT.Columns.Add("ImporteSinImpuestos", GetType(Double))
+        TmpDT.Columns.Add("ImporteConImpuestos", GetType(Double))
+        TmpDT.Columns.Add("NoDeducible", GetType(Boolean))
+
+        TmpDT.Columns.Add("DifPSSat", GetType(Integer))
+
+
+        TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
+        TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
+        TmpDT.Columns.Add("TemporadaCuadro", GetType(String))
+
+        TmpDT.Columns.Add("NoIdentificacion", GetType(String))
+
+        TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
+        TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
+
+        TmpDT.Columns.Add("Lote", GetType(String))
+        TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
+
+
+        TmpDT.AcceptChanges()
+
+
+    End Sub
+    Private Function AjustesValidacion() As Boolean
+        Dim respuesta As Boolean = True
+        'VALIDA IMPORTES
+        If Not ValidaTotalesGuardar() Then
+            respuesta = False
+        End If
+
+        If Not AjustaCombustibles() Then
+            respuesta = False
+        End If
+
+        If Not AjustaIVA() Then
+            respuesta = False
+        End If
+
+        If Not AjustaRetIVA() Then
+            respuesta = False
+        End If
+
+        If Not AjustaRetISR() Then
+            respuesta = False
+        End If
+
+        Return respuesta
+
+    End Function
+
+    Private Function ValidaTotalesGuardar() As Boolean
+        Dim EsValido As Boolean = True
+
+        'VALIDA IMPORTES
+        'VALIDA TOTAL CON LOS IMPORTES TOTALES
+        Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Decimal
+
+        Dim Amortizacion As Decimal = 0
+        Dim TieneAmortizacion As Boolean = False
+        If DocumentosRelacionadosAnticiposUUIDList IsNot Nothing AndAlso DocumentosRelacionadosAnticiposUUIDList.Count > 0 Then 'Fix me
+            '  AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
+            'TieneAmortizacion = True
+        End If
+
+        'If CveCompra < 0 AndAlso Not TieneAmortizacion Then
+        '    LblAmortizacion.Text = "0.00"
+        'End If
+
+        'If UsuarioActual.CveEmpresa = 119 AndAlso TieneAmortizacion Then
+        '    Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
+        '    TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
+        'End If
+
+
+        TempSubTotal = SubTotal
+        SubTotalOriginal = SubTotal
+        SubTotal2Original = SubTotal2
+        TempDescuentos = Descuento + Amortizacion
+        TempSubTotal2 = TempSubTotal - TempDescuentos
+        TempIVA = IVA
+        TempIEPS = IEPS
+        TempRetIVA = RetIVA
+        TempRetISR = RetISR
+        TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + OtrosImpuestos - Amortizacion, 2)
+        DifTotales = Total - TempTotal
+        Dim DiferenciaPermitida As Decimal = 0.6D
+
+        If Math.Abs(DifTotales) > DiferenciaPermitida Then
+            Errores.AppendLine($"Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{Math.Abs(DifTotales) - DiferenciaPermitida}]")
+            EsValido = False
+        ElseIf DifTotales <> 0 Then
+            SubTotal2 = (SubTotal2 + DifTotales)
+            SubTotal = (SubTotal + DifTotales)
+            SubTotalOriginal = SubTotal
+            SubTotal2Original = SubTotal2
+        End If
+
+        Dim DiferenciaSubtotales As Decimal = 0
+        If CveCompra > 0 Or CveFactura > 0 Or OCVinculada Then
+
+            If SubTotalOriginal = Nothing Then
+                SubTotalOriginal = 0
+            End If
+
+            If SubTotal2Original = Nothing Then
+                SubTotal2Original = 0
+            End If
+
+            DiferenciaSubtotales = SubTotal2Original.ToString.ToDecimal - TmpDT.SUM("Total").ToString.ToDecimal
+            '[IPP] PARCHE: Factura TELMEX para APH 12/ENERO/2018
+            If CveFactura = 286290 Then
+                DiferenciaSubtotales += Descuento
+            End If
+            If Math.Abs(DiferenciaSubtotales) > 1 And Not CompraNoDeducible = 1 Then 'EsNoDeducible
+                Errores.AppendLine("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.")
+                EsValido = False
+            Else
+                AjustaImporteUltimoConcepto(DiferenciaSubtotales)
+            End If
+        Else
+            DiferenciaSubtotales = (SubTotal2 - TmpDT.SUMD("Total")).ToString.ToDecimal
+            If Math.Abs(DiferenciaSubtotales) > 1 Then
+                Errores.AppendLine("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.")
+                EsValido = False
+            Else
+                AjustaImporteUltimoConcepto(DiferenciaSubtotales)
+            End If
+        End If
+
+        Return EsValido
+    End Function
+
+
+
+    Private Function AjustaCombustibles() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        Dim IVADetalles As Decimal = TmpDT.SUMD("IVA", " IVA > 0 ")
+        Dim DiferenciaIVas As Decimal = IVA - IVADetalles
+
+
+        If Not TmpDT.Columns.Contains("AplicaIEPS") Then
+            TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean)))
+        End If
+
+        If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then
+            TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean)))
+        End If
+
+        For Each dRow As DataRow In TmpDT.Rows
+            Dim DttPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero)
+            If DttPS IsNot Nothing AndAlso DttPS.Rows.Count > 0 Then
+                Dim DrPS As DataRow = DttPS.Rows(0)
+                dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
+                dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
+            Else
+                dRow("AplicaIEPS") = False
+                dRow("IEPSGrabaIVA") = False
+            End If
+        Next
+
+        Dim DTConsulta As New DataTable
+        DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0  ")
+
+        If DTConsulta.Rows.Count > 0 Then
+
+            Dim IndiceContador As Integer = 0
+            Dim IndiceUltimo As Integer = 0
+            Dim CantidadRegistroConIVA As Decimal
+
+            For Each dRow As DataRow In TmpDT.Rows
+                If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
+                    IndiceUltimo = IndiceContador
+                    CantidadRegistroConIVA = CantidadRegistroConIVA + 1
+                End If
+                IndiceContador = IndiceContador + 1
+            Next
+
+            IVADetalles = TmpDT.SUMD("IVA", " IVA > 0 ")
+            DiferenciaIVas = IVA - IVADetalles
+
+            If Math.Abs(DiferenciaIVas) > 0.01D Then
+
+                If (TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas) < 0 Then
+
+                    Dim AjusteteDividido As Decimal = Math.Abs(DiferenciaIVas) / CantidadRegistroConIVA
+
+                    For Each dRow As DataRow In TmpDT.Rows
+                        If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
+                            dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteteDividido
+                        End If
+                    Next
+                Else
+                    TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
+                End If
+                TmpDT.AcceptChanges()
+            End If
+
+        End If
+
+        'Revalidacion de ajuste
+        IVADetalles = TmpDT.SUMD("IVA", " IVA > 0 ")
+        DiferenciaIVas = IVA - IVADetalles
+
+        If Math.Abs(DiferenciaIVas) > 0.01D Then
+            Respuesta = False
+            If IVADetalles > 0 Then
+
+                For Each dRow As DataRow In TmpDT.Rows
+                    If dRow("IVA").ToString.ToDecimal > 0 Then
+                        dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas
+                        TmpDT.AcceptChanges()
+                        Respuesta = True
+                        Exit For
+                    End If
+                Next
+            Else
+                Alert("Los productos especificados en el listado no tienen asignado impuesto IVA, favor de realizar la corrección en el producto que aplique el impuesto.", TipoMensaje.MsgAdvertencia)
+                Respuesta = False
+            End If
+        Else
+            Respuesta = True
+        End If
+
+        If Respuesta Then
+
+            Dim IEPSPSDetalles As Decimal = TmpDT.SUMD("IEPSPS", " IEPSPS > 0 ")
+            Dim DiferenciaIEPSPS As Decimal = IEPS - IEPSPSDetalles
+
+            Dim DTConsultaIEPSPS As New DataTable
+            DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
+            Dim IndiceContador As Integer = 0
+            Dim IndicePrimero As Integer = 0
+
+            For Each dRow As DataRow In TmpDT.Rows
+                If Boolean.Parse(dRow("AplicaIEPS").ToString) And dRow("IEPSPS").ToString.ToDecimal > 0 Then
+                    IndicePrimero = IndiceContador
+                    Exit For
+                End If
+                IndiceContador = IndiceContador + 1
+            Next
+            If DiferenciaIEPSPS.RoundSQL(2) <> 0 Then
+
+                TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS
+                TmpDT.AcceptChanges()
+            End If
+
+            For Each dRow As DataRow In TmpDT.Rows
+                If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then
+                    dRow("IEPSPSPorcentaje") = 0
+                End If
+            Next
+            TmpDT.AcceptChanges()
+        End If
+
+        Return Respuesta
+
+    End Function
+
+
+    Private Function AjustaIVA() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        Dim IVADetalles As Decimal = TmpDT.SUMD("IVA", " IVA > 0 ")
+        Dim DiferenciaIVas As Decimal = IVA - IVADetalles
+
+        If Math.Abs(DiferenciaIVas) > 0 Then
+            If Math.Abs(DiferenciaIVas) <= 0.05 Then
+
+                Dim DTConsulta As New DataTable
+                DTConsulta = TmpDT.FiltraParametros(" IVA > 0 ")
+
+                If DTConsulta.Rows.Count > 0 Then
+
+                    Dim IndiceContador As Integer = 0
+                    Dim IndiceUltimo As Integer = 0
+                    Dim CantidadRegistroConIVA As Decimal
+
+                    For Each dRow As DataRow In TmpDT.Rows
+                        If dRow("IVA").ToString.ToDecimal > 0 Then
+                            IndiceUltimo = IndiceContador
+                            CantidadRegistroConIVA = CantidadRegistroConIVA + 1
+                        End If
+                        IndiceContador = IndiceContador + 1
+                    Next
+
+                    IVADetalles = TmpDT.SUMD("IVA", " IVA > 0 ")
+                    DiferenciaIVas = IVA - IVADetalles
+
+                    If Math.Abs(DiferenciaIVas) > 0.0D Then
+
+                        If (TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas) < 0 Then
+
+                            Dim AjusteteDividido As Decimal = Math.Abs(DiferenciaIVas) / CantidadRegistroConIVA
+
+                            For Each dRow As DataRow In TmpDT.Rows
+                                dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteteDividido
+                            Next
+                        Else
+                            TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
+                        End If
+                        TmpDT.AcceptChanges()
+                    End If
+                End If
+
+                'Revalidacion de ajuste
+                IVADetalles = TmpDT.SUMD("IVA", " IVA > 0 ")
+                DiferenciaIVas = IVA - IVADetalles
+
+                If Math.Abs(DiferenciaIVas) > 0.01D Then
+                    Respuesta = False
+                    If IVADetalles > 0 Then
+
+                        For Each dRow As DataRow In TmpDT.Rows
+                            If dRow("IVA").ToString.ToDecimal > 0 Then
+                                dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas
+                                TmpDT.AcceptChanges()
+                                Respuesta = True
+                                Exit For
+                            End If
+                        Next
+
+                    Else
+                        Errores.AppendLine("Los productos especificados en el listado no tienen asignado impuesto IVA, favor de realizar la corrección en el producto que aplique el impuesto.")
+                        Respuesta = False
+                    End If
+                Else
+                    Respuesta = True
+                End If
+
+            Else
+                Errores.AppendLine($"existe una diferencia de {DiferenciaIVas}  entre el IVA de la compra y los detalles.")
+                Respuesta = False
+            End If
+        Else
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function
+
+    Private Function AjustaRetIVA() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        Dim RetIVADetalles As Decimal = TmpDT.SUMD("RetIVA", " RetIVA > 0 ")
+        Dim DiferenciaRetIVA As Decimal = RetIVA - RetIVADetalles
+
+        If Math.Abs(DiferenciaRetIVA) > 0 Then
+            If Math.Abs(DiferenciaRetIVA) <= 0.05 Then
+
+                Dim DTConsulta As New DataTable
+                DTConsulta = TmpDT.FiltraParametros(" RetIVA > 0 ")
+
+                If DTConsulta.Rows.Count > 0 Then
+
+                    Dim IndiceContador As Integer = 0
+                    Dim IndiceUltimo As Integer = 0
+                    Dim CantidadRegistroConRetIVA As Decimal
+
+                    For Each dRow As DataRow In TmpDT.Rows
+                        If dRow("RetIVA").ToString.ToDecimal > 0 Then
+                            IndiceUltimo = IndiceContador
+                            CantidadRegistroConRetIVA = CantidadRegistroConRetIVA + 1
+                        End If
+                        IndiceContador = IndiceContador + 1
+                    Next
+
+                    RetIVADetalles = TmpDT.SUMD("RetIVA", " RetIVA > 0 ")
+                    DiferenciaRetIVA = RetIVA - RetIVADetalles
+
+                    If Math.Abs(DiferenciaRetIVA) > 0.0D Then
+
+                        If (TmpDT.Rows(IndiceUltimo)("RetIVA").ToString.ToDecimal + DiferenciaRetIVA) < 0 Then
+
+                            Dim AjusteteDividido As Decimal = Math.Abs(DiferenciaRetIVA) / CantidadRegistroConRetIVA
+
+                            For Each dRow As DataRow In TmpDT.Rows
+                                dRow("RetIVA") = dRow("RetIVA").ToString.ToDecimal - AjusteteDividido
+                            Next
+
+                        Else
+                            TmpDT.Rows(IndiceUltimo)("RetIVA") = TmpDT.Rows(IndiceUltimo)("RetIVA").ToString.ToDecimal + DiferenciaRetIVA
+                        End If
+
+                        TmpDT.AcceptChanges()
+
+                    End If
+
+                End If
+
+                'Revalidacion de ajuste
+                RetIVADetalles = TmpDT.SUMD("RetIVA", " RetIVA > 0 ")
+                DiferenciaRetIVA = RetIVA - RetIVADetalles
+
+                If Math.Abs(DiferenciaRetIVA) > 0.01D Then
+                    Respuesta = False
+                    If RetIVADetalles > 0 Then
+
+                        For Each dRow As DataRow In TmpDT.Rows
+                            If dRow("RetIVA").ToString.ToDecimal > 0 Then
+                                dRow("RetIVA") = dRow("RetIVA").ToString.ToDecimal + DiferenciaRetIVA
+                                TmpDT.AcceptChanges()
+                                Respuesta = True
+                                Exit For
+                            End If
+                        Next
+
+                    Else
+                        Errores.AppendLine("Los productos especificados en el listado no tienen asignado impuesto RetIVA, favor de realizar la corrección en el producto que aplique el impuesto.")
+                        Respuesta = False
+                    End If
+                Else
+                    Respuesta = True
+                End If
+
+            Else
+                Errores.AppendLine($"existe una diferencia de {DiferenciaRetIVA}  entre el RetIVA de la compra y los detalles.")
+            End If
+        Else
+            Respuesta = True
+
+        End If
+
+        Return Respuesta
+
+    End Function
+
+    Private Function AjustaRetISR() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        Dim RetISRDetalles As Decimal = TmpDT.SUMD("RetISR", " RetISR > 0 ")
+        Dim DiferenciaRetISR As Decimal = RetISR - RetISRDetalles
+
+        If Math.Abs(DiferenciaRetISR) > 0 Then
+            If Math.Abs(DiferenciaRetISR) <= 0.05 Then
+
+                Dim DTConsulta As New DataTable
+                DTConsulta = TmpDT.FiltraParametros(" RetISR > 0 ")
+
+                If DTConsulta.Rows.Count > 0 Then
+
+                    Dim IndiceContador As Integer = 0
+                    Dim IndiceUltimo As Integer = 0
+                    Dim CantidadRegistroConRetISR As Decimal
+
+                    For Each dRow As DataRow In TmpDT.Rows
+                        If dRow("RetISR").ToString.ToDecimal > 0 Then
+                            IndiceUltimo = IndiceContador
+                            CantidadRegistroConRetISR = CantidadRegistroConRetISR + 1
+                        End If
+                        IndiceContador = IndiceContador + 1
+                    Next
+
+                    RetISRDetalles = TmpDT.SUMD("RetISR", " RetISR > 0 ")
+                    DiferenciaRetISR = RetISR - RetISRDetalles
+
+                    If Math.Abs(DiferenciaRetISR) > 0.0D Then
+
+                        If (TmpDT.Rows(IndiceUltimo)("RetISR").ToString.ToDecimal + DiferenciaRetISR) < 0 Then
+
+                            Dim AjusteteDividido As Decimal = Math.Abs(DiferenciaRetISR) / CantidadRegistroConRetISR
+
+                            For Each dRow As DataRow In TmpDT.Rows
+                                dRow("RetISR") = dRow("RetISR").ToString.ToDecimal - AjusteteDividido
+                            Next
+
+                        Else
+                            TmpDT.Rows(IndiceUltimo)("RetISR") = TmpDT.Rows(IndiceUltimo)("RetISR").ToString.ToDecimal + DiferenciaRetISR
+                        End If
+
+                        TmpDT.AcceptChanges()
+
+                    End If
+
+                End If
+
+                'Revalidacion de ajuste
+                RetISRDetalles = TmpDT.SUMD("RetISR", " RetISR > 0 ")
+                DiferenciaRetISR = RetISR - RetISRDetalles
+
+                If Math.Abs(DiferenciaRetISR) > 0.01D Then
+                    Respuesta = False
+                    If RetISRDetalles > 0 Then
+
+                        For Each dRow As DataRow In TmpDT.Rows
+                            If dRow("RetISR").ToString.ToDecimal > 0 Then
+                                dRow("RetISR") = dRow("RetISR").ToString.ToDecimal + DiferenciaRetISR
+                                TmpDT.AcceptChanges()
+                                Respuesta = True
+                                Exit For
+                            End If
+                        Next
+
+                    Else
+                        Errores.AppendLine("Los productos especificados en el listado no tienen asignado impuesto RetISR, favor de realizar la corrección en el producto que aplique el impuesto.")
+                        Respuesta = False
+                    End If
+                Else
+                    Respuesta = True
+                End If
+
+            Else
+                Errores.AppendLine($"existe una diferencia de {DiferenciaRetISR}  entre el RetISR de la compra y los detalles.")
+                Respuesta = False
+            End If
+        Else
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function
+
+    Private Function AgregaIEPSReembolso(CvePS As Integer) As Boolean
+
+        Dim respuesta As Boolean = True
+
+        If IEPSGasto Or OtrosImpuestosGasto Then
+
+            'AGREGA IEPS COMO CONCEPTO
+            If IEPSGasto Then
+                AgregarConceptoIEPS(TrasladoIEPS, CvePS)
+                For Each Dr As DataRow In TmpDT.Rows
+                    Dr("IEPSPS") = 0
+                    Dr("IEPSPSPorcentaje") = 0
+                Next
+                TmpDT.AcceptChanges()
+            End If
+            'AGREGA OTROS IMPUESTOS COMO CONCEPTO
+            If OtrosImpuestosGasto Then
+                AgregarConceptoIEPS(OtrosImpuestos, CvePS)
+            End If
+        Else
+            respuesta = False
+            Errores.AppendLine("Debe seleccionar al menos un impuesto. ")
+        End If
+        CalculaTotales()
+
+        Return respuesta
+
+    End Function
+
+
+    Private Sub AgregarConceptoIEPS(IEPS As Decimal, CvePS1 As Integer)
+        Dim SubTotalR As Decimal = TmpDT.SUM("Total").ToString.ToDecimal
+
+        Dim PSS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0} ", CvePS1), "PS")
+        Dim PSS2 As DataTable = TmpDT.FiltraParametros(String.Format("CvePS = {0} ", CvePS1), "PS")
+
+        If PSS.Rows.Count > 0 Or PSS2.Rows.Count > 0 Then
+            Dim CveUM As Integer = 0
+            Dim UM As String = ""
+            Dim CveClasificacion As Integer = 0
+            Dim Clasificacion As String = ""
+            Dim CvePS As Integer = 0
+            Dim PS As String = ""
+            Dim CveTipoPS As Integer = 0
+
+            If PSS.Rows.Count > 0 Then
+                CveUM = PSS.Rows(0)("CveUM").ToString.ToEntero
+                UM = PSS.Rows(0)("UnidadMedida").ToString
+                CveClasificacion = PSS.Rows(0)("CveClasificacion").ToString.ToEntero
+                Clasificacion = PSS.Rows(0)("Clasificacion").ToString
+                CvePS = PSS.Rows(0)("CvePS").ToString.ToEntero
+                PS = PSS.Rows(0)("PS").ToString
+                CveTipoPS = PSS.Rows(0)("CveTipoPS").ToString.ToEntero
+            End If
+
+            Dim Cantidad As Decimal = 1
+            Dim CveSubProyectoContrato As String = "-1"
+            Dim CveProyecto As String = "-1"
+            Dim SubProyecto As String = "SE"
+            Dim Proyecto As String = "SE"
+            Dim Obs As String = ""
+            Dim PU As Decimal = IEPS
+            Dim Total As Decimal = Cantidad * PU
+            Dim IVA As Decimal = 0
+            Dim Descuento As Decimal = 0
+
+            If PSS2.Rows.Count > 0 Then
+                CveUM = PSS2.Rows(0)("CveUM").ToString.ToEntero
+                UM = PSS2.Rows(0)("UM").ToString
+                CveClasificacion = PSS2.Rows(0)("CveClasificacion").ToString.ToEntero
+                Clasificacion = PSS2.Rows(0)("Clasificacion").ToString
+                CvePS = PSS2.Rows(0)("CvePS").ToString.ToEntero
+                PS = PSS2.Rows(0)("PS").ToString
+                CveTipoPS = PSS2.Rows(0)("CveTipoPS").ToString.ToEntero
+
+                CveSubProyectoContrato = PSS2.Rows(0)("CveSubProyecto").ToString
+                CveProyecto = PSS2.Rows(0)("CveProyecto").ToString
+                SubProyecto = PSS2.Rows(0)("SubProyecto").ToString
+                Proyecto = PSS2.Rows(0)("Proyecto").ToString
+                Obs = PSS2.Rows(0)("Obs").ToString
+
+                Dim CveTipoGasto As Integer = PSS2.Rows(0)("CveTipoGasto").ToString.ToEntero
+                Dim TipoGasto As String = PSS2.Rows(0)("TipoGasto").ToString
+
+                AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, 0, 0, 0, 0, Descuento, TCalculaTotales:=False, CveTipoGasto:=CveTipoGasto,
+                      TipoGasto:=TipoGasto, ModalidadAccionPS:=EnumModalidadAccionPS.Agregar)
+
+            Else
+                AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, 0, 0, 0, 0, Descuento, TCalculaTotales:=False)
+            End If
+        End If
+
+        Dim SubTotalIEPS As Decimal = TmpDT.SUMD("Total")
+
+        Me.SubTotal = Math.Round(SubTotalIEPS, 2)
+        Me.SubTotalConceptos = Math.Round(SubTotalIEPS, 2)
+
+        PSS.Dispose()
+    End Sub
+
+    Private Function AddPS(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, CveTipoPS As Integer, CveSubProyectoContrato As String, SubProyecto As String, Proyecto As String, CveProyecto As String,
+                      Obs As String, PU As Decimal, Total As Decimal, IVA As Decimal, RetIVA As Decimal, RetISR As Decimal, IEPSPS As Decimal, IEPSPSIVA As Decimal, Descuento As Decimal, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True,
+                      Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Decimal = 0,
+                      Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Decimal = 0,
+                      Optional PorcentajeIEPS As Decimal = 0, Optional PorcentajeRetIVA As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1,
+                      Optional CveSATPSActualizado As Boolean = False, Optional TemporadaCuadro As String = "", Optional ModalidadAccionPS As EnumModalidadAccionPS = EnumModalidadAccionPS.Agregar, Optional Con As Integer = -1,
+                      Optional CveProgramaOperativo As Integer = -1, Optional CveUnidadAdministrativa As Integer = -1, Optional CveFuenteFinanciamiento As Integer = -1, Optional CveTipoGastoAC As Integer = -1, Optional CveClasificacionOG As Integer = -1) As Integer
+
+        Dim Row As DataRow = Nothing
+
+        Row = TmpDT.NewRow()
+        Dim Retorno As Integer = 0
+        Dim CveContrato As Integer = -1
+        Dim CveSubProyecto As Integer = -1
+        Dim Valores As String()
+
+        ''CONTRATOS
+        If CveSubProyectoContrato.Contains("|"c) Then
+            Valores = CveSubProyectoContrato.Split("|"c)
+            CveContrato = Valores(1).ToEntero
+            CveSubProyecto = Valores(0).ToEntero
+        Else
+            CveSubProyecto = CveSubProyectoContrato.ToEntero
+        End If
+
+        'DR PS
+        Dim DrPS As DataRow = Nothing
+        If CvePS > 0 Then
+            DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
+        End If
+
+        If DrPS IsNot Nothing Then
+            Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo)
+            Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero
+
+            If CveTipoCompra = EnumTipoCompra.Garantia AndAlso DrPS("AplicaSerie").ToString = "True" Then
+                Row("CveMetodoInventario") = "1"
+            End If
+
+        Else
+            Row("PSCodigo") = PSCodigo
+            Row("CveMetodoInventario") = 0
+        End If
+
+        If ModalidadAccionPS = EnumModalidadAccionPS.Actualizar Then
+            Row("Consec") = Con
+        Else
+            Row("Consec") = TmpDT.Rows.Count + 1
+        End If
+
+        If (CFDIVersion = EnumCFDIVersion.v33 Or CFDIVersion = EnumCFDIVersion.v40) And CveSATPS > 0 Then
+            Dim DrPSSAT As DataRow = Nothing
+            If CargaXml Then
+                DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
+            Else
+                DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
+            End If
+            If DrPSSAT IsNot Nothing Then
+                Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString
+                Row("CveSATPS") = DrPSSAT("CveSATPS").ToString
+                If CveSATPSActualizado Then
+                    Row("CveSATPSActualizado") = 1
+                Else
+                    Row("CveSATPSActualizado") = 0
+                End If
+            End If
+        End If
+
+        Try
+            If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
+                CveTipoPS = 2
+            End If
+        Catch ex As Exception
+
+        End Try
+
+        Dim DecimalesPermitidos As Integer = 6
+
+        Row("CveConcepto") = TmpDT.Rows.Count + 1
+        Row("Cantidad") = Math.Round(Cantidad, DecimalesPermitidos)
+        Row("CantidadF") = If(CantidadF = -1, Math.Round(Cantidad, DecimalesPermitidos), Math.Round(CantidadF, DecimalesPermitidos))
+        Row("CveUM") = CveUM
+        Row("UM") = UM
+        Row("CveClasificacion") = CveClasificacion
+        Row("CveClasificacionActualizar") = CveClasificacion
+        Row("Clasificacion") = Clasificacion
+        Row("CvePS") = CvePS
+        Row("PS") = PS
+        Row("CveTipoPS") = CveTipoPS
+
+        Row("PSDescripcion") = PSDescripcion
+        Row("CveSubProyecto") = CveSubProyecto.ToEntero
+        Row("CveProyecto") = CveProyecto.ToEntero
+        Row("CveContrato") = CveContrato.ToEntero
+        Row("SubProyecto") = If(SubProyecto = "Seleccione", "Sin Sub Proyecto", SubProyecto)
+        Row("Proyecto") = If(Proyecto = "Seleccione", "Sin Proyecto", Proyecto)
+        Row("CveActivoFijo") = -1
+        Row("Obs") = Obs
+        Row("CveActivoFijo") = -1
+        Row("CodAF") = "-1"
+        Row("TipoAF") = -1
+        Row("CveOrdenCompraDetalle") = CveOrdenCompraDetalle
+        Row("EntregaDirecta") = EntregaDirecta
+
+        Row("NoDeducible") = NoDeducible
+
+
+        Total = Math.Round(PU, DecimalesPermitidos) * Cantidad - Descuento
+        Row("PU") = Math.Round(PU, DecimalesPermitidos)
+        If CargaXml And (CFDIVersion = EnumCFDIVersion.v33 Or CFDIVersion = EnumCFDIVersion.v40) Then
+
+            If CveFactura > 0 And IVA = 0 Then
+                Row("IVA") = 0
+                Row("IVAPorcentaje") = 0
+            Else
+                Row("IVA") = Math.Round(IVA, DecimalesPermitidos)
+                Row("IVAPorcentaje") = PorcentajeIVA
+            End If
+
+            Row("RetIVA") = Math.Round(RetIVA, DecimalesPermitidos)
+            Row("RetIVAPorcentaje") = PorcentajeRetIVA
+            Row("RetISR") = Math.Round(RetISR, DecimalesPermitidos)
+            Row("RetISRPorcentaje") = PorcentajeRetISR
+            Row("IEPSPS") = Math.Round(IEPSPS, DecimalesPermitidos)
+            Row("IEPSPSPorcentaje") = PorcentajeIEPS
+        Else
+            'If DdlIVA.SelectedValue.ToDouble = 0 Then Row("IVA") = 0 Else Row("IVA") = Math.Round(IVA * Total, DecimalesPermitidos)
+
+            If CveFactura > 0 And IVA = 0 Then
+                Row("IVA") = 0
+                Row("IVAPorcentaje") = 0
+            Else
+                Row("IVA") = (PorcentajeIVA * Total).RoundSQL
+                Row("IVAPorcentaje") = PorcentajeIVA
+            End If
+
+            Row("RetIVA") = (PorcentajeRetIVA * Total).RoundSQL
+            Row("RetIVAPorcentaje") = PorcentajeRetIVA
+            Row("RetISR") = (PorcentajeRetISR * Total).RoundSQL
+            Row("RetISRPorcentaje") = PorcentajeRetISR
+            Row("IEPSPS") = (PorcentajeIEPS * Total).RoundSQL
+            Row("IEPSPSPorcentaje") = PorcentajeIEPS
+        End If
+
+        Row("ImporteConImpuestos") = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) + Row("IVA").ToString.ToDecimal + Row("IEPSPS").ToString.ToDecimal - (Row("RetIVA").ToString.ToDecimal + Row("RetISR").ToString.ToDecimal)
+        Row("ImporteSinImpuestos") = Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal
+
+        Row("IEPSPSIVA") = Math.Round(IEPSPSIVA * Total, DecimalesPermitidos)
+        Row("IEPSPSIVAPorcentaje") = IEPSPSIVA
+        Row("Descuento") = Math.Round(Descuento, DecimalesPermitidos)
+        Row("OtrosGastos") = Math.Round(OtrosGastos, DecimalesPermitidos)
+        Row("Total") = Math.Round(Total, DecimalesPermitidos)
+
+        Row("CveTipoGasto") = CveTipoGasto
+        Row("TipoGasto") = If(CveTipoGasto > 0, TipoGasto, "")
+
+        Row("CveContratoDetalle") = CveContratoDetalle
+
+        Row("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
+        Row("TemporadaCuadro") = TemporadaCuadro
+
+        If UsuarioActual.Empresa.UsaAC Then
+            Row("CveProgramaOperativo") = CveProgramaOperativo
+            Row("CveUnidadAdministrativa") = CveUnidadAdministrativa
+            Row("CveFuenteFinanciamiento") = CveFuenteFinanciamiento
+            Row("CveTipoGastoAC") = CveTipoGastoAC
+            Row("CveClasificacionOG") = CveClasificacionOG
+        End If
+        'Esta parte es para validar  cuando la factura tenga ieps en  o se asignara el ieps como una partida  ya no se  considere
+        If (CveFactura > 0 Or CveCompra > 0) And IEPS = 0 Then
+            Row("IEPSPS") = 0
+            Row("IEPSPSPorcentaje") = 0
+        End If
+        TmpDT.Rows.Add(Row)
+        TmpDT.Rows.IndexOf(Row)
+
+        If TCalculaTotales Then
+            CalculaTotales(True)
+        End If
+
+        Return Retorno
+    End Function
+
+    Private Sub CalculaTotales(Optional CalculaIVA As Boolean = False, Optional EsNoDeducible As Boolean = False)
+        'VARIABLES DE CALCULO
+        Dim LocalSubTotal, LocalDescuentos, LocalAmortizacion, LocalIVA, LocalSubTotal2, LocalRetIVA, LocalRetISR, LocalIEPSPS, LocalTotal, LocalSubTotalIVA, LocalSubTotalIEPSIVA As Decimal
+
+        'HACEMOS CALCULOS
+        LocalSubTotalIVA = TmpDT.SUMD("IVA")
+        LocalSubTotalIEPSIVA = TmpDT.SUMD("IEPSPSIVA")
+        LocalSubTotal = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).RoundSQL(8)
+        LocalRetIVA = TmpDT.SUMD("RetIVA")
+        LocalRetISR = TmpDT.SUMD("RetISR")
+        LocalIEPSPS = TmpDT.SUMD("IEPSPS")
+
+        If CveCompra > 0 AndAlso CveFactura > 0 Then
+            LocalIVA = IVA
+        Else
+            LocalIVA = If(TmpDT.SUM("IVA") > 0, LocalSubTotalIVA + LocalSubTotalIEPSIVA, 0)
+        End If
+
+        LocalDescuentos = TmpDT.SUMD("Descuento")
+
+        If Not CveCompra > 0 Then
+            LocalAmortizacion = Me.Amortizacion
+        End If
+
+        'RETENCIONES
+        Dim Retenciones As Decimal = 0
+        Retenciones = LocalRetIVA
+        Retenciones += LocalRetISR
+
+
+        LocalSubTotal2 = LocalSubTotal - LocalDescuentos
+        LocalTotal = LocalSubTotal2 + LocalIVA + LocalIEPSPS - Retenciones
+
+        'ASIGNAMOS VALORES A VISTA
+        If CveCompra > 0 Or CveFactura > 0 Or Me.OCVinculada Then
+            SubTotal = LocalSubTotal
+            SubTotal2 = LocalSubTotal2
+            Descuento = LocalDescuentos
+
+            If EsNoDeducible Then
+                IVA = LocalIVA
+                RetIVA = LocalRetIVA
+                RetISR = LocalRetISR
+                IEPS = LocalIEPSPS
+            End If
+
+            Total = LocalTotal
+        Else
+            SubTotal = LocalSubTotal
+            SubTotal2 = LocalSubTotal2
+            IVA = LocalIVA
+            Descuento = LocalDescuentos
+            RetIVA = LocalRetIVA
+            RetISR = LocalRetISR
+            IEPS = LocalIEPSPS
+            Total = LocalTotal
+            'VALORES PROPIEDAD
+            CompraSaldo = LocalTotal
+
+        End If
+        Me.NumNoDed = TmpDT.COUNT("CvePS", "NoDeducible = True ")
+
+    End Sub
+
+    Private Function UpdatePSReembolso(Index As Integer, CvePS As Integer) As Boolean
+
+        Dim Respuesta As Boolean = True
+
+        Dim DrPS As DataRow = Nothing
+        Try
+            DrPS = TmpDT.Select($"Consec = {Index}")(0)
+            If DrPS Is Nothing Then
+                Errores.AppendLine($"No se encontrol el producto con  index {Index}")
+                Return False
+            End If
+        Catch ex As Exception
+            Errores.AppendLine($"No se encontrol el producto con  index {Index}")
+            Return False
+        End Try
+
+        'DATOS GENERALES
+        DrPS("Obs") = ""
+        DrPS("Proyecto") = Proyecto
+        DrPS("CveProyecto") = CveProyecto
+        DrPS("SubProyecto") = SubProyecto
+        DrPS("CveSubProyecto") = CveSubProyecto
+        DrPS("CveContratoDetalle") = -1
+
+        'IMPORTES - [CANTIDAD Y PRECIO]
+        Dim Cantidad As Double = DrPS("Cantidad").ToString.ToDouble
+        Dim PU As Double = DrPS("PU").ToString.ToDouble
+        Dim Descuento As Double = DrPS("Descuento").ToString.ToDouble
+        Dim Total As Double = (Cantidad * PU) - Descuento
+        DrPS("NoDeducible") = NoDeducible
+
+        Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+        If PSRow IsNot Nothing Then
+            Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
+            If PSRow("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
+                CveTipoPS = 2
+            End If
+
+            DrPS("CveClasificacion") = PSRow("CveClasificacion").ToString
+            DrPS("Clasificacion") = PSRow("Clasificacion").ToString
+            DrPS("CvePS") = CvePS
+            DrPS("PS") = PSRow("PS").ToString
+            DrPS("CveTipoPS") = CveTipoPS
+            DrPS("CveSATPS") = PSRow("CveSATPS").ToString.ToEntero
+            DrPS("SATClaveProductoServicio") = PSRow("SATClaveProductoServicio").ToString
+            DrPS("CveSATPSActualizado") = 0
+
+            DrPS("CveUM") = PSRow("CveUnidadMedida").ToString.ToEntero
+            DrPS("UM") = PSRow("UnidadMedida").ToString
+
+            Dim DrTipoGasto As DataRow = Me.DTTiposGastos.FiltroPrimero("")
+
+            DrPS("CveTipoGasto") = DrTipoGasto("CveTipoGasto")
+            DrPS("TipoGasto") = DrTipoGasto("TipoGasto")
+
+            If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then
+                DrPS("AplicaCostoIndirecto") = "0"
+            End If
+
+            DrPS("CveCultivoCuadroDetalle") = -1
+            DrPS("TemporadaCuadro") = ""
+
+        Else
+            Errores.AppendLine($"No se encontrol el producto con  CvePS {CvePS}")
+            Respuesta = False
+        End If
+        TmpDT.AcceptChanges()
+        Return Respuesta
+    End Function
+
+    Private Sub ValidacionesTotalesXml()
+
+        If Not TmpDT.Columns.Contains("Amortizacion") Then
+            TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+        End If
+
+        Dim Msg As String = ""
+        Dim SubtotalTemp As Decimal = TmpDT.SUMD("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2)
+        Dim DescuentosTemp As Decimal = TmpDT.SUMD("Descuento")
+        Dim Subtotal2Temp As Decimal = TmpDT.SUMD("Total")
+        Dim IVATemp As Decimal = TmpDT.SUMD("IVA")
+        Dim IEPSTemp As Decimal = TmpDT.SUMD("IEPSPS")
+        Dim RetIVATemp As Decimal = TmpDT.SUMD("RetIVA")
+        Dim RetISRTemp As Decimal = TmpDT.SUMD("RetISR")
+        Dim TotalTemp As Decimal = Subtotal2Temp - RetIVATemp - RetISRTemp + Math.Round(IVATemp, 6) + IEPSTemp + OtrosImpuestos - OtrosImpuestosRetenciones
+
+        If Math.Abs(Math.Round(DescuentosTemp, 6) - Math.Round(Descuento, 6)) > 0.01 Then
+            Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general <br>")
+        End If
+
+        If Math.Abs(Math.Round(IVATemp, 6) - Math.Round(TrasladoIVA, 6)) > 0.01 Then
+            Msg &= String.Format("- Los IVAS del detalle no coinciden con el IVA general <br>")
+        End If
+
+        If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)) > 0.01 Then
+            Msg &= String.Format("- Los IEPS del detalle no coinciden con el IEPS general <br>")
+        End If
+
+        If Math.Abs(Math.Round(RetIVATemp, 6) - Math.Round(RetencionIVA, 6)) > 0.01 Then
+            Msg &= String.Format("- Los RetIVA del detalle no coinciden con el RetIVA general <br>")
+        End If
+
+        If Math.Abs(Math.Round(RetISRTemp, 6) - Math.Round(RetencionISR, 6)) > 0.01 Then
+            Msg &= String.Format("- Las RetISR del detalle no coinciden con el RetIVA general <br>")
+        End If
+
+        If Math.Abs(Math.Round(TotalTemp, 2) - Math.Round(Total, 2)) > 0.01 Then
+            Msg &= String.Format("- El total generado por los detalles no coincide con el total general <br> ({0}-{1})", Math.Round(TotalTemp, 2), Math.Round(Total, 2))
+        End If
+
+        If Msg <> "" Then
+            Errores.AppendLine($" El comprobante XML presenta las siguientes inconsistencias:{Msg}. ")
+        Else
+
+            DescuentosTemp = Descuento
+            IVATemp = TrasladoIVA
+            TotalTemp = Total
+            RetIVATemp = RetencionIVA
+            RetISRTemp = RetencionISR
+            IEPSTemp = TrasladoIEPS
+        End If
+
+        Me.SubTotal = SubtotalTemp
+        Me.Descuento = DescuentosTemp
+        Me.SubTotal2 = Subtotal2Temp
+        Me.IVA = IVATemp
+        Me.Total = TotalTemp
+        Me.RetIVA = RetIVATemp
+        Me.RetISR = RetISRTemp
+        Me.IEPS = IEPSTemp
+        CompraSaldo = TotalTemp
+
+        AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
+
+    End Sub
+
+    Private Sub AsignaValoresOriginales(SubTotal As Decimal, SubTotal2 As Double, IVA As Decimal, RetIVA As Decimal, RetISR As Decimal, Total As Decimal)
+        SubTotalOriginal = SubTotal
+        SubTotal2Original = SubTotal2
+        IVAOriginal = IVA
+        RetIVAOriginal = RetIVA
+        RetISROriginal = RetISR
+        TotalOriginal = Total
+    End Sub
+
+    Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
+
+        If ImporteAjuste = 0 Then Exit Sub
+
+        Dim Amortizacion As Decimal = 0
+
+        If TmpDT.Rows.Count > 0 Then ' si hay movimientos y si esta afectando al total, que se haga el ajuste
+            Dim Indice As Integer = If(TmpDT.Rows(TmpDT.Rows.Count - 1)("CvePS").ToString = UsuarioActual.Empresa.Funcionalidad(112).ToString, TmpDT.Rows.Count - 2, TmpDT.Rows.Count - 1)
+            Dim tPU As Decimal
+
+            If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
+                tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
+            Else
+                tPU = 0
+            End If
+
+            If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 Then 'si es negativo, que tome el dato anterior
+                Indice = Indice - 1
+                If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
+                    tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
+                Else
+                    tPU = 0
+                End If
+            End If
+
+            TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU
+            TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste
+            TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDecimal() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDecimal()).RoundAD(2)
+            TmpDT.Rows(Indice)("IVA") = (TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal - TmpDT.Rows(Indice)("Descuento").ToString.ToDecimal) * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal
+            TmpDT.AcceptChanges()
+        End If
+
+        SubTotal = TmpDT.SUMD("Total")
+        If Not EsCarga Then
+            Descuento = TmpDT.SUMD("Descuento")
+        End If
+
+        SubTotalConceptos = SubTotal
+
+    End Sub
+
+    Public Function ValidateUUID(ByVal uuid As String) As Boolean
+        Dim pattern As String = "^[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}$"
+        Dim regex As New Regex(pattern)
+        Return regex.IsMatch(uuid)
+    End Function
+    Private Function GeneraStringDoctosRelacionados() As String
+
+        Dim DoctosRelacionados As String = "-1"
+        Dim listaUUIDSRelacionados As New List(Of String)
+
+        If DocumentosRelacionadosUUIDSList.Count > 0 Then
+            For Each s As String In DocumentosRelacionadosUUIDSList
+                If s.Trim.Length > 0 Then
+                    listaUUIDSRelacionados.Add(s.Trim)
+                End If
+            Next
+        End If
+
+        If listaUUIDSRelacionados.Count > 0 Then
+            DoctosRelacionados = String.Join(",", listaUUIDSRelacionados.ToArray())
+        End If
+
+        Return DoctosRelacionados
+    End Function
+    Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
+        Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
+        If o Is Nothing Then
+            Return Retorno
+        Else
+            Return o.Value
+        End If
+    End Function
+
+    Public Function AddCompra(Optional ByRef transacccion As SqlTransaction = Nothing) As Boolean
+
+        If Not AjustesValidacion() Then Return False
+
+        Dim respuesta As Boolean = True
+        Dim ObjCompras As ClsCompras
+
+        If transacccion IsNot Nothing Then
+            ObjCompras = New ClsCompras(transacccion)
+        Else
+            ObjCompras = New ClsCompras
+        End If
+        Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
+
+        If Not AddPrePolizaCabecera(ObjConta) Then
+            respuesta = False
+        End If
+
+        If respuesta AndAlso ObjCompras.AddCompra(Me.TipoDocto, Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
+                          Me.Amortizacion, Me.IVA, Me.RetIVA, Me.RetISR, Me.IEPS, Me.OtrosImpuestos,
+                          Me.Redondeo, Me.Total, Me.Fecha, Me.CveMoneda, Me.TipoCambio, If(Me.FechaPago = Nothing, Me.Fecha, Me.FechaPago), Me.AplicaNotaCredito, Me.Observaciones, Me.CveEstatusFactura,
+                          Me.CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.IdPoliza, CveCajaChica:=Me.CveCajaChica, CvePersonal:=Me.CvePersonal, NumeroReembolso:=Me.NumeroReembolso, CveProveedorSucursal:=Me.CveProveedorSucursal,
+                          AplicoPromocion:=Me.AplicoPromocion, PorcentajeIVA:=Me.PorcentajeIVA, CveMetodoPago:=Me.CveMetodoPago, CveRetIVAConcepto:=Me.CveRetIVAConcepto,
+                          CveConceptoContableAlmacen:=Me.CveConceptoContableAlmacen,
+                          CveRetISRConcepto:=Me.CveRetISRConcepto, NoDeducible:=Me.NoDeducible, CveTipoCompra:=Me.CveTipoCompra, TotalOriginal:=Me.TotalOriginal, CveTipoConcepto:=Me.CveTipoConcepto,
+                          EsImportacion:=Me.EsImportacion, CveFactura:=Me.CveFactura, CveSubProyecto:=Me.CveSubProyectoPrincipal, DoctosRelacionados:=Me.DocumentosRelacionadosUUIDSString, CveFolioGarantia:=Me.CveFolioGarantia,
+                          CveCompraRelacionada:=CveCompraRelacionada) Then
+            Me.CveCompra = ObjCompras.CveCompra
+        Else
+            respuesta = False
+        End If
+
+        If respuesta AndAlso Me.CveCompra > 0 Then
+
+            For Each Row As DataRow In Me.TmpDT.Rows
+
+                Dim TipoRecepcion As Integer = -1
+                Dim Referencia As String = ""
+                Dim EsNoDeducible As Boolean = False
+                Dim CveAF As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
+                Dim CveAFC As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
+
+                If Not ObjCompras.AddCompraDetalle(Me.CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
+                                                                    Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal,
+                                                                    Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
+                                                                    AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
+                                                                    CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
+                                                                    RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
+                                                                    IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
+                                                                    IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
+                                                                    CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero, CveActivoFijoCompra:=CveAFC) Then
+
+                    respuesta = False
+                    Exit For
+                End If
+            Next
+        End If
+
+        If respuesta Then
+            If Not AddPrePolizaDetalles(ObjConta) Then respuesta = False
+        End If
+
+        If respuesta AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 4) Then
+            If ObjConta.ValorPolizaDescuadre > 0 Then
+                Errores.AppendLine($"eFacturas/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}.")
+                GuardaLogAD($"eFacturas/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                respuesta = False
+            End If
+        End If
+
+        If respuesta AndAlso Me.CveFactura > 0 Then
+            If Not ObjCompras.UpdateCompraFactura(Me.CveCompra, Me.CveFactura, Me.Serie, Me.Folio) Then respuesta = False
+        End If
+
+        If transacccion Is Nothing Then 'SINO VIENE DE UNA TRANSACCIÓN
+            If respuesta Then
+                ObjCompras.Commit()
+            Else
+                ObjCompras.RollBack()
+            End If
+            ObjCompras.Dispose()
+            ObjConta.Dispose()
+        End If
+
+        Return respuesta
+    End Function
+
+    Private Function AddPrePolizaCabecera(ByRef ObjConta As ClsContabilidad) As Boolean
+
+        Dim respuesta As Boolean = False
+
+        Dim ConceptoPoliza As String = String.Format("{0} - {1} - {2}", NombreProveedor, SerieFolio, "")
+        Dim Modulo As String = "eFacturas/Registrar"
+
+        If Me.TipoDocto = "RNC" Then
+            ConceptoPoliza = String.Format("{0} - {1} - {2}", NombreProveedor, SerieFolio, "")
+            Modulo = "Compras/RNC"
+        End If
+
+        Me.CvePrePoliza = ObjConta.AddPrePolizas(Modulo, 1, Me.Total, Me.Total, Me.CveMoneda, Me.Fecha, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", CveTipoPoliza:=Me.CveTipoPoliza)
+        respuesta = If(Me.CvePrePoliza > 0, True, False)
+
+        Return respuesta
+    End Function
+
+    Private Function AddPrePolizaDetalles(ByRef ObjConta As ClsContabilidad, Optional ES_RNC As Boolean = False) As Boolean
+        Dim respuesta As Boolean = True
+        Dim Concepto As String = $"{Me.NombreProveedor} {Me.SerieFolio}"
+        Dim Referencia As String = Me.SerieFolio
+
+        If TipoDocto = "RNC" Then
+
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Me.Total, Me.Total, 370, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Me.CveCompraAmortizacion, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
+                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
+                respuesta = False
+
+            End If
+
+            If respuesta Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 372, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Me.CveCompraAmortizacion, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
+                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
+                    respuesta = False
+
+                End If
+            End If
+
+        Else
+
+            Dim importeMovimiento As Decimal
+            Dim importeMN As Decimal
+
+
+            '6
+            For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows
+
+                importeMovimiento = TmpDT.SUMD("Total", $" CveClasificacion = {RowDetalle("CveClasificacion").ToString} AND CveSubProyecto = {RowDetalle("CveSubProyecto").ToString}")
+                importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+
+                If importeMN <> 0 Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 6, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=Me.CveCreditoDetalle, ImporteME:=If(TipoCambio = 1, 0, importeMovimiento), TipoCambio:=TipoCambio,
+                                                         CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=True) Then
+                        respuesta = False
+                        Exit For
+                    End If
+                End If
+            Next
+            '14
+            If respuesta AndAlso Me.IVA > 0 Then
+                importeMovimiento = Me.IVA
+                importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 14, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=Me.PorcentajeIVA, Contabilizable:=True) Then
+                    respuesta = False
+                End If
+            End If
+            '25
+            If respuesta AndAlso Me.IEPS > 0 Then
+                importeMovimiento = Me.IEPS
+                importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 25, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+                    respuesta = False
+                End If
+            End If
+            '
+            If respuesta AndAlso Me.RetIVA > 0 Then
+                importeMovimiento = Me.RetIVA
+                importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+                Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetIVA
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+                    respuesta = False
+                End If
+            End If
+            '
+            If respuesta AndAlso Me.RetISR > 0 Then
+                importeMovimiento = Me.RetISR
+                importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+                Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetISR
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+                    respuesta = False
+                End If
+            End If
+            '5
+            If respuesta Then
+                importeMovimiento = Me.Total
+                importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+                Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, Me.CveMoneda, False, Me.CveTipoConceptoProveedor)
+                Dim ImporteME As Decimal = importeMovimiento
+                Dim UsaComplementaria As Boolean = True
+                If Me.CveMoneda > 1 Then ImporteME = importeMovimiento
+
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'caso excepcional de complementarias
+                    UsaComplementaria = False
+                    importeMN = importeMovimiento * Me.TipoCambio
+                Else
+                    importeMN = importeMovimiento
+                End If
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ConPreP.CveConcepto, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+                    respuesta = False
+                End If
+                If respuesta AndAlso Me.CveMoneda > 1 AndAlso UsaComplementaria Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, (importeMovimiento * Me.TipoCambio - importeMovimiento).RoundSQL, ConPreP.CveConceptoComplementario, Referencia, Concepto, CveCompra:=Me.CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=Me.CvePersonal, CveCompraAmortizacion:=Me.CveCompraAmortizacion, TipoCambio:=Me.TipoCambio, TipoCambioPago:=1, ImporteME:=ImporteME, CveSubProyecto:=Me.CveSubProyecto) Then
+                        respuesta = False
+                    End If
+                End If
+            End If
+        End If
+
+        Return respuesta
+
+    End Function
+
 End Class
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 9d8c6e07e..d8c2d3080 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -22354,6 +22354,8 @@ Partial Class Compras_Compras
         TmpDTProrrateoGasolina.Columns.Add("RetISR", GetType(Decimal))
         TmpDTProrrateoGasolina.Columns.Add("Total", GetType(Decimal))
         TmpDTProrrateoGasolina.Columns.Add("PorcentajeIVA", GetType(Decimal))
+        TmpDTProrrateoGasolina.Columns.Add("RetISRPorcentaje", GetType(Decimal))
+        TmpDTProrrateoGasolina.Columns.Add("RetIVAPorcentaje", GetType(Decimal))
 
         TmpDTProrrateoGasolina.Columns.Add("CveUM", GetType(Integer))
         TmpDTProrrateoGasolina.Columns.Add("CveClasificacion", GetType(Integer))
@@ -22368,7 +22370,7 @@ Partial Class Compras_Compras
 
     Protected Sub LnkProrrateoGasolina_Click(sender As Object, e As EventArgs)
 
-        InicializaDTProrrateoGasolina()
+        'InicializaDTProrrateoGasolina()
         CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoProrrateoGasolina,)
         GvProrrateoGasolina.Columns(0).HeaderText = LblSubProyectoProrrateoGasolina.Text
         LblRiruloProrrareo.Text = $"Prorratear por { LblSubProyectoProrrateoGasolina.Text}"
@@ -22517,15 +22519,15 @@ Partial Class Compras_Compras
         nRow("CveSubProyecto") = CveSubProyecto
         nRow("SubProyecto") = SubProyecto
 
-        If CveFactura > 0 Then
-            nRow("IVA") = ivaParcial.RoundSQL(4)
-            nRow("RetIVA") = retIvaParcial.RoundSQL(4)
-            nRow("RetISR") = retIsrParcial.RoundSQL(4)
-        Else
-            nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
-            nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4)
-            nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4)
-        End If
+        'If CveFactura > 0 Then
+        nRow("IVA") = ivaParcial.RoundSQL(4)
+        nRow("RetIVA") = retIvaParcial.RoundSQL(4)
+        nRow("RetISR") = retIsrParcial.RoundSQL(4)
+        'Else
+        'nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
+        'nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4)
+        'nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4)
+        'End If
 
         nRow("SubTotal") = subtotalParcial.RoundSQL(4)
 
@@ -22533,6 +22535,8 @@ Partial Class Compras_Compras
         nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
         nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
 
+        nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4)
+        nRow("RetISRPorcentaje") = (retIsrParcial / subtotalParcial).RoundSQL(4)
 
         nRow("CveUM") = CveUM
         nRow("UM") = UM
@@ -22584,7 +22588,8 @@ Partial Class Compras_Compras
             TmpDT.Rows.Clear()
             For Each dRow As DataRow In DTProrrateoGasolina.Rows
                 AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "",
-                      "-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("PorcentajeIVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal)
+                      "-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("IVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal,
+                      CargaXml:=True, PorcentajeRetIVA:=dRow("RetIVAPorcentaje").ToString.ToDecimal, PorcentajeRetISR:=dRow("RetISRPorcentaje").ToString.ToDecimal)
             Next
 
             AddPS2()
diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb
index dc15ec06c..19ca0a061 100644
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -115,9 +115,10 @@ Partial Class Compras_RepProductosServiciosDetalle
         txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
         txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
 
-        If CveCultivo.ToEntero() > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then
+        If CveCultivo.Length > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then
             txtFechaI.Text = "01/01/1900"
         End If
+
         If Fecha <> "-1" Then
             txtFechaI.Text = Fecha
             txtFechaF.Text = Fecha
diff --git a/Inventarios/CatAlmacenes.aspx b/Inventarios/CatAlmacenes.aspx
index 494eb4c65..fcf4a1343 100644
--- a/Inventarios/CatAlmacenes.aspx
+++ b/Inventarios/CatAlmacenes.aspx
@@ -151,18 +151,20 @@
     </div>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza,CveAlmacenVirtual" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza,CveAlmacenVirtual,AlmacenAbreviatura" 
+                EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="20%" HeaderText="Almacen">
                         <ItemTemplate>
                             &nbsp;<asp:Literal ID="LtlAlmacen" runat="server" Text='<%# Eval("Almacen") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <%--                    <asp:TemplateField ItemStyle-Width="10%" HeaderText="Sucursal">
+
+                    <asp:TemplateField ItemStyle-Width="20%" HeaderText="Abreviatura">
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlSucursal" runat="server" Text='<%# Eval("Sucursal", "{0}") %>'></asp:Literal>
+                            &nbsp;<asp:Literal ID="LtlAlmacenAbreviatura" runat="server" Text='<%# Eval("AlmacenAbreviatura") %>'></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField>--%>
+                    </asp:TemplateField>                                        
                     <asp:TemplateField ItemStyle-Width="10%" HeaderText="SubProyecto">
                         <ItemTemplate>
                             &nbsp;<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Literal>
@@ -230,11 +232,19 @@
                     <div class="modal-body">
                         <asp:UpdatePanel ID="UpBodyAlmacen" UpdateMode="Conditional" runat="server">
                             <ContentTemplate>
+
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtAlmacen" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                    <asp:TextBox ID="TxtAlmacen" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50" ></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RFVAlmacen" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
                                     <asp:Label AssociatedControlID="TxtAlmacen" runat="server" Text="Almacén:"></asp:Label>
                                 </div>
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtAlmacenAbreviatura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50" ></asp:TextBox>
+<%--                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
+                                    <asp:Label AssociatedControlID="TxtAlmacenAbreviatura" runat="server" Text="Abreviatura:"></asp:Label>
+                                </div>
+
                                 <div class="row">
                                     <div class="col-md-6">
                                         <%-- <div class="form-group form-md-line-input input-iconright">
diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb
index 7420d57a4..7ce506e4f 100644
--- a/Inventarios/CatAlmacenes.aspx.vb
+++ b/Inventarios/CatAlmacenes.aspx.vb
@@ -260,7 +260,7 @@ Partial Class Inventarios_CatAlmacenes
         If HdnModalidad.Value = "A" Then
             If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                      CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero,
-                                     CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero()) Then
+                                     CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero(), AlmacenAbreviatura:=TxtAlmacenAbreviatura.Text) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)
                 UpDatos.Update()
                 ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -270,7 +270,9 @@ Partial Class Inventarios_CatAlmacenes
             Else
                 TieneError = True
             End If
-        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero, Estatus, HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero) Then
+        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero, Estatus, HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero,
+                                        UsuarioActual.CveEmpresa, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero,
+                                        AlmacenAbreviatura:=TxtAlmacenAbreviatura.Text) Then
             Alert("El  Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion)
             UpDatos.Update()
             ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -295,6 +297,7 @@ Partial Class Inventarios_CatAlmacenes
         BtnAgregarAlmacen.Text = "Agregar"
         myModalLabel.InnerText = "Agregar Almacén"
         TxtAlmacen.Text = ""
+        TxtAlmacenAbreviatura.Text = ""
         TxtOrden.Text = ""
         ChkEstatus.Checked = True
         divEstatus.Visible = False
@@ -335,6 +338,7 @@ Partial Class Inventarios_CatAlmacenes
         DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
         DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen"))
         TxtAlmacen.Text = GvRow.DataKey("Almacen")
+        TxtAlmacenAbreviatura.Text = GvRow.DataKey("AlmacenAbreviatura")
         TxtOrden.Text = GvRow.DataKey("Orden")
         DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1"))
         DdlAlmacenesVirtuales.SelectedValueExist(GvRow.DataKey("CveAlmacenVirtual"))
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx
index 2c2adac8d..e402747b2 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx
@@ -117,9 +117,8 @@
                     </div>
                 </div>
                 <div class="row" style="max-width: 780px;">
-                    <div class="col-md-12" style="display: flex; justify-content: flex-end">
-
-                        <table>
+                    <div class="col-md-12" style="display: flex;">
+                        <table style="width:100%">
                             <tr>
                                 <td class="text-right" style="text-align: right;" runat="server" id="DivListasPrecios2" visible="false">Lista: </td>
                                 <td id="DivListasPrecios" visible="false" runat="server">
@@ -130,9 +129,23 @@
                                 </td>
                             </tr>
                             <tr>
-                                <td></td>
+                                <td> 
+                                    <div class="row" id="DivListaPrecios" runat="server" visible="false">
+                                        <div class="col-md-12">
+                                            <asp:GridView ID="GvPLMultiple" Width="100%" runat="server" GridLines="None" ClientIDMode="Static" AutoGenerateColumns="false"
+                                                CssClass="table table-striped table-hover" data-sort="true" EmptyDataText="No se encontraron registros">
+                                                <Columns>
+                                                    <asp:BoundField DataField="PrecioLista" HeaderText="Lista de Precio" />
+                                                    <asp:BoundField DataField="Precio" HeaderText="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                                    <asp:BoundField DataField="Precio8" HeaderText="Neto al 8%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                                    <asp:BoundField DataField="Precio16" HeaderText="Neto al 16%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                                </Columns>
+                                            </asp:GridView>
+                                        </div>
+                                    </div>
+                                </td>
                                 <td id="DivListasPreciosRow2" visible="false" runat="server"></td>
-                                <td style="text-align: right;">
+                                <td style="text-align: right; justify-content: flex-end;vertical-align: bottom;">
                                     <asp:HyperLink ID="HlPendiente" Style="color: #337ab7;" Visible="false" runat="server" Text="Ventas Pendiente por Surtir" Target="_blank"></asp:HyperLink>
                                 </td>
                             </tr>
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
index 2df14d506..9ff6918e7 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
@@ -154,13 +154,29 @@ Partial Class Inventarios_Default
             ObjInventarios.Dispose()
             GV.DataBind()
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                CargaListaPrecios(CvePS)
+            End If
+
             UPDatos.Update()
 
         Else
             Alert("Seleccione un producto", TipoMensaje.MsgAdvertencia)
         End If
+    End Sub
+
+    Private Sub CargaListaPrecios(CvePS As Integer)
+        If UsuarioActual.TienePermisoProceso(389) Then 'si puede actualizar precios se muestra
+            Dim objPS As New ClsProductosServicios
+            If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CvePS:=CvePS) Then
+                GvPLMultiple.DataSource = objPS.DtResultados.FiltraParametros("Precio > 0")
+            End If
+            objPS.Dispose()
+            DivListaPrecios.Visible = True
+            GvPLMultiple.DataBind()
+        End If
+
     End Sub
-
     Private Sub CargaPS(CvePS As Integer)
         If CvePS <= 0 Then Exit Sub
 
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 8e300748a..81945debf 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2735,6 +2735,8 @@ Partial Class Inventarios_RecepcionUsados
 
         TmpDT.Columns.Add("CveTamaño", GetType(Integer))
         TmpDT.Columns.Add("EsCargo", GetType(Boolean))
+        TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
+        TmpDT.Columns("CvePromocionDetalle").DefaultValue = -1
 
         Return TmpDT
     End Function
diff --git a/Nomina/ReporteVacaciones.aspx b/Nomina/ReporteVacaciones.aspx
new file mode 100644
index 000000000..0e31011b4
--- /dev/null
+++ b/Nomina/ReporteVacaciones.aspx
@@ -0,0 +1,154 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ReporteVacaciones.aspx.cs" Inherits="Nomina_ReporteVacaciones" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        /*.text-right {
+            text-align:right
+        }*/
+        td.borderleft,th.borderleft{
+            border-left:1px solid black !important;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reporte Vacaciones
+</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:UpdatePanel ID="UpContenido" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            
+                            <label class="col-md-1 mediocol">Inicio:</label>
+                            <div class="col-md-1">
+                                <%--<asp:TextBox ID="TxtPeriodoInicio" Text="0" CssClass="form-control" runat="server"></asp:TextBox>--%>
+
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="LnkRpdFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupButtonID="LnkRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvRpdFechaInicio" runat="server" ControlToValidate="TxtRpdFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaInicio"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
+                            <label class="col-md-1 mediocol">Fin:</label>
+                            <div class="col-md-1">
+                                <%--<asp:TextBox ID="TxtPeriodoFin" Text="99" CssClass="form-control" runat="server"></asp:TextBox>--%>
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvRpdFechaFin" runat="server" ControlToValidate="TxtRpdFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaFin"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
+                            <asp:Label ID="LblProyecto" CssClass="col-md-1 compoonenlabel" runat="server" Text="Proyecto:" Style="max-width: 100px;"></asp:Label>
+                            <div runat="server" id="divddlproyeto" class="col-md-2">
+                                <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" CssClass="select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <asp:Label ID="LblSubProyeccto" CssClass="col-md-1 compoonenlabel" runat="server" Text="SubProyecto:" Style="max-width: 103px;"></asp:Label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                            <div class="col-md-1">
+                                <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" />
+                            </div>
+                        </div>
+                    </div>
+                    <div class="tools">
+                        <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">
+                </div>
+            </div>
+
+
+            <div>
+                <table  id="gvReporteVacaciones" class="table table-striped table-advance table-hover  ScrollAD Widthall gvReporteVacaciones" data-rows="2" data-heighterror="360">
+                    <%-- <thead>
+                            </thead>--%>
+                    <tbody>
+
+                        <tr>
+                            <th></th>
+                            <th></th>
+                            <th></th>
+                            <%-- Encabezados dinámicos para los ejercicios --%>
+
+                            <asp:Repeater ID="RepeaterEjerciciosH1" runat="server">
+                                <ItemTemplate>
+                                    <th class="borderleft" colspan="3"><%# Eval("Ejercicio") %></th>
+                                </ItemTemplate>
+                            </asp:Repeater>
+                        </tr>
+
+                        <tr>
+                            <th>Código</th>
+                            <th>Nombre Completo</th>
+                            <th>Fecha Inicio</th>
+                            <%-- Encabezados dinámicos para los ejercicios --%>
+
+                            <asp:Repeater ID="RepeaterEjerciciosH2" runat="server">
+                                <ItemTemplate> 
+                                    <th class="borderleft">Antigüedad</th>
+                                    <th>Días Vacaciones</th>
+                                    <th>Días Pagados</th>
+                                </ItemTemplate>
+                            </asp:Repeater>
+                        </tr>
+                        <asp:Repeater ID="RepeaterPrincipal" runat="server">
+                            <HeaderTemplate>
+                            </HeaderTemplate>
+                            <ItemTemplate>
+                                <tr>
+                                    <%--<td><%# Eval("CvePersonal") %></td>--%>
+                                    <td> 
+                                    <asp:HyperLink runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CvePersonal",  "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink></td>
+                                    <td> 
+                                    <asp:HyperLink runat="server" Text='<%# Eval("NombreCompleto") %>' NavigateUrl='<%# Eval("CvePersonal",  "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink></td>
+                                    <td><%# Eval("FechaInicio", "{0:yyyy-MM-dd}") %></td>
+                                    <%-- Subrepeater para los ejercicios --%>
+                                    <asp:Repeater ID="RepeaterEjercicios" runat="server" DataSource='<%# Eval("Ejercicios") %>'>
+                                        <ItemTemplate> 
+                                            <td class="text-right borderleft"><%# Convert.ToInt32(Eval("Antiguedad")) > 0 ? Eval("Antiguedad") : "" %></td>
+                                            <td  class="text-right "><%# Convert.ToInt32(Eval("Antiguedad")) > 0 ? Eval("DiasVacaciones") : "" %></td>
+                                            <td  class="text-right "><%# Convert.ToInt32(Eval("Antiguedad")) > 0 ? Eval("DiasPagados") : "" %></td>
+                                        </ItemTemplate>
+                                    </asp:Repeater>
+                                </tr>
+                            </ItemTemplate>
+                            <FooterTemplate>
+                            </FooterTemplate>
+                        </asp:Repeater>
+                    </tbody>
+                </table>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+
diff --git a/Nomina/ReporteVacaciones.aspx.cs b/Nomina/ReporteVacaciones.aspx.cs
new file mode 100644
index 000000000..ec247c795
--- /dev/null
+++ b/Nomina/ReporteVacaciones.aspx.cs
@@ -0,0 +1,171 @@
+using ADSNetLibrary.Helpers;
+using System;
+using System.Collections.Generic;
+using System.Data;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+
+public partial class Nomina_ReporteVacaciones : ClsPaginas
+{
+    #region "Propiedades"
+    protected int FiltCveProyecto
+    {
+        get
+        {
+            if (ViewState["FiltCveProyecto"] == null) { return -1; }
+            else { return ViewState["FiltCveProyecto"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["FiltCveProyecto"] = value; }
+    }
+    protected int FiltCveSubProyecto
+    {
+        get
+        {
+            if (ViewState["FiltCveSubProyecto"] == null) { return -1; }
+            else { return ViewState["FiltCveSubProyecto"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["FiltCveSubProyecto"] = value; }
+    }
+    protected string FiltFechaInicio
+    {
+        get
+        {
+            string fecha = $"{DateTime.Now.Year - 3}-01-01";
+            if (ViewState["FiltFechaInicio"] == null) { return fecha ; }
+            else { return ViewState["FiltFechaInicio"].ToString(); }
+        }
+
+        set { ViewState["FiltFechaInicio"] = value; }
+    }
+    protected string FiltFechaFin
+    {
+        get
+        {
+            string fecha = $"{DateTime.Now.Year}-12-31";
+            if (ViewState["FiltFechaFin"] == null) { return fecha; }
+            else { return ViewState["FiltFechaFin"].ToString(); }
+        }
+
+        set { ViewState["FiltFechaFin"] = value; }
+    }
+    #endregion
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            TxtRpdFechaInicio.Text = $"{FiltFechaInicio.ToDateTime():dd/MM/yyyy}";
+            TxtRpdFechaFin.Text = $"{FiltFechaFin.ToDateTime():dd/MM/yyyy}";
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
+            divddlproyeto.Visible = DdlProyecto.Visible;
+            getinfo();
+        }
+    }
+    public void getinfo()
+    {
+        using (ClsNominas objnom = new ClsNominas())
+        {
+            if (objnom.ReporteVacaciones(FiltCveProyecto, FiltCveSubProyecto, UsuarioActual.CveEmpresa, FiltFechaInicio, FiltFechaFin))
+            {
+                DataTable tabla1 = objnom.DTSetResultados.Tables[0]; // Simula tu tabla 1
+                DataTable tabla2 = objnom.DTSetResultados.Tables[1]; // Simula tu tabla 2
+                DataTable tabla3 = objnom.DTSetResultados.Tables[2]; // Simula tu tabla 3
+                RepeaterEjerciciosH1.DataSource= tabla3;
+                RepeaterEjerciciosH2.DataSource= tabla3;
+                RepeaterEjerciciosH1.DataBind();
+                RepeaterEjerciciosH2.DataBind();
+                // Convertir Tabla 1 a Enumerable con un campo extra
+                List<Registro> resultado = tabla1.AsEnumerable().Select(row1 => new Registro()
+                {
+                    CvePersonal = row1.Field<int>("CvePersonal"),
+                    Codigo = row1.Field<string>("Codigo"),
+                    NombreCompleto = row1.Field<string>("NombreCompleto"),
+                    //FechaFin = (row1("FechaFin")).ToString().,
+                    FechaInicio = row1.Field<DateTime>("FechaInicio"),
+                    FechaAntiguedad = row1.Field<DateTime>("FechaAntiguedad"),
+                    Antiguedad = row1.Field<int>("Antiguedad"),
+
+                    // Campo extra: Enumerable para cada Ejercicio de Tabla 3
+                    Ejercicios = tabla3.AsEnumerable().Select(row3 =>
+                    {
+                        var ejercicio = row3.Field<int>("Ejercicio");
+
+                        // Buscar en Tabla 2 si existe el registro para CvePersonal y Ejercicio
+                        var registro = tabla2.AsEnumerable().FirstOrDefault(row2 =>
+                            row2.Field<int>("CvePersonal") == row1.Field<int>("CvePersonal") &&
+                            row2.Field<int>("EJercicio") == ejercicio);
+
+                        // Si no existe, crear un nuevo registro
+                        if (registro == null)
+                        {
+                            return new EjercicioInfo()
+                            {
+                                Ejercicio = ejercicio,
+                                FechaAntiguedad = row1.Field<DateTime>("FechaAntiguedad"),
+                                Antiguedad = 0,
+                                DiasVacaciones = 0, // Valor predeterminado
+                                DiasPagados = 0,    // Valor predeterminado
+                                DiasDisfrutados = 0 // Valor predeterminado
+                            };
+                        }
+                        else
+                        {
+                            // Si existe, devolver los datos de la Tabla 2
+                            return new EjercicioInfo()
+                            {
+                                Ejercicio = registro.Field<int>("EJercicio"),
+                                FechaAntiguedad = registro.Field<DateTime>("FechaAntiguedad"),
+                                Antiguedad = registro.Field<int>("Antiguedad"),
+                                DiasVacaciones = registro.Field<int>("DiasVacaciones"),
+                                DiasPagados = registro.Field<int>("DiasPagados"),
+                                DiasDisfrutados = registro.Field<int>("DiasDisfrutados")
+                            };
+                        }
+                    }).ToList()
+                }).ToList();
+
+
+
+                RepeaterPrincipal.DataSource = resultado;
+                RepeaterPrincipal.DataBind();
+
+            }
+
+        }
+
+    }
+
+
+
+    protected void LnkConsultar_Click(object sender, EventArgs e)
+    {
+        FiltFechaInicio = $"{TxtRpdFechaInicio.Text.ToDateTime():yyyy-MM-dd}";
+        FiltFechaFin = $"{TxtRpdFechaFin.Text.ToDateTime():yyyy-MM-dd}";
+        getinfo();
+    }
+}
+
+public class Registro
+{
+    public int CvePersonal { get; set; }
+    public string Codigo { get; set; }
+    public string NombreCompleto { get; set; }
+    public DateTime FechaInicio { get; set; }
+    public DateTime FechaFin { get; set; }
+    public DateTime FechaAntiguedad { get; set; }
+    public int Antiguedad { get; set; }
+    public List<EjercicioInfo> Ejercicios { get; set; }
+}
+
+public class EjercicioInfo
+{
+    public int Ejercicio { get; set; }
+    public DateTime FechaAntiguedad { get; set; }
+    public int Antiguedad { get; set; }
+    public int DiasVacaciones { get; set; }
+    public int DiasPagados { get; set; }
+    public int DiasDisfrutados { get; set; }
+}
\ No newline at end of file
diff --git a/Site.master b/Site.master
index b85df0783..ebbfd9f92 100644
--- a/Site.master
+++ b/Site.master
@@ -217,7 +217,7 @@
                                         </a>
                                     </li>
                                     <li id="tdBExi" runat="server" visible="false">
-                                        <a onclick="javascript:AbrirVentana('/Inventarios/PopUpExistenciasAlmacen.aspx?CvePS=-1',800,597,'N');">
+                                        <a onclick="javascript:AbrirVentana('/Inventarios/PopUpExistenciasAlmacen.aspx?CvePS=-1',800,700,'N');">
                                             <i class="fa fa-cubes"></i>
                                             Buscar Existencias
                                         </a>
diff --git a/Ventas/CatPromociones.aspx b/Ventas/CatPromociones.aspx
index 998968349..e19fcc227 100644
--- a/Ventas/CatPromociones.aspx
+++ b/Ventas/CatPromociones.aspx
@@ -28,25 +28,61 @@
                     <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
                         <div class="tools">
                             <asp:Button Text="Consultar" ID="BtnConsultar" CssClass="btn btn-primary" OnClick="BtnConsultar_Click" runat="server" />
-                        </div>
+                            <a href="javascript:;" class="expand"></a>
+                        </div>                        
                         <div class="titlefiltros  caption ">
+
                             <div class="row" style="padding-top: 10px;">
-                                <label class="col-md-1 truncate">Sucursal:</label>
-                                <div class="col-md-2 ">
-                                   <%-- <asp:DropDownList ID="DdlSucursal" runat="server" CssClass="select2me" DataTextField="Sucursal" DataValueField="CveSucursal" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>--%>
+
+                                <div class="col-md-1">
+                                    <asp:Label runat="server" ID="LblSubProyecto" class="truncate"></asp:Label>:
+                                </div>                                
+                                <div class="col-md-2 ">                                   
                                      <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                 </div>
-                                <label class="col-md-1 truncate">Estatus:</label>
-                                <div class="col-md-2">
-                                    <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
-                                        <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                        <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
-                                    </asp:DropDownList>
+
+                                <asp:Label runat="server" ID="Label1" class="col-md-1 truncate">Cliente:</asp:Label>
+                                <div class="col-md-2 ">
+                                      <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:100%;">
+                                       </ADS:Dropdownlost>
                                 </div>
+
+                                <asp:Label runat="server" ID="Label2" class="col-md-1 truncate">Vendedor:</asp:Label>
+                                <div class="col-md-2 ">
+                                    <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>     
+                                </div>                                
+
                             </div>
+
                         </div>
                     </div>
+                    <div class="portlet-body" style="display: none">
+
+                        <div class="row">
+                            <label class="col-md-1 truncate">Estatus:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
+                                    <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                              <asp:Label runat="server" ID="Label3" class="col-md-1 truncate">Marca:</asp:Label>
+                              <div class="col-md-2 ">
+                                  <asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
+                              </div>
+                            
+
+                            <asp:Label runat="server" ID="Label4" class="col-md-1 truncate">Producto:</asp:Label>
+                            <div class="col-md-2">
+                                <ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS"  />
+                            </div>
+
+
+                        </div>
+                    </div>
+
                 </div>
             </asp:Panel>
         </ContentTemplate>
@@ -69,6 +105,10 @@
                             <asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' NavigateUrl ='<%# Eval("CvePromocion", "/Ventas/Promociones.aspx?CvePromocion={0}") %>' CssClass="Texto"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:BoundField DataField="NombreComercial" HeaderText="Cliente"  />
+                    <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" />
+                    <asp:BoundField DataField="Marca" HeaderText="Marca"  />
+                    
                     <asp:BoundField DataField="FechaInicio" DataFormatString="{0:d}" HeaderText="F. Inicio" ItemStyle-Width="80px" />
                     <asp:BoundField DataField="FechaFin" DataFormatString="{0:d}" HeaderText="F. Fin" ItemStyle-Width="80px" />
                     <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="125px" />
diff --git a/Ventas/CatPromociones.aspx.vb b/Ventas/CatPromociones.aspx.vb
index e5a6f525f..a18864c75 100644
--- a/Ventas/CatPromociones.aspx.vb
+++ b/Ventas/CatPromociones.aspx.vb
@@ -22,21 +22,57 @@ Partial Class Ventas_CatPromociones
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
-            'ImgAddPromocion.Attributes.Add("OnClick", "window.location = '/Ventas/Promociones.aspx'")
-            'CARGA SUCURSALES
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-
+            InicializaControles()
             CargaDatos()
         End If
     End Sub
 
+    Private Sub InicializaControles()
+
+
+
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
+
+        GvDatos.Columns(6).HeaderText = LblSubProyecto.Text
+
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClientes.setEsWebService(True)
+
+        'CARGA PS
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        DdlPS.IncluyeTodos = True
+        If Not DdlPS.UsaWebService AndAlso CType(DdlPS.DataSource, DataTable) Is Nothing Then
+            DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            DdlPS.DataBind()
+        End If
+
+    End Sub
+
     Private Sub CargaDatos()
 
+
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetPromociones(-1, MinFecha, -1, -1, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario) Then
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+        Dim CvePS As Integer = If(DdlPS.SelectedValue.ToEntero > 0, DdlPS.SelectedValue.ToEntero, -1)
+
+
+        If ObjVentas.GetPromociones(-1, MinFecha, DdlVendedor.SelectedValue.ToEntero, CveCliente, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario,
+                                    CveMarca:=DdlMarca.SelectedValue.ToEntero, CvePS:=CvePS) Then
             DtDatos = ObjVentas.DtResultados
         Else
             DtDatos = Nothing
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 28daf19eb..5e218eba4 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -5643,7 +5643,7 @@ Partial Class Clientes
             TempDTSucursales.Columns.Add("CveAlmacenAsignado", Type.GetType("System.Int32"))
             TempDTSucursales.Columns.Add("CveUsoCFDI", Type.GetType("System.Int32"))
             TempDTSucursales.Columns.Add("CveFormaPago33", Type.GetType("System.Int32"))
-            TempDTSucursales.Columns.Add("CveMetodoPago", Type.GetType("System.Int32"))
+            TempDTSucursales.Columns.Add("CveMetodoPago33", Type.GetType("System.Int32"))
             TempDTSucursales.Columns.Add("Correo", Type.GetType("System.String"))
             TempDTSucursales.Columns.Add("CorreoCotizacion", Type.GetType("System.String"))
             TempDTSucursales.Columns.Add("LimiteCredito", Type.GetType("System.Decimal"))
@@ -9422,7 +9422,9 @@ Partial Class Clientes
         TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
 
         TmpDT.Columns.Add("CveTamaño", GetType(Integer))
-        TmpDT.Columns.Add("EsCargo", GetType(Boolean))
+        TmpDT.Columns.Add("EsCargo", GetType(Boolean))
+        TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
+        TmpDT.Columns("CvePromocionDetalle").DefaultValue = -1
 
         Return TmpDT
     End Function
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 47fed9063..8f0bda479 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2101,7 +2101,8 @@ Partial Class Ventas_ClientesAbonar
         TmpDT.Columns.Add("CveTamaño", GetType(Integer))
         TmpDT.Columns.Add("EsCargo", GetType(Boolean))
         TmpDT.Columns.Add("CodigoObjetoImpuesto", GetType(String))
-
+        TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
+        TmpDT.Columns("CvePromocionDetalle").DefaultValue = -1
         Return TmpDT
     End Function
     Private Function InicializaDTVentasNC() As DataTable
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 0b8f90818..6b97372c0 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4703,6 +4703,9 @@ Partial Class PV
 
         TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
         TmpDT.Columns.Add("CveMarca", GetType(Integer))
+        TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
+        TmpDT.Columns("CvePromocionDetalle").DefaultValue = -1
+
 
     End Sub
 
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 381c999b9..61d8681cd 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -2501,7 +2501,7 @@ Partial Class Ventas_PVCobranza
                     Msg = Msg & "<br/><a class='Texto' href='/Ventas/Ventas.aspx?CveDevolucion=" & CveVentaCancelacion & "&NuevaFactura=1'> Refacturar</a>"
                 End If
 
-                Alert(Msg, TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion();", TextoConfirmacion:="Enviar", TextoSegundoBoton:="Cancelar")
+                Alert(Msg, TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnEnviarMailCancelacion()", TextoConfirmacion:="Enviar", TextoSegundoBoton:="Cancelar", ShowCloseButton:=False)
             Else
                 Msg = resp.Mensaje
 
diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx
index a53fa9176..cfe98e034 100644
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -101,9 +101,20 @@
              <li>
                 <asp:LinkButton ID="LnkDescargaCartaPorte" OnClick="LnkDescargaCartaPorte_Click"     runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Descarga Carta Porte</asp:LinkButton>
             </li>
+
+
+             <li>
+                <asp:LinkButton ID="LnkGeneraXLS1" OnClick="LnkGeneraXLS1_Click"     runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generar XLS 1</asp:LinkButton>
+            </li>
+             <li>
+                    <asp:LinkButton ID="LnkGeneraXLS2" OnClick="LnkGeneraXLS2_Click"     runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generar XLS 2</asp:LinkButton>
+              </li>
+
         </ContentTemplate>
           <Triggers>
             <asp:PostBackTrigger ControlID="LnkDescargaCartaPorte" />
+              <asp:PostBackTrigger ControlID="LnkGeneraXLS1" />
+              <asp:PostBackTrigger ControlID="LnkGeneraXLS2" />
         </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 1a5f2ea60..a09709efc 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -153,6 +153,12 @@ Partial Class Ventas_RepVentas
             PrePersonalizacion()
             CargaPersonalizacion()
 
+
+            If UsuarioActual.CveEmpresa = 199 Then
+                LnkGeneraXLS1.Visible = True
+                LnkGeneraXLS2.Visible = True
+            End If
+
         End If
 
     End Sub
@@ -1058,4 +1064,41 @@ Partial Class Ventas_RepVentas
     End Sub
 
 
+
+    Protected Sub LnkGeneraXLS1_Click(sender As Object, e As EventArgs)
+        RepVentasBioSistemas(1)
+    End Sub
+
+    Protected Sub LnkGeneraXLS2_Click(sender As Object, e As EventArgs)
+        RepVentasBioSistemas(2)
+    End Sub
+
+
+    Private Sub RepVentasBioSistemas(OpcionReporte As Integer)
+
+        Dim ObjVentas As New ClsVentas
+
+        Dim DTResultados As New DataTable
+
+        If ObjVentas.GetRepVentasBiosistemas(UsuarioActual.CveEmpresa, OpcionReporte) Then
+            DTResultados = ObjVentas.DtResultados
+        End If
+
+
+        Dim NombreReporte As String = "Reporte 1"
+        Dim TituloReporte As String = "Reporte 1"
+        DTResultados.TableName = "Reporte1"
+
+        If OpcionReporte = 2 Then
+            NombreReporte = "Reporte 2"
+            TituloReporte = "Reporte1 2"
+            DTResultados.TableName = "Reporte2"
+        End If
+
+
+
+        DTResultados.ExportToExcelG(NombreReporte, TituloReporte, UsuarioActual, "")
+
+    End Sub
+
 End Class
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index f81ffbb31..d3c69898a 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -9299,7 +9299,14 @@
                 <div class="modal-body">
                     <asp:UpdatePanel runat="server" ID="UPExist" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <asp:GridView ID="GvExist" runat="server" AutoGenerateColumns="true" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover  Widthall">
+                            <asp:GridView ID="GvExist" runat="server" AutoGenerateColumns="true" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover">
+                                <Columns>
+                                    <asp:TemplateField HeaderText="Producto">
+                                        <ItemTemplate >
+                                            <span style="width:400px; display:flex;"> <asp:Literal ID="LtlProducto" runat="server" Text='<%# Eval("Producto") %>'></asp:Literal>&nbsp;</span>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                </Columns>
                             </asp:GridView>
                         </ContentTemplate>
                     </asp:UpdatePanel>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 51889df06..be1ef0a10 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10494,10 +10494,16 @@ Partial Class Ventas
 
     Protected Sub EmitirImprimirNew(Optional TipoDoctoViejo As String = "")
 
+        OrdenarPS(Reeordenar:=False, RecargarGV:=False)
+
         If Not ValidaVentaContratoObra() Then
             Exit Sub
         End If
 
+        If Not ValidaPorcentajeIVA() Then
+            Exit Sub
+        End If
+
         If ValidaPagosContado(TipoDoctoViejo:=TipoDoctoViejo) Then
             Exit Sub
         End If
@@ -25322,6 +25328,21 @@ Partial Class Ventas
 
         Return Retorno
     End Function
+
+    Private Function ValidaPorcentajeIVA() As Boolean
+        Dim Retorno As Boolean = True
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            Dim DtIVA As DataTable = TmpDT.FiltraParametros("PorcentajeIVA > 0", "", {"PorcentajeIVA"})
+            'SOLO DEBE TENER PORCENTAJE DE 8 o 16 no ambos
+            If DtIVA.Rows.Count > 1 Then
+                Retorno = False
+                Alert("No se puede tener porcentajes de IVA de 8 y 16% en una sola factura", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "   SERIE ALMACEN   "
@@ -26525,7 +26546,7 @@ Partial Class Ventas
         End If
     End Sub
 
-    Private Sub OrdenarPS(Optional Reeordenar As Boolean = True)
+    Private Sub OrdenarPS(Optional Reeordenar As Boolean = True, Optional RecargarGV As Boolean = True)
 
         If Reeordenar Then
             For Each row As GridViewRow In GvPS.Rows
@@ -26544,8 +26565,10 @@ Partial Class Ventas
 
         TmpDT.AcceptChanges()
 
-        GvPS.DataSource = TmpDT
-        GvPS.DataBind()
+        If RecargarGV Then
+            GvPS.DataSource = TmpDT
+            GvPS.DataBind()
+        End If
     End Sub
     Protected Sub OrdenarGvPS(ByVal sender As Object, ByVal e As EventArgs)
         OrdenarPS()
@@ -33904,7 +33927,7 @@ Partial Class Ventas
         Next
         Return Nothing
     End Function
-    Private Function AgregaPSCotizacion(Optional RecalculaImpustosLocales As Boolean = True) As Boolean
+    Private Function AgregaPSCotizacion(Optional RecalculaImpustosLocales As Boolean = True, Optional DtOrden As DataTable = Nothing) As Boolean
         'Dim ObjFactCotizacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
 
         'Dim TotalCotizacion As Decimal = ObjFactCotizacion.Total 'TmpDT.SUM("TotalImporte").ToDecimal() + TmpDT.SUM("ImporteIVA").ToDecimal() + TmpDT.SUM("ImporteIEPS").ToDecimal() - TmpDT.SUM("ImporteRetIVA").ToDecimal() - TmpDT.SUM("ImporteRetISR").ToDecimal()
@@ -33925,11 +33948,17 @@ Partial Class Ventas
                 '                        Dr("PorcentajeIVA").ToString().ToDecimal, Dr("IVA").ToString().ToDecimal,
                 '                        Dr("CveProyecto").ToString().ToEntero(), Dr("Proyecto").ToString(), Dr("CveSubProyecto").ToString().ToEntero(), Dr("SubProyecto").ToString(),
                 '                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero(), CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString().ToEntero(), SeActualiza:=True)
+
+
+                Dim OrdenManual As Integer = 0
+                If DtOrden IsNot Nothing Then
+                    OrdenManual = DtOrden.FiltroPrimeroValor("Orden", $"CveVentaDetalle = {Dr("CveVentaDetalle")}").ToEntero()
+                End If
                 AgregarProductoServicio(tCantidad, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),
                                         Dr("CvePS").ToString.ToEntero(), Dr("PS").ToString, Dr("Obs").ToString(), Dr("PU").ToString().ToDecimal, Dr("Descuento").ToString().ToDecimal,
                                         Dr("CveProyecto").ToString().ToEntero(), Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString().ToEntero(), Dr("SubProyecto").ToString(),
                                         CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero(), CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString().ToEntero(), SeActualiza:=True,
-                                        PorcentajeIVAFijo:=Dr("PorcentajeIVA").ToString.ToDecimal, CvePromocionDetalle:=Dr("CvePromocionDetalle").ToString().ToEntero())
+                                        PorcentajeIVAFijo:=Dr("PorcentajeIVA").ToString.ToDecimal, CvePromocionDetalle:=Dr("CvePromocionDetalle").ToString().ToEntero(), OrdenManual:=OrdenManual)
             Next
             'Dim TotalFactura = TmpDT.SUM("TotalImporte").ToDecimal() + TmpDT.SUM("ImporteIVA").ToDecimal() + TmpDT.SUM("ImporteIEPS").ToDecimal() - TmpDT.SUM("ImporteRetIVA").ToDecimal() - TmpDT.SUM("ImporteRetISR").ToDecimal()
 
@@ -33940,6 +33969,10 @@ Partial Class Ventas
             '    LastRow("ImporteIVA") = LastRow("ImporteIVA").ToString().ToDecimal() - Diferencia
             'End If
 
+            If DtOrden IsNot Nothing Then
+                OrdenarPS(Reeordenar:=False, RecargarGV:=False)
+            End If
+
             CalculaTotalesVenta(RecalculaImpuestosLocales:=RecalculaImpustosLocales)
             Return True
         Else
@@ -33954,6 +33987,12 @@ Partial Class Ventas
         'LIMPIAMOS
 
         'Dim TotalCotizacion As Decimal = TxtTotal.Text.Replace(",", "").ToDecimal()
+        Dim DtOrden As DataTable = Nothing
+
+        'SI ES UNA VENTA EXISTENTE, CONSEVAR EL ORDEN
+        If CveVenta > 0 Then
+            DtOrden = TmpDT.FiltraParametros("", "Orden", {"CveVentaDetalle", "Orden"})
+        End If
 
         TmpDT.Rows.Clear()
         TxtSubTotal.Text = "0.00"
@@ -33978,7 +34017,7 @@ Partial Class Ventas
         End If
         ObjClientes.Dispose()
 
-        If Not AgregaPSCotizacion(RecalculaImpustosLocales:=False) Then
+        If Not AgregaPSCotizacion(RecalculaImpustosLocales:=False, DtOrden:=DtOrden) Then
             Alert("Ocurrió un error al agregar los conceptos de la cotización. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             Return False
         End If
@@ -34487,7 +34526,7 @@ Partial Class Ventas
 
         Return Valido
     End Function
-    Private Sub CargaConceptosRemisionPorFacturar(CveRemisiones As String, TipoCargas As Integer)
+    Private Sub CargaConceptosRemisionPorFacturar(CveRemisiones As String, TipoCargas As Integer, Optional DtOrden As DataTable = Nothing)
         Dim ObjClientes As New ClsClientes
         If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, TipoCargas, UsuarioActual.CveEmpresa) Then
             DtRemisionesPS = ObjClientes.DtResultados
@@ -34530,11 +34569,16 @@ Partial Class Ventas
                 End If
 
                 tCantidad = If(ChkRemProductos.Checked, GvRemPS.Rows(IndiceGVDataKey(GvRemPS, "CveVentaDetalle", $"{Dr("CveVentaDetalle")}")).FCTextBox("TxtCantidadRem").Text, Dr("Cantidad")).ToString().ToDecimal
+                Dim OrdenManual As Integer = 0
+                If DtOrden IsNot Nothing Then
+                    OrdenManual = DtOrden.FiltroPrimeroValor("Orden", $"CveVentaDetalle = {Dr("CveVentaDetalle")}").ToEntero()
+                End If
+
                 AgregarProductoServicio(tCantidad, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),
                                           Dr("CvePS").ToString().ToEntero(), Dr("PS").ToString(), Dr("Obs").ToString(), Dr("PU").ToString().ToDecimal, Dr("Descuento").ToString().ToDecimal,
                                           CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                           CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero(),
-                                          CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero(), CvePromocionDetalle:=Dr("CvePromocionDetalle").ToString().ToEntero(), RegeneraIEPS:=True)
+                                          CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero(), CvePromocionDetalle:=Dr("CvePromocionDetalle").ToString().ToEntero(), RegeneraIEPS:=True, OrdenManual:=OrdenManual)
             Next
 
             If DdlFiltroContrato.SelectedValue.ToEntero() > 0 Then
@@ -34628,6 +34672,13 @@ Partial Class Ventas
 
     Private Function PreparaFacturarRemision() As Boolean
         'LIMPIAMOS
+        Dim DtOrden As DataTable = Nothing
+
+        'SI ES UNA VENTA EXISTENTE, CONSEVAR EL ORDEN
+        If CveVenta > 0 Then
+            DtOrden = TmpDT.FiltraParametros("", "Orden", {"CveVentaDetalle", "Orden"})
+        End If
+
         TmpDT.Rows.Clear()
         TxtSubTotal.Text = "0.00"
         TxtSubTotal2.Text = "0.00"
@@ -34649,7 +34700,7 @@ Partial Class Ventas
         If RemisionesLista IsNot Nothing Then
             RemisionesLista.Clear()
             RemisionesLista.Add(CveVenta)
-            CargaConceptosRemisionPorFacturar(CveVenta.ToString(), 1)
+            CargaConceptosRemisionPorFacturar(CveVenta.ToString(), 1, DtOrden:=DtOrden)
         End If
 
         If TmpDT.Rows.Count = 0 Then
@@ -35281,8 +35332,6 @@ Partial Class Ventas
     End Function
     Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
 
-
-
         If DdlVendedor.SelectedValue.ToEntero() <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDoctoNuevo = "Ing" Then
             Alert("Debe seleccionar un vendedor.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -35419,6 +35468,7 @@ Partial Class Ventas
             End If
 
             If FolioFijo = 0 Then CargaFolios(FacturarDocumentoNuevo:=True) 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
+
             EmitirImprimir(TipoDoctoViejo) 'MANDA A EMITIR - PROCESO VIEJO
         End If
 
@@ -39137,7 +39187,11 @@ Partial Class Ventas
 
         Dim PuedeAplicarDevolucion As Boolean = False
         'código temporal RMF. para devoluciones de facturas cargadas de saldos iniciales.
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TxtFecha.Text.ToDate.Year < 2025 Then SaldoAlmacen = -1
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TxtFecha.Text.ToDate.Year < 2025 Then
+            SaldoAlmacen = -1
+            DevolucionAlmacen = 0
+        End If
+
         If SaldoAlmacen < 0 Then
             If DevolucionAlmacen = 0 Then
                 PuedeAplicarDevolucion = True
@@ -40776,9 +40830,9 @@ Partial Class Ventas
             GvExist.DataSource = DtExistencias
             GvExist.DataBind()
 
-            'GvExist.Columns(0).ItemStyle.Width = New Unit(200, UnitType.Pixel)
             'ORDENA HACIA LA DERECHA LAS CANTIDAD - OJO!! NO SE USO GV.COLUMNS.COUNT PORQUE LAS COLUMNAS GENERADAS EN BEHIND NO LAS RECONOCE
-            For index As Integer = 1 To DtExistencias.Columns.Count - 1
+            'EL GV TIENE UNA COLUMNA EXTRA DEBE TENER UN INDICE MAYOR
+            For index As Integer = 1 To DtExistencias.Columns.Count
                 For Each gvr As GridViewRow In GvExist.Rows
                     gvr.Cells(index).HorizontalAlign = HorizontalAlign.Right
                 Next
@@ -40791,7 +40845,7 @@ Partial Class Ventas
 
     Protected Sub GvExist_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvExist.RowDataBound
         If e.Row.RowType = DataControlRowType.Header OrElse e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.Cells(0).Attributes.Add("colspan", "3")
+            e.Row.Cells(1).Visible = False
         End If
     End Sub