diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2662b079d..5a0089e03 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2755,6 +2755,7 @@ Partial Class Ventas
                     End If
                 End Using
             End If
+
             If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
                 DdlMoneda.SelectedValueExist(2)
                 CambiaMoneda()
@@ -21090,7 +21091,7 @@ Partial Class Ventas
                                 Dim DtCostos = ObjInventario.DtResultados.Copy
                                 Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
                                 Dim IdCtaContable As Integer = 0
-                                Dim CveCuenta As Integer = 0
+                                ' Dim CveCuenta As Integer = 0
                                 Dim ValorInventario As Decimal
                                 Dim TotalCostoAcumulado As Decimal = 0D
                                 Dim Cont As Integer = 1
@@ -21099,7 +21100,7 @@ Partial Class Ventas
                                 For Each RowInv As DataRow In DtCostosDistinct.Rows
                                     ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
                                     IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
-                                    CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
+                                    'CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                     TotalCostoAcumulado += ValorInventario
 
                                     'cuando es el último movimiento y hay diferencias en los importes
@@ -21109,7 +21110,7 @@ Partial Class Ventas
 
                                     Try
                                         'If ValorInventario <> 0 Then
-                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
                                             OcurrioError = True
                                             Exit For
                                         End If
@@ -21123,7 +21124,7 @@ Partial Class Ventas
 
                                 If Not OcurrioError Then
                                     IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero()
-                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
                                         OcurrioError = True
                                     End If
                                 End If
@@ -36398,7 +36399,7 @@ Partial Class Ventas
                 Me.CveCategoriaLineaAdicional = 0
 
                 If CveVenta <= 0 Then
-                    TxtFechaPago.Text = Now.ToString("dd/MM/yyyy")
+                    TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToString("dd/MM/yyyy")
                     TxtOrdenCompra.Text = ""
 
                     'SI SE HABILITO LA FACTURACION DESDE LA LINEA ADICIONAL DEBE QUITARLO