From d0e51538543c5ecfda6dcbd23ba3b6ea614ffb1f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Jan 2024 21:07:26 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20relaci=C3=B3n=20cveventadeta?=
 =?UTF-8?q?lle=20en=20remisi=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OS/OrdenesServicios.aspx.vb | 23 +++++------------------
 1 file changed, 5 insertions(+), 18 deletions(-)

diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 198e128c5..d23b2813d 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -374,8 +374,7 @@ Partial Class OS_OrdenesServicios
                 'CargaEstatusOS()
                 CargaDatos()
                 'PermisosSegunEstatus()
-                CargaDetalles()
-                CargaMateriales()
+
 
                 DivSeFactura.Visible = True
                 BtnGuardar.Text = "Guardar Cambios"
@@ -706,7 +705,8 @@ Partial Class OS_OrdenesServicios
 
                 CargaEventoBitacora()
                 CargaHistorial()
-
+                CargaDetalles()
+                CargaMateriales()
 
                 If TipoEstatus.Contiene(1, 2, 3) Then
                     LnkAccionesMaterialUtilizado.Visible = True
@@ -3032,8 +3032,6 @@ Partial Class OS_OrdenesServicios
 
         End If
 
-
-
         Dim ProcesoOK As Boolean = True
         Dim ObjV As New ClsVentas
         Dim ObjOS As New ClsOS(ObjV.IniciaTransacSQL())
@@ -3041,8 +3039,6 @@ Partial Class OS_OrdenesServicios
         Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
         Dim GenrarRemisionMovimientos As Boolean = False
 
-
-
         If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
 
             For Each GVRow As GridViewRow In GvMU.Rows
@@ -3054,20 +3050,15 @@ Partial Class OS_OrdenesServicios
                     Dim Serie As String = If(GVRow.DataKey("Serie") = "", "-1", GVRow.DataKey("Serie"))
                     Dim Lote As String = If(GVRow.DataKey("Lote") = "", "-1", GVRow.DataKey("Lote"))
                     Dim FechaCaducidad As DateTime = If(GVRow.DataKey("FechaCaducidad") = "", MinFecha, GVRow.DataKey("FechaCaducidad").ToDate)
-
                     If Not ObjOS.AddOrdenesServicioMateriales(CveOS, CvePS, CantidadRegistro, Serie, Lote, FechaCaducidad, UsuarioActual.CveUsuario) Then
                         Alert("Ocurrió un error al guardar el material.", TipoMensaje.MsgAdvertencia)
                         ProcesoOK = False
                         Exit For
                     End If
-
                 End If
             Next
-
             If ProcesoOK Then
-
                 Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 4").ToEntero
-
                 If CveOSEstatusFinalizada > 0 Then
                     If Not ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOS) Then
                         ProcesoOK = False
@@ -3144,7 +3135,7 @@ Partial Class OS_OrdenesServicios
                         Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal
 
                         If CantidadRegistro > 0 Then
-                            Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero   ' DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
+                            Dim CveVentaDetalle As Integer = DtVentaDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePadre = {GvRow.DataKey("CveVentaDetalle")}").ToEntero
                             Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
 
                             Dim Serie As String = GvRow.DataKey("Serie")
@@ -3225,13 +3216,9 @@ Partial Class OS_OrdenesServicios
             End If
         End If
 
-
-
-
         If ProcesoOK Then
 
             ObjV.Commit()
-
             If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
                 Dim Liga As String = $" document.location.href=""/OS/OrdenesServicios.aspx?CveOS={CveOS}""; "
                 Alert("El material utilizado se guardó correctamente", TipoMensaje.MsgInformacion, Liga)
@@ -3288,7 +3275,7 @@ Partial Class OS_OrdenesServicios
                 Dim Obs As String = GvRow.DataKey("Observaciones")
 
                 If CantidadRegistro > 0 Then
-                    If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido) Then
+                    If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido, CveVentaDetallePadre:=GvRow.DataKey("CveVentaDetalle").ToEntero) Then
                         Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia)
                         ProcesoOK = False
                         Exit For