GDias 2024-12-22 Traslados con un articulo y mas de los solicitados, Pop up buscar venta por Vendedor, promosiones ocultar ultimo costo y % de ganancia

Inventarios/TrasladoSolicitud.aspx

@@ -299,7 +299,7 @@
                                 <div class="col-md-12">
 
                                        <asp:GridView ID="GvSolicitudes" runat="server" AutoGenerateColumns="False" 
-                                           DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida,Serie, Lote, FechaCaducidad" EmptyDataText="No se encontraron Productos registrados" 
+                                           DataKeyNames="CveTrasladoSolicitudDetalle,CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida,Serie, Lote, FechaCaducidad" EmptyDataText="No se encontraron Productos registrados" 
                                            ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None"
                                            OnRowDataBound="GvSolicitudes_RowDataBound" >
                                            <Columns>

Inventarios/TrasladoSolicitud.aspx.vb

@@ -503,8 +503,9 @@ Partial Class Inventarios_TrasladoSolicitud
         TextoExistencia.Append("Los siguiente productos no tienen existencia:<br/>")
 
         For Each gvr As GridViewRow In GvSolicitudes.Rows
-            Dim Existencia As Decimal = 0
 
+
+            Dim Existencia As Decimal = 0
             Dim MsgAdicional As String = ""
 
             If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, CveAlmacenOrigen, FechaMovto:=NowADS.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", Caducidad:=MinFecha) Then
@@ -606,15 +607,32 @@ Partial Class Inventarios_TrasladoSolicitud
 
             For Each gvr As GridViewRow In GvSolicitudes.Rows
 
-                Dim Cantidad As Decimal = gvr.FCTextBox("TxtCantidad").Text.ToDecimal
-                If gvr.FCCheckBox("Chk").Checked AndAlso Cantidad > 0 Then
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, CveAF:=-1, CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, Observaciones:="") Then
+                Dim CveTrasladoSolicitudDetalle As Integer = gvr.DataKey("CveTrasladoSolicitudDetalle").ToEntero
+                Dim CantidadOriginal As Decimal = gvr.DataKey("Cantidad").ToDecimal
+                Dim CantidadAceptada As Decimal = gvr.FCTextBox("TxtCantidad").Text.ToDecimal
+
+
+                If gvr.FCCheckBox("Chk").Checked AndAlso CantidadAceptada > 0 Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadAceptada, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, CveAF:=-1, CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, Observaciones:="") Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
                     End If
+
+                    If CantidadOriginal <> CantidadAceptada Then
+                        If Not ObjInventario.UpdateTrasladoSolicitudDetalle(CveTrasladoSolicitudDetalle, UsuarioActual.CveEmpresa, -1, CantidadAceptada, -1, -1, -1, "-1", -1, "-1", "-1", MinFecha) Then
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al actuazliar el detalle de traslado"
+                            Exit For
+                        End If
+                    End If
+
                     Cont += 1
+
                 End If
+
+
+
             Next
 
             'For Each Dr As DataRow In DtMovimientos.RowsF