SMS 2024.01.17 OS cambio actualizar CveVenta por remisión

OS/OrdenesServicios.aspx.vb

@@ -99,6 +99,20 @@ Partial Class OS_OrdenesServicios
         End Set
     End Property
 
+    Private Property CvePedido As Integer
+        Get
+            If ViewState("CvePedido") Is Nothing Then
+                ViewState("CvePedido") = -1
+            End If
+
+            Return ViewState("CvePedido").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CvePedido") = value
+        End Set
+    End Property
+
+
 
     Private Property CveOsDetalle As Integer
         Get
@@ -641,6 +655,10 @@ Partial Class OS_OrdenesServicios
                 CveTecnico = ObjOS.CveUsuarioAtendio
                 CargarEstatusDelUsuario(TipoEstatus)
                 CveVenta = ObjOS.CveVenta
+                If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                    CvePedido = ObjOS.CveCotizacion
+                End If
+
 
                 'Dim validacionTieneEstatus As Integer = EstatusOSDelUsuario.FiltraParametros(String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio)).Rows.Count
 
@@ -2972,7 +2990,7 @@ Partial Class OS_OrdenesServicios
         End Select
 
         Dim ObjOS As New ClsOS
-        If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, Opcion, UsuarioActual.CveEmpresa) Then
+        If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, If(UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1, CvePedido, CveVenta), Opcion, UsuarioActual.CveEmpresa) Then
             DTSolicitudDev = ObjOS.DtResultados
             GvMU.DataSource = DTSolicitudDev
             GvMU.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> ""
@@ -3093,7 +3111,7 @@ Partial Class OS_OrdenesServicios
 
                 Next
                 If AplicaDevolucion Then
-                    If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
+                    If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVentaPedido) Then
                         ProcesoOK = False
                     End If
                 End If
@@ -3213,6 +3231,16 @@ Partial Class OS_OrdenesServicios
                 Else
                     ProcesoOK = False
                 End If
+
+                If ProcesoOK Then
+
+                    If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS) Then
+                        ProcesoOK = False
+                    End If
+
+                End If
+
+
             End If
         End If
 
@@ -3249,7 +3277,7 @@ Partial Class OS_OrdenesServicios
         Dim CveSubProyectoPedido As Integer = -1
         Dim CveMoneda As Integer = -1
 
-        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
+        If ObjVentas.GetVenta(CvePedido, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
             Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0)
             CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
             CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero()