CveVentaDetalle en movimiento de usado

Inventarios/RecepcionUsados.aspx.vb

@@ -589,6 +589,7 @@ Partial Class Inventarios_RecepcionUsados
         dt.Columns.Add("TotalExtranjero", Type.GetType("System.Double"))
         dt.Columns.Add("CveTamaño", Type.GetType("System.Int32"))
         dt.Columns.Add("Tamaño", Type.GetType("System.String"))
+        dt.Columns.Add("CveVentaDetalle", Type.GetType("System.Int32"))
         CargaGVM(dt)
 
         DtMovimientos = dt.Clone
@@ -1048,7 +1049,8 @@ Partial Class Inventarios_RecepcionUsados
 
 
     Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Double, PU As Double, Serie As String, CodigoAF As String, Codigo As String,
-                         CveAF As String, Observaciones As String, Lote As String, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Tamaño As String, CveTamaño As Integer)
+                         CveAF As String, Observaciones As String, Lote As String, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Tamaño As String, CveTamaño As Integer,
+                         Optional CveVentaDetalle As Integer = -1)
 
         'If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlProducto2.SelectedText = "" : Exit Sub
 
@@ -1116,6 +1118,7 @@ Partial Class Inventarios_RecepcionUsados
 
             registro.Item("CveTamaño") = CveTamaño
             registro.Item("Tamaño") = Tamaño
+            registro.Item("CveVentaDetalle") = CveVentaDetalle
 
             DtMovimientos.Rows.Add(registro)
             CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
@@ -1281,7 +1284,7 @@ Partial Class Inventarios_RecepcionUsados
                                     ImporteConcepto = Dr("PU").ToString.ToDecimal
                                 End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     Mensaje = "Error al guardar los movimientos"
                                     ErrorMovInv = True
                                     Exit For
@@ -2269,6 +2272,18 @@ Partial Class Inventarios_RecepcionUsados
                 DtUsados = ObjVentas.DtResultados.Copy()
             End If
 
+            'RELACIONA LA VENTA DETALLA DE LA REMISION
+            If DtUsados IsNot Nothing Then
+                DtUsados.Columns.Add(New DataColumn("CveVentaDetalle", GetType(Integer)))
+                For Each RowUsado As DataRow In DtUsados.Rows
+                    Dim CveVentaDetalle As Integer = Me.ObjFactura.DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"EsCargo = 1 AND Cantidad = {RowUsado("Cantidad")} AND CvePS = {RowUsado("CvePS")}").ToEntero()
+                    If CveVentaDetalle > 0 Then
+                        RowUsado("CveVentaDetalle") = CveVentaDetalle
+                    End If
+                Next
+
+            End If
+
             Dim RecepcionValida As Boolean = True
 
             If ObjVentas.GetVentasUsados(ObjFactura.CveVenta, ObjFactura.CveSubProyecto, ObjFactura.Fecha, UsuarioActual.CveEmpresa, ServicioDomicilio:=ObjFactura.ServicioDomicilio) Then
@@ -2334,7 +2349,9 @@ Partial Class Inventarios_RecepcionUsados
                     Dim Cantidad As Double = RowUsado("Cantidad").ToString().ToEntero()
                     Dim PU As Double = RowUsado("PU").ToString().ToDouble()
 
-                    AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño)
+                    Dim CveVentaDetalle = RowUsado("CveVentaDetalle").ToString().ToEntero()
+
+                    AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle)
 
                 Next
             End If