-- mejora lote/cad

Inventarios/EntregaAlmacen.aspx.vb

@@ -973,8 +973,8 @@ Partial Class Inventarios_EntregaAlmacen
                 If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
                     e.Row.FCTextBox("TxtCaducidad").Visible = True
                     e.Row.FCLinkButton("LnkCaducidad").Visible = True
-                    e.Row.FCTextBox("TxtCaducidad").ReadOnly = True
-                    CType(e.Row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = False
+                    e.Row.FCTextBox("TxtCaducidad").readonly = True
+                    CType(e.row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = False
 
                     'si aplica caducidad y viene vacía (posible por venta anterior), que se active su registro
                     If e.Row.FCTextBox("TxtCaducidad").Text = "" OrElse e.Row.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha Then
@@ -2275,6 +2275,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                                     If ErrorMovInv Then Exit For
 
+
                                 Else
                                     ErrorMovInv = True
                                 End If
@@ -2601,10 +2602,7 @@ Partial Class Inventarios_EntregaAlmacen
                         Dim CveAlmacenOrigen = If(CveAlmacenTraspasoDestino > 0, CveAlmacenTraspasoDestino, DdlAlmacen.SelectedValue.ToEntero())
                         Dim CveSeccionAlmacen As Integer = 0
                         Dim ValorTraspaso As Decimal = 0
-
-                        'SI TIENE APARTADOS DEBE GENERAR LOS TRASPASOS
-                        If DtTempApartados.Rows.Count > 0 Then
-
+                        If DtTempApartados IsNot Nothing AndAlso DtTempApartados.Rows.Count > 0 Then
                             For Each Dr As DataRow In DtTempApartados.Rows
 
                                 If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString().ToEntero() Then
@@ -2656,6 +2654,10 @@ Partial Class Inventarios_EntregaAlmacen
 
                                         CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                                                                -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(),
+                                                                                               CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
+                                                                                               CveCliente:=CveCliente, Modulo:="RE/G10")
+                                        FolioEntrada = ObjInventario.Folio
+
                                         If Not CveMovimientoEntradaApartado > 0 Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.")
@@ -2691,21 +2693,14 @@ Partial Class Inventarios_EntregaAlmacen
                                     ErrorMovInv = True
                                 End If
                             End If
-
                         End If
                     End If
                 End If
             End If
 
-            End If
-
-            End If
-            End If
-            End If
-
             'QUEMAR REMISIONES
-
-            'CARGA REMISIONES DE LA VENTA DEVUELTA
+            If Not ErrorMovInv And EsDevolucionVenta = 1 And TipoDocto = "Ing" Then
+                Dim DtDevRem As New DataTable
 
                 'CARGA REMISIONES DE LA VENTA DEVUELTA
                 If ObjInventario.GetDevolucionRemisionesFacturadas(CveVentaSurtir) Then