diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 88aabedd8..e28995f1c 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1033,23 +1033,15 @@ Partial Class Inventarios_EntregaAlmacen
                     DdlAlmacen.SelectedValueExist(CveAlmacenTraspasoOrigen)
                 End If
 
-                If Not DtDatos.Columns.Contains("CveSeccion") Then
-                    DtDatos.Columns.Add("CveSeccion", GetType(Integer))
-                End If
+                If Not DtDatos.Columns.Contains("CveSeccion") Then DtDatos.Columns.Add("CveSeccion", GetType(Integer))
 
-                If Not DtDatos.Columns.Contains("Lote") Then
-                    DtDatos.Columns.Add("Lote", GetType(String))
-                End If
+                If Not DtDatos.Columns.Contains("Lote") Then DtDatos.Columns.Add("Lote", GetType(String))
 
-                If Not DtDatos.Columns.Contains("FechaCaducidad") Then
-                    DtDatos.Columns.Add("FechaCaducidad", GetType(Date))
-                End If
-                If Not DtDatos.Columns.Contains("Seleccionado") Then
-                    DtDatos.Columns.Add("Seleccionado", GetType(Boolean))
-                End If
-                If Not DtDatos.Columns.Contains("CantidadSeleccionada") Then
-                    DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
-                End If
+                If Not DtDatos.Columns.Contains("FechaCaducidad") Then DtDatos.Columns.Add("FechaCaducidad", GetType(Date))
+
+                If Not DtDatos.Columns.Contains("Seleccionado") Then DtDatos.Columns.Add("Seleccionado", GetType(Boolean))
+
+                If Not DtDatos.Columns.Contains("CantidadSeleccionada") Then DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
 
                 If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
                     DivCodigoSeriePS.Visible = True