diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index aace420e7..9575d4c06 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4839,13 +4839,14 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function GetProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean
+    Public Function GetProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index f0f9ee342..8a7db43d1 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -14,6 +14,7 @@ Imports CrystalDecisions.Shared
 Imports CrystalDecisions.ReportSource
 Imports Stimulsoft.Report
 Imports System.Xml
+Imports System.Web.Http.ValueProviders
 
 
 'NOTA AD TEAM
@@ -1734,33 +1735,7 @@ Public Class ClsPaginas
             Application("GlobalDTInvConceptos") = value
         End Set
     End Property
-    Property GlobalDTSeccionAlmacen(CveEmpresa As Integer, CveAlmacen As Integer) As DataTable
-        Get
-            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
-            'sino existe, recarga los datos
-            If Application(AppNombre) Is Nothing Then
-                Dim ObjInv As New ClsInventarios
-                If ObjInv.GetSeccionesAlmacenes(CveEmpresa, -1) Then Application(AppNombre) = ObjInv.DtResultados
-                ObjInv.Dispose()
-            End If
-            If CveEmpresa <> -1 Then
-                Dim Str As New StringBuilder
 
-                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
-                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-                GlobalDTSeccionAlmacen = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTSeccionAlmacen = DirectCast(Application("GlobalDTSeccionAlmacen"), DataTable)
-            End If
-
-        End Get
-        Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
-            Application(AppNombre) = value
-        End Set
-    End Property
     Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1) As DataTable
         Get
 
@@ -1797,6 +1772,76 @@ Public Class ClsPaginas
             Application("GlobalDTAlmacenUsuarios") = value
         End Set
     End Property
+
+    Property GlobalDTSeccionAlmacen(CveEmpresa As Integer, CveAlmacen As Integer) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjInv As New ClsInventarios
+                If ObjInv.GetSeccionesAlmacenes(CveEmpresa, -1) Then Application(AppNombre) = ObjInv.DtResultados
+                ObjInv.Dispose()
+            End If
+            If CveEmpresa <> -1 Then
+                Dim Str As New StringBuilder
+
+                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                GlobalDTSeccionAlmacen = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTSeccionAlmacen = DirectCast(Application("GlobalDTSeccionAlmacen"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
+
+    Property GlobalDTInvPSSeccionesAlmacen(CveEmpresa As Integer, CveAlmacen As Integer, CvePS As Integer) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjInv As New ClsInventarios
+                If ObjInv.GetProductosServiciosAlmacenSeccion(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
+                ObjInv.Dispose()
+            End If
+            If CveEmpresa <> -1 Then
+                Dim Str As New StringBuilder
+
+                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+                If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS)
+
+                'si el PS no tiene definido una seccion, toma las del Almacen
+                If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then
+                    Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                    GlobalDTInvPSSeccionesAlmacen = Dv.ToTable
+                    Dv.Dispose()
+                    'sino tiene datos registrados, toma los de almacen
+                    If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then
+                        GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+                    End If
+                Else
+                    'sino tiene datos registrados, toma los de almacen
+                    GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+                End If
+
+            Else
+                GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
+
     Property GlobalDTNom_Periodos() As DataTable
         Get
             GlobalDTNom_Periodos = DirectCast(Application("GlobalDTNom_Periodos"), DataTable)
diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 786b97c24..07867e7bf 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -65,6 +65,11 @@ Public Class ClsProductosServicios
     Public Property AplicaIEPS As Boolean
     Public Property IEPSGrabaIVA As Boolean
 
+    Public Property AplicaSerie As Boolean
+    Public Property AplicaLote As Boolean
+    Public Property AplicaCaducidad As Boolean
+    Public Property AplicaSeccion As Boolean
+
     Public Property CveConceptoContable As Integer
 
     'Nuevo R: 26/09/2017'
@@ -256,6 +261,11 @@ Public Class ClsProductosServicios
                 IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble
                 CveConceptoContable = Data.Rows(0)("CveConceptoContable").ToString.ToEntero
 
+                AplicaSerie = (Data.Rows(0)("AplicaSerie").ToString) = "True"
+                AplicaLote = (Data.Rows(0)("AplicaLote").ToString) = "True"
+                AplicaCaducidad = (Data.Rows(0)("AplicaCaducidad").ToString) = "True"
+                AplicaSeccion = (Data.Rows(0)("AplicaSeccion").ToString) = "True"
+
                 'Nuevo R: 26/09/2017'
 
                 Inventariable = Data.Rows(0)("Inventariable").ToString = "True"
@@ -608,7 +618,8 @@ Public Class ClsProductosServicios
                              Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                              Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Boolean
+                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
+                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosUpdate")
@@ -683,6 +694,12 @@ Public Class ClsProductosServicios
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
             .Add("@Litraje", SqlDbType.Float).Value = Litraje
             .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
+
+            .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie
+            .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
+            .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
+            .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
+
         End With
 
         Try
@@ -1780,7 +1797,7 @@ Public Class ClsProductosServicios
 
     Public Function GetPSExistencias(CvePS As Integer, CvePrecioLista As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
                                     CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
-                                    Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
+                                    Optional FechaMovto As String = "-1", Optional Serie As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
                                     Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1",
                                     Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -1796,7 +1813,7 @@ Public Class ClsProductosServicios
             .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@Lote", SqlDbType.VarChar).Value = Lote
             .Add("@Batch", SqlDbType.VarChar).Value = Batch
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index cda859572..d19de8eef 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3369,7 +3369,7 @@ Namespace Modelos
                             CveUnidad = Dr("CveUM").ToString.ToEntero
                             Cantidad = Dr("Cantidad").ToString.ToDouble
 
-                            If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("SerieLote").ToString = "" Then
+                            If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("Serie").ToString = "" Then
                                 OcurrioError = True
                                 ErrorList.Add("Se deben especificar las Series de los productos de almacén")
                                 Exit For
@@ -3510,7 +3510,7 @@ Namespace Modelos
 
                 'Si no se ha terminado de surtir agregamos el movimiento
                 If Indice >= 0 Then
-                    ' rowSurtidos("Surtido").ToString.ToDouble < rowSurtidos("Cantidad").ToString.ToDouble AndAlso (dr("CantidadDisponible").ToString.ToDouble - rowSurtidos("Surtido").ToString.ToDouble > 0 Or dr("SerieLote").ToString <> "")
+                    ' rowSurtidos("Surtido").ToString.ToDouble < rowSurtidos("Cantidad").ToString.ToDouble AndAlso (dr("CantidadDisponible").ToString.ToDouble - rowSurtidos("Surtido").ToString.ToDouble > 0 Or dr("Serie").ToString <> "")
                     If rowSurtidos("Surtido").ToString.ToDecimal < rowSurtidos("Cantidad").ToString.ToDecimal Then
                         Dim CantidadSurtida As Double = If(dr("CantidadDisponible").ToString.ToDecimal < rowSurtidos("Cantidad").ToString.ToDouble, dr("CantidadDisponible").ToString.ToDecimal, rowSurtidos("Cantidad").ToString.ToDecimal)
                         MovDTCuadrados.ImportRow(dr)
@@ -3653,7 +3653,7 @@ Namespace Modelos
                     Dim CveUnidad As Integer = MovDet("CveUM").ToString.ToEntero
                     Dim PU As Decimal = MovDet("PU").ToString.ToDecimal
                     Dim CveProducto As Integer = MovDet("CvePS").ToString.ToEntero
-                    Dim SerieLote As String = MovDet("SerieLote").ToString
+                    Dim Serie As String = MovDet("Serie").ToString
                     Dim Consec As Integer = DtRemisiones.FiltroPrimeroValor("Consec", $"CveVentaDetalle = {MovDet("CveVentaDetalle").ToString}").ToEntero
 
                     'COMIENZA: VENTADETALLE
@@ -3672,7 +3672,7 @@ Namespace Modelos
                         Exit For
                     End If
 
-                    If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Lote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then
+                    If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Serie, CveVentaDetalle:=CveVentaDetalle) Then
                         ContadorMovtosDetalles += 1
                     Else
                         OcurrioError = True
@@ -4436,7 +4436,7 @@ Namespace Modelos
 
                                         If CveMovimientoDevolucion > 0 Then
                                             For Each Dr As DataRow In DtExistencias.FiltraParametros($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}").Rows
-                                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                                                     ErrorCancelar = True
                                                     MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
                                                     Exit For
@@ -4936,7 +4936,7 @@ Namespace Modelos
                                     End If
 
                                     For Each Dr As DataRow In DtMovtosDev.FiltraParametros($"CveVentaDetalle = {DrRem("CveVentaDetalle").ToString.ToEntero}").Rows
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=Dr("Lote").ToString) Then
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Serie:=Dr("Serie").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=Dr("Lote").ToString) Then
                                             ErrorCancelar = True
                                             Exit For
                                         End If
@@ -5018,7 +5018,7 @@ Namespace Modelos
                         Exit For
                     End If
 
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, DrRem("CveActivoFijo").ToString.ToEntero, -1, DrRem("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString) Then
                         ErrorCancelar = True
                         Exit For
                     End If
@@ -5033,7 +5033,7 @@ Namespace Modelos
             If Not ErrorCancelar Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDevRem, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
                             ErrorCancelar = True
                             Exit For
                         End If
@@ -5088,7 +5088,7 @@ Namespace Modelos
                             Exit For
                         End If
 
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
                             ErrorCancelar = True
                             Exit For
                         End If
@@ -5111,7 +5111,7 @@ Namespace Modelos
 
                             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
                                         ErrorCancelar = True
                                         Exit For
                                     End If