-- cambios varios

Ventas/Ventas.aspx.vb

@@ -34526,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
@@ -34569,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
@@ -34667,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"
@@ -34688,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
@@ -39175,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