diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 9897b9d96..68016bc72 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -301,6 +301,40 @@ Namespace Modelos
 
 
 #Region "  OBJETOS  Ventas"
+    <Serializable>
+    Public Class VentaDescuentos
+        Public Consec As Integer
+        Public ImporteDescuento As Decimal = 0
+        Public CvePromocionDetalle As Integer = -1
+        Public PU As Decimal = 0
+        Public EsPUModificado As Boolean = False
+        Public ImporteProntoPago As Decimal = 0
+        Public NombrePromo As String = ""
+        Public CveMarca As Integer = -1
+        Public ObsDescuento As String = ""
+    End Class
+    <Serializable>
+    Public Class VentasBonificaciones
+        Public CveVentaRNCCargo As Integer = -1
+        Public CveVentaBonificacion As Integer = -1
+        Public ImporteBonificacion As Decimal = 0
+        Public IVABonificacion As Decimal = 0
+    End Class
+    <Serializable>
+    Public Class MensajeProntoPago
+        Public Property ObjFacturaProntoPago As Modelos.Factura
+        Public Property Mensaje As Modelos.Factura.MMensajeFactura
+    End Class
+    <Serializable>
+    Public Class MAnticipoRelacionado
+        Public Property CveVenta As Integer
+        Public Property FolioFiscal As String
+    End Class
+    <Serializable>
+    Public Class MVentaDetalleCotizacion
+        Public Property CveVentaDetalle As Integer
+        Public Property Cantidad As Decimal
+    End Class
     Public Enum TipoMensajeRespuesta
         TextoLimpio = 0
         HTML = 1
@@ -5508,6 +5542,14 @@ Namespace Modelos
                                                                 AutoConta = False
                                                             End If
 
+
+                                                            If Not ErrorCancelar AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                                                                If ObjConta.ValorPolizaDescuadre > 0 Then
+                                                                    GuardaLogAD($"Modelos/RecepcionEntrega | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                                                    ErrorCancelar = True
+                                                                End If
+                                                            End If
+
                                                             If AutoConta And Not ErrorCancelar Then
 
                                                                 If IdCtaContable > 0 Then
diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index 99589c70f..dbca48046 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -1711,7 +1711,7 @@ Public Class E141 : Implements IHttpHandler
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL
-            If ObjPS.GetProductosModificados(CveEmpresa, 44, If(Todos, -1, 1)) Then
+            If ObjPS.GetProductosModificados(CveEmpresa, 44, If(Todos, -1, 26)) Then
                 DtPS = ObjPS.DtResultados.Copy()
             End If
         End Using
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 15c9ae491..5e3f93992 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5845,6 +5845,8 @@ Partial Class Bancos_IE
                 TxtObservaciones.Text = $"SOLICITUD DE VIÁTICOS - FOLIO {ObjBancos.DtResultados.FiltroPrimeroValor("Folio").ToString()}: {ObjBancos.DtResultados.FiltroPrimeroValor("Asunto").ToString()}."
             End If
             ObjBancos.Dispose()
+
+            RBL_SelectedIndexChanged(Nothing, Nothing)
         End If
     End Sub
 #End Region
diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx
index fb07433fd..2bb7b8143 100644
--- a/Bancos/PagoAcreedor.aspx
+++ b/Bancos/PagoAcreedor.aspx
@@ -377,7 +377,7 @@
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtAbonar" Width="80px" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
                                                 <asp:RangeValidator ID="RVAbonar" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%# Eval("Saldo", "{0:N2}") %>' ErrorMessage="*" ControlToValidate="TxtAbonar" Display="Dynamic"></asp:RangeValidator>
-                                                <asp:TextBox ID="TxtCveMoneda" Enabled="false" Width="80px" Text='<%# Eval("CveMoneda")%>'  runat="server" Style="text-align: right;"></asp:TextBox>
+                                                <asp:TextBox ID="TxtCveMoneda" Enabled="false" Width="80px" Text='<%# Eval("CveMoneda")%>'  runat="server" Style="text-align: right;display:none"  ></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField Visible="false">
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index df4599748..5dbf0ec6c 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -351,30 +351,32 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                         ImporteBancosMN = (Importe * TCPago).RoundSQL();
                         ImporteAcreedorMN = (Importe * TC).RoundSQL();
 
-                        //if (CveMonedaPago == 1 && tCveMoneda == 1)
-                        //{
-                        //    ImporteMN = Importe;
-                        //    ImporteComisionMN = ImporteComision;             
-                        //}
-                        //else if (CveMonedaPago == 1 && tCveMoneda == 2)
-                        //{
-                        //    ImporteComisionMN = ImporteComision;
-                                                       
-                        //    ImporteMN = Importe;
-                        //    ImporteComplementaria  = (Importe * TC - Importe).RoundSQL();                            
-                        //}
-                        //else if (CveMonedaPago == 2 && tCveMoneda == 1)
-                        //{
-                        //    ImporteMN = Importe;
-                        //    ImporteComisionMN = ImporteComision;
-                        //    ImporteComplementaria = 0; 
-                        //}
-                        //else if (CveMonedaPago == 2 && tCveMoneda == 2)
-                        //{
-                        //    ImporteComisionMN = ImporteComision;                           
-                        //    ImporteMN = Importe;
-                        //    ImporteComplementaria = (Importe * TC - Importe).RoundSQL();                            
-                        //}
+                        if (CveMonedaPago == 1 && tCveMoneda == 1)
+                        {
+                            //ImporteMN = Importe;
+                            //ImporteComisionMN = ImporteComision;
+                        }
+                        else if (CveMonedaPago == 1 && tCveMoneda == 2)
+                        {
+                            //ImporteComisionMN = ImporteComision;
+
+                            //ImporteMN = Importe;
+                            //ImporteComplementaria = (Importe * TC - Importe).RoundSQL();
+                        }
+                        else if (CveMonedaPago == 2 && tCveMoneda == 1)
+                        {
+                            ImporteBancosMN = Importe;
+                            ImporteMN = Importe;
+                            //ImporteComisionMN = ImporteComision;
+                            //ImporteComplementaria = 0;
+                        }
+                        else if (CveMonedaPago == 2 && tCveMoneda == 2)
+                        {
+                            
+                            //ImporteComisionMN = ImporteComision;
+                            //ImporteMN = Importe;
+                            //ImporteComplementaria = (Importe * TC - Importe).RoundSQL();
+                        }
 
                         //ImporteMN = ImporteMN.RoundSQL();
                         //ImporteComplementaria = ImporteComplementaria.RoundSQL();
diff --git a/Empresas/119/Formatos/RepIVA.rpt b/Empresas/119/Formatos/RepIVA.rpt
index c09e9e811..214b40af6 100644
Binary files a/Empresas/119/Formatos/RepIVA.rpt and b/Empresas/119/Formatos/RepIVA.rpt differ
diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt
index a1124d4e7..5b9781196 100644
Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Empresas/Grales/Formatos/RepIVA.rpt b/Empresas/Grales/Formatos/RepIVA.rpt
index 46c367c4c..629f1ee5d 100644
Binary files a/Empresas/Grales/Formatos/RepIVA.rpt and b/Empresas/Grales/Formatos/RepIVA.rpt differ
diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt
index 25fec2118..9b6052ed7 100644
Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 73704b612..9ecfe5bbe 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1910,6 +1910,9 @@ Partial Class Inventarios_EntradasSalidas
                                     If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
                                         IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
                                     End If
+                                Case 34
+                                    CveConceptoContable = 51
+                                    EsContabilizable = True
                                 Case 13, 29
                                     CveConceptoContable = 69
                                     TipoMovtoOtro = True
@@ -1930,7 +1933,7 @@ Partial Class Inventarios_EntradasSalidas
                             Else
 
                                 'Dim Total As Decimal = 0
-                                If CveConceptoContable.Contiene(181, 78) Then
+                                If CveConceptoContable.Contiene(181, 78, 51) Then
                                     Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
                                     'Dim IdCuentaGasto As Integer = 0
                                     For Each Dr As DataRow In Dt.Rows
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 9c4e09413..c011b8eb8 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -3137,7 +3137,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                         If Not ErrorMovInv AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
                             If ObjConta.ValorPolizaDescuadre > 0 Then
-                                GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                GuardaLogAD($"Inventario/EntregaAlmacen | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                 ErrorMovInv = True
                             End If
                         End If
diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs
index 39f049ba5..341ed2e16 100644
--- a/RH/SolicitudViaticos.aspx.cs
+++ b/RH/SolicitudViaticos.aspx.cs
@@ -151,10 +151,12 @@ public partial class RH_SolicitudViaticos : ClsPaginas
         }
         else
         {
-            if ((UsuarioActual.CveEmpresa == 72 || UsuarioActual.CveEmpresa == 1 || UsuarioActual.CveEmpresa == 2) && UsuarioActual.CvePersonal > 0)
+
+            if ((UsuarioActual.CveEmpresa.Contiene(1,2,72,  172, 173, 174)) && UsuarioActual.CvePersonal > 0)
             {
                 CargaFolio();
             }
+           
 
             BtnGuardar.Text = "Guardar";
             LnkImprimirExcel.Visible = false;
diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx
index 1fa95012e..f52c824f5 100644
--- a/Sistemas/CatSesiones.aspx
+++ b/Sistemas/CatSesiones.aspx
@@ -63,7 +63,8 @@
         <asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTActivoFijos" Value="GlobalDTActivoFijos"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTVendedoresOld" Value="GlobalDTVendedoresOld"></asp:ListItem> 
-         <asp:ListItem Text="GlobalDTAC" Value="GlobalDTAC"></asp:ListItem> 
+        <asp:ListItem Text="GlobalDTAC" Value="GlobalDTAC"></asp:ListItem> 
+        <asp:ListItem Text="GlobalDTSATUsosCFDI" Value="GlobalDTSATUsosCFDI"></asp:ListItem> 
 
     </asp:DropDownList>&nbsp;&nbsp; 
       
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 1e88d9a3e..86e0d8236 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -106,12 +106,16 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then
             CargaActivoFijos()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAC" Then
-            cargaAC()
+            cargaAC()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATUsosCFDI" Then
+            CargaUsosCFDI()
         End If
 
 
     End Sub
-
+    Private Sub CargaUsosCFDI()
+        HttpContext.Current.Application("GlobalDTSATUsosCFDI") = Nothing
+    End Sub
     Private Sub CargaGlobalDTVendedoresOld()
         Dim AppNombre As String = $"GlobalDTVendedores-{-1}"
         If HttpContext.Current.Application(AppNombre) Is Nothing Then
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 031d14147..754b9d656 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -630,7 +630,7 @@ Partial Class Ventas_ClientesAbonar
                     e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Saldo")
                 End If
 
-                If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 AndAlso e.Row.DBCampo("DiasVencidos").ToEntero() <= 0 Then
+                If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 AndAlso e.Row.DBCampo("DiasVencidos").ToEntero() <= 5 Then
                     e.Row.FCCheckBox("ChkGenerarNC").Visible = True
                     e.Row.FCCheckBox("ChkGenerarNC").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4}); FnEditarImporte({2}, {0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo").ToDecimal - e.Row.DBCampo("DescuentoProntoPago").ToDecimal, e.Row.FCCheckBox("ChkGenerarNC").ClientID, CveMonedaFiltro, moneda, e.Row.DBCampo("CveVenta")))
                 End If
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index ee059d485..15461fbff 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2623,6 +2623,10 @@ Partial Class PV
             DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero)
         End If
 
+        If ChkServicioDomicilio.Checked Then
+            PreparaServicioDomicilio()
+        End If
+
         UpINV.Update()
     End Sub
     Private Sub CargaFormaEntrega()
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 4448e8232..45e3ad0ea 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1724,6 +1724,7 @@
 
                         <asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
+                                <asp:HiddenField ID="HdnCargarInventario" runat="server" ClientIDMode="Static" Value="True"/>
                                 <asp:Button ID="BtnCargarInventario" runat="server" ClientIDMode="Static" Text="" Style="display: none;" OnClick="BtnCargarInventario_Click" />
                                 <div class="portlet box purpleAlmacen" id="DivSalidaAlmacen" runat="server">
                                     <div class="portlet-title">
@@ -9501,9 +9502,11 @@
                 step: 30
             });
 
-            $("#TabAlmacen_tab .ajax__tab_inner").click(function () {
-                CargaMovimientosInventario();
-            });
+            if(HdnCargarInventario.value  == 'True'){
+                $("#TabAlmacen_tab .ajax__tab_inner").click(function () {
+                    CargaMovimientosInventario();
+                });
+            }
         }
 
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 780fc3c20..7028d4086 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -348,11 +348,11 @@ Partial Class Ventas
             ViewState("DTRemisiones") = value
         End Set
     End Property
-    Private Property ListaDescuentos As List(Of Descuentos)
+    Private Property ListaDescuentos As List(Of Modelos.VentaDescuentos)
         Get
-            Return If(IsNothing(ViewState("ListaDescuentos")), Nothing, CType(ViewState("ListaDescuentos"), List(Of Descuentos)))
+            Return If(IsNothing(ViewState("ListaDescuentos")), Nothing, CType(ViewState("ListaDescuentos"), List(Of Modelos.VentaDescuentos)))
         End Get
-        Set(value As List(Of Descuentos))
+        Set(value As List(Of Modelos.VentaDescuentos))
             ViewState("ListaDescuentos") = value
         End Set
     End Property
@@ -1402,11 +1402,11 @@ Partial Class Ventas
         End Set
     End Property
 
-    Private Property ListaAnticiposAplicados As List(Of MAnticipoRelacionado)
+    Private Property ListaAnticiposAplicados As List(Of Modelos.MAnticipoRelacionado)
         Get
-            Return If(IsNothing(ViewState("ListaAnticiposAplicados")), Nothing, CType(ViewState("ListaAnticiposAplicados"), List(Of MAnticipoRelacionado)))
+            Return If(IsNothing(ViewState("ListaAnticiposAplicados")), Nothing, CType(ViewState("ListaAnticiposAplicados"), List(Of Modelos.MAnticipoRelacionado)))
         End Get
-        Set(value As List(Of MAnticipoRelacionado))
+        Set(value As List(Of Modelos.MAnticipoRelacionado))
             ViewState("ListaAnticiposAplicados") = value
         End Set
     End Property
@@ -2307,7 +2307,6 @@ Partial Class Ventas
             ViewState("CveContratoTipo") = value
         End Set
     End Property
-
 #End Region
 
     '#Region "AuxiliarConta"
@@ -2412,7 +2411,7 @@ Partial Class Ventas
             RemisionesLista = New List(Of Integer)
             Pedidos2Lista = New List(Of Integer)
             CotizacionesLista = New List(Of Integer)
-            ListaDescuentos = New List(Of Descuentos)
+            ListaDescuentos = New List(Of Modelos.VentaDescuentos)
 
             CuentasContablesInvalidas = New StringBuilder
             CvePrePoliza = 0
@@ -2847,6 +2846,7 @@ Partial Class Ventas
                     'SI ES VENTA NUEVA, NO RECARGAR TAB DE ALMACEN
                     If CveVenta <= 0 Then
                         'REMOVER EVENTO PARA RECARGAR ALMACEN
+                        HdnCargarInventario.Value = "False"
                         spanAlmacen.Attributes.Remove("onclick")
                         Tab.ActiveTabIndex = 1
                         Updatetabs.Update()
@@ -5154,9 +5154,9 @@ Partial Class Ventas
                 'RELACIONAR ANTICIPOS APLICADOS
                 If DbRowVenta("CveTipoRelacion").ToString().ToEntero() = 7 AndAlso DtAntRelacionados IsNot Nothing AndAlso DtAntRelacionados.Rows.Count > 0 Then
                     DdlTipoRelacionAnticipo.SelectedValueExist(7)
-                    ListaAnticiposAplicados = New List(Of MAnticipoRelacionado)()
+                    ListaAnticiposAplicados = New List(Of Modelos.MAnticipoRelacionado)()
                     For Each RowAnt As DataRow In DtAntRelacionados.Rows
-                        ListaAnticiposAplicados.Add(New MAnticipoRelacionado() With {.CveVenta = RowAnt("CveVentaRelacionada").ToString().ToEntero(), .FolioFiscal = RowAnt("FolioFiscal").ToString()})
+                        ListaAnticiposAplicados.Add(New Modelos.MAnticipoRelacionado() With {.CveVenta = RowAnt("CveVentaRelacionada").ToString().ToEntero(), .FolioFiscal = RowAnt("FolioFiscal").ToString()})
                     Next
                 Else
                     HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
@@ -6127,10 +6127,17 @@ Partial Class Ventas
             DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
         End If
 
-
         DdlUsoCFDI.DataBind()
         DdlSucursalUsoCFDI.DataBind()
 
+        If Not UsuarioActual.CveEmpresa.Contiene(76, 15) Then
+            If DdlUsoCFDI.DataSource IsNot Nothing Then
+                If DdlUsoCFDI.Items.FindByValue("25") IsNot Nothing Then
+                    DdlUsoCFDI.Items.Remove(DdlUsoCFDI.Items.FindByValue("25"))
+                End If
+            End If
+        End If
+
         DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlSucursalUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
@@ -8105,7 +8112,7 @@ Partial Class Ventas
     Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating
         'Dim TipoDescuento As Integer
         Dim Cantidad, PU, CantidadInventario As Decimal
-        Dim ObjDescuento As New Descuentos
+        Dim ObjDescuento As New Modelos.VentaDescuentos
         Dim CuentaPredial As String
         Cantidad = GvPS.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDecimal
         PU = (GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDecimal).RoundSQL(6)
@@ -11834,7 +11841,7 @@ Partial Class Ventas
         '            ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
 
         '            If ListaAnticiposAplicados IsNot Nothing Then
-        '                For Each Ant As MAnticipoRelacionado In ListaAnticiposAplicados
+        '                For Each Ant As Modelos.MAnticipoRelacionado In ListaAnticiposAplicados
         '                    ObjFactura.Timbre.CFDIRelacionados.UUID.Add(Ant.FolioFiscal)
         '                Next
         '            End If
@@ -12407,7 +12414,7 @@ Partial Class Ventas
                         Next
                     Else
                         If ListaAnticiposAplicados IsNot Nothing AndAlso ListaAnticiposAplicados.Count > 0 Then
-                            For Each Ant As MAnticipoRelacionado In ListaAnticiposAplicados
+                            For Each Ant As Modelos.MAnticipoRelacionado In ListaAnticiposAplicados
                                 Timbre.CFDIRelacionados.UUID.Add(Ant.FolioFiscal)
                             Next
                         Else
@@ -13152,7 +13159,7 @@ Partial Class Ventas
                     'SI TIENE UN ANTICIPO TAMBIEN DEBE RELACIONARLO
                     If CveAnticipoPadre > 0 Then
                         If ListaAnticiposAplicados IsNot Nothing Then
-                            For Each Ant As MAnticipoRelacionado In ListaAnticiposAplicados
+                            For Each Ant As Modelos.MAnticipoRelacionado In ListaAnticiposAplicados
                                 If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, Ant.CveVenta) Then
                                     ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
                                 End If
@@ -14067,10 +14074,14 @@ Partial Class Ventas
                                                                     CveIEAnticipo = row2.DataKey("CveIE").ToString().ToEntero()
                                                                     importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal)
                                                                     Dim ImporteAnticipo As Decimal = importeMovimiento
+                                                                    Dim CveMonedaAnticipo As Integer = row2.DataKey("CveMoneda").ToString().ToEntero()
+
                                                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
                                                                     If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then ImporteAnticipo = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal * row2.DataKey("SubTotalAnticipo").ToDecimal
 
+                                                                    Dim Importe11MX As Decimal = ImporteAnticipo
+
                                                                     IdCtaContable = IdCtaContAnticipos
                                                                     CveSubProyectoContabilizar = CveSubProyectoVenta
 
@@ -14085,11 +14096,16 @@ Partial Class Ventas
                                                                                 tipoCambioAnticipo = GlobalTipoCambio(row2.DataKey("Fecha").ToString().ToDate.AddDays(-1)).ToDecimal
                                                                             End If
 
+
+                                                                            If ObjFactura.CveMoneda = 2 AndAlso CveMonedaAnticipo = 1 Then
+                                                                                Importe11MX = Importe11MX * tipoCambio
+                                                                            End If
+
                                                                             If row2.DataKey("CveMoneda").ToString.ToEntero = 2 Then
                                                                                 IdCtaContable = IdCtaContAnticiposExtranjera
                                                                             End If
 
-                                                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo, ImporteME:=If(tipoCambioAnticipo = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioAnticipo) Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe11MX, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Importe11MX, ImporteME:=If(tipoCambioAnticipo = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioAnticipo) Then
                                                                                 ErrorPrepoliza = True
                                                                                 Exit For
                                                                             End If
@@ -14111,7 +14127,7 @@ Partial Class Ventas
                                                                             End If
 
                                                                         Else
-                                                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe11MX, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Importe11MX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                                 Exit For
                                                                             Else
@@ -16682,7 +16698,7 @@ Partial Class Ventas
                 If ListaAnticiposAplicados IsNot Nothing Then
                     ListaAnticiposAplicados.Clear()
                 Else
-                    ListaAnticiposAplicados = New List(Of MAnticipoRelacionado)
+                    ListaAnticiposAplicados = New List(Of Modelos.MAnticipoRelacionado)
                 End If
 
                 HdnIVACalculado.Value = HdnIVAOriginal.Value
@@ -16690,7 +16706,7 @@ Partial Class Ventas
                     If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then
                         Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
                         HdnIVACalculado.Value = (HdnIVACalculado.Value.ToDouble - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)).FormatoNumero(2)
-                        ListaAnticiposAplicados.Add(New MAnticipoRelacionado() With {.CveVenta = gvr.DataKey("CveVenta").ToEntero(), .FolioFiscal = gvr.DataKey("FolioFiscal")})
+                        ListaAnticiposAplicados.Add(New Modelos.MAnticipoRelacionado() With {.CveVenta = gvr.DataKey("CveVenta").ToEntero(), .FolioFiscal = gvr.DataKey("FolioFiscal")})
                         'HdnFolioFiscalNC.Value = gvr.DataKey("FolioFiscal")
 
                         'CvePSAmortizacion = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", "CveConceptoContable = 11").ToEntero()
@@ -18506,7 +18522,7 @@ Partial Class Ventas
         Return True
 
     End Function
-    Private Function CalcularDescuentos(CvePS As Integer, Cantidad As Decimal, PU As Decimal) As Descuentos
+    Private Function CalcularDescuentos(CvePS As Integer, Cantidad As Decimal, PU As Decimal) As Modelos.VentaDescuentos
         Dim Descuento As Decimal = HdnDescuento.Value.ToDecimal
 
         If UsuarioActual.Empresa.Funcionalidad(572) = "1" AndAlso Not TbDescuentosRNC.Visible Then
@@ -18534,7 +18550,7 @@ Partial Class Ventas
         Dim CvePromocionDetalle As Integer = 0
         Dim IncluyeImpuestos As Boolean = False
         Dim TipoAplicacion As Integer = 1 ' 1 - descuento, 2 en PU 
-        Dim ObjDescuento As New Descuentos
+        Dim ObjDescuento As New Modelos.VentaDescuentos
 
         If DdlSubProyectoDatos.SelectedValue = "11842" Then '' E141, el subproyecto: Franquicia, no proceden las promociones
             Return ObjDescuento
@@ -18749,7 +18765,7 @@ Partial Class Ventas
                 Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal
                 Dim PU As Decimal = If(CvePSAmortizacion > 0, TxtPrecio.Text.Trim.ToDecimal * -1, TxtPrecio.Text.Trim.ToDecimal)
 
-                Dim ObjDescuento As Descuentos = CalcularDescuentos(CvePS, Cantidad, PU)
+                Dim ObjDescuento As Modelos.VentaDescuentos = CalcularDescuentos(CvePS, Cantidad, PU)
                 If ObjDescuento.EsPUModificado Then
                     PU = ObjDescuento.PU
                 End If
@@ -18847,7 +18863,7 @@ Partial Class Ventas
 
             Dim CvePS As Integer = DdlPSPyME.SelectedValue.ToEntero()
 
-            Dim Descuento As Descuentos = CalcularDescuentos(CvePS, Cantidad, PU)
+            Dim Descuento As Modelos.VentaDescuentos = CalcularDescuentos(CvePS, Cantidad, PU)
 
             AgregarProductoServicio(Cantidad, DdlUMPyME.SelectedValue.ToEntero(), DdlUMPyME.SelectedItem.Text, DdlClasificacionPyME.SelectedValue.ToEntero(), DdlClasificacionPyME.SelectedItem.Text,
                                     CvePS, DdlPSPyME.SelectedText, TxtObsPyME.Text, PU, Descuento.ImporteDescuento, CveProyecto, Proyecto, CveSubProyecto, SubProyecto)
@@ -18947,7 +18963,7 @@ Partial Class Ventas
                       Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
                       Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "",
                       Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False,
-                      Optional ImporteProntoPago As Decimal = 0, Optional ByRef ObjDescuento As Descuentos = Nothing) As Boolean
+                      Optional ImporteProntoPago As Decimal = 0, Optional ByRef ObjDescuento As Modelos.VentaDescuentos = Nothing) As Boolean
 
         Dim Retorno As Boolean = False
         Try
@@ -19999,7 +20015,7 @@ Partial Class Ventas
             Dim strPromos As New StringBuilder
             If Not String.IsNullOrEmpty(Titulo) Then
 
-                For Each Promo As Descuentos In ListaDescuentos
+                For Each Promo As Modelos.VentaDescuentos In ListaDescuentos
                     If Not String.IsNullOrEmpty(Promo.ObsDescuento) Then
                         strPromos.AppendFormat("{0}, ", Promo.ObsDescuento)
                     End If
@@ -26182,7 +26198,7 @@ Partial Class Ventas
                     Dim Cantidad As Decimal = TxtCantidadPyME.Text.ToDecimal()
                     Dim PU As Decimal = TxtPrecioPyME.Text.ToDecimal()
 
-                    Dim ObjDescuento As Descuentos = CalcularDescuentos(DdlPSPyME.SelectedValue.ToEntero(), Cantidad, PU)
+                    Dim ObjDescuento As Modelos.VentaDescuentos = CalcularDescuentos(DdlPSPyME.SelectedValue.ToEntero(), Cantidad, PU)
 
                     TxtDescuentoPyME.Text = ObjDescuento.ImporteDescuento.FormatoNumero(2).Replace(","c, "")
 
@@ -28046,22 +28062,30 @@ Partial Class Ventas
                         SaldoMaximoUtilizable = 0
                     End If
                 Else
-                    Dim ObjAcum As New ClsAcumuladores
-                    If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
-                        Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
-                        DivSMU.Visible = True
+                    'SI ES DISTRUIBUIDOR DEBE CARGAR EN BASE SU SALDO DE USADOS, SI ES PISO PUEDE PERMITIR APLICAR TODO SU SALDO
+                    If ClienteEsDistribuidor Then
+                        Dim ObjAcum As New ClsAcumuladores
+                        If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
+                            Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
+                            DivSMU.Visible = True
+
+                            Dim SaldoMaximo As Decimal = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
+                            If SaldoMaximo > 0 Then
+                                SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
+                            Else
+                                SaldoMaximoUtilizable = 0
+                            End If
 
-                        Dim SaldoMaximo As Decimal = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
-                        If SaldoMaximo > 0 Then
-                            SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
                         Else
                             SaldoMaximoUtilizable = 0
                         End If
-
+                        ObjAcum.Dispose()
                     Else
-                        SaldoMaximoUtilizable = 0
+                        If DtNC IsNot Nothing Then
+                            SaldoMaximoUtilizable = DtNC.SUMD("Saldo")
+                        End If
                     End If
-                    ObjAcum.Dispose()
+
                 End If
 
                 If CveVentaUsado > 0 Then
@@ -28226,16 +28250,21 @@ Partial Class Ventas
                 SaldoMaximoUtilizable = 0
             End If
         Else
-            Dim ObjAcum As New ClsAcumuladores
-            If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
-                Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
-                DivSMU.Visible = True
-                SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
+            If Me.ClienteEsDistribuidor Then
+                Dim ObjAcum As New ClsAcumuladores
+                If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
+                    Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
+                    DivSMU.Visible = True
+                    SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
+                Else
+                    'DivSMU.Visible = False
+                    SaldoMaximoUtilizable = 0
+                End If
+                ObjAcum.Dispose()
             Else
-                'DivSMU.Visible = False
-                SaldoMaximoUtilizable = 0
+                SaldoMaximoUtilizable = TmpDTRNCDetalle.SUMD("Total")
             End If
-            ObjAcum.Dispose()
+
         End If
 
         If CveVentaUsado > 0 Then
@@ -28450,7 +28479,7 @@ Partial Class Ventas
             DivRNCBonificaciones.Visible = True
             DivRNCBonificacionesDetalle.Visible = False
 
-            Dim ListaBon As New List(Of VentasBonificaciones)
+            Dim ListaBon As New List(Of Modelos.VentasBonificaciones)
             Dim DtBon As DataTable = Nothing
             Dim SbFiltro As New StringBuilder()
             SbFiltro.Append("CveVenta IN(")
@@ -28474,7 +28503,7 @@ Partial Class Ventas
 
                 For Each bon In queryBonificacion
                     SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion)
-                    ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion})
+                    ListaBon.Add(New Modelos.VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion})
                 Next
                 SbFiltro.Remove(SbFiltro.Length - 1, 1)
                 SbFiltro.Append(")")
@@ -28618,7 +28647,7 @@ Partial Class Ventas
                 ListaVentasRNCCargos = CvesVentaRNCCargo.Split(","c)
             End If
 
-            Dim ListaBon As New List(Of VentasBonificaciones)
+            Dim ListaBon As New List(Of Modelos.VentasBonificaciones)
             Dim DtBon As DataTable = Nothing
             Dim SbFiltro As New StringBuilder()
             SbFiltro.Append("CveVenta IN(")
@@ -28650,7 +28679,7 @@ Partial Class Ventas
 
                 For Each bon In queryBonificacion
                     SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion)
-                    ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion})
+                    ListaBon.Add(New Modelos.VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion})
                 Next
 
                 SbFiltro.Remove(SbFiltro.Length - 1, 1)
@@ -31394,7 +31423,7 @@ Partial Class Ventas
         Dim CveMetodoPago As Integer = -1
         Dim MetodoPagoDif As Boolean = False
 
-        Dim ListaVentaDetalleCotizacion As List(Of MVentaDetalleCotizacion) = Nothing
+        Dim ListaVentaDetalleCotizacion As List(Of Modelos.MVentaDetalleCotizacion) = Nothing
 
         If ChkCotProductos.Checked Then
             For Each row As DataRow In DTSeleccionadas.Rows
@@ -31524,13 +31553,8 @@ Partial Class Ventas
     '    Return Not ErrorAjuste
     'End Function
 
-    Private Class MVentaDetalleCotizacion
-        Public Property CveVentaDetalle As Integer
-        Public Property Cantidad As Decimal
-    End Class
-
-    Private Function CalculaUsadosCotizacion(ByRef SbVentasDetalle As StringBuilder, ByVal DTSeleccionadas As DataTable, ByVal DtCotizaciones As DataTable) As List(Of MVentaDetalleCotizacion)
-        Dim Retorno As New List(Of MVentaDetalleCotizacion)
+    Private Function CalculaUsadosCotizacion(ByRef SbVentasDetalle As StringBuilder, ByVal DTSeleccionadas As DataTable, ByVal DtCotizaciones As DataTable) As List(Of Modelos.MVentaDetalleCotizacion)
+        Dim Retorno As New List(Of Modelos.MVentaDetalleCotizacion)
 
         Dim DTTamanios As DataTable = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
 
@@ -31540,7 +31564,7 @@ Partial Class Ventas
             Dim tCantidad = If(ChkCotProductos.Checked, GvCotPS.Rows(IndiceGVCotDataKey(GvCotPS, Dr("CveVentaDetalle").ToString())).FCTextBox("TxtCantidadCot").Text.ToDecimal, Dr("Cantidad")).ToString().ToDecimal
             Dr("Cantidad") = tCantidad
 
-            Retorno.Add(New MVentaDetalleCotizacion() With {.CveVentaDetalle = Dr("CveVentaDetalle").ToString().ToEntero(), .Cantidad = tCantidad})
+            Retorno.Add(New Modelos.MVentaDetalleCotizacion() With {.CveVentaDetalle = Dr("CveVentaDetalle").ToString().ToEntero(), .Cantidad = tCantidad})
 
         Next
 
@@ -31599,7 +31623,7 @@ Partial Class Ventas
                 Dim CveVentaDetalleUsado = DtCotizaciones.FiltroPrimeroValor("CveVentaDetalle", $"CveVenta = {drowPsTamaños("CveVenta")} AND CvePS = {drowPsTamaños("CvePS")}").ToEntero()
                 SbVentasDetalle.AppendFormat("{0},", CveVentaDetalleUsado)
 
-                Retorno.Add(New MVentaDetalleCotizacion() With {.CveVentaDetalle = CveVentaDetalleUsado, .Cantidad = drowPsTamaños("Cantidad").ToString().ToDecimal()})
+                Retorno.Add(New Modelos.MVentaDetalleCotizacion() With {.CveVentaDetalle = CveVentaDetalleUsado, .Cantidad = drowPsTamaños("Cantidad").ToString().ToDecimal()})
 
             End If
         Next
@@ -32877,6 +32901,7 @@ Partial Class Ventas
         'REMOVER EVENTO PARA RECARGAR ALMACEN
         spanAlmacen.Attributes.Remove("onclick")
         Tab.ActiveTabIndex = 1
+        HdnCargarInventario.Value = "False"
         Updatetabs.Update()
 
 
@@ -33068,7 +33093,12 @@ Partial Class Ventas
             If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
                 TxtFecha.Text = Now.ToString()
             End If
-            TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
+
+            'SI TIENE LINEA ADICIONAL, NO DEBE MODIFICAR LA FECHA YA ASIGNADA
+            If DdlLineaAdicional.SelectedValue.ToEntero() <= 0 Then
+                TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
+            End If
+
             TxtFechaEjecucion.Text = Now.ToString()
 
             DdlLineaAdicional_SelectedIndexChanged(DdlLineaAdicional, EventArgs.Empty)
@@ -34438,18 +34468,6 @@ Partial Class Ventas
     '    ObjBancos.Dispose()
     '    If ObjAC IsNot Nothing Then ObjAC.Dispose()
     'End Sub
-    Partial Class Descuentos
-        Public Consec As Integer
-        Public ImporteDescuento As Decimal = 0
-        Public CvePromocionDetalle As Integer = -1
-        Public PU As Decimal = 0
-        Public EsPUModificado As Boolean = False
-        Public ImporteProntoPago As Decimal = 0
-        Public NombrePromo As String = ""
-        Public CveMarca As Integer = -1
-        Public ObsDescuento As String = ""
-    End Class
-
     Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
         CargaEventoBitacora()
     End Sub
@@ -34718,19 +34736,10 @@ Partial Class Ventas
 #End Region
 
 
-    Partial Class VentasBonificaciones
-        Public CveVentaRNCCargo As Integer = -1
-        Public CveVentaBonificacion As Integer = -1
-        Public ImporteBonificacion As Decimal = 0
-        Public IVABonificacion As Decimal = 0
-    End Class
-
-
-
 #Region " N O T A - D E - C R E D I T O - P R O N T O - P A G O"
 
-    Private Function GenerarNCProntoPago(SqlTransaccion As SqlClient.SqlTransaction, ByRef ObjCliente As ClsClientes, ByRef ObjConta As ClsContPAQi, ObjFactura As Modelos.Factura) As MensajeProntoPago
-        Dim Retorno As New MensajeProntoPago
+    Private Function GenerarNCProntoPago(SqlTransaccion As SqlClient.SqlTransaction, ByRef ObjCliente As ClsClientes, ByRef ObjConta As ClsContPAQi, ObjFactura As Modelos.Factura) As Modelos.MensajeProntoPago
+        Dim Retorno As New Modelos.MensajeProntoPago
 
         Dim Resp As New Modelos.Factura.MMensajeFactura
         Dim ObjFacturaProntoPago As Modelos.Factura = Nothing
@@ -35198,11 +35207,6 @@ Partial Class Ventas
         Return DtVentasNC
     End Function
 
-    Public Class MensajeProntoPago
-        Public Property ObjFacturaProntoPago As Modelos.Factura
-        Public Property Mensaje As Modelos.Factura.MMensajeFactura
-    End Class
-
 #End Region
 
     Protected Sub LnkAplicarRNCDevolucion_Click(sender As Object, e As EventArgs)
@@ -35459,11 +35463,6 @@ Partial Class Ventas
     '    UpParametros.Update()
     'End Sub
 
-    Public Class MAnticipoRelacionado
-        Public Property CveVenta As Integer
-        Public Property FolioFiscal As String
-    End Class
-
     Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
         DdlDireccionEnvio.Enabled = True
         LnkEditarDir.Visible = False
@@ -36442,7 +36441,7 @@ Partial Class Ventas
 
                                     'AL FACTURAR CON LINEA ADICIONAL TIPO PO, SE SUMARÁN LOS DIAS DE VENCIMIENTO A LA FECHA ACTUAL
                                     If RowLinea("TipoLinea").ToString() = "2" Then
-                                        TxtFechaPago.Text = Now.AddDays(RowLinea("DiasVencimiento").ToString().ToEntero()).ToString("dd/MM/yyyy")
+                                        TxtFechaPago.Text = TxtFecha.Text.ToDate().AddDays(RowLinea("DiasVencimiento").ToString().ToEntero()).ToString("dd/MM/yyyy")
                                     Else
                                         TxtFechaPago.Text = RowLinea("FechaVencimiento").ToString().ToDateTime().ToString("dd/MM/yyyy")
                                     End If
@@ -36590,6 +36589,7 @@ Partial Class Ventas
         'REMOVER EVENTO PARA RECARGAR ALMACEN
         spanAlmacen.Attributes.Remove("onclick")
         Tab.ActiveTabIndex = 1
+        HdnCargarInventario.Value = "False"
         Updatetabs.Update()
     End Sub
     Protected Sub LBAplicaDevolucion_Click(sender As Object, e As EventArgs)