Merge branch 'master' of http://adsistemasof.sytes.net:8383/SIG

App_Code/ClsCompras.vb

@@ -1758,7 +1758,11 @@ Public Class ClsCompras
             SqlAdapter.Fill(Data)
             OnError = True
         Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            If ex.Message.Contains("Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.") Then
+                Alert("Fechas fuera de rango, debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         End Try
 
         Return OnError

App_Code/ClsContabilidad.vb

@@ -25,6 +25,7 @@ Public Class ClsContabilidad
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
+    Public Property CvePrePolizaDetalle As Integer
 #End Region
 
 #Region " P R O P I E D A D E S"
@@ -899,11 +900,17 @@ Public Class ClsContabilidad
             .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
             .Add("@CveCreditoDetalle", SqlDbType.Int).Value = CveCreditoDetalle
             .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
+
+            .Add("@CvePrePolizaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            CvePrePolizaDetalle = SqlAdapter.SelectCommand.Parameters("@CvePrePolizaDetalle").Value.ToString.ToEntero
+            If CvePrePolizaDetalle > 0 Then
+                Retorno = True
+            End If
+
         Catch ex1 As SqlException
             If ex1.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -5862,6 +5869,22 @@ Public Class ClsContabilidad
         End Try
         Return Retorno
     End Function
+    Public Function GetProductosSinIEPS(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_ProductosSinIEPS")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de productos sin IEPS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
     Public Function GetRepIEPSLayoutAnual(Ano As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_RepIEPSLayoutAnual")
@@ -6561,4 +6584,6 @@ Public Class ClsContabilidad
     End Function
 
 #End Region
+
+
 End Class

App_Code/ClsInventarios.vb

@@ -80,7 +80,7 @@ Public Class ClsInventarios
     Public Property CveSubProyectoInventario As Integer
     Public Property SubProyecto As String
     Public Property SubProyectoInventario As String
-    Public Property SerieLote As String
+    Public Property Serie As String
     Public Property Guia As String
     Public Property TipoCambio As Double
     Public Property FolioVenta As String
@@ -98,6 +98,7 @@ Public Class ClsInventarios
     Public Property CveCliente As Integer
     Public Property CveClienteSucursal As Integer
     Public Property NombreCliente As String
+    Public Property CveProveedor As Integer
     Public Property DepartamentoEntrega As String
     Public Property PedidoContrato As String
     Public Property GastoIndirecto As Double
@@ -568,22 +569,11 @@ Public Class ClsInventarios
 #End Region
 
 #Region "  SECCIONES ALMACENES  "
-    Public Function GetSeccionesAlmacenes() As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_INV_SeccionesAlmacenesGet")
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Secciones de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
 
-        Return Retorno
-    End Function
     Public Function UpdateSeccion(CveSeccion As Integer, Seccion As String, Estatus As Boolean) As Boolean
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_INV_SeccionesAlmacenesUpdate")
+        DataAdapter("PA_Inv_SeccionesAlmacenesUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion
@@ -606,10 +596,11 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetSeccionesAlmacenes(CveSeccion As Integer) As Boolean
+    Public Function GetSeccionesAlmacenes(CveEmpresa As Integer, CveSeccion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_SeccionesAlmacenesGet")
         With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion
         End With
         Try
@@ -824,6 +815,7 @@ Public Class ClsInventarios
                 CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1)
                 CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1)
                 NombreCliente = dr("Nombre").ToString
+                CveProveedor = If(dr("CveProveedor").ToString.ToEntero > 0, dr("CveProveedor").ToString.ToEntero, -1)
                 DepartamentoEntrega = dr("DepartamentoEntrega").ToString
                 PedidoContrato = dr("PedidoContrato").ToString
                 TienePrePoliza = dr("TienePrePoliza").ToString.ToEntero
@@ -1267,37 +1259,38 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Decimal, CveAF As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "",
+    Public Function AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Decimal, Optional CveAF As Integer = -1,
-                                         Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional FechaCaducidad As Date = MinFecha,
+                                         Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha,
+                                         Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1,
                                          Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1,
-                                         Optional Lote As String = "", Optional Batch As String = "", Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean
+                                         Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_MovimientosDetalleAdd")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
-            .Add("@CveUM", SqlDbType.Int).Value = CveUM
             .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+            .Add("@CveUM", SqlDbType.Int).Value = CveUM
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@PU", SqlDbType.Decimal).Value = PU
             .Add("@PUTC", SqlDbType.Decimal).Value = PUTC
-            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@CostoIndirecto", SqlDbType.Decimal).Value = CostoIndirecto
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@Lote", SqlDbType.VarChar).Value = Lote
-            .Add("@Batch", SqlDbType.VarChar).Value = Batch
+            .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveMovimientoDetalleEntrada", SqlDbType.Int).Value = CveMovimientoDetalleEntrada
-            .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad
-            .Add("@CostoIndirecto", SqlDbType.Decimal).Value = CostoIndirecto
             .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
             .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle
             .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
-            .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@EsInterno", SqlDbType.Int).Value = EsInterno
+
+            .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
         Try
@@ -1320,7 +1313,7 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "",
+    Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "",
                                             Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -1335,7 +1328,7 @@ Public Class ClsInventarios
             .Add("@PUTC", SqlDbType.Money).Value = PUTC
             .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
             .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
         End With
@@ -1772,8 +1765,10 @@ Public Class ClsInventarios
 #Region "  INVENTARIOS - EXISTENCIAS  "
     Public Function GetExistenciasPS(CvePS 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 ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1",
+                                    Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha,
+                                    Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
+                                    Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1,
                                     Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Decimal
         Dim Retorno As Decimal = -1
 
@@ -1791,9 +1786,9 @@ Public Class ClsInventarios
             .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("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
@@ -1823,9 +1818,10 @@ Public Class ClsInventarios
     End Function
     Public Function GetExistenciasProducto(CvePS 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 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 Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha,
-                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional Caducidad As Date = MinFecha) As Boolean
+                                    Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1,
+                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ExistenciasGet")
 
@@ -1834,20 +1830,19 @@ Public Class ClsInventarios
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
             .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("@Lote", SqlDbType.VarChar).Value = Lote
-            .Add("@Batch", SqlDbType.VarChar).Value = Batch
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
+            .Add("@Lote", SqlDbType.VarChar).Value = Lote
+            .Add("@Caducidad", SqlDbType.Date).Value = Caducidad
             .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
             .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
             .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
             .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
-            .Add("@Caducidad", SqlDbType.Date).Value = Caducidad
+
             .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output
         End With
         Try
@@ -1859,21 +1854,18 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetExistenciasPSSerie(SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer, Optional FechaMovto As String = "-1") As Decimal
+    Public Function GetExistenciasPSSerie(Serie As String, CveAlmacen As Integer, CveEmpresa As Integer, Optional CveSeccionAlmacen As Integer = -1) As Decimal
-
-        If SerieLote = "" Then Return 0
 
+        If Serie = "" Then Return 0
         Dim Retorno As Decimal = 0
-        If FechaMovto = "-1" Then
-            FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd"))
-        End If
 
         DataAdapter("PA_Inv_ExistenciasPSSerieGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
             ' .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
 
             .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output
@@ -1896,13 +1888,13 @@ Public Class ClsInventarios
         Return Retorno
 
     End Function
-    Public Function GetCostoPSSerie(CvePS As Integer, SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer) As Decimal
+    Public Function GetCostoPSSerie(CvePS As Integer, Serie As String, CveAlmacen As Integer, CveEmpresa As Integer) As Decimal
         Dim Retorno As Decimal = 0
         DataAdapter("PA_Inv_CostoPSSerieGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output
@@ -1965,7 +1957,7 @@ Public Class ClsInventarios
 
     Public Function GetExistenciasPSEmpaque(CvePS 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
@@ -1984,7 +1976,7 @@ Public Class ClsInventarios
             .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
@@ -2031,7 +2023,7 @@ Public Class ClsInventarios
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al momento de vericar la existencia de los productos por xml.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al momento de verificar la existencia de los productos por xml.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
@@ -2429,7 +2421,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, SerieLote As String, CveUsuario As Integer) As Boolean
+    Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, Serie As String, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_InventarioFisicoDetalleAdd")
@@ -2439,7 +2431,7 @@ Public Class ClsInventarios
             .Add("@CveUM", SqlDbType.Int).Value = CveUM
             .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Estatus", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
@@ -2451,7 +2443,7 @@ Public Class ClsInventarios
                 Retorno = True
             ElseIf SqlAdapter.SelectCommand.Parameters("@Estatus").Value.ToString.ToEntero = 2 Then
                 Retorno = False
-                Alert($"Ya existe la Serie <b>{SerieLote}</b> en el inventario actual.", TipoMensaje.MsgAdvertencia)
+                Alert($"Ya existe la Serie <b>{Serie}</b> en el inventario actual.", TipoMensaje.MsgAdvertencia)
             End If
 
         Catch Ex1 As SqlException
@@ -2846,15 +2838,16 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function SerieLoteRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
+    Public Function SerieRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1, Optional CveSeccionAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Inv_SerieLoteRecomendadoGet")
+        DataAdapter("PA_Inv_SerieRecomendadoGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
@@ -2862,15 +2855,15 @@ Public Class ClsInventarios
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener la Serie/Lote recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener la Serie recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
     End Function
-    Public Function LoteBatchRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean
+    Public Function LoteRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Inv_LoteBatchRecomendadoGet")
+        DataAdapter("PA_Inv_LoteRecomendadoGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
@@ -3021,7 +3014,7 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetEstatusVentaPorSurir(CveVenta As Integer) As Boolean
+    Public Function GetEstatusVentaPorSurtir(CveVenta As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_EstatusVentaPorSurtirGet")
@@ -3365,7 +3358,7 @@ Public Class ClsInventarios
     End Function
 
 #Region "  INVENTARIOS - COSTO PS  "
-    Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Datetime, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal
+    Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, Serie As String, FechaFin As DateTime, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal
         Dim Retorno As Decimal = -1D
         DataAdapter("PA_Inv_PSCostoGet")
 
@@ -3373,7 +3366,7 @@ Public Class ClsInventarios
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
@@ -4741,41 +4734,60 @@ Public Class ClsInventarios
 
 #Region "MOVIMIENTOS DETALLE SECCION ALMACEN"
 
-    Public Function AddMovimientosDetalleSeccionesAlmacen(CveMovimientoDetalle As Integer, CveSeccionAlmacen As Integer, Cantidad As Decimal) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle
-            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
-            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
-    End Function
 
-    Public Function GetMovimientosDetalleSeccionesAlmacen(CveSeccionAlmacen As Integer, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenGet")
+        DataAdapter("PA_Inv_MovimientosDetalleAjusteSeccionesGet")
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return Retorno
+
     End Function
 
+    'Public Function AddMovimientosDetalleSeccionesAlmacen(CveMovimientoDetalle As Integer, CveSeccionAlmacen As Integer, Cantidad As Decimal) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenAdd")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle
+    '        .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+    '        .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
+    '    End With
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
+    '    Return Retorno
+    'End Function
+
+    'Public Function GetMovimientosDetalleSeccionesAlmacen(CveSeccionAlmacen As Integer, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenGet")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+    '        .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+    '        .Add("@CvePS", SqlDbType.Int).Value = CvePS
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
+    '    Return Retorno
+    'End Function
+
     Public Function GetExistenciaSeccionAlmacen(CveVenta As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ExistenciaSeccionAlmacenGet")
@@ -4793,23 +4805,23 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function GetKardexSeccionAlmacen(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean
+    'Public Function GetKardexSeccionAlmacen(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
+    '    Dim Retorno As Boolean = False
-        DataAdapter("PA_Inv_KardexSeccionAlmacenGet")
+    '    DataAdapter("PA_Inv_KardexSeccionAlmacenGet")
-        With SqlAdapter.SelectCommand.Parameters
+    '    With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+    '        .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+    '        .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+    '        .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '    End With
-        Try
+    '    Try
-            SqlAdapter.Fill(Data)
+    '        SqlAdapter.Fill(Data)
-            Retorno = True
+    '        Retorno = True
-        Catch ex As Exception
+    '    Catch ex As Exception
-            OnError("Ocurrió un error al obtener el kardex de seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        OnError("Ocurrió un error al obtener el kardex de seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    End Try
-        Return Retorno
+    '    Return Retorno
-    End Function
+    'End Function
     Public Function AddProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionAdd")

App_Code/ClsPaginas.vb

@@ -1181,11 +1181,11 @@ Public Class ClsPaginas
     '        Application("GlobalDTProductosServicios") = value
     '    End Set
     'End Property
-    ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1) As DataTable
+    ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1, Optional Estatus As Integer = -1) As DataTable
         Get
             Dim ObjPS As New ClsProductosServicios
 
-            If ObjPS.GetPS(CvePS, -1, CveEmpresa, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta) Then
+            If ObjPS.GetPS(CvePS, -1, CveEmpresa, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta, pEstado:=Estatus) Then
                 GlobalDTPS = ObjPS.DtResultados
             Else
                 GlobalDTPS = Nothing
@@ -1634,7 +1634,7 @@ Public Class ClsPaginas
             Application("GlobalDTClientesCorporativo") = value
         End Set
     End Property
-    Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable
+    Property GlobalDTCompProveedores(CveEmpresa As Integer, Optional CveProveedor As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa)
             'sino existe, recarga los datos
@@ -1645,7 +1645,11 @@ Public Class ClsPaginas
             End If
 
             If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+                Dim StrSQL As New StringBuilder
+                StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+                If CveProveedor >= 0 Then StrSQL.AppendFormat(" AND CveProveedor = {0} ", CveProveedor)
+
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTCompProveedores = Dv.ToTable
                 Dv.Dispose()
             Else
@@ -1730,10 +1734,21 @@ Public Class ClsPaginas
             Application("GlobalDTInvConceptos") = value
         End Set
     End Property
-    Property GlobalDTSeccionAlmacen(CveEmpresa As Integer) As DataTable
+    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 Dv As New DataView(DirectCast(Application("GlobalDTSeccionAlmacen"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+                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
@@ -1742,7 +1757,8 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Application("GlobalDTSeccionAlmacen") = value
+            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
@@ -4298,7 +4314,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Inventarios/RepConsignaciones.aspx".ToUpper(), 364)
             PaginaDict.Add("/Inventarios/RepAlmacenCompras.aspx".ToUpper(), 375)
             PaginaDict.Add("/Inventarios/RepAlmacen.aspx".ToUpper(), 376)
-            PaginaDict.Add("/Inventarios/RecepcionEntrega.aspx".ToUpper(), 387)
+            PaginaDict.Add("/Inventarios/EntregaAlmacen.aspx".ToUpper(), 387)
             PaginaDict.Add("/Inventarios/RepUMEquivalencia.aspx".ToUpper(), 399)
             PaginaDict.Add("/Inventarios/ResguardoMaterial.aspx".ToUpper(), 562)
             PaginaDict.Add("/Inventarios/RepMaximoMinimo.aspx".ToUpper(), 389)
@@ -4341,7 +4357,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Inventarios/RepEntradasSalidas2.aspx".ToUpper(), -1)
             ' PaginaDict.Add("/Inventarios/RecepcionUsados.aspx".ToUpper(), 1202)
             PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
-            PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
+            PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892)
             PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
 
 #End Region
@@ -7191,10 +7207,15 @@ Public Class ClsPaginas
                 End If
 
                 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
+                Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
+                Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))
                 Dim FirmaSol As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioSol))
-                params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol))).AbsoluteUri, "")))
+                params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, RutaVirtuaSol, "")))
+
+                Dim RutaFisicaAut As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut)
+                Dim RutaVirtuaAut As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaAut))
                 Dim FirmaAut As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioAut))
-                params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut))).AbsoluteUri, "")))
+                params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, RutaVirtuaAut, "")))
 
                 If Archivo.Exists Then
                     bytes = StreamPDF(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta), DtDetalle, params, $"OC_{ObjOC.Folio.ToString}", RDSName:="DsOC", MR:=MR)

App_Code/ClsProductosServicios.vb

@@ -1345,7 +1345,27 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
+    Public Function UpdateAplicaSeccionAlmacen(CvePS As Integer, CveEmpresa As Integer, AplicaSeccionAlmacen As Boolean) As Boolean
+        Dim Retorno As Boolean = False
 
+        DataAdapter("PA_Gral_ProductosServiciosSeccionAlmacenUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@AplicaSeccionAlmacen", SqlDbType.Bit).Value = AplicaSeccionAlmacen
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar aplica seccion almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
 
     Public Function GetMarcas(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False

App_Code/Modelos.vb

@@ -1796,12 +1796,12 @@ Namespace Modelos
 
                     If Dr("CveTipoInvPS").ToString.ToEntero = 5 Then
                         For Each Dr2 As DataRow In DtContratosSerieDetalle.FiltraParametros($"ConsecId = {Dr("CveContratoDetalle")}").Rows
-                            Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, Me.CveEmpresa, CveAlmacenExistenciasContrato, SerieLote:=Dr2("Serie").ToString, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=Me.CveSubProyecto, ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
+                            Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, Me.CveEmpresa, CveAlmacenExistenciasContrato, Serie:=Dr2("Serie").ToString, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=Me.CveSubProyecto, ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
                             If Existencia < 1 Then
                                 Return False
                             End If
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr2("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, Serie:=Dr2("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                                 Return False
                             End If
                         Next
@@ -1826,7 +1826,7 @@ Namespace Modelos
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                             Return False
                         End If
                     Next
@@ -1840,7 +1840,7 @@ Namespace Modelos
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                             Return False
                         End If
                     Next
@@ -3399,7 +3399,7 @@ Namespace Modelos
                             End If
 
                             If CveProducto > 0 Then
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, Serie:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                                     OcurrioError = True
                                     ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
                                     Exit For
@@ -3672,7 +3672,7 @@ Namespace Modelos
                         Exit For
                     End If
 
-                    If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then
+                    If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Lote:=SerieLote, 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, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").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("SerieLote").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, Batch:=Dr("Batch").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, Dr("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=Dr("Lote").ToString) Then
                                             ErrorCancelar = True
                                             Exit For
                                         End If
@@ -4954,7 +4954,7 @@ Namespace Modelos
                                 'ENTRADA POR TRAPASO A ENTREGA POR ADELANTADO
                                 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, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then
+                                        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, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, 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, Batch:=DrRem("Batch").ToString) Then
+                    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
                         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, Batch:=Dr("Batch").ToString) Then
+                        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
                             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, Batch:=Dr("Batch").ToString) Then
+                        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
                             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, Batch:=Dr("Batch").ToString) Then
+                                    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
                                         ErrorCancelar = True
                                         Exit For
                                     End If

App_Code/WS_PuntoVenta.vb

@@ -1346,8 +1346,8 @@ Public Class WS_PuntoVenta
         Dim objInventario As New ClsInventarios
         Dim Respuesta As New RespuestaWS
 
-        If objInventario.GetSeccionesAlmacenes(-1) Then
+        If objInventario.GetSeccionesAlmacenes(CveEmpresa, -1) Then
-            Respuesta.Datos = objInventario.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", CveEmpresa))
+            Respuesta.Datos = objInventario.DtResultados '.FiltraParametros(String.Format("CveEmpresa={0}", CveEmpresa))
             Respuesta.Datos.TableName = "Inv_SeccionesAlmacenes"
             Respuesta.HuboError = False
         End If

App_Code/modExtensiones.vb

@@ -29,12 +29,10 @@ Imports System.Web.Http.Controllers
 Imports System.Net.Http
 Imports System.Net
 
-Namespace Extensiones
+Namespace Extensiones
-
+
 #Region "E X T E N S I O N E S"
     Public Module ModExtensiones
-
-        'Public Const DirectorioBaseEmpresas As String = "C:\inetpub\"
         Public ReadOnly Property DirectorioBaseEmpresas As String
             Get
                 If IsNothing(System.Configuration.ConfigurationManager.AppSettings("DirectorioBaseEmpresas")) Then
@@ -44,13 +42,23 @@ Namespace Extensiones
                 End If
             End Get
         End Property
-        Public ReadOnly DirectorioEmpresas As String = String.Format("{0}Empresas\", DirectorioBaseEmpresas)
+        Public ReadOnly DirectorioEmpresas As String = String.Format("{0}Empresas\", DirectorioBaseEmpresas)
+
+        Public ReadOnly Property GOOGLE_MAPS_API_KEY As String
+            Get
+                If IsNothing(System.Configuration.ConfigurationManager.AppSettings("GOOGLE_MAPS_API_KEY")) Then
+                    Return ""
+                Else
+                    Return System.Configuration.ConfigurationManager.AppSettings("GOOGLE_MAPS_API_KEY").ToString()
+                End If
+            End Get
+        End Property
 
         Public Const IMEI As String = "IMEISISTEMAGERENCIAL"
         Public Const MinFecha As Date = #1/1/1900#
         Public Const MaxFecha As Date = #1/1/9999#
-        Public Const GlobalRowVersion As Integer = 555555
+        Public Const GlobalRowVersion As Integer = 555555
-
+
 #Region "PropiedadesEncriptación"
         Private _Key() As Byte = {}
         Private ReadOnly _IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
@@ -90,10 +98,10 @@ Namespace Extensiones
             Else
                 Return Valor
             End If
-        End Function
+        End Function
-
+
 #Region "Log"
-
+
         <Runtime.CompilerServices.Extension()>
         Public Sub GuardaLog(Str As String)
             Dim ArchivoW As StreamWriter

Bancos/RepIE.aspx.vb

@@ -535,8 +535,9 @@ Partial Class Bancos_RepIE
     End Sub
     Private Sub Imprimir(Formato As String)
 
+        Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
+        Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
 

Bancos/Reportes.aspx.vb

@@ -146,8 +146,12 @@ Partial Class Bancos_Reportes
 
                         Dim paramList As New List(Of ReportParameter)
                         With paramList
-                            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                            'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                            'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                            Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
+                            Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+                            Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
                             .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                             .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                             .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

CRM/EmpresaCRM.aspx.cs

@@ -1430,7 +1430,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                                         FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
         }else
         {
-            Alert("No tiene Etapa Proceso con el Tipo Proceso seleccionado",ModExtensiones.TipoMensaje.MsgAdvertencia);
+            Alert("No tiene 'Etapa Proceso' con el 'Proceso' seleccionado al agregar el Acercamiento",ModExtensiones.TipoMensaje.MsgAdvertencia);
         }
 
         if (CveAcercamiento > 0)

Compras/Compras.aspx.vb

@@ -1704,7 +1704,7 @@ Partial Class Compras_Compras
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
 
             Dim XMLDoc As New XmlDocument
-            Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML"))
+            Dim Archivo As String = String.Format("{0}\Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
             If IO.File.Exists(Archivo) Then
 
                 Dim Validada As Boolean = True
@@ -5277,7 +5277,7 @@ Partial Class Compras_Compras
                                                                 DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", Dr("CvePS")))
                                                                 If DtDetalle.Rows.Count > 0 Then
                                                                     For Each drr As DataRow In DtDetalle.Rows
-                                                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDecimal, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                                                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDecimal, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
                                                                             ErrorMovInv = True
                                                                             Exit For
                                                                         End If
@@ -5811,11 +5811,7 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
+
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
                                                                     End If
                                                                 Next
 
@@ -6419,11 +6415,7 @@ Partial Class Compras_Compras
                                                                                 CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
                                                                                 idCuentaContabilizacion = 0
                                                                             End If
-                                                                            'Conta SIG
+
-                                                                            If CveCuenta = 0 Then
-                                                                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
-                                                                                CveCuentaContabilizacion = 0
-                                                                            End If
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                             End If
@@ -6738,7 +6730,7 @@ Partial Class Compras_Compras
                                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador '[IPP] EL 6 DEBE SER POSITIVO 27/AGOSTO/2018
 
                                                                             'CLASIFICACION
-                                                                            If Row2("CveClasificacion").ToString.ToEntero > 0 AndAlso DdlTipoComprobante.SelectedValue = "FAC" Then
+                                                                            If Row2("CveClasificacion").ToString.ToEntero > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" Then
 
                                                                                 If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then
                                                                                     If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then
@@ -6749,9 +6741,13 @@ Partial Class Compras_Compras
                                                                                         '  CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
                                                                                     End If
                                                                                 End If
+                                                                                'Conta ContPAQ
+
                                                                             End If
-
+                                                                            'If IdCtaContable = 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" Then
-
+                                                                            '    CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
+                                                                            '    idCuentaContabilizacion = 0
+                                                                            'End If
 
 
                                                                             'SEGMENTO DE NEGOCIO
@@ -6763,16 +6759,6 @@ Partial Class Compras_Compras
 
                                                                             'AGREGA MOVIMIENTO
                                                                             If importeMovimiento.RoundSQL <> 0 Then
-                                                                                'Conta ContPAQ
-                                                                                If IdCtaContable = 0 Then
-                                                                                    CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                                    idCuentaContabilizacion = 0
-                                                                                End If
-                                                                                'Conta SIG
-                                                                                If CveCuenta = 0 Then
-                                                                                    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                                    CveCuentaContabilizacion = 0
-                                                                                End If
 
                                                                                 Dim tcvecon As Integer = 6
                                                                                 Dim tidctacon As Integer = 6
@@ -6810,9 +6796,6 @@ Partial Class Compras_Compras
                                                                                 End If
 
 
-
-
-
                                                                             End If
 
                                                                         Next
@@ -6890,11 +6873,6 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
 
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
@@ -7150,11 +7128,6 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                            idCuentaContabilizacion = 0
-                                                                        End If
 
                                                                         'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
                                                                         If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
@@ -7485,11 +7458,6 @@ Partial Class Compras_Compras
                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                             idCuentaContabilizacion = 0
                                                         End If
-                                                        'COnta SIG
-                                                        If CveCuenta = 0 Then
-                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                            CveCuentaContabilizacion = 0
-                                                        End If
 
                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
                                                             ErrorPrepoliza = True
@@ -9130,11 +9098,6 @@ Partial Class Compras_Compras
                                                     CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                     idCuentaContabilizacion = 0
                                                 End If
-                                                'Conta SIG
-                                                If CveCuenta = 0 Then
-                                                    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                    CveCuentaContabilizacion = 0
-                                                End If
 
                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                     ErrorMovtosCxP = 1

Compras/EvaluacionProveedor.aspx.vb

@@ -354,7 +354,7 @@ Partial Class Compras_EvaluacionProveedor
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes))
-        ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", Now.Year))
+        ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", Now.Year.ToString))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Calificacion}}", Calificacion))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Resultado}}", Resultado))
         'ListaTagsDocumentost.Add(New TagsDocumentos("{{Usuario}}", UsuarioActual.Nombre))

Compras/eFacturas.aspx.vb

@@ -619,7 +619,7 @@ Partial Class Compras_eFacturas
             txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
 
             Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", ModExtensiones.DirectorioBaseEmpresas ,UsuarioActual.CveEmpresa & "\Compras\"
-            Ejecutable = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Utilerias\ADSUtilerias.exe")
+            Ejecutable = "C:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe"
             Form.DefaultButton = BtnConsultar.UniqueID
 
             DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
@@ -1269,7 +1269,7 @@ Partial Class Compras_eFacturas
         End If
         ObjDatos.Dispose()
 
-        If DT IsNot Nothing Then
+        If dt IsNot Nothing Then
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
@@ -1329,7 +1329,8 @@ Partial Class Compras_eFacturas
             filemove = fileItem.filename
 
             If filemove <> "" Then
-                filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
+                'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
+                filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa))
                 'AGREGA XML A LA LISTA
                 If FileExtension.ToUpper = "XML" Then
                     ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove))
@@ -1339,7 +1340,7 @@ Partial Class Compras_eFacturas
         Next
 
 
-        Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp\Facturas", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa))
+        Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp\Facturas", Extensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa))
 
         Dim ListaDirectoriosTemporales As New List(Of String)
         Dim ListaComprimidos As New List(Of String)

Contabilidad/CatPeriodosBloqueo.aspx.vb

@@ -140,7 +140,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo
                 Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion)
             Else
                 Dim mensajeAlerta As String = AplicarBloqueso.Replace(";", Environment.NewLine)
-                Alert("Ocurrió un error al Actualizar el Periodo de Bloqueo " & Environment.NewLine & mensajeAlerta, TipoMensaje.MsgError)
+                Alert(String.Format("No se puede bloquear el periodo por: <br/>{0} ", mensajeAlerta), TipoMensaje.MsgError)
             End If
         End If
 

Contabilidad/RepIEPS.aspx.vb

@@ -30,6 +30,18 @@ Partial Class Contabilidad_RepIEPS
         Dim ObjConta As New ClsContabilidad()
         If ObjConta.GetRepIEPS(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlTipoOperacion.SelectedValue, DdlModalidad.SelectedValue.ToEntero(), DdlLimite.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.Copy()
+
+            If ObjConta.GetProductosSinIEPS(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa) Then
+                Dim DtProductos As DataTable = ObjConta.DtResultados.Copy
+                If DtProductos.Rows.Count > 0 Then
+                    Dim ProductosIEPS As String = "<strong>Los siguientes productos o servicios no tienen especificado alguno de los siguientes campos en relación al IEPS: Empaque, presentación o toxicidad</strong><br/><br/>"
+                    For Each producto As DataRow In DtProductos.Rows
+                        ProductosIEPS = String.Format("{0}<br/>{1}", ProductosIEPS, producto("CodigoPS"))
+                    Next
+                    Alert(ProductosIEPS, TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
         End If
         ObjConta.Dispose()
         If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
@@ -40,9 +52,9 @@ Partial Class Contabilidad_RepIEPS
                 DtDatos = DtDatos.FiltraParametros("TipoDato in (1,2)")
             End If
             GvDatos.DataSource = DtDatos
-                GvDatos.DataBind()
+            GvDatos.DataBind()
-            Else
+        Else
-                Alert("No se encontraron resultados en la consulta")
+            Alert("No se encontraron resultados en la consulta")
         End If
         UpDatos.Update()
         UpLnkAcciones.Update()

Contratos/Contrato.aspx.vb

@@ -1201,7 +1201,7 @@ Partial Class Contratos_Default
 
         If DdlMoneda.SelectedIndex > 0 Then
             If TxtTipoCambio.Text.Trim.Length = 0 Or TxtTipoCambio.Text.Trim.ToDouble = 0.0 Then
-                Alert("Cuando seleccione una moneda diferencte a peso debe especificar el tipo de cambio.", TipoMensaje.MsgAdvertencia)
+                Alert("Cuando seleccione una moneda diferente a peso debe especificar el tipo de cambio.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
         End If

GPS/Busqueda.aspx

@@ -513,9 +513,7 @@
 
         }
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
 </asp:Content>
 
 

GPS/CatRemisionesVehiculos.aspx

@@ -266,8 +266,6 @@
 
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
 </asp:Content>
 

GPS/EntradasSalidasGR.aspx

@@ -632,11 +632,6 @@
         }
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
-    <%--<script
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAJnZ1CoEUX425C20aqzFw4dYxFL_LfThk&libraries=places">
-    </script>--%>
 </asp:Content>
 

GPS/GeoReferencias.aspx

@@ -769,12 +769,7 @@
         }
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=geometry&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=drawing&libraries=geometry&libraries=places">
-    </script>
-    <%-- <script
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAJnZ1CoEUX425C20aqzFw4dYxFL_LfThk&libraries=drawing&libraries=geometry&libraries=places">
-    </script>--%>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/jquery.minicolors.min.js"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/components-color-pickers.min.js"></script>
 </asp:Content>

GPS/GeoReferencias.aspx.vb

@@ -157,7 +157,8 @@ Partial Class GPS_GeoReferencias
         Finally
 
             If TieneError Then
-                ObjGPS.RollBack()
+                ObjGPS.RollBack()
+                Alert("Ocurrió un error al agregar la georeferencia", TipoMensaje.MsgError)
             Else
                 ObjGPS.Commit()
                 Alert("Se agregó correctamente la Ruta", TipoMensaje.MsgInformacion)

GPS/PuntosDeInteres.aspx

@@ -754,11 +754,7 @@
         }
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places&callback=initMap", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places&callback=initMap">
+
-    </script>
-   <%-- <script
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAJnZ1CoEUX425C20aqzFw4dYxFL_LfThk&libraries=places&callback=initMap">
-    </script>--%>
 </asp:Content>
 

GPS/Rastreo.aspx

@@ -3130,9 +3130,7 @@
             }
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/jquery.minicolors.min.js"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/components-color-pickers.min.js"></script>
     <script src="Rastreo/JS/GeoRutas.js"></script>

GPS/Rastreo.aspx.vb

@@ -1495,7 +1495,7 @@ Partial Class GPS_Rastreo
                 End If
                 'RegistraScript("CreaRuta();")
             ElseIf HdnTipo.Value = "Geocerca" Then
-                GeoRefString = $"POLYGON(({GeoCerca.Value}))"
+                GeoRefString = $"POLYGON(({GeoCerca.Value} {CommandArg.Value}))"
                 If ObjGPS.GeoReferenciaAdd(TxtNombre.Text, -1, GeoRefString, "Geocerca", True, TxtFechaIG.Text.ToDate, TxtFechaFG.Text.ToDate, chkLunes.Checked, chkMartes.Checked, chkMiercoles.Checked, chkJueves.Checked, chkViernes.Checked, chkSabado.Checked, chkDomingo.Checked, MinFecha, MaxFecha, TxtColor.Text, TxtTolerancia.Text.ToEntero, UsuarioActual.CveCliente) Then
                     For Each Dr As GridViewRow In GvEquiposDetalle.Rows
                         If Dr.RowType = DataControlRowType.DataRow Then

GPS/RastreoTrayectos.aspx

@@ -234,7 +234,7 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="JS" runat="Server">
-    <script src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places"></script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
     <script src="../Metronic/assets/global/plugins/datatables2/datatables.min.js"></script>
     <script src="../Metronic/assets/global/plugins/datatables2/extensions/Scroller/js/dataTables.scroller.js"></script>
     <script src="../Metronic/assets/global/plugins/datatables2/extensions/KeyTable/js/dataTables.keyTable.js"></script>

GPS/RepGeoReferencias.aspx

@@ -3,47 +3,47 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style type="text/css">
+    <style type="text/css">
-        html, body {
+        html, body {
-            width: 100%;
+            width: 100%;
-            height: 100%;
+            height: 100%;
-            margin: 0;
+            margin: 0;
-            padding: 0;
+            padding: 0;
-        }
+        }
-
+
-        #map {
+        #map {
-            width: 100%;
+            width: 100%;
-            height: calc(100% - 51px);
+            height: calc(100% - 51px);
-            margin: 0;
+            margin: 0;
-            padding: 0;
+            padding: 0;
-        }
+        }
-
+
-        #map {
+        #map {
-            position: fixed !important;
+            position: fixed !important;
-        }
+        }
-
+
-
+
-        .pac-container.pac-logo {
+        .pac-container.pac-logo {
-            z-index: 100000;
+            z-index: 100000;
-        }
+        }
-
+
-        #showdiv1 {
+        #showdiv1 {
-            left: 0 !important;
+            left: 0 !important;
-            width: 100% !important;
+            width: 100% !important;
-        }
+        }
-
+
-        #ShowDiv3:hover {
+        #ShowDiv3:hover {
-            line-height: 34px !important;
+            line-height: 34px !important;
-            -webkit-transition: line-height ease 1s;
+            -webkit-transition: line-height ease 1s;
-            -moz-transition: line-height ease 1s;
+            -moz-transition: line-height ease 1s;
-            -o-transition: line-height ease 1s;
+            -o-transition: line-height ease 1s;
-            transition: line-height ease 1s;
+            transition: line-height ease 1s;
-        }
+        }
-
+
-        .v-center {
+        .v-center {
-            display: flex;
+            display: flex;
-            align-items: center;
+            align-items: center;
-        }
+        }
     </style>
 </asp:Content>
 <asp:Content ContentPlaceHolderID="H" ID="Content9" runat="server">
@@ -332,10 +332,10 @@
     <script src="../Metronic/assets/layouts/layout3/scripts/jquery.datetimepicker.full.js"></script>
     <script>
         var map;
-        function initMap() {
+        function initMap() {
-            map = new google.maps.Map(document.getElementById('map'), {
+            map = new google.maps.Map(document.getElementById('map'), {
                 center: { lat: 29.0730, lng: -110.9559 },
-                zoom: 7
+                zoom: 7
             });
 
             var ShowDiv1 = document.createElement('div');
@@ -344,11 +344,11 @@
             ShowDiv1.id = "showdiv1"
             map.controls[google.maps.ControlPosition.BOTTOM_CENTER].push(ShowDiv1);
 
-            google.maps.Polygon.prototype.my_getBounds = function () {
+            google.maps.Polygon.prototype.my_getBounds = function () {
                 var bounds = new google.maps.LatLngBounds()
                 this.getPath().forEach(function (element, index) { bounds.extend(element) })
-                return bounds
+                return bounds
-            }
+            }
 
         }
         var polylines = [];
@@ -357,172 +357,172 @@
         var markers = [];
         var lastOpenedInfoWindow;
 
-        $(document).ready(function () {
+        $(document).ready(function () {
             initMap();
             $("#SideNav").removeClass("nav-is-visible");
-            $("#dvConsulta").modal({ backdrop: 'static', keyboard: false });
+            $("#dvConsulta").modal({ backdrop: 'static', keyboard: false });
         });
 
-        function creaPoligono(coords, color, Geocerca) {
+        function creaPoligono(coords, color, Geocerca) {
-            var polygon = new google.maps.Polygon({
+            var polygon = new google.maps.Polygon({
                 paths: coords,
                 strokeColor: color,
                 strokeOpacity: 0.8,
                 strokeWeight: 2,
                 fillColor: color,
-                fillOpacity: 0.35
+                fillOpacity: 0.35
             });
             polygon.setMap(map);
             polygons.push(polygon);
-            CreaMarcadorPoligono(coords, Geocerca)
+            CreaMarcadorPoligono(coords, Geocerca)
         }
 
-        function CreaMarcadorPoligono(coords, GeoCerca) {
+        function CreaMarcadorPoligono(coords, GeoCerca) {
             var bounds = new google.maps.LatLngBounds();
-            for (i = 0; i < coords.length; i++) {
+            for (i = 0; i < coords.length; i++) {
-                bounds.extend(coords[i]);
+                bounds.extend(coords[i]);
             }
 
-            var marker = new google.maps.Marker({
+            var marker = new google.maps.Marker({
                 position: bounds.getCenter(),
                 title: GeoCerca,
-                map: map
+                map: map
             });
 
-            var infowindow = new google.maps.InfoWindow({
+            var infowindow = new google.maps.InfoWindow({
-                content: '<h4><b>' + GeoCerca + '</b></h4>'
+                content: '<h4><b>' + GeoCerca + '</b></h4>'
             });
 
-            marker.addListener('click', function () {
+            marker.addListener('click', function () {
                 closeLastOpenedInfoWindow();
                 infowindow.open(map, marker);
-                lastOpenedInfoWindow = infowindow;
+                lastOpenedInfoWindow = infowindow;
             });
 
-            markers.push(marker);
+            markers.push(marker);
         }
 
-        function CenterPoligono(coords) {
+        function CenterPoligono(coords) {
             var bounds = new google.maps.LatLngBounds();
-            for (i = 0; i < coords.length; i++) {
+            for (i = 0; i < coords.length; i++) {
-                bounds.extend(coords[i]);
+                bounds.extend(coords[i]);
             }
-            map.fitBounds(bounds)
+            map.fitBounds(bounds)
         }
 
-        function closeLastOpenedInfoWindow() {
+        function closeLastOpenedInfoWindow() {
-            if (lastOpenedInfoWindow) {
+            if (lastOpenedInfoWindow) {
-                lastOpenedInfoWindow.close();
+                lastOpenedInfoWindow.close();
-            }
+            }
         }
 
-        function FitBounds() {
+        function FitBounds() {
             var bounds = new google.maps.LatLngBounds();
-            for (var i = 0; i < polygons.length; i++) {
+            for (var i = 0; i < polygons.length; i++) {
                 var paths = polygons[i].getPaths();
-                paths.forEach(function (path) {
+                paths.forEach(function (path) {
                     var ar = path.getArray();
-                    for (var i = 0, l = ar.length; i < l; i++) {
+                    for (var i = 0, l = ar.length; i < l; i++) {
-                        bounds.extend(ar[i]);
+                        bounds.extend(ar[i]);
-                    }
+                    }
-                })
+                })
             }
-            for (var i = 0; i < polybounds.length; i++) {
+            for (var i = 0; i < polybounds.length; i++) {
-                bounds.extend(polybounds[i]);
+                bounds.extend(polybounds[i]);
             }
 
-            for (var i = 0; i < markers.length; i++) {
+            for (var i = 0; i < markers.length; i++) {
-                if (markers[i].getVisible()) {
+                if (markers[i].getVisible()) {
-                    bounds.extend(markers[i].getPosition());
+                    bounds.extend(markers[i].getPosition());
-                }
+                }
             }
 
-            map.fitBounds(bounds)
+            map.fitBounds(bounds)
         }
 
-        function CreaMarcador(coords, nomEquipo, ContentString, imagen) {
+        function CreaMarcador(coords, nomEquipo, ContentString, imagen) {
             if (typeof imagen === 'undefined') { imagen = image; }
-            var marker = new google.maps.Marker({
+            var marker = new google.maps.Marker({
                 position: coords,
                 title: nomEquipo,
                 map: map,
-                icon: imagen
+                icon: imagen
             });
 
-            var infowindow = new google.maps.InfoWindow({
+            var infowindow = new google.maps.InfoWindow({
-                content: ContentString
+                content: ContentString
             });
-            marker.addListener('click', function () {
+            marker.addListener('click', function () {
                 closeLastOpenedInfoWindow();
                 infowindow.open(map, marker);
-                lastOpenedInfoWindow = infowindow;
+                lastOpenedInfoWindow = infowindow;
             });
-            markers.push(marker);
+            markers.push(marker);
         }
 
-        function creaPolyline(coords, color, GeoCerca) {
+        function creaPolyline(coords, color, GeoCerca) {
-            var polyline = new google.maps.Polyline({
+            var polyline = new google.maps.Polyline({
                 path: coords,
                 strokeColor: color,
                 strokeOpacity: 0.8,
                 strokeWeight: 2,
-                fillOpacity: 0.35
+                fillOpacity: 0.35
             });
             polyline.setMap(map);
             polylines.push(polyline);
             polybounds.push(coords[0]);
             polybounds.push(coords[coords.length - 1]);
-            CreaMarcadorPoligono(coords, GeoCerca);
+            CreaMarcadorPoligono(coords, GeoCerca);
         }
 
-        function NuevaConsulta() {
+        function NuevaConsulta() {
-            for (var i = 0; i < polygons.length; i++) {
+            for (var i = 0; i < polygons.length; i++) {
-                polygons[i].setMap(null);
+                polygons[i].setMap(null);
             }
             polygons = [];
-            for (var i = 0; i < polylines.length; i++) {
+            for (var i = 0; i < polylines.length; i++) {
-                polylines[i].setMap(null);
+                polylines[i].setMap(null);
             }
 
-            for (var i = 0; i < markers.length; i++) {
+            for (var i = 0; i < markers.length; i++) {
-                markers[i].setMap(null);
+                markers[i].setMap(null);
             }
             polylines = [];
             polybounds = [];
             markers = [];
-            $("#dvConsulta").modal({ backdrop: 'static', keyboard: false })
+            $("#dvConsulta").modal({ backdrop: 'static', keyboard: false })
         }
 
-        function fitBoundsToVisibleMarkers() {
+        function fitBoundsToVisibleMarkers() {
 
             var bounds = new google.maps.LatLngBounds();
 
-            for (var i = 0; i < polygons.length; i++) {
+            for (var i = 0; i < polygons.length; i++) {
-                bounds.extend(polygons[i].my_getBounds().getCenter())
+                bounds.extend(polygons[i].my_getBounds().getCenter())
 
             }
-            for (var i = 0; i < markers.length; i++) {
+            for (var i = 0; i < markers.length; i++) {
-                if (markers[i].getVisible()) {
+                if (markers[i].getVisible()) {
-                    bounds.extend(markers[i].getPosition());
+                    bounds.extend(markers[i].getPosition());
-                }
+                }
             }
 
 
 
-            map.fitBounds(bounds);
+            map.fitBounds(bounds);
 
         }
 
-        function CargaPickers() {
+        function CargaPickers() {
             $.datetimepicker.setLocale('es');
-            $('input.ADDateTimePicker').each(function () {
+            $('input.ADDateTimePicker').each(function () {
                 var TThis = $(this);
-                TThis.datetimepicker({
+                TThis.datetimepicker({
                     dayOfWeekStart: 1,
                     lang: 'es',
                     format: 'd/m/Y H:i',
                     formatDate: 'd/m/Y H:i',
-                    step: 30
+                    step: 30
                 });
                 var Div = TThis.parent()
                 var boton = document.createElement('span');
@@ -531,42 +531,42 @@
                 var subboton = document.createElement('a')
                 subboton.className = "btn default"
                 subboton.innerHTML = "<i class='fa fa-calendar'></i>"
-                subboton.addEventListener('click', function () {
+                subboton.addEventListener('click', function () {
-                    TThis.datetimepicker('show')
+                    TThis.datetimepicker('show')
                 });
                 boton.appendChild(subboton)
 
-                Div[0].appendChild(boton)
+                Div[0].appendChild(boton)
 
-            });
+            });
 
 
         }
 
-        function DisplayGV() {
+        function DisplayGV() {
-            if ($("#C_chkUp").prop('checked')) {
+            if ($("#C_chkUp").prop('checked')) {
-                ($("#dvDispositivos").css('display', ''))
+                ($("#dvDispositivos").css('display', ''))
-            } else {
+            } else {
-                ($("#dvDispositivos").css('display', 'none'))
+                ($("#dvDispositivos").css('display', 'none'))
-            }
+            }
         }
 
-        function CargaModal() {
+        function CargaModal() {
-            $('#C_TxtHoraI').datetimepicker({
+            $('#C_TxtHoraI').datetimepicker({
                 datepicker: false,
                 lang: 'es',
                 format: 'H:i',
                 formatDate: 'H:i',
-                step: 30
+                step: 30
             });
-            $('#C_TxtHoraF').datetimepicker({
+            $('#C_TxtHoraF').datetimepicker({
                 datepicker: false,
                 lang: 'es',
                 format: 'H:i',
                 formatDate: 'H:i',
-                step: 30
+                step: 30
             });
-            $('#dvEditar').modal()
+            $('#dvEditar').modal()
         }
 
         function ShowDiv(controlDiv, map) {
@@ -599,35 +599,30 @@
             controlUI.appendChild(controlText);
 
             // Setup the click event listeners: simply set the map to Chicago.
-            controlUI.addEventListener('click', function () {
+            controlUI.addEventListener('click', function () {
-                FNShowDiv();
+                FNShowDiv();
-            });
+            });
 
         }
 
         var open = false;
-        function FNShowDiv() {
+        function FNShowDiv() {
-            if (open === false) {
+            if (open === false) {
                 $("#h").modal()
                 $("#ShowDiv3").css("line-height", "34px")
                 open = true
-                $("#ShowDiv3").html('<i class="fa fa-angle-down" aria-hidden="true"></i>')
+                $("#ShowDiv3").html('<i class="fa fa-angle-down" aria-hidden="true"></i>')
-            } else {
+            } else {
                 $("#h").modal('hide')
                 $("#ShowDiv3").css("line-height", "20px")
                 open = false
-                $("#ShowDiv3").html('<i class="fa fa-angle-up" aria-hidden="true"></i>')
+                $("#ShowDiv3").html('<i class="fa fa-angle-up" aria-hidden="true"></i>')
-            }
+            }
         }
 
 
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
-    <%--<script
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAJnZ1CoEUX425C20aqzFw4dYxFL_LfThk&libraries=places">
-    </script>--%>
 </asp:Content>
 

GPS/RepPuntosDeInteres.aspx

@@ -356,11 +356,6 @@
         }
 
     </script>
-       <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places&callback=initMap", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places&callback=initMap">
-    </script>
-   <%-- <script
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAJnZ1CoEUX425C20aqzFw4dYxFL_LfThk&libraries=places&callback=initMap">
-    </script>--%>
 </asp:Content>
 

GPS/Shipments.aspx

@@ -731,8 +731,6 @@
             }
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
 </asp:Content>
 

GPS/TrayectoDetalle.aspx

@@ -725,8 +725,6 @@
 
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
 </asp:Content>
 

GPS/Trayectos.aspx

@@ -1333,8 +1333,6 @@
             });
         }
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
 </asp:Content>
 

Global.asax

@@ -193,8 +193,8 @@
         'I N V E N T A R I O S 
 
         Dim Objinventarios As New ClsInventarios
-        If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
+        If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
-        If Objinventarios.GetSeccionesAlmacenes(-1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
+        If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
         If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
         If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
         Objinventarios.Dispose()

Inventarios/AjustesSeccionAlmacen.aspx

@@ -0,0 +1,70 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="AjustesSeccionAlmacen.aspx.vb" Inherits="Inventarios_AjustesSeccionAlmacen" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+    Ajustes de Productos en Secciones de Almacen
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+     <asp:UpdatePanel runat="server" ID="UpFiltraEntrega" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <div class="portlet solid  grey-cascade portlet-filter">
+                            <div class="portlet-title portlet-filterT smalltitle magindate">
+                                <div class="tools">
+                                    <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-default" />
+                                </div>
+                                <div class="titlefiltros caption ">
+                                     
+                                         <label class="col-md-1 truncate" style="text-align: right;">Almacen:</label>
+                                            <div class="col-md-3">
+                                                <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="300px"></asp:DropDownList>
+                                            </div>
+                                        
+                                         <label class="col-md-1 truncate" style="text-align: right;">Clasificacion:</label>
+                                            <div class="col-md-3">
+                                             <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="300px" ></asp:DropDownList>
+                                      </div>
+                                    
+                                </div>
+                            </div>
+                        </div>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+                <br />
+      <asp:UpdatePanel runat="server" ID="UppD" UpdateMode="Conditional">
+                    <ContentTemplate>
+                    <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,CveSeccionAlmacen,FechaCaducidad,Lote" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
+                            <Columns>                                 
+                                <asp:BoundField HeaderText="Producto" DataField="CodigoPS"  />                               
+                                <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />
+                                <asp:BoundField HeaderText="Sección Actual" DataField="AlmacenSeccion" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###.##}"  ItemStyle-Width="5%" />
+                                <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">                                   
+                                    <ItemTemplate>
+                                        <asp:CheckBox ID="Chk" Checked="true" runat="server" ></asp:CheckBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                  <asp:TemplateField HeaderText="Nueva Seccion" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                                    <ItemTemplate>
+                                        <asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveAlmacenSeccion" DataTextField="AlmacenSeccion" class="select2me"></asp:DropDownList>
+                                       
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+                        <asp:Button ID="BtnCambiarSeccion" runat="server" Text="Cambiar Sección"  CssClass="btn btn-primary" />
+
+  </ContentTemplate>
+                </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -0,0 +1,144 @@
+
+Imports System.Data
+Imports Extensiones
+
+Partial Class Inventarios_AjustesSeccionAlmacen
+    Inherits ClsPaginas
+
+    Private Sub Inventarios_AjustesSeccionAlmacen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+        End If
+    End Sub
+
+    Private Sub CargaCombos()
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        DdlAlmacen.DataBind()
+
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjInv As New ClsInventarios
+
+        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvD.DataSource = ObjInv.DtResultados
+        End If
+
+        ObjInv.Dispose()
+        GvD.DataBind()
+        UppD.Update()
+    End Sub
+
+    Private Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+            e.Row.FCDropDownList("DDlS").DataBind()
+
+        End If
+    End Sub
+
+    Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click
+        Dim ObjInventario As New ClsInventarios
+        Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL)
+        Dim Dtt As DataTable = Nothing
+        Dim CveMovimientoEntrada As Integer = 0
+        Dim Folio = 0
+        Dim ErrorMovInv As Boolean = False
+        Dim TextoError = ""
+        Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
+
+
+
+        Dim Fecha As Date = DateTime.Now
+        'AGREGAMOS LA ENTRADA
+        Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+                                                          Observaciones:="", Modulo:="ASA/G1")
+        Folio = ObjInventario.Folio
+
+        If CveMovimientoSalida <= 0 Then
+            TextoError = "No se pudo generar el movimiento de salida correctamente"
+            ErrorMovInv = True
+        Else
+
+            Dim CveMovimientoDetalleEntrada As Integer = 0
+            Dim Cont As Integer = 0
+            For Each gvr As GridViewRow In GvD.Rows
+
+                'que este seleccionado y que tenga diferente seccion
+                If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCDropDownList("DDlS").SelectedValue.ToEntero <> gvr.DataKey("CveSeccionAlmacen").ToEntero Then
+
+                    If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
+                        ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
+                    End If
+
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.DataKey("Existencia").ToDecimal, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
+                        ErrorMovInv = True
+                        TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                        Exit For
+                    End If
+
+                End If
+
+            Next
+
+            If Not ErrorMovInv Then
+
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+
+                    Dim resultado As DataTable = ObjInventario.DtResultados
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="ASA/G1")
+                    Dim ind As Integer = 0
+
+                    For Each Row As DataRow In resultado.Rows
+                        Dim CvePS = Row("CvePS").ToString().ToEntero()
+                        Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                        Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
+                        Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
+                        Dim CveSeccionAlmacen As Integer = GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
+                        Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal()
+                        Dim Serie As String = Row("Serie").ToString()
+                        Dim Lote As String = Row("Lote").ToString()
+                        Dim FechaCaducidad As Date = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
+
+                        'actualizamos el PS, para que tenga el aplica seccion
+
+                        ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+                        ind += 1
+                    Next
+                    resultado.Dispose()
+
+                Else
+                    TextoError = "No se pudo registrar el movimiento"
+                    ErrorMovInv = True
+                End If
+
+            End If
+
+        End If
+
+
+        If Not ErrorMovInv Then
+            ObjInventario.Commit()
+            cargadatos
+            Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
+        Else
+            ObjInventario.RollBack()
+            Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError)
+        End If
+
+        ObjInventario.Dispose()
+    End Sub
+End Class

Inventarios/Apartados.aspx

@@ -86,9 +86,8 @@
                                         <div class="row">
                                             <label class="col-md-2">Cliente:</label>
                                             <div class="col-md-3">
-                                                <asp:DropDownList ID="DdlCliente" OnSelectedIndexChanged="DdlCliente_SelectedIndexChanged" AutoPostBack="true" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes"  OnSelectedIndexChanged="DdlCliente_SelectedIndexChanged" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
-                                                <asp:RequiredFieldValidator ID="RFVCliente" runat="server" ControlToValidate="DdlCliente" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                             </ADS:Dropdownlost>
-                                                <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RFVCliente" Width="350px"></ajax:ValidatorCalloutExtender>
                                             </div>
                                             <label class="col-md-2">Vendedor:</label>
                                             <div class="col-md-3">
@@ -210,6 +209,12 @@
                                         <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
                                     </asp:Panel>
                                 </td>
+                                <td runat="server" id="TdSeccionAlmacen" visible="false">
+                                    <asp:Panel runat="server" DefaultButton="BtnSeccionAddNew">
+                                         
+                                        <asp:DropDownlist runat="server" DataTextField="Seccion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me" />
+                                    </asp:Panel>
+                                </td>
                                 <td align="center">
                                     <asp:LinkButton ID="LbAgregar" runat="server" CssClass="Texto" ValidationGroup="GrpAgregar" Text="Agregar" />
                                 </td>
@@ -232,7 +237,7 @@
                                     <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="90px" />
                                     <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                         <ItemTemplate>
-                                            <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                            ssss
                                         </ItemTemplate>
                                     </asp:TemplateField>
                                     <asp:TemplateField>
@@ -391,7 +396,7 @@
                                             <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="20%" />
                                             <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                                 <ItemTemplate>
-                                                    <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacenDestino_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                                    ssss
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                         </Columns>
@@ -421,74 +426,7 @@
 
     </ajax:TabContainer>
 
-    <%--SECCION DE ALMACEN--%>
+ 
-    <div id="DModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalSeccionAlmacen" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlSeccionAlmacen" Text="Sección Almacen" runat="server"> </asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-2">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCantidadSeccion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvCantidadSeccion" runat="server" ControlToValidate="TxtCantidadSeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoCantidadSeccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvCantidadSeccion"></ajax:ValidatorCalloutExtender>
-                                    <asp:RangeValidator ID="RVTxtCantidad" runat="server" ControlToValidate="TxtCantidadSeccion" MinimumValue="0" MaximumValue="1" Type="Double" Text="<b><span style='text-decoration: underline'>ERROR:</span></b><br />No cuenta con la cantidad suficiente." ValidationGroup="VgmSeccion" />
-                                    <label for="<%= TxtCantidadSeccion.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-4" runat="server" id="DivSeccionAlmacenOrigen">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenOrigen" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacenOrigen" runat="server" ControlToValidate="DdlSeccionAlmacenOrigen" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen Origen''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoSeccionAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacenOrigen"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacenOrigen.ClientID.ToString()%>">Sección Almacen O.:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-4" runat="server" id="DivSeccionAlmacenDestino" visible="false">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenDestino" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacenDestino" runat="server" ControlToValidate="DdlSeccionAlmacenDestino" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen Destino''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VceSeccionAlmacenDestino" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacenDestino"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacenDestino.ClientID.ToString()%>">Sección Almacen D.:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-2">
-                                <asp:LinkButton ID="LnkAddSeccionAlmacen" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " OnClick="LnkAddSeccionAlmacen_Click" data-placement="top" ToolTip="Agregar Sección Almacen" runat="server" ValidationGroup="VgmSeccion"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:LinkButton>
-                            </div>
-                        </div>
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <asp:GridView ID="GvSeccion" runat="server" GridLines="None" ShowHeaderWhenEmpty="true"
-                                    CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true"
-                                    AutoGenerateColumns="False" EmptyDataText="No se han agregado datos"
-                                    DataKeyNames="Consec">
-                                    <Columns>
-                                        <asp:BoundField DataField="CantidadSeccionAlmacen" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
-                                        <asp:BoundField DataField="SeccionAlmacenOrigen" HeaderText="Sección Almacen Origen" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:BoundField DataField="SeccionAlmacenDestino" HeaderText="Sección Almacen Destino" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEliminarSeccion" runat="server" OnClick="LnkEliminarSeccion_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la sección?" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>

Inventarios/Apartados.aspx.vb

@@ -136,8 +136,7 @@ Partial Class Inventarios_Apartados
         CantidadTotal = 0
         IndexSeccionAlmacen = 0
         CvePS = 0
-        CreaDtSeccionAlmacen()
+
-        CargaDdlAlmacen()
         TipoSeccionAlmacen = 0
 
         GvDatos.Columns(5).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
@@ -166,9 +165,20 @@ Partial Class Inventarios_Apartados
 
         CargaPS()
 
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-        DdlCliente.DataBind()
+        If EsWS Then
-        DdlCliente.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+            DdlClientes.setEsWebService(True)
+        Else
+            DdlClientes.setEsWebService(False)
+            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientes.DataBind()
+            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+
+        'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+        'DdlCliente.DataBind()
+        'DdlCliente.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
 
         DdlClienteDesapartado.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
         DdlClienteDesapartado.DataBind()
@@ -255,7 +265,7 @@ Partial Class Inventarios_Apartados
         TxtnSerieLote.Visible = False
 
         If DdlProducto2.SelectedValue.ToEntero > 0 Then
-            If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltraParametros("Inv_CveMetodoInventario = 5 ", "PSCodigo").Rows.Count > 0 Then
+            If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltraParametros("Inv_CveMetodoInventario = 5 OR AplicaSerie = 1 ", "PSCodigo").Rows.Count > 0 Then
                 ThSerieLote.Visible = True
                 TdSerieLote.Visible = True
                 TxtnSerieLote.Visible = True
@@ -269,9 +279,7 @@ Partial Class Inventarios_Apartados
         UpDatos.Update()
 
     End Sub
-    Private Function isWhitFamily() As Boolean
+
-        Return (UsuarioActual.CveEmpresa = 66)
-    End Function
     Protected Sub DdlClasificacion_GV(sender As Object, e As System.EventArgs)
         Dim pDdlClasificacion As DropDownList = CType(sender, DropDownList)
         Dim pDdlProducto As DropDownList = CType(pDdlClasificacion.NamingContainer.FindControl("DdlProducto"), DropDownList)
@@ -345,7 +353,7 @@ Partial Class Inventarios_Apartados
     End Sub
     Private Sub SeleccionaVendedor()
         DdlVendedor.SelectedValue = "-1"
-        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveVendedor", $"CveCliente = {DdlCliente.SelectedValue}"))
+        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveVendedor", $"CveCliente = {DdlClientes.SelectedValue}"))
     End Sub
 #End Region
 
@@ -650,7 +658,7 @@ Partial Class Inventarios_Apartados
 
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
         CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                          Observaciones:=TxtObservaciones.Text.Trim, Recibio:="", CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=DdlCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
+                                                          Observaciones:=TxtObservaciones.Text.Trim, Recibio:="", CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=DdlClientes.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
         FolioSalida = ObjInventario.Folio
         Dim Cont As Integer = 0
         If CveMovimientoSalida <= 0 Then
@@ -662,16 +670,7 @@ Partial Class Inventarios_Apartados
                     ErrorMovInv = True
                     TextoError = "Ocurrió un error al guardar los movimientos de salida"
                     Exit For
-                Else
+
-                    If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                        For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
-                            If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                ErrorMovInv = True
-                                TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                Exit For
-                            End If
-                        Next
-                    End If
                 End If
                 Cont += 1
             Next
@@ -683,7 +682,7 @@ Partial Class Inventarios_Apartados
             AlmacenEntrada = DdlAlmacenDestino.SelectedValue.ToEntero
             CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                Observaciones:=TxtObservaciones.Text.Trim, Recibio:="-1",
-                                                               CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=DdlCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
+                                                               CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=DdlClientes.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
             FolioEntrada = ObjInventario.Folio
             If CveMovimientoEntrada <= 0 Then
                 TextoError = "No se pudo generar el movimiento de entrada correctamente"
@@ -691,20 +690,11 @@ Partial Class Inventarios_Apartados
             Else
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, 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) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                             Exit For
-                        Else
+
-                            If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
-                                    If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                        ErrorMovInv = True
-                                        TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                        Exit For
-                                    End If
-                                Next
-                            End If
                         End If
                         Cont += 1
                     Next
@@ -754,7 +744,7 @@ Partial Class Inventarios_Apartados
         DdlSubProyecto.SelectedValue = "-1"
         CargaAlmacenes()
 
-        DdlCliente.SelectedValue = "-1"
+        DdlClientes.SelectedValue = "-1"
         SeleccionaVendedor()
 
         CargadoDeMov = False
@@ -910,16 +900,6 @@ Partial Class Inventarios_Apartados
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
-                    Else
-                        If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                            For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
-                                If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                    ErrorMovInv = True
-                                    TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                    Exit For
-                                End If
-                            Next
-                        End If
                     End If
                 End If
                 Cont += 1
@@ -938,20 +918,10 @@ Partial Class Inventarios_Apartados
             Else
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, 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) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                             Exit For
-                        Else
-                            If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
-                                    If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                        ErrorMovInv = True
-                                        TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                        Exit For
-                                    End If
-                                Next
-                            End If
                         End If
                         Cont += 1
                     Next
@@ -989,203 +959,6 @@ Partial Class Inventarios_Apartados
 
 #End Region
 
-#Region "SECCION ALMACEN"
-    Private Sub CreaDtSeccionAlmacen()
-        DtSeccionAlmacen = New DataTable
-        DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
-        DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenOrigen", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenDestino", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenOrigen", GetType(String))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenDestino", GetType(String))
-        DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("TipoSeccionAlmacen", GetType(Integer))
-    End Sub
-    Private Sub CargaDdlAlmacen()
-        DdlSeccionAlmacenOrigen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacenOrigen.DataBind()
-
-        DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacenDestino.DataBind()
-    End Sub
-    Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-        If Not DdlAlmacenOrigen.SelectedValue.ToEntero > 0 Then
-            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen origen.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'If Not DdlAlmacenDestino.SelectedValue.ToEntero > 0 AndAlso Not ChkTransitorio.Checked Then
-        '    Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-        GvSeccion.Columns(2).Visible = True
-        DivSeccionAlmacenDestino.Visible = True
-
-        DivSeccionAlmacenOrigen.Visible = True
-        GvSeccion.Columns(1).Visible = True
-
-        CantidadTotal = gvRow.DataKey("Cantidad").ToDecimal
-        IndexSeccionAlmacen = gvRow.RowIndex
-        CvePS = gvRow.DataKey("CvePS").ToEntero
-        TipoSeccionAlmacen = 1
-        CargaSeccionAlmacen()
-        RegistraScript("$('#DModalSeccionAlmacen').modal()")
-    End Sub
-
-    Protected Sub LnkSeccionAlmacenDestino_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-        Dim CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
-        If Not CveAlmacenApartado > 0 Then
-            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        DivSeccionAlmacenOrigen.Visible = True
-        DivSeccionAlmacenDestino.Visible = True
-        GvSeccion.Columns(1).Visible = True
-        GvSeccion.Columns(2).Visible = True
-
-        CantidadTotal = gvRow.FCTextBox("TxtCantidad").Text.ToDecimal
-        IndexSeccionAlmacen = gvRow.RowIndex
-        CvePS = gvRow.DataKey("CvePS").ToEntero
-        TipoSeccionAlmacen = 2
-        CargaSeccionAlmacen()
-        RegistraScript("$('#DModalSeccionAlmacen').modal()")
-
-    End Sub
-
-    Private Sub CargaSeccionAlmacen()
-        Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-        GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}  AND TipoSeccionAlmacen = {TipoSeccionAlmacen}")
-        GvSeccion.DataBind()
-
-        TxtCantidadSeccion.Text = ""
-        DdlSeccionAlmacenOrigen.SelectedIndex = 0
-        DdlSeccionAlmacenDestino.SelectedIndex = 0
-        Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
-        If CantidadRestante = 0 Then
-            RVTxtCantidad.MaximumValue = "1"
-            TxtCantidadSeccion.Enabled = False
-        Else
-            RVTxtCantidad.MaximumValue = CantidadRestante.ToString
-            TxtCantidadSeccion.Enabled = True
-        End If
-
-        If TipoSeccionAlmacen = 1 Then
-            If CantidadTotalSeccion > 0 Then
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
-            Else
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = ""
-            End If
-            If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
-                DdlAlmacenOrigen.Enabled = False
-                DdlAlmacenOrigen.ToolTip = "Cuenta con sección almacen"
-            Else
-                DdlAlmacenOrigen.Enabled = True
-                DdlAlmacenOrigen.ToolTip = ""
-            End If
-            UpDatos.Update()
-        ElseIf TipoSeccionAlmacen = 2 Then
-            If CantidadTotalSeccion > 0 Then
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = False
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = "Cuenta con sección almacen"
-            Else
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = True
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = ""
-            End If
-
-            UpDatosDesapartado.Update()
-        End If
-
-        UpModalSeccionAlmacen.Update()
-    End Sub
-
-    Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        Dim CveAlmacenApartado As Integer = 0
-        If TipoSeccionAlmacen = 2 Then
-            CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
-        End If
-        Dim ObjInv As New ClsInventarios
-        Dim CantidadDisponible As Decimal = 0
-        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacenOrigen.SelectedValue.ToEntero, If(TipoSeccionAlmacen = 1, DdlAlmacenOrigen.SelectedValue.ToEntero, CveAlmacenApartado),
-                                                        CvePS, UsuarioActual.CveEmpresa) Then
-            If ObjInv.DtResultados.Rows.Count > 0 Then
-                CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
-            End If
-        End If
-        ObjInv.Dispose()
-
-        CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacenOrigen = {DdlSeccionAlmacenOrigen.SelectedValue} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-
-        If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
-            Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        Dim Row As DataRow = Nothing
-        DtSeccionAlmacen.AcceptChanges()
-        Row = DtSeccionAlmacen.NewRow
-        Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
-        Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
-        Row("CveSeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedValue.ToEntero
-        Row("SeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedItem.Text
-        Row("CveSeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedValue.ToEntero
-        Row("SeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedItem.Text
-        Row("CvePS") = CvePS
-        Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
-        Row("TipoSeccionAlmacen") = TipoSeccionAlmacen
-        DtSeccionAlmacen.Rows.Add(Row)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        Dim Index As Integer = 0
-        For Each Dr As DataRow In DtSeccionAlmacen.Rows
-            If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
-                Exit For
-            End If
-            Index += 1
-        Next
-        DtSeccionAlmacen.Rows.RemoveAt(Index)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
-    '    If Not CveVentaSurtir > 0 Then
-    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    Dim ObjInv As New ClsInventarios
-    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
-    '    End If
-    '    ObjInv.Dispose()
-    '    GvVerSeccionesAlmacen.DataBind()
-    '    UpVerSeccionesAlmacen.Update()
-    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
-    'End Sub
-
-#End Region
-
-
 
 
 

Inventarios/CatSeccionesAlmacenes.aspx.vb

@@ -29,9 +29,9 @@ Partial Class Inventarios_CatSeccionesAlmacenes
 
     Public Sub CargaDatos()
         Dim ObjSeccion As New ClsInventarios
-        If ObjSeccion.GetSeccionesAlmacenes(-1) Then
+        If ObjSeccion.GetSeccionesAlmacenes(-1, -1) Then
             ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
+            GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
         Else
             GvDatos.DataSource = Nothing
         End If
@@ -62,7 +62,7 @@ Partial Class Inventarios_CatSeccionesAlmacenes
             Alert("La Seccion se guardó correctamente.", TipoMensaje.MsgInformacion)
 
             ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
+            GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -108,7 +108,7 @@ Partial Class Inventarios_CatSeccionesAlmacenes
             DdlAlmacen.SelectedIndex = 0
             Alert("La Seccion se actualizo correctamente.", TipoMensaje.MsgInformacion)
             ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
+            GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
         End If
 
         ObjSeccion.Dispose()
@@ -134,7 +134,7 @@ Partial Class Inventarios_CatSeccionesAlmacenes
         If ObjSeccion.RemoveSeccion(GvRow.DataKey("CveSeccion").ToString.ToEntero) Then
             Alert("La Seccion se elimino correctamente.", TipoMensaje.MsgInformacion)
             ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
+            GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
         End If
         ObjSeccion.Dispose()
         If ViewState("Orden").ToString() <> String.Empty Then

Inventarios/EntradasSalidas.aspx

@@ -146,7 +146,6 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Información del movimiento
-                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style='display:none;'")%>>
@@ -276,10 +275,9 @@
                                         <div class="row">
                                             <label class="col-md-1 truncate" style="width: 110px">
                                                 Observaciones:
-                                           
                                             </label>
                                             <div class="col-md-5">
-                                                <asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="232"></asp:TextBox>
+                                                <asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="232"></asp:TextBox>                                               
                                             </div>
                                         </div>
                                         <div class="row" id="TrPersonal" runat="server" visible="false">
@@ -333,7 +331,6 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Agregar Producto
-                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body">
@@ -408,14 +405,12 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Información de registro
-                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body">
                                     <div class="row">
                                         <label class="col-md-3 truncate">
                                             Usuario:
-                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:Label ID="LblUsuarioRegistro" runat="server"></asp:Label>
@@ -425,7 +420,6 @@
                                     <div class="row" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Fecha:
-                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:Label ID="LblFechaRegistro" runat="server"></asp:Label>
@@ -434,7 +428,6 @@
                                     <div class="row" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Referencia:
-                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:HyperLink ID="HplCompra" Target="_blank" runat="server" Visible="False" CssClass="Texto">Ver Compra</asp:HyperLink>
@@ -447,7 +440,6 @@
                                     <div class="row" runat="server" id="RowConsignacion" visible="false" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Consignación:
-                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:HyperLink ID="HLConsignacion" Target="_blank" NavigateUrl="#" Text="" runat="server" />
@@ -457,7 +449,6 @@
                                     <div class="row" runat="server" id="RowTipoCambio" visible="false" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Tipo Cambio:
-                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:Label Text="" ID="LbTipoCambio" runat="server" />
@@ -466,7 +457,6 @@
                                     <div class="row" runat="server" id="RowMtoRel" visible="false" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Mto. Rel.:
-                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:HyperLink ID="lnkMtoRelaioando" CssClass="Texto" runat="server" Target="_blank">ver</asp:HyperLink>
@@ -484,7 +474,6 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Tipo de Cambio
-                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body">
@@ -553,94 +542,13 @@
             <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
 
-                    <%--<table border="0" cellpadding="0" class="Widthall grides" cellspacing="0">
-                        <tbody>
-                            <tr class="Titulos">
-                                <th style="width: 28px">#</th>
-                                <th style="width: 63px">Cant</th>
-                                <th style="width: 200px">Clasificación<br />
-                                    Producto </th>
-                                <th width="73px">U.M.</th>
-                                <th width="63px" id="tdPU" runat="server" visible="false">P.U.</th>
-                                <th width="63px" id="tdCI" runat="server" visible="false">CI</th>
-                                <th style="width: 88px" runat="server" id="TrSerieLote2" visible="false">
-                                    <asp:Label runat="server" ID="LblSerieLote" Visible="false">Serie - Lote</asp:Label></th>
-                                <th style="width: 88px" runat="server" id="TrLote2" visible="false">Lote</th>
-                                <th style="width: 88px" runat="server" id="TrBatch2" visible="false">Batch</th>
-                                <th style="width: 88px" runat="server" id="TrSeccionAlmacen2" visible="false">Sección Almacén</th>
-                                <th style="width: 90px;">Observaciones</th>
-                                <th style="width: 73px;"></th>
-                            </tr>
-                            <tr align="center">
-                                <td></td>
-                                <td>--%>
-                    <%--<asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
-                                    <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
-                                    <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                                </td>
-                                <td style="text-align: center;">
-                                    <div class="psagregar">
-                                        <div class="comboxes">
-                                        </div>
-                                    </div>
-                                </td>
-                                <td>
-                                    <asp:DropDownList ID="DdlUnidad" runat="server" Class="table-group-action-input form-control input-inline input-sm" Style="width: 75px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida"></asp:DropDownList>
-                                    <asp:CompareValidator ID="CVUnidad" runat="server" ControlToValidate="ddlUnidad" Type="Integer" Operator="GreaterThan" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad Medida''</b> es necesario, por favor selecione una." Display="None" ValueToCompare="0" ValidationGroup="GprAgregaPS"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVUnidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                                </td>
-                                <td id="tdTxtPU" runat="server" visible="false">
-                                    <asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="55px" Visible="false"></asp:TextBox>
-                                    <ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="txtPrecio" FilterType="Custom, Numbers" ValidChars="+-.," />
-                                </td>
-                                <td id="TdTotal" runat="server" visible="false"></td>
-                                <td id="tdCI2" runat="server" visible="false"></td>
-                                <td id="tdAF" runat="server" align="center" visible="false">
-                                    <asp:UpdatePanel ID="UPPNumEcon" runat="server" UpdateMode="Conditional">
-                                        <ContentTemplate>
-                                            <asp:Button Text="VinculaAF" Style="display: none;" OnClick="BtnVinculaAF_Click" ClientIDMode="Static" ID="BtnVinculaAF" runat="server" />
-                                            <asp:HiddenField ID="HdnCveActivoFijo" Value="-1" runat="server" ClientIDMode="Static" />
-                                            <asp:HiddenField ID="HdnCodigoAF" Value="-1" runat="server" ClientIDMode="Static" />
-
-                                            <asp:TextBox ID="LblCodigo" runat="server" Text="" onkeyup="EnterAF(event);" onblur="AFBlur();" ClientIDMode="Static" Width="40px"></asp:TextBox>
-                                            <asp:HyperLink ID="HplMaq" runat="server" ClientIDMode="Static"><img alt="Activo Fijo" width="20px" height="20px" src="/Imagenes/Maquinaria.jpg" style="cursor:pointer;" onclick="AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OC',950,600,'N');"/></asp:HyperLink>
-
-                                        </ContentTemplate>
-                                    </asp:UpdatePanel>
-                                </td>
-                                <td runat="server" id="TrSerieLote" visible="false">
-                                    <asp:Panel runat="server" DefaultButton="BtnSerieAddNew">
-                                        <asp:TextBox ID="TxtnSerieLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
-                                        <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
-                                    </asp:Panel>
-                                </td>
-                                <td runat="server" id="TrLote" visible="false">
-                                    <asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
-                                </td>
-                                <td runat="server" id="TrBatch" visible="false">
-                                    
-                                </td>
-                                <td runat="server" id="TrSeccionAlmacen" visible="false">
-                                    
-                                </td>
-                                <td>
-                                    <asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
-                                </td>
-                                <td align="center">
-                                    <asp:LinkButton ID="LbAgregar" runat="server" CssClass="btn btn-default" ValidationGroup="GprAgregaPS" Text="Agregar" />
-                                </td>
-                            </tr>
-                        </tbody>
-                    </table>--%>
                     <div class="row">
                         <div class="col-md-12" align="Right">
                             <asp:LinkButton ID="LkAgregar" runat="server" CssClass="btn btn-default" Text="Agregar Producto" />
                         </div>
                     </div>
                     <br />
+
                     <div class="row">
                         <div class="col-md-12" align="right">
                             <asp:Label ID="LbTotalMovimientos" Text="Total de Movimientos: 0" runat="server" />
@@ -654,21 +562,9 @@
                             <asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
                             <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
 
-                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="True" EmptyDataText="Aún no hay registros."
+                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="True" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
-                                DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,SerieLote,CveSeccionAlmacen"
-                                AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
                                 <Columns>
-                                    <asp:TemplateField HeaderText="CveMovimientoDetalle" ItemStyle-Font-Size="6pt" Visible="false">
+                                    <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
-                                        <ItemTemplate>
-                                            <asp:Literal ID="lbMovimientoDetalle" runat="server" Text='<%# Eval("CveMovimientoDetalle")%>'></asp:Literal>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="CvePS" ItemStyle-Font-Size="6pt" Visible="false">
-                                        <ItemTemplate>
-                                            <asp:Literal ID="lbCvePS" runat="server" Text='<%# Eval("CvePS")%>'></asp:Literal>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="#" ItemStyle-Font-Size="6pt">
                                         <EditItemTemplate>
                                             <asp:Literal ID="lbNo" runat="server" Text='<%# Eval("No")%>'></asp:Literal>
                                         </EditItemTemplate>
@@ -687,7 +583,7 @@
                                         </ItemTemplate>
                                         <ItemStyle Width="43px"></ItemStyle>
                                     </asp:TemplateField>
-                                    <asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
                                     <asp:TemplateField HeaderText="Unidad">
                                         <ItemTemplate>
                                             <asp:Literal ID="lbUnidad" runat="server" Text='<%# Eval("UnidadMedida")%>'></asp:Literal>
@@ -752,12 +648,12 @@
                                         </ItemTemplate>
                                         <ItemStyle Width="60px" HorizontalAlign="Center" />
                                     </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="SerieLote" Visible="false">
+                                    <asp:TemplateField HeaderText="Serie" Visible="false">
                                         <EditItemTemplate>
-                                            <asp:TextBox ID="TxtSerieLote" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("SerieLote")%>' Style="text-align: right;"></asp:TextBox>
+                                            <asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("Serie")%>' Style="text-align: right;"></asp:TextBox>
                                         </EditItemTemplate>
                                         <ItemTemplate>
-                                            <asp:Literal ID="lbSerieLote" runat="server" Text='<%# Eval("SerieLote")%>'></asp:Literal>
+                                            <asp:Literal ID="lbSerie" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
                                         </ItemTemplate>
                                         <ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
                                         <FooterStyle HorizontalAlign="Right"></FooterStyle>
@@ -771,16 +667,11 @@
                                         </ItemTemplate>
                                         <ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
                                         <FooterStyle HorizontalAlign="Right"></FooterStyle>
-                                    </asp:TemplateField>
+                                    </asp:TemplateField>       
-                                    <asp:TemplateField HeaderText="Batch" Visible="false">
+                                     <asp:TemplateField HeaderText="Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
-                                        <EditItemTemplate>
-                                            <asp:TextBox ID="TxtBatch" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("Batch")%>' Style="text-align: right;"></asp:TextBox>
-                                        </EditItemTemplate>
                                         <ItemTemplate>
-                                            <asp:Literal ID="LbBatch" runat="server" Text='<%# Eval("Batch")%>'></asp:Literal>
+                                            <asp:Literal ID="LbCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
-                                        <FooterStyle HorizontalAlign="Right"></FooterStyle>
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Sección Almacén" Visible="false">
                                         <EditItemTemplate>
@@ -803,17 +694,8 @@
                                         <ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
                                         <FooterStyle HorizontalAlign="Right"></FooterStyle>
                                     </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                                   
-                                        <ItemTemplate>
+                                    <asp:TemplateField>
-                                            <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:TemplateField ItemStyle-Width="20px">
-                                        <ItemTemplate>
-                                            <asp:LinkButton ID="ImgEd" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="EditPS" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:TemplateField Visible="false">
                                         <EditItemTemplate>
                                             <center>
                                                 <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
@@ -821,7 +703,7 @@
                                             </center>
                                         </EditItemTemplate>
                                         <ItemTemplate>
-                                            <%--<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />--%>
+                                            <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                             <asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" OnClick="DeleteRow" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
                                             <asp:LinkButton ID="lnkDividir" runat="server" AlternateText="Eliminar" OnClick="DividirRow" CommandArgument='<%# Eval("No")%>' Style="font-size: 9px" CssClass="btn btn-circle btn-sm red" Text="<i class='fas fa-chart-pie-alt'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea dividir el concepto en unidades?" data-btn-ok-label="si" />
                                         </ItemTemplate>
@@ -975,7 +857,6 @@
                                         <div class="row">
                                             <div class="col-md-5" style="text-align: right;">
                                                 Cantidad
-                                           
                                             </div>
                                             <div class="col-md-7">
                                                 <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox>
@@ -1417,7 +1298,6 @@
                         </div>
                     </div>
                     </div>
-               
                 </ContentTemplate>
                 <Triggers>
                     <asp:PostBackTrigger ControlID="LbDescargarExcelConceptos" />
@@ -1425,93 +1305,8 @@
             </asp:UpdatePanel>
         </div>
     </div>
-
+	
-    <div id="divDescripcion" class="modal ADS fade" role="dialog">
+	<div id="ModalAgregar" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpDescripcion" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header">
-                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
-                        </button>
-                        <h4 class="modal-title" id="myModalLabel" runat="server">Motivo</h4>
-                    </div>
-                    <div class="modal-body">
-                        <div>
-                            <br />
-                            <label>Descripción:</label>
-                            <asp:TextBox ID="TxtDescripcion" runat="server" Height="100" Width="600" TextMode="MultiLine" CausesValidation="true" MaxLength="500"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVTxtDescripcion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                        </div>
-                    </div>
-                    <div class="modal-footer">
-                        <asp:LinkButton ID="BtnRemove" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> Eliminar</asp:LinkButton>
-                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
-    <%--SECCION DE ALMACEN--%>
-    <div id="DModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalSeccionAlmacen" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlSeccionAlmacen" Text="Sección Almacen" runat="server"> </asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-4">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCantidadSeccion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvCantidadSeccion" runat="server" ControlToValidate="TxtCantidadSeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoCantidadSeccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvCantidadSeccion"></ajax:ValidatorCalloutExtender>
-                                    <asp:RangeValidator ID="RVTxtCantidad" runat="server" ControlToValidate="TxtCantidadSeccion" MinimumValue="0" MaximumValue="1" Type="Double" Text="<b><span style='text-decoration: underline'>ERROR:</span></b><br />No cuenta con la cantidad suficiente." ValidationGroup="VgmSeccion" />
-                                    <label for="<%= TxtCantidadSeccion.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-6">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenModal" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacen" runat="server" ControlToValidate="DdlSeccionAlmacen" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoSeccionAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacen"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacen:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-2">
-                                <asp:LinkButton ID="LnkAddSeccionAlmacen" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " OnClick="LnkAddSeccionAlmacen_Click" data-placement="top" ToolTip="Agregar Sección Almacen" runat="server" ValidationGroup="VgmSeccion"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:LinkButton>
-                            </div>
-                        </div>
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <asp:GridView ID="GvSeccionAlmacen" runat="server" GridLines="None" ShowHeaderWhenEmpty="true"
-                                    CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true"
-                                    AutoGenerateColumns="False" EmptyDataText="No se han agregado datos"
-                                    DataKeyNames="Consec">
-                                    <Columns>
-                                        <asp:BoundField DataField="CantidadSeccionAlmacen" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
-                                        <asp:BoundField DataField="SeccionAlmacen" HeaderText="Sección Almacen" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEliminarSeccion" runat="server" OnClick="LnkEliminarSeccion_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la sección?" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
-    <div id="ModalAgregar" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpAgregar" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-content">
@@ -1549,22 +1344,17 @@
                             <label for="<%= txtPrecio.ClientID.ToString()%>">P.U.</label>
                             <br />
                         </div>
-                        <div runat="server" id="divSerieLote" class="form-group form-md-line-input input-iconright" visible="false">
+                        <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
-                            <asp:TextBox ID="TxtnSerieLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                            <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                             <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
-                            <label for="<%= TxtnSerieLote.ClientID.ToString()%>">Serie Lote</label>
+                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie Lote</label>
                             <br />
                         </div>
                         <div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                             <label for="<%= TxtnLote.ClientID.ToString()%>">Lote</label>
                             <br />
-                        </div>
+                        </div>                       
-                        <div runat="server" id="divBatch" class="form-group form-md-line-input input-iconright" visible="false">
-                            <asp:TextBox ID="TxtnBatch" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
-                            <label for="<%= TxtnBatch.ClientID.ToString()%>">Batch</label>
-                            <br />
-                        </div>
                         <div runat="server" id="divSeccionAlmacen" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -1617,6 +1407,36 @@
         </asp:UpdatePanel>
     </div>
 
+
+    <div id="divDescripcion" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpDescripcion" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="myModalLabel" runat="server">Motivo</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div>
+                            <br />
+                            <label>Descripción:</label>
+                            <asp:TextBox ID="TxtDescripcion" runat="server" Height="100" Width="600" TextMode="MultiLine" CausesValidation="true" MaxLength="500"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVTxtDescripcion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="BtnRemove" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> Eliminar</asp:LinkButton>
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+     
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">

Inventarios/EntregaAlmacen.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RecepcionEntrega.aspx.vb" Inherits="Inventarios_RecepcionEntrega" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -275,7 +275,7 @@
                                             <asp:TextBox ID="TxtFechaPendientes" runat="server" CausesValidation="true" MaxLength="10" ValidationGroup="GrpPendientes" Width="70px" ClientIDMode="Static"></asp:TextBox>
                                             <asp:LinkButton ID="ImgFechaPendientes" Style="background-color: white;" class="btn default " Text="<i style='width:16px; height:16px;' class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                             <ajax:MaskedEditExtender ID="MEEFechaPendientes" runat="server" TargetControlID="TxtFechaPendientes" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                            <ajax:CalendarExtender runat="server" ID="CEFechaPendientes" TargetControlID="TxtFechaPendientes" PopupButtonID="ImgFechaPendientes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CEFechaPendientes" TargetControlID="TxtFechaPendientes" PopupButtonID="ImgFechaPendientes" PopupPosition="BottomLeft" Enabled="True"></ajax:CalendarExtender>
                                             <asp:RequiredFieldValidator ID="RFVFechaPendientes" runat="server" ControlToValidate="TxtFechaPendientes" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPendientes"></asp:RequiredFieldValidator>
                                             <asp:CompareValidator ID="CVFechaPendientes" runat="server" ControlToValidate="TxtFechaPendientes" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpPendientes"></asp:CompareValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCOFecha1Pendientes" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPendientes" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -408,14 +408,6 @@
                         </ContentTemplate>
                     </asp:UpdatePanel>
 
-                    <div class="row">
-                        <div class="col-md-12">
-                             <div class="btn-group pull-right">
-                            <asp:Button ID="LnkVerSecciones" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="LnkVerSecciones_Click" runat="server" Text="Ver Secciones" />
-                        </div>
-                        </div>
-                    </div>
-
                     <div class="row">
                         <div class="col-md-12">
                              <div class="btn-group pull-right">
@@ -426,7 +418,7 @@
 
                     <%--GV DATOS--%>
                     <asp:GridView ID="GvDatos" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True" 
-                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
                         <HeaderStyle Height="58px" />
                         <Columns>
                             <asp:TemplateField>
@@ -436,63 +428,19 @@
                                 <ItemStyle HorizontalAlign="Center" Width="5%" />
                             </asp:TemplateField>
                             <asp:BoundField HeaderText="Cant. Venta" DataField="CantidadC" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
-                            <%--<asp:TemplateField HeaderText="Cantidad Venta" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Right">
+                           
-                                <ItemTemplate>
-                                    <asp:Label ID="lbCantidadC" runat="server" Width="60px" ClientIDMode="Static"
-                                        Mask="9,999.99" Text='<%# Eval("CantidadC", "{0:N2}")%>'>
-                                    </asp:Label>
-                                </ItemTemplate>
-                                <HeaderStyle CssClass="Titulos" />
-                            </asp:TemplateField>--%>
                             <asp:BoundField HeaderText="Cant. Surtida" DataField="CantidadS" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
                             <asp:TemplateField HeaderText="Cant. a Surtir" ItemStyle-Width="10%">
                                 <ItemTemplate>
-                                    <asp:TextBox ID="TbCantidadF" runat="server" Width="60px" Mask="9,999.99" Text="0"></asp:TextBox>                                    
+                                    <asp:TextBox ID="TbCantidadF" runat="server" Width="60px" Mask="9,999.99" Text='<%# Eval("CantidadF") %>'></asp:TextBox>                                    
-                                    <asp:Button Text="Serie" ID="BtnSerieLote" OnClick="BtnSerieLote_Click" CssClass="btn btn-primary btn-xs" runat="server" />
+                                    <asp:Button Text="Serie" ID="BtnSerie" OnClick="BtnSerie_Click" CssClass="btn btn-primary btn-xs" runat="server" />
                                 </ItemTemplate>
                                 <HeaderStyle CssClass="Titulos" />
                             </asp:TemplateField>
                             <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
                             <asp:HyperLinkField HeaderText="Producto o Servicio" Target="_blank" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="35%" />
                             <asp:BoundField HeaderText="Observación" DataField="ObservacionesDetalle" ItemStyle-Width="7.5%" />
-                            <%--<asp:BoundField HeaderText="P.U." DataField="PU" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />--%>
+                           
-                            <%--<asp:TemplateField HeaderText="Almacén">
-                                        <HeaderStyle HorizontalAlign="Left" />
-                                        <HeaderTemplate>
-                                            <div style="padding-left: 24px; font-size: 12px;">
-                                                <asp:Label ID="lbAlmacen" runat="server" Text="Almacén"></asp:Label>
-                                                <div style="padding-top: 5px">
-                                                    <asp:DropDownList ID="ddlPAlmacen" runat="server" Style="vertical-align: middle;" Width="100px" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
-                                                    <asp:ImageButton ID="ImgAlmacen" runat="server" ToolTip="Aplicar Almacen" OnClick="ImgAlmacen_Click" ImageUrl="/Imagenes/abajo.png" Style="vertical-align: middle;" />
-                                                </div>
-                                            </div>
-                                        </HeaderTemplate>
-                                        <ItemTemplate>
-                                            <div style="padding-left: 5px">
-                                                <asp:DropDownList ID="ddlEAlmacen" runat="server" Width="100px" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList></td>
-                                            </div>
-                                        </ItemTemplate>
-                                        <ItemStyle Width="15%"></ItemStyle>
-                                    </asp:TemplateField>--%>
-                            <%--<asp:TemplateField>
-                                        <ItemTemplate>
-                                            <asp:Image ID="btnImgDestino" runat="server" ToolTip="Asigna una cantidad a otro Almacén " AlternateText="" ImageUrl="~/Imagenes/transfer.png" />
-                                        </ItemTemplate>
-                                        <ItemStyle HorizontalAlign="Center" Width="5%" />
-                                    </asp:TemplateField>--%>
-                            <%--<asp:BoundField HeaderText="Sección Almacén" DataField="" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />--%>
-                            <asp:TemplateField HeaderText="Sección Almacén">
-                                <ItemTemplate>
-                                    <asp:LinkButton ID="LBSeccionAlmacen" Text="Ver Sección Almacén" OnClick="LBSeccionAlmacen_Click" runat="server" />
-                                    <%--<asp:Label Text="1 <br/> 2 <br/> 3 <br/> 4 <br/>" runat="server" ID="LbSeccionAlmacen"></asp:Label>--%>
-                                </ItemTemplate>
-                            </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
-                                <ItemTemplate>
-                                    <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
-                                </ItemTemplate>
-                            </asp:TemplateField>
-
                              <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                 <ItemTemplate>
                                     <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" DataValueField="CveSeccion" CssClass="select2me" Style="width: 85% !important" runat="server" CausesValidation="true" Visible="false">
@@ -508,7 +456,7 @@
                             <asp:TemplateField HeaderText="Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
                                 <ItemTemplate>
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                        <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server" Visible="false"></asp:TextBox>
+                                        <asp:TextBox ID="TxtCaducidad" Text='<%# Eval("Caducidad") %>' CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server" Visible="false"></asp:TextBox>
                                         <span class="input-group-btn ">
                                             <asp:LinkButton runat="server" ID="LnkCaducidad" class="btn default" Visible="false"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
                                         </span>
@@ -549,64 +497,6 @@
     </asp:UpdatePanel>
 
 
-    <%--SECCION DE ALMACEN--%>
-    <div id="DModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalSeccionAlmacen" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlSeccionAlmacen" Text="Sección Almacen" runat="server"> </asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-4">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCantidadSeccion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvCantidadSeccion" runat="server" ControlToValidate="TxtCantidadSeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoCantidadSeccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvCantidadSeccion"></ajax:ValidatorCalloutExtender>
-                                     <asp:RangeValidator ID="RVTxtCantidad" runat="server" ControlToValidate="TxtCantidadSeccion" MinimumValue="0" MaximumValue="1" Type="Double" Text="<b><span style='text-decoration: underline'>ERROR:</span></b><br />No cuenta con la cantidad suficiente." ValidationGroup="VgmSeccion" />
-                                    <label for="<%= TxtCantidadSeccion.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-6">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacen" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server"  DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacen" runat="server" ControlToValidate="DdlSeccionAlmacen" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoSeccionAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacen"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacen:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-2">
-                                <asp:LinkButton ID="LnkAddSeccionAlmacen" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " OnClick="LnkAddSeccionAlmacen_Click" data-placement="top" ToolTip="Agregar Sección Almacen" runat="server" ValidationGroup="VgmSeccion"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:LinkButton>
-                            </div>
-                        </div>
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <asp:GridView ID="GvSeccion" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" 
-                                    CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" 
-                                    AutoGenerateColumns="False" EmptyDataText="No se han agregado datos"
-                                    DataKeyNames="Consec">
-                                    <Columns>
-                                        <asp:BoundField DataField="CantidadSeccionAlmacen" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
-                                        <asp:BoundField DataField="SeccionAlmacen" HeaderText="Sección Almacen" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEliminarSeccion" runat="server" OnClick="LnkEliminarSeccion_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la sección?" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
     <%--AGREGA POR SERIE--%>
     <div id="DivSerie" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -637,11 +527,11 @@
                                     </td>
                                 </tr>
                                 <tr>
-                                    <td width="80px">Serie/Lote:</td>
+                                    <td width="80px">Serie:</td>
                                     <td>
-                                        <asp:TextBox runat="server" ID="TxtSerieLote" ClientIDMode="Static" Width="200px" />
+                                        <asp:TextBox runat="server" ID="TxtSerie" ClientIDMode="Static" Width="200px" />
-                                        <asp:RequiredFieldValidator ID="RFVSerieLote" runat="server" ControlToValidate="TxtSerieLote" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie/Lote''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCESerieLote" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerieLote" Width="300px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </td>
                                     <td width="80px" runat="server" id="TdCaducidad1">Fecha Caducidad:</td>
                                     <td runat="server" id="TdCaducidad2">
@@ -658,7 +548,7 @@
                                 <tr>
                                     <td colspan="3">
                                         <code>
-                                            <asp:Label ID="LbSerieLoteRecomendado" Text="Serie/Lote Recomendado: <b>PS2505</b>, Caducicdad: <b>25/04/2016</b>" runat="server" />
+                                            <asp:Label ID="LbSerieRecomendado" Text="Serie/Lote Recomendado: <b>PS2505</b>, Caducicdad: <b>25/04/2016</b>" runat="server" />
                                         </code>
                                     </td>
                                     <td align="right">
@@ -667,9 +557,9 @@
                                 </tr>
                                 <tr>
                                     <td colspan="4">
-                                        <asp:GridView ID="GvSerie" DataKey="SerieLote" DataKeyNames="SerieLote" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="100" data-freezerows="1" GridLines="None">
+                                        <asp:GridView ID="GvSerie" DataKey="Serie" DataKeyNames="Serie" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="100" data-freezerows="1" GridLines="None">
                                             <Columns>
-                                                <asp:BoundField HeaderText="Serie-Folio" DataField="SerieLote" ItemStyle-Width="40%" />
+                                                <asp:BoundField HeaderText="Serie-Folio" DataField="Serie" ItemStyle-Width="40%" />
                                                 <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-Width="40%" />
                                                 <asp:TemplateField HeaderText="Eliminar">
                                                     <ItemTemplate>
@@ -764,8 +654,7 @@
                                         <asp:GridView ID="GvLote" DataKeyNames="Lote" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="100" data-freezerows="1" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="20%" />
-                                                <asp:BoundField HeaderText="Folio" DataField="Lote" ItemStyle-Width="20%" />
+                                                <asp:BoundField HeaderText="Folio" DataField="Lote" ItemStyle-Width="20%" />                                             
-                                                <asp:BoundField HeaderText="Batch" DataField="Batch" ItemStyle-Width="20%" />
                                                 <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-Width="20%" />
                                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center">
                                                     <ItemTemplate>
@@ -870,58 +759,7 @@
             <asp:Button runat="server" ID="BtnNumeroGuia" ClientIDMode="static" />
         </ContentTemplate>
     </asp:UpdatePanel>
-
+            
-    <%--MODAL SECCION ALMACEN--%>
-    <div id="ModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel ID="UpSeccionAlmacen" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header">
-                        <button type="button" class="close" data-dismiss="modal">&times;</button>
-                        <h4 class="modal-title">Seccion Almacén</h4>
-                    </div>
-                    <div class="modal-body">
-                        <asp:GridView ID="GVSeccionAlmacen" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None">
-                            <Columns>
-                                <asp:BoundField HeaderText="Seccion" DataField="Seccion" ItemStyle-Width="30%" />
-                                <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-Width="40%" DataFormatString="{0:d}" />
-                                <asp:BoundField HeaderText="Existencia" DataField="Existencia" ItemStyle-Width="30%" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
-                            </Columns>
-                        </asp:GridView>
-                    </div>
-                    <div class="modal-footer">
-                        <button id="CancelarSeccionAlmacen" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
-    <div id="ModalVerSeccionesAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel ID="UpVerSeccionesAlmacen" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header">
-                        <button type="button" class="close" data-dismiss="modal">&times;</button>
-                        <h4 class="modal-title">Sección Almacen</h4>
-                    </div>
-                    <div class="modal-body">
-                        <asp:GridView ID="GvVerSeccionesAlmacen" runat="server" EmptyDataText="No se encontraron registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None">
-                            <Columns>
-                                <asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left"/>
-                                <asp:BoundField HeaderText="Sección Almacen" DataField="AlmacenSeccion" ItemStyle-HorizontalAlign="Left" />
-                                <asp:BoundField HeaderText="Cantidad" DataField="Cantidad"  DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
-                            </Columns>
-                        </asp:GridView>
-                    </div>
-                    <div class="modal-footer">
-                        <button id="CancelarVerSeccionesAlmacen" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
     <div id="ModalVerSugerencias" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpVerSugerencias" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
             <ContentTemplate>

Inventarios/Kardex.aspx

@@ -374,17 +374,29 @@
                         </ItemTemplate>
                         <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Serie/Lote" Visible="false">
+                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false">
                         <ItemTemplate>
-                            <asp:Literal ID="lbSL" runat="server" Text='<%# Eval("SerieLote")%>'></asp:Literal>
+                            <asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
                         </ItemTemplate>
                         <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Serie" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="lbS" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
+                        </ItemTemplate>
+                        <ItemStyle Width="100px"></ItemStyle>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Lote" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="lbL" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
+                        </ItemTemplate>
+                        <ItemStyle Width="70"></ItemStyle>
+                    </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lbFCad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}")%>' data-toggle="tooltip"></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle Width="100px"></ItemStyle>
+                        <ItemStyle Width="75px"></ItemStyle>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
                         <ItemTemplate>

Inventarios/Kardex.aspx.vb

@@ -34,11 +34,6 @@ Partial Class Inventarios_Kardex
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
 
-            If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 13, 66) Then
-                GvM.Columns(6).Visible = True ' SerieLote
-                GvM.Columns(7).Visible = True ' FCaducidad
-            End If
-
             If UsuarioActual.TienePermisoProceso(258) Then GvM.Columns(1).Visible = True
 
             ddlAlmacen.SelectedValue = If(Request("CveAlmacen") IsNot Nothing, Request("CveAlmacen").ToString, "-1")
@@ -69,9 +64,9 @@ Partial Class Inventarios_Kardex
 
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(11).Visible = TienePermisoImportes ' costo
+        GvM.Columns(13).Visible = TienePermisoImportes ' costo
-        GvM.Columns(12).Visible = TienePermisoImportes ' importe
+        GvM.Columns(14).Visible = TienePermisoImportes ' importe
-        GvM.Columns(14).Visible = TienePermisoImportes ' valor
+        GvM.Columns(16).Visible = TienePermisoImportes ' valor
     End Sub
 
     Private Function isWithFamily() As Boolean
@@ -197,6 +192,16 @@ Partial Class Inventarios_Kardex
         If CveProducto > 0 Then
             Dim DtTemp = CargarKardex(CveProducto)
             If DtTemp IsNot Nothing Then
+                Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
+                AplicaSerie = DtTemp.MAX("Serie") <> ""
+                AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
+                AplicaLote = DtTemp.MAX("Lote") <> ""
+                AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> ""
+                If AplicaSeccion Then GvM.Columns(7).Visible = True
+                If AplicaSerie Then GvM.Columns(8).Visible = True
+                If AplicaLote Then GvM.Columns(9).Visible = True
+                If AplicaCaducidad Then GvM.Columns(10).Visible = True
+
                 'CARGA INDICADORES
                 If UsuarioActual.TienePermisoProceso(201) Then
                     DivIndicadores.Visible = True

Inventarios/KardexSeccionAlmacen.aspx

@@ -1,140 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexSeccionAlmacen.aspx.vb" Inherits="Inventarios_KardexSeccionAlmacen" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Kardex Secciones de Almacen
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-
-    <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
-                <div class="portlet-title portlet-filterT smalltitle">
-                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" OnClick="BtnConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript:;" class="expand"></a>
-                    </div>
-                    <div class="titlefiltros  caption">
-                        <div class="row">
-                            <label class="col-md-1 ">Producto/Servicio:</label>
-                            <div class="col-md-2">
-                                <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" style="width: 100%;" CssClass=" DdlPS"  IncluyeTodos="false" CssClassDdl="select2me form-control" DataTextField="PSCodigo" DataValueField="CvePS"  />
-                            </div>
-                            <label class="col-md-1 ">Almacen:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlAlmacen" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
-                                </asp:DropDownList>
-                            </div>
-                            <label class="col-md-1 ">Sección Almacen:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlSeccionAlmacen" runat="server" AppendDataBoundItems="true" DataTextField="Seccion" DataValueField="CveSeccion" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
-                                </asp:DropDownList>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-                <div class="portlet-body">
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
-                <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-            </div>
-            <asp:GridView ID="GvDatos" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" 
-                EmptyDataText="No se han encontrado datos con los filtros seleccionados" 
-                CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
-                DataKeyNames="Existencia,CveAlmacenSeccion,AlmacenSeccion,CvePS,CveAlmacen,CveSubProyecto,CveUM,SerieLote"  >
-                <Columns>
-                    <asp:BoundField DataField="AlmacenSeccion" ItemStyle-HorizontalAlign="Left" HeaderText="Sección Almacen" />
-                    <asp:BoundField DataField="SerieLote" ItemStyle-HorizontalAlign="Left" HeaderText="SerieLote" />
-                    <asp:BoundField DataField="Existencia" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia" DataFormatString="{0:N2}" />
-                    <asp:TemplateField HeaderText="Traspaso" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%">
-                        <ItemTemplate>
-                            <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                </Columns>
-            </asp:GridView>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-    <%--SECCION DE ALMACEN--%>
-    <div id="DModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalSeccionAlmacen" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlSeccionAlmacen" Text="Sección Almacen" runat="server"> </asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-2">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCantidadSeccion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvCantidadSeccion" runat="server" ControlToValidate="TxtCantidadSeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoCantidadSeccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvCantidadSeccion"></ajax:ValidatorCalloutExtender>
-                                    <asp:RangeValidator ID="RVTxtCantidad" runat="server" ControlToValidate="TxtCantidadSeccion" MinimumValue="0" MaximumValue="1" Type="Double" Text="<b><span style='text-decoration: underline'>ERROR:</span></b><br />No cuenta con la cantidad suficiente." ValidationGroup="VgmSeccion" />
-                                    <label for="<%= TxtCantidadSeccion.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-8" runat="server" id="DivSeccionAlmacenDestino" >
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenDestino" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacenDestino" runat="server" ControlToValidate="DdlSeccionAlmacenDestino" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen Destino''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VceSeccionAlmacenDestino" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacenDestino"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacenDestino.ClientID.ToString()%>">Sección Almacen Destino:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-2">
-                                <asp:LinkButton ID="LnkAddSeccionAlmacen" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " OnClick="LnkAddSeccionAlmacen_Click" data-placement="top" ToolTip="Agregar Sección Almacen" runat="server" ValidationGroup="VgmSeccion"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:LinkButton>
-                            </div>
-                        </div>
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <asp:GridView ID="GvSeccion" runat="server" GridLines="None" ShowHeaderWhenEmpty="true"
-                                    CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true"
-                                    AutoGenerateColumns="False" EmptyDataText="No se han agregado datos"
-                                    DataKeyNames="Consec">
-                                    <Columns>
-                                        <asp:BoundField DataField="CantidadSeccionAlmacen" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
-                                        <asp:BoundField DataField="SeccionAlmacenOrigen" HeaderText="Sección Almacen Origen" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:BoundField DataField="SeccionAlmacenDestino" HeaderText="Sección Almacen Destino" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEliminarSeccion" runat="server" OnClick="LnkEliminarSeccion_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la sección?" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-                    </div>
-                    <div class="modal-footer">
-                        <asp:Button ID="BtnTraspasar" OnClick="BtnTraspasar_Click" runat="server" Text="Traspasar" CssClass="btn btn-primary" ValidationGroup="VgmTraspasar" />
-                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
-

Inventarios/KardexSeccionAlmacen.aspx.vb

@@ -1,337 +0,0 @@
-Option Strict On
-Imports System.Data
-Imports System.Collections.Generic
-Imports System.Linq
-Imports System.Web
-Imports System.Web.UI.WebControls
-Imports Extensiones
-Partial Class Inventarios_KardexSeccionAlmacen
-    Inherits ClsPaginas
-
-
-#Region "PROPIEDADES"
-
-    Private Property DtSeccionAlmacen As DataTable
-        Get
-            Return CType(ViewState("DtSeccionAlmacen"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtSeccionAlmacen") = value
-        End Set
-    End Property
-    Private Property CantidadTotal As Decimal
-        Get
-            Return CType(ViewState("CantidadTotal"), Decimal)
-        End Get
-        Set(value As Decimal)
-            ViewState("CantidadTotal") = value
-        End Set
-    End Property
-    Private Property CvePS As Integer
-        Get
-            Return CType(ViewState("CvePS"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("CvePS") = value
-        End Set
-    End Property
-    Private Property CveSeccionAlmacenOrigen As Integer
-        Get
-            Return CType(ViewState("CveSeccionAlmacenOrigen"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("CveSeccionAlmacenOrigen") = value
-        End Set
-    End Property
-    Private Property SeccionAlmacenOrigen As String
-        Get
-            Return CType(ViewState("SeccionAlmacenOrigen"), String)
-        End Get
-        Set(value As String)
-            ViewState("SeccionAlmacenOrigen") = value
-        End Set
-    End Property
-    Private Property CveAlmacen As Integer
-        Get
-            Return CType(ViewState("CveAlmacen"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("CveAlmacen") = value
-        End Set
-    End Property
-    Private Property CveUM As Integer
-        Get
-            Return CType(ViewState("CveUM"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("CveUM") = value
-        End Set
-    End Property
-    Private Property CveSubProyecto As Integer
-        Get
-            Return CType(ViewState("CveSubProyecto"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("CveSubProyecto") = value
-        End Set
-    End Property
-    Private Property SerieLote As String
-        Get
-            Return CType(ViewState("SerieLote"), String)
-        End Get
-        Set(value As String)
-            ViewState("SerieLote") = value
-        End Set
-    End Property
-
-
-#End Region
-
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            InicializaValores()
-        End If
-    End Sub
-
-#Region "CARGAS"
-
-    Private Sub InicializaValores()
-        CantidadTotal = 0
-        SeccionAlmacenOrigen = ""
-        CvePS = 0
-        CveAlmacen = 0
-        CveSeccionAlmacenOrigen = 0
-        CveSubProyecto = 0
-        CveUM = 0
-        SerieLote = ""
-
-        CreaDtSeccionAlmacen()
-        CargaDdlAlmacen()
-        CargaPS()
-    End Sub
-
-    Private Sub CargaPS()
-        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
-            DdlPS.SelectedText = "Seleccione"
-            DdlPS.SelectedValue = "-1"
-        Else
-            DdlPS.ddl.Items.Clear()
-            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-            DdlPS.ddl.DataBind()
-            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        End If
-    End Sub
-
-    Private Sub CargaDdlAlmacen()
-        DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlAlmacen.DataBind()
-
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSeccionAlmacen.DataBind()
-
-        DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacenDestino.DataBind()
-    End Sub
-
-    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
-        CargaDatos()
-    End Sub
-
-    Private Sub CargaDatos()
-        If Not DdlPS.SelectedValue.ToEntero > 0 Then
-            Alert("Tiene que seleccionar un producto/servicio.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-            Alert("Tiene que seleccionar un alamacen.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        Dim ObjInv As New ClsInventarios
-        If ObjInv.GetKardexSeccionAlmacen(DdlPS.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvDatos.DataSource = ObjInv.DtResultados
-        End If
-        ObjInv.Dispose()
-        GvDatos.DataBind()
-        UpDatos.Update()
-    End Sub
-
-#End Region
-
-
-#Region "SECCION ALMACEN"
-    Private Sub CreaDtSeccionAlmacen()
-        DtSeccionAlmacen = New DataTable
-        DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenOrigen", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenDestino", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenOrigen", GetType(String))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenDestino", GetType(String))
-        DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
-    End Sub
-
-    Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        DtSeccionAlmacen.Rows.Clear()
-        CantidadTotal = gvRow.DataKey("Existencia").ToDecimal
-        CveSeccionAlmacenOrigen = gvRow.DataKey("CveAlmacenSeccion").ToEntero
-        SeccionAlmacenOrigen = gvRow.DataKey("AlmacenSeccion").ToString
-        CvePS = gvRow.DataKey("CvePS").ToEntero
-        SerieLote = gvRow.DataKey("SerieLote").ToString
-        CveAlmacen = gvRow.DataKey("CveAlmacen").ToEntero
-        CveUM = gvRow.DataKey("CveUM").ToEntero
-        CveSubProyecto = gvRow.DataKey("CveSubProyecto").ToEntero
-        RegistraScript("$('#DModalSeccionAlmacen').modal()")
-        CargaSeccionAlmacen()
-    End Sub
-
-    Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-
-        Dim ObjInv As New ClsInventarios
-        Dim CantidadDisponible As Decimal = 0
-        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(CveSeccionAlmacenOrigen, CveAlmacen, CvePS, UsuarioActual.CveEmpresa) Then
-            If ObjInv.DtResultados.Rows.Count > 0 Then
-                CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
-            End If
-        End If
-        ObjInv.Dispose()
-
-        CantidadDisponible -= DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen")
-
-        If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
-            Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        Dim Row As DataRow = Nothing
-        DtSeccionAlmacen.AcceptChanges()
-        Row = DtSeccionAlmacen.NewRow
-        Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
-        Row("CveSeccionAlmacenOrigen") = CveSeccionAlmacenOrigen
-        Row("SeccionAlmacenOrigen") = SeccionAlmacenOrigen
-        Row("CveSeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedValue.ToEntero
-        Row("SeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedItem.Text
-        Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
-        DtSeccionAlmacen.Rows.Add(Row)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        Dim Index As Integer = 0
-        For Each Dr As DataRow In DtSeccionAlmacen.Rows
-            If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
-                Exit For
-            End If
-            Index += 1
-        Next
-        DtSeccionAlmacen.Rows.RemoveAt(Index)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    Private Sub CargaSeccionAlmacen()
-        Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen")
-        GvSeccion.DataSource = DtSeccionAlmacen
-        GvSeccion.DataBind()
-
-        TxtCantidadSeccion.Text = ""
-        DdlSeccionAlmacenDestino.SelectedIndex = 0
-        Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
-        If CantidadRestante = 0 Then
-            RVTxtCantidad.MaximumValue = "1"
-            TxtCantidadSeccion.Enabled = False
-        Else
-            RVTxtCantidad.MaximumValue = CantidadRestante.ToString
-            TxtCantidadSeccion.Enabled = True
-        End If
-
-        UpModalSeccionAlmacen.Update()
-    End Sub
-
-    Protected Sub BtnTraspasar_Click(sender As Object, e As EventArgs)
-        Dim ObjInv As New ClsInventarios
-        ObjInv.IniciaTransacSQL()
-        Dim TieneError As Boolean = False
-        Dim MensajeError As String = ""
-
-        'SALIDA 
-        Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveSubProyecto, -1, CveAlmacenDestino:=CveAlmacen)
-
-        If CveMovimientoSalida <= 0 Then
-            TieneError = True
-            MensajeError = "Ocurrió un error al guardar el movimiento de salida. Por favor vuelva a intentar."
-        End If
-
-        Dim Cantidad As Decimal = DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen")
-
-        If Not ObjInv.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, CveUM, CvePS, 0, -1, SerieLote:=SerieLote) Then
-            MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
-            TieneError = True
-        Else
-            If ObjInv.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                For Each Dr2 As DataRow In DtSeccionAlmacen.Rows
-                    If Not ObjInv.AddMovimientosDetalleSeccionesAlmacen(ObjInv.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                        TieneError = True
-                        MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                        Exit For
-                    End If
-                Next
-            End If
-        End If
-
-        'ENTRADA 
-        If Not TieneError Then
-            Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveSubProyecto, -1, CveMovimientoRelacionado:=CveMovimientoSalida)
-
-            If CveMovimientoEntrada <= 0 Then
-                MensajeError = "Ocurrió un error al guardar el movimiento de entrada correctamente. Por favor vuelva a intentar."
-                TieneError = True
-            Else
-                If ObjInv.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                    For Each Dr As DataRow In ObjInv.DtResultados.Rows
-                        If Not ObjInv.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
-                            TieneError = True
-                            MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
-                            Exit For
-                        Else
-                            If ObjInv.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                For Each Dr2 As DataRow In DtSeccionAlmacen.Rows
-                                    If Not ObjInv.AddMovimientosDetalleSeccionesAlmacen(ObjInv.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                        TieneError = True
-                                        MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                        Exit For
-                                    End If
-                                Next
-                            End If
-                        End If
-                    Next
-                End If
-            End If
-        End If
-
-        If Not TieneError Then
-            ObjInv.Commit()
-            Alert("El traspaso se ha hecho correctamente")
-            CargaDatos()
-            RegistraScript("$('#DModalSeccionAlmacen').modal('hide')")
-        Else
-            ObjInv.RollBack()
-            Alert(MensajeError, TipoMensaje.MsgError)
-        End If
-
-    End Sub
-
-#End Region
-
-
-
-End Class

Inventarios/PrestamosdeProveedor.aspx

@@ -124,7 +124,7 @@
     
                 <asp:UpdatePanel runat="server" ID="UppEntrega" UpdateMode="Conditional">
                     <ContentTemplate>
-    <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS, SerieLote,Lote,Batch,CveMovimientoDetalle" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
+    <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
                             <Columns>
                                 <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                                     <%--<HeaderTemplate>
@@ -144,7 +144,9 @@
                                 <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
-                                <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="F. Caducidad" DataField="FechaCaducidad" ItemStyle-Width="15%" />
                             </Columns>
                         </asp:GridView>
 

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -3,10 +3,29 @@
 Partial Class Inventarios_PrestamosdeProveedor
     Inherits ClsPaginas
 
+    Private Property CveProveedor As Integer
+        Get
+            Return ViewState("CveProveedor").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveProveedor") = value
+        End Set
+    End Property
+
+    Private Property CveMovimiento As Integer
+        Get
+            Return ViewState("CveMovimiento").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMovimiento") = value
+        End Set
+    End Property
+
     Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
-
+            CveMovimiento = 0
+            CveProveedor = 0
 
             CargaDatos()
         End If
@@ -42,8 +61,9 @@ Partial Class Inventarios_PrestamosdeProveedor
         If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, UsuarioActual.CveEmpresa) Then
             GvD.DataSource = ObjInv.DtResultados
             Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("")
-            If Dr IsNot Nothing Then
+            If Dr IsNot Nothing AndAlso tFolio > 0 Then
-                HdnCveProveedor.Value = Dr("CveProveedor")
+                CveProveedor = Dr("CveProveedor").ToString.ToEntero
+                CveMovimiento = Dr("CveMovimiento").ToString.ToEntero
             End If
 
         End If
@@ -93,14 +113,14 @@ Partial Class Inventarios_PrestamosdeProveedor
                 If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCTextBox("TxtCantidad").Text.ToDecimal > 0 Then
                     ValidaMovtos += gvr.FCTextBox("TxtCantidad").Text.ToDecimal
                     If gvr.FCTextBox("TxtCantidad").Text.ToDecimal > 0 Then
-                        Dim SerieLote As String = "-1"
+                        Dim Serie As String = "-1"
                         Dim Lote As String = "-1"
-                        Dim Batch As String = "-1"
+                        Dim FechaCaducidad As Date = MinFecha
-                        If gvr.DataKey("SerieLote") <> "" Then SerieLote = gvr.DataKey("SerieLote")
+                        If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie")
                         If gvr.DataKey("Lote") <> "" Then Lote = gvr.DataKey("Lote")
-                        If gvr.DataKey("Batch") <> "" Then Batch = gvr.DataKey("Batch")
+                        If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")
 
-                        Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, SerieLote, Lote, Batch)
+                        Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
                         If Not Valido Then
                             Alert("No hay existencia del producto a devolver.", TipoMensaje.MsgAdvertencia)
                             Exit Sub
@@ -127,14 +147,12 @@ Partial Class Inventarios_PrestamosdeProveedor
             'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
 
             Dim Fecha As Date = TxtFechaEntrega.Text.ToDate
-
             Dim CveMovimientoSalida As Integer
-            Dim tCveProveedor As Integer = HdnCveProveedor.Value.ToEntero
             Dim CvePS As Integer = 0
 
             'AGREGAMOS LA SALIDA
             CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 29, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                              Observaciones:=TxtObservacionesEntrega.Text.Trim, CveProveedor:=tCveProveedor, Modulo:="PresP")
+                                                              Observaciones:=TxtObservacionesEntrega.Text.Trim, CveProveedor:=CveProveedor, CveMovimientoRelacionado:=CveMovimiento, Modulo:="PresP")
             Folio = ObjInventario.Folio
 
             If CveMovimientoSalida <= 0 Then
@@ -149,7 +167,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                     If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal > 0 Then
                         CveMovimientoDetalleEntrada = gvr.DataKey("CveMovimientoDetalle").ToString.ToEntero
                         CvePS = gvr.DataKey("CvePS").ToString.ToEntero
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada, SerieLote:=gvr.DataKey("SerieLote").ToString, Lote:=gvr.DataKey("Lote").ToString, Batch:=gvr.DataKey("Batch").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToString.ToDate) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de salida"
                             Exit For
@@ -220,13 +238,13 @@ Partial Class Inventarios_PrestamosdeProveedor
         End If
     End Sub
 
-    Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, Optional SerieLote As String = "-1", Optional Lote As String = "-1", Optional Batch As String = "-1") As Boolean
+    Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean
         Dim Retorno = True
 
         Dim Inv As New ClsInventarios
-        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFechaEntrega.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=SerieLote, Lote:=Lote, Batch:=Batch)
+        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFechaEntrega.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen)
         Inv.Dispose()
-        '- DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUnidadMedida} {If(SerieLote <> "-1", $" AND SerieLote = '{SerieLote}'", "")}")
+
 
         If Existencia - Cantidad < 0 Then
             If Existencia < 0 Then

Inventarios/RecepcionAlmacen.aspx

@@ -247,7 +247,7 @@
                                                         <asp:LinkButton ID="ImgFechaPendientes" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                     </span>
                                                     <ajax:MaskedEditExtender ID="MEEFechaPendientes" runat="server" TargetControlID="TxtFechaPendientes" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                    <ajax:CalendarExtender runat="server" ID="CEFechaPendientes" TargetControlID="TxtFechaPendientes" PopupButtonID="ImgFechaPendientes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                    <ajax:CalendarExtender runat="server" ID="CEFechaPendientes" TargetControlID="TxtFechaPendientes" PopupButtonID="ImgFechaPendientes" PopupPosition="BottomLeft" Enabled="True"></ajax:CalendarExtender>
                                                     <asp:RequiredFieldValidator ID="RFVFechaPendientes" runat="server" ControlToValidate="TxtFechaPendientes" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaPendientes''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <asp:CompareValidator ID="CVFechaPendientes" runat="server" ControlToValidate="TxtFechaPendientes" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaPendientes''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaPendientes1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPendientes" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -434,15 +434,23 @@
                                 <ItemTemplate>
                                     <asp:TextBox ID="TbCantidadF" runat="server" Width="60px" Mask="9,999.99" Text="0"></asp:TextBox>
                                     <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidadF" runat="server" TargetControlID="TbCantidadF" FilterType="Numbers,custom" ValidChars="." />
-                                    <asp:Button Text="SerieLote" ID="BtnSerieLote" OnClick="BtnSerieLote_Click" CssClass="btn btn-primary btn-sm" runat="server" Visible="false" />
+                                    <asp:Button Text="Serie" ID="BtnSerie" OnClick="BtnSerie_Click" CssClass="btn btn-primary btn-sm" runat="server" Visible="false" />
-                                    <asp:Button Text="Lote-Batch" ID="BtnLote" CssClass="btn btn-primary" OnClick="BtnLote_Click" runat="server" Visible="false" />
+                                    <asp:Button Text="Lote" ID="BtnLote" CssClass="btn btn-primary" OnClick="BtnLote_Click" runat="server" Visible="false" />
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7.5%" />
-                            <asp:HyperLinkField HeaderText="Producto o Servicio" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" Target="_blank" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="22.5%" />
+                            <asp:HyperLinkField HeaderText="Producto o Servicio" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" Target="_blank" ItemStyle-HorizontalAlign="Left" />
                             <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7.5%" />
                             <asp:BoundField HeaderText="P.U." DataField="PU" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
-                            <asp:BoundField HeaderText="C.I." DataField="CostoIndirecto" DataFormatString="{0:###.####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
+                            <asp:BoundField HeaderText="C.I." DataField="CostoIndirecto" DataFormatString="{0:###.####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />                                                      
+                            <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
+                                <ItemTemplate>
+                                    <asp:Label ID="LbTotal" Text="" runat="server"></asp:Label>
+                                </ItemTemplate>
+                                <FooterTemplate>
+                                    <asp:Label ID="LbTotal" Text="" runat="server"></asp:Label>
+                                </FooterTemplate>
+                            </asp:TemplateField>
                             <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                 <ItemTemplate>
                                     <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" DataValueField="CveSeccion" CssClass="select2me" Style="width: 85% !important" runat="server" CausesValidation="true" Visible="false">
@@ -468,21 +476,8 @@
                                         <ajax:ValidatorCalloutExtender ID="VCECaducidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaducidad"></ajax:ValidatorCalloutExtender>
                                     </div>
                                 </ItemTemplate>
-                            </asp:TemplateField>
+                            </asp:TemplateField> 
-                            <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                            <asp:TemplateField HeaderText="Dividir" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center" Visible="false">
-                                <ItemTemplate>
-                                    <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
-                                </ItemTemplate>
-                            </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
-                                <ItemTemplate>
-                                    <asp:Label ID="LbTotal" Text="" runat="server"></asp:Label>
-                                </ItemTemplate>
-                                <FooterTemplate>
-                                    <asp:Label ID="LbTotal" Text="" runat="server"></asp:Label>
-                                </FooterTemplate>
-                            </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Dividir" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Center" Visible="false">
                                 <ItemTemplate>
                                     <asp:TextBox runat="server" ID="TxtDividir" Width="30px"></asp:TextBox>
                                     <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtDividir" FilterType="Custom, Numbers" ValidChars="." />
@@ -695,64 +690,6 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <%--SECCION DE ALMACEN--%>
-    <div id="DModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalSeccionAlmacen" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlSeccionAlmacen" Text="Sección Almacen" runat="server"> </asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-4">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCantidadSeccion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvCantidadSeccion" runat="server" ControlToValidate="TxtCantidadSeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoCantidadSeccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvCantidadSeccion"></ajax:ValidatorCalloutExtender>
-                                    <asp:RangeValidator ID="RVTxtCantidad" runat="server" ControlToValidate="TxtCantidadSeccion" MinimumValue="0" MaximumValue="1" Type="Double" Text="<b><span style='text-decoration: underline'>ERROR:</span></b><br />No cuenta con la cantidad suficiente." ValidationGroup="VgmSeccion" />
-                                    <label for="<%= TxtCantidadSeccion.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-6">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacen" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacen" runat="server" ControlToValidate="DdlSeccionAlmacen" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoSeccionAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacen"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacen:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-2">
-                                <asp:LinkButton ID="LnkAddSeccionAlmacen" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " OnClick="LnkAddSeccionAlmacen_Click" data-placement="top" ToolTip="Agregar Sección Almacen" runat="server" ValidationGroup="VgmSeccion"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:LinkButton>
-                            </div>
-                        </div>
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <asp:GridView ID="GvSeccionAlmacen" runat="server" GridLines="None" ShowHeaderWhenEmpty="true"
-                                    CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true"
-                                    AutoGenerateColumns="False" EmptyDataText="No se han agregado datos"
-                                    DataKeyNames="Consec">
-                                    <Columns>
-                                        <asp:BoundField DataField="CantidadSeccionAlmacen" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
-                                        <asp:BoundField DataField="SeccionAlmacen" HeaderText="Sección Almacen" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEliminarSeccion" runat="server" OnClick="LnkEliminarSeccion_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la sección?" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
 
     <%--AGREGAR POR SERIE LOTE--%>
     <div id="DivSerie" class="modal ADS fade" role="dialog">
@@ -786,9 +723,9 @@
                                 <tr>
                                     <td width="80px">Serie/Lote:</td>
                                     <td>
-                                        <asp:TextBox runat="server" ID="TxtSerieLote" Width="300px" ClientIDMode="Static" />
+                                        <asp:TextBox runat="server" ID="TxtSerie" Width="300px" ClientIDMode="Static" />
-                                        <asp:RequiredFieldValidator ID="RFVSerieLote" runat="server" ControlToValidate="TxtSerieLote" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie/Lote''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCESerieLote" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerieLote" Width="300px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </td>
                                     <td runat="server" id="TdCaducidad1" width="80px">Fecha Caducidad:</td>
                                     <td runat="server" id="TdCaducidad2">
@@ -919,8 +856,7 @@
                                         <asp:GridView ID="GvLote" DataKeyNames="Lote,Batch" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="100" data-freezerows="1" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="20%" />
-                                                <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="20%" />
+                                                <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="20%" />                                             
-                                                <asp:BoundField HeaderText="Batch" DataField="Batch" ItemStyle-Width="20%" />
                                                 <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
                                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center">
                                                     <ItemTemplate>

Inventarios/RecepcionUsados.aspx.vb

@@ -386,7 +386,6 @@ Partial Class Inventarios_RecepcionUsados
         BtnContabilizar.Enabled = PermiteContabilizar()
         BtnNuevo.Enabled = PermiteCrearNuevo()
 
-        ActivaPermisoSeccionAlmacen()
         If CveMovimiento > 0 Then
             PermisoVerImportes()
         End If
@@ -417,11 +416,7 @@ Partial Class Inventarios_RecepcionUsados
     Private Function PermiteCrearNuevo() As Boolean
         Return If(UsuarioActual.TienePermisoProceso(184) Or EsConsumoInterno, True, False)
     End Function
-    Private Sub ActivaPermisoSeccionAlmacen()
-        ' GvM.Columns(12).Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
 
-
-    End Sub
     Private Sub PermisoVerImportes()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
     End Sub
@@ -465,7 +460,6 @@ Partial Class Inventarios_RecepcionUsados
         dt.Columns.Add("CveAF")
         dt.Columns.Add("SerieLote", Type.GetType("System.String"))
         dt.Columns.Add("Lote", Type.GetType("System.String"))
-        dt.Columns.Add("Batch", Type.GetType("System.String"))
 
         dt.Columns.Add("Observaciones")
         dt.Columns.Add("CountMovimientoEntradaDetalle")
@@ -481,10 +475,6 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub CargaCombos()
 
-        DdlSeccion.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccion.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccion.DataBind()
-
         'Llenar el dropdownlist de monedas
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
@@ -870,9 +860,9 @@ Partial Class Inventarios_RecepcionUsados
 #End Region
 
 #Region "  AGREGAR - GUARDAR  "
-    Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional SerieLote As String = "-1", Optional Lote As String = "-1", Optional Batch As String = "-1") As Double
+    Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional SerieLote As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Double
         Dim Inv As New ClsInventarios
-        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, -1, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime), SerieLote:=SerieLote, Lote:=Lote, Batch:=Batch)
+        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, -1, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime), SerieLote:=SerieLote, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
         Inv.Dispose()
         Return Existencia
     End Function
@@ -976,7 +966,6 @@ Partial Class Inventarios_RecepcionUsados
             registro.Item("CveAF") = CveAF
             registro.Item("SerieLote") = If(SerieLote <> "", SerieLote, "")
             registro.Item("Lote") = If(Lote <> "", Lote, "")
-            registro.Item("Batch") = If(Batch <> "", Batch, "")
             registro.Item("Observaciones") = Observaciones
 
             registro.Item("CveTamaño") = CveTamaño
@@ -1013,7 +1002,6 @@ Partial Class Inventarios_RecepcionUsados
             DtMovimientos.Rows(IndexDTUsado)("CveAF") = CveAF
             DtMovimientos.Rows(IndexDTUsado)("SerieLote") = If(SerieLote <> "", SerieLote, "")
             DtMovimientos.Rows(IndexDTUsado)("Lote") = If(Lote <> "", Lote, "")
-            DtMovimientos.Rows(IndexDTUsado)("Batch") = If(Batch <> "", Batch, "")
             DtMovimientos.Rows(IndexDTUsado)("Observaciones") = Observaciones
 
             DtMovimientos.Rows(IndexDTUsado)("CveTamaño") = CveTamaño
@@ -1133,7 +1121,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, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 Mensaje = "Error al guardar los movimientos"
                                 ErrorMovInv = True
                                 Exit For
@@ -1273,7 +1261,7 @@ Partial Class Inventarios_RecepcionUsados
                                                  -1, -1, -1, -1, Modulo:="RU/G")
         End If
 
-        ObjInv.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, CostoPromedio, -1, SerieLote:=SerieLote)
+        ObjInv.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, CostoPromedio, -1, Serie:=SerieLote)
         ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa)
         DtMovimientos = ObjInv.DtResultados.FiltraParametros("", "CveMovimientoDetalle DESC").AsEnumerable.Take(25).CopyToDataTable
         ObjInv.Dispose()

Inventarios/RepTraspasoAlmacen.aspx

@@ -1,364 +1,364 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepTraspasoAlmacen.aspx.vb" Inherits="RepTraspasoAlmacen" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepTraspasoAlmacen.aspx.vb" Inherits="RepTraspasoAlmacen" %>
-
+
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style>
+    <style>
-        .Widthall {
+        .Widthall {
-            width: 100% !important;
+            width: 100% !important;
-        }
+        }
-
+
-        .dataTables_scrollHeadInner {
+        .dataTables_scrollHeadInner {
-            width: 100% !important;
+            width: 100% !important;
-            background-color: #dddddd;
+            background-color: #dddddd;
-            padding-left: 0px !important;
+            padding-left: 0px !important;
-        }
+        }
-
+
-        .dataTables_scrollFoot {
+        .dataTables_scrollFoot {
-            display: none;
+            display: none;
-            position: static;
+            position: static;
-        }
+        }
-
+
-        .table-scrollable {
+        .table-scrollable {
-            margin: 0px !important;
+            margin: 0px !important;
-        }
+        }
-
+
-        .dataTables_scroll {
+        .dataTables_scroll {
-            margin-bottom: 0px;
+            margin-bottom: 0px;
-        }
+        }
-
+
-        .table.dataTable {
+        .table.dataTable {
-            margin-top: 0px !important;
+            margin-top: 0px !important;
-        }
+        }
-
+
-        .dataTables_scrollBody table th {
+        .dataTables_scrollBody table th {
-            padding: 0px !important;
+            padding: 0px !important;
-            padding-right: 4px !important;
+            padding-right: 4px !important;
-            padding-left: 4px !important;
+            padding-left: 4px !important;
-        }
+        }
-
+
-        .sinlink td a {
+        .sinlink td a {
-            pointer-events: none;
+            pointer-events: none;
-            cursor: default;
+            cursor: default;
-            color: black;
+            color: black;
-            font-size: small;
+            font-size: small;
-        }
+        }
-
+
-        .white a {
+        .white a {
-            color: white !important;
+            color: white !important;
-        }
+        }
-
+
-        .select2 .select2-selection__rendered {
+        .select2 .select2-selection__rendered {
-            line-height: 1;
+            line-height: 1;
-            color: #111;
+            color: #111;
-        }
+        }
-
+
-        .select2 .select2-selection--multiple {
+        .select2 .select2-selection--multiple {
-            box-sizing: border-box;
+            box-sizing: border-box;
-            cursor: pointer;
+            cursor: pointer;
-            display: block;
+            display: block;
-            min-height: 20px;
+            min-height: 20px;
-            user-select: none;
+            user-select: none;
-            -webkit-user-select: none;
+            -webkit-user-select: none;
-        }
+        }
-
+
-        .select2-container--default .select2-selection--multiple .select2-selection__choice {
+        .select2-container--default .select2-selection--multiple .select2-selection__choice {
-            margin-top: 10px;
+            margin-top: 10px;
-        }
+        }
-
+
-        .select2-selection__rendered {
+        .select2-selection__rendered {
-            margin-top: 0px;
+            margin-top: 0px;
-            height: 25px;
+            height: 25px;
-        }
+        }
-
+
-        .select2-selection {
+        .select2-selection {
-            margin-top: 0px;
+            margin-top: 0px;
-            height: 31px;
+            height: 31px;
-        }
+        }
-
+
-        .select2-container--default.select2-container--focus .select2-selection--multiple {
+        .select2-container--default.select2-container--focus .select2-selection--multiple {
-            border: none;
+            border: none;
-            outline: 0;
+            outline: 0;
-        }
+        }
-    </style>
+    </style>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-        <li>
+        <li>
-        <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+        <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
+    </li>
-    <li>
+    <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
-    </li>
+    </li>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    <asp:Label ID="LblTitulo" runat="server" Text="Reporte de Traspaso de Almacén"></asp:Label>
+    <asp:Label ID="LblTitulo" runat="server" Text="Reporte de Traspaso de Almacén"></asp:Label>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
+</asp:Content>
-
+
-<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
-
+
-    <%-- <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+    <%-- <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
-        <ContentTemplate> 
+        <ContentTemplate> 
-            <div class="btn-group pull-right btn-separete">
+            <div class="btn-group pull-right btn-separete">
-                        
+                        
-            </div>
+            </div>
-        </ContentTemplate>
+        </ContentTemplate>
-    </asp:UpdatePanel>--%>
+    </asp:UpdatePanel>--%>
-</asp:Content>
+</asp:Content>
-
+
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server" defaultbutton="BtnConsultar">
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server" defaultbutton="BtnConsultar">
-    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate>
-            <div class="portlet solid grey-cascade portlet-filter" style="">
+            <div class="portlet solid grey-cascade portlet-filter" style="">
-                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
-                    <div class="tools">
+                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
-                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
-                    </div>
+                    </div>
-                    <div class="portlet-body">
+                    <div class="portlet-body">
-                        <div class="row"> 
+                        <div class="row"> 
-                            
+                            
                             <div class="col-md-1" style="text-align:right">
                                 <label class="truncate">F.I.:</label>
-                            </div>
+                            </div>
-
+
-                            
+                            
-                            <div class="col-md-1">
+                            <div class="col-md-1">
-                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-top: 10px;">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-top: 10px;">
-                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
+                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
+                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                    <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                </div>
+                                </div>
-                            </div>
+                            </div>
-
+
                             <div class="col-md-1" style="text-align:right">
                                 <label class="truncate">F.F.:</label>
-                            </div>
+                            </div>
-                            
+                            
-                            <div class="col-md-1">
+                            <div class="col-md-1">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-top: 10px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-top: 10px;">
-                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
+                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
+                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                </div>
+                                </div>
-                            </div>
+                            </div>
-
+
-                             <div class="col-md-2" style="text-align:right">
+                             <div class="col-md-2" style="text-align:right">
-                                 <label >Almacén Origen:</label>
+                                 <label >Almacén Origen:</label>
-                              </div>
+                              </div>
-                            
+                            
-                            <div class="col-md-1">
+                            <div class="col-md-1">
-                                <asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm  input-small select2me"></asp:DropDownList>
+                                <asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm  input-small select2me"></asp:DropDownList>
-                            </div>
+                            </div>
-
+
-
+
-                        <div class="col-md-2" style="text-align:right">
+                        <div class="col-md-2" style="text-align:right">
-                            <label class="truncate">Almacén Destino:</label>   
+                            <label class="truncate">Almacén Destino:</label>   
-                         </div>
+                         </div>
-                            
+                            
-                        <div class="col-md-1">
+                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlAlmacenDestino" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm  input-small select2me" Width="150px" runat="server"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlAlmacenDestino" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm  input-small select2me" Width="150px" runat="server"></asp:DropDownList>
-                        </div>
+                        </div>
-
+
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-                </div>
+                </div>
-
+
-                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
-                    <div class="row">                        
+                    <div class="row">                        
-
+
-                        <label class="col-md-1 truncate">Recibido:</label>
+                        <label class="col-md-1 truncate">Recibido:</label>
-                        <div class="col-md-2">
+                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkRecibido" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
+                            <asp:CheckBox ID="ChkRecibido" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-                </div>
+                </div>
-            </div>
+            </div>
-        </ContentTemplate>
+        </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
-    <br />
+    <br />
-    <div class="row">
+    <div class="row">
-        <div align="right">
+        <div align="right">
-            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; width: 150px;" />
+            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; width: 150px;" />
-            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-        </div>
+        </div>
-    </div>
+    </div>
-    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
-                ToolTip="Remisiones sin Facturar"
+                ToolTip="Remisiones sin Facturar"
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                data-sort="true" Style="text-align: center;" GridLines="None">
+                data-sort="true" Style="text-align: center;" GridLines="None">
-                <Columns>
+                <Columns>
-                    <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
+                    <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
+                    <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" ItemStyle-HorizontalAlign="Left"/>
-                    <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left"/>                    
+                    <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left"/>                    
-                    <asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
+                    <asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
-                </Columns>
+                </Columns>
-                <HeaderStyle CssClass="Titulos" />
+                <HeaderStyle CssClass="Titulos" />
-                <RowStyle CssClass="Texto" />
+                <RowStyle CssClass="Texto" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />
-            </asp:GridView>
+            </asp:GridView>
-        </ContentTemplate>
+        </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
-
+
-    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate>
-            <div id="DivPersonalizar" class="modal fade" role="dialog">
+            <div id="DivPersonalizar" class="modal fade" role="dialog">
-                <div class="modal-dialog">
+                <div class="modal-dialog">
-
+
-                    <!-- Modal content-->
+                    <!-- Modal content-->
-                    <div class="modal-content">
+                    <div class="modal-content">
-                        <div class="modal-header">
+                        <div class="modal-header">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <h4 class="modal-title">
+                            <h4 class="modal-title">
-                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
-                        </div>
+                        </div>
-                        <div class="modal-body">
+                        <div class="modal-body">
-                            <table class="table table-striped table-advance table-hover Widthall">
+                            <table class="table table-striped table-advance table-hover Widthall">
-                                <tbody>
+                                <tbody>
-                                    <tr>
+                                    <tr>
-                                        <td style="text-align: left;">
+                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkUsuarioCancelacion" runat="server" Text="Usuario Cancelación" /></td>
+                                            <asp:CheckBox ID="ChkUsuarioCancelacion" runat="server" Text="Usuario Cancelación" /></td>
-                                    </tr>
+                                    </tr>
-                                    <tr>
+                                    <tr>
-                                        <td style="text-align: left;">
+                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkTipo" runat="server" Text="Cargo/Abono" /></td>
+                                            <asp:CheckBox ID="ChkTipo" runat="server" Text="Cargo/Abono" /></td>
-                                    </tr>
+                                    </tr>
-
+
-                                </tbody>
+                                </tbody>
-                            </table>
+                            </table>
-                        </div>
+                        </div>
-                        <div class="modal-footer">
+                        <div class="modal-footer">
-                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
+                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
-                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-
+
-                </div>
+                </div>
-            </div>
+            </div>
-        </ContentTemplate>
+        </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-    <%--<script type="text/javascript">
+    <%--<script type="text/javascript">
-
+
-        function Scroll() {
+        function Scroll() {
-            $(document).ready(function () {
+            $(document).ready(function () {
-                var Tam = TamañoVentana();
+                var Tam = TamañoVentana();
-                var Alto = Tam.height - 300;
+                var Alto = Tam.height - 300;
-                $('#<%=GvDatos.ClientID%>').gridviewScroll({
+                $('#<%=GvDatos.ClientID%>').gridviewScroll({
-                    width: 995,
+                    width: 995,
-                    height: Alto
+                    height: Alto
-                });
+                });
-            });
+            });
-        }
+        }
-    </script>--%>
+    </script>--%>
-
+
-    <script type="text/javascript">
+    <script type="text/javascript">
-        function GetSelectedRow(lnk, txtf, txtoi) {
+        function GetSelectedRow(lnk, txtf, txtoi) {
-
+
-
+
-            //var row = lnk.parentNode.parentNode;
+            //var row = lnk.parentNode.parentNode;
-            //var txtoi = row.cells[10].getElementsByTagName("input")[1];
+            //var txtoi = row.cells[10].getElementsByTagName("input")[1];
-            if (lnk.checked) {
+            if (lnk.checked) {
-                debugger;
+                debugger;
-                if (txtf) { txtf.style.display = ""; }
+                if (txtf) { txtf.style.display = ""; }
-                if (txtoi) { txtoi.style.display = ""; }
+                if (txtoi) { txtoi.style.display = ""; }
-                //    try {
+                //    try {
-                //        row.cells[10].getElementsByTagName("input")[0].style.display = "";
+                //        row.cells[10].getElementsByTagName("input")[0].style.display = "";
-                //        if (txtoi) { txtoi.style.display = ""; }
+                //        if (txtoi) { txtoi.style.display = ""; }
-                //    }
+                //    }
-                //    catch (err) {
+                //    catch (err) {
-                //        row = row.parentNode;
+                //        row = row.parentNode;
-                //        row.cells[10].getElementsByTagName("input")[0].style.display = "";
+                //        row.cells[10].getElementsByTagName("input")[0].style.display = "";
-                //    }
+                //    }
-            } else {
+            } else {
-                if (txtf) { txtf.style.display = "none"; }
+                if (txtf) { txtf.style.display = "none"; }
-                if (txtoi) { txtoi.style.display = "none"; }
+                if (txtoi) { txtoi.style.display = "none"; }
-                //    try {
+                //    try {
-                //        row.cells[10].getElementsByTagName("input")[0].style.display = "none";
+                //        row.cells[10].getElementsByTagName("input")[0].style.display = "none";
-                //    }
+                //    }
-                //    catch (err) {
+                //    catch (err) {
-                //        row = row.parentNode;
+                //        row = row.parentNode;
-                //        row.cells[10].getElementsByTagName("input")[0].style.display = "none";
+                //        row.cells[10].getElementsByTagName("input")[0].style.display = "none";
-                //    }
+                //    }
-            }
+            }
-            return false;
+            return false;
-        }
+        }
-
+
-        function FechaGeneral(lnk, FechaDocumento) {
+        function FechaGeneral(lnk, FechaDocumento) {
-            debugger;
+            debugger;
-            var row = lnk.parentNode.parentNode;
+            var row = lnk.parentNode.parentNode;
-
+
-            var parts = FechaDocumento.split("/");
+            var parts = FechaDocumento.split("/");
-            var F1 = new Date(parts[2], parts[1], parts[0]);
+            var F1 = new Date(parts[2], parts[1], parts[0]);
-
+
-
+
-            if (lnk.checked) {
+            if (lnk.checked) {
-                try {
+                try {
-                    parts = $get("TxtFechaAplicadoHeader").value.split("/");
+                    parts = $get("TxtFechaAplicadoHeader").value.split("/");
-                    var F2 = new Date(parts[2], parts[1], parts[0]);
+                    var F2 = new Date(parts[2], parts[1], parts[0]);
-
+
-                    if (F1 < F2) {
+                    if (F1 < F2) {
-                        row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
+                        row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
-                    } else {
+                    } else {
-                        row.cells[10].getElementsByTagName("input")[0].value = FechaDocumento;
+                        row.cells[10].getElementsByTagName("input")[0].value = FechaDocumento;
-                    }
+                    }
-                }
+                }
-                catch (err) {
+                catch (err) {
-                    row = row.parentNode;
+                    row = row.parentNode;
-                    row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
+                    row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
-                }
+                }
-            }
+            }
-            return false;
+            return false;
-        }
+        }
-    </script>
+    </script>
-
+
-    <script type="text/javascript">
+    <script type="text/javascript">
-        function OnClientShown(sender, args) {
+        function OnClientShown(sender, args) {
-            sender._popupBehavior._element.style.zIndex = 10005;
+            sender._popupBehavior._element.style.zIndex = 10005;
-            sender._popupBehavior._element.style.position = "absolute";
+            sender._popupBehavior._element.style.position = "absolute";
-            sender._popupBehavior._element.style.top = "0px";
+            sender._popupBehavior._element.style.top = "0px";
-            document.getElementById("C_GvDatosPanelItem").style.overflow = "initial";
+            document.getElementById("C_GvDatosPanelItem").style.overflow = "initial";
-        }
+        }
-    </script>
+    </script>
-    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
-    <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
+    <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
-    <script type="text/javascript">
+    <script type="text/javascript">
-
+
-        //function OrdenarGV() {
+        //function OrdenarGV() {
-        //    var Tam = TamañoVentana();
+        //    var Tam = TamañoVentana();
-        //    var Alto = Tam.height - 270;
+        //    var Alto = Tam.height - 270;
-        //    if (Alto < 100) {
+        //    if (Alto < 100) {
-        //        Alto = 100;
+        //        Alto = 100;
-        //    }
+        //    }
-        //    $('#C_GvDatos').DataTable({
+        //    $('#C_GvDatos').DataTable({
-        //        scrollY: Alto + 'px',
+        //        scrollY: Alto + 'px',
-        //        scrollCollapse: true,
+        //        scrollCollapse: true,
-        //        paging: false,
+        //        paging: false,
-        //        searching: false,
+        //        searching: false,
-        //        info: false
+        //        info: false
-        //    });
+        //    });
-        //    $('#C_GvDatos').parent().parent().children().first().css("position", "static");
+        //    $('#C_GvDatos').parent().parent().children().first().css("position", "static");
-        //}
+        //}
-    </script>
+    </script>
-</asp:Content>
+</asp:Content>

Inventarios/ResguardoMaterial.aspx

@@ -273,7 +273,7 @@
                                         <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
                                         <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                             <ItemTemplate>
-                                                <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                                ss
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField ItemStyle-Width="10%">
@@ -475,7 +475,7 @@
                                 <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
                                 <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                     <ItemTemplate>
-                                        <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacenDestino_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                        xx
                                     </ItemTemplate>
                                 </asp:TemplateField>
                             </Columns>
@@ -496,76 +496,6 @@
 
     </ajax:TabContainer>
 
-    <%--SECCION DE ALMACEN--%>
-    <div id="DModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalSeccionAlmacen" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlSeccionAlmacen" Text="Sección Almacen" runat="server"> </asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-2">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCantidadSeccion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvCantidadSeccion" runat="server" ControlToValidate="TxtCantidadSeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoCantidadSeccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvCantidadSeccion"></ajax:ValidatorCalloutExtender>
-                                    <asp:RangeValidator ID="RVTxtCantidad" runat="server" ControlToValidate="TxtCantidadSeccion" MinimumValue="0" MaximumValue="1" Type="Double" Text="<b><span style='text-decoration: underline'>ERROR:</span></b><br />No cuenta con la cantidad suficiente." ValidationGroup="VgmSeccion" />
-                                    <label for="<%= TxtCantidadSeccion.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-4" runat="server" id="DivSeccionAlmacenOrigen">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenOrigen" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacenOrigen" runat="server" ControlToValidate="DdlSeccionAlmacenOrigen" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen Origen''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoSeccionAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacenOrigen"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacenOrigen.ClientID.ToString()%>">Sección Almacen O.:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-4" runat="server" id="DivSeccionAlmacenDestino" visible="false">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenDestino" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacenDestino" runat="server" ControlToValidate="DdlSeccionAlmacenDestino" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen Destino''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VceSeccionAlmacenDestino" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacenDestino"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacenDestino.ClientID.ToString()%>">Sección Almacen D.:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-2">
-                                <asp:LinkButton ID="LnkAddSeccionAlmacen" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " OnClick="LnkAddSeccionAlmacen_Click" data-placement="top" ToolTip="Agregar Sección Almacen" runat="server" ValidationGroup="VgmSeccion"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:LinkButton>
-                            </div>
-                        </div>
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <asp:GridView ID="GvSeccion" runat="server" GridLines="None" ShowHeaderWhenEmpty="true"
-                                    CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true"
-                                    AutoGenerateColumns="False" EmptyDataText="No se han agregado datos"
-                                    DataKeyNames="Consec">
-                                    <Columns>
-                                        <asp:BoundField DataField="CantidadSeccionAlmacen" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
-                                        <asp:BoundField DataField="SeccionAlmacenOrigen" HeaderText="Sección Almacen Origen" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:BoundField DataField="SeccionAlmacenDestino" HeaderText="Sección Almacen Destino" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEliminarSeccion" runat="server" OnClick="LnkEliminarSeccion_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la sección?" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
-
-
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 

Inventarios/ResguardoMaterial.aspx.vb

@@ -176,8 +176,6 @@ Partial Class Inventarios_ResguardoMaterial
         CantidadTotal = 0
         IndexSeccionAlmacen = 0
         CvePS = 0
-        CreaDtSeccionAlmacen()
-        CargaDdlAlmacen()
         TipoSeccionAlmacen = 0
 
     End Sub
@@ -783,16 +781,6 @@ Partial Class Inventarios_ResguardoMaterial
                         MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                         TieneError = True
                         Exit For
-                    Else
-                        If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                            For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
-                                If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                    TieneError = True
-                                    MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                    Exit For
-                                End If
-                            Next
-                        End If
                     End If
                     Cont += 1
                 Next
@@ -812,16 +800,7 @@ Partial Class Inventarios_ResguardoMaterial
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
-                                Else
+
-                                    If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                        For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
-                                            If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                                TieneError = True
-                                                MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                                Exit For
-                                            End If
-                                        Next
-                                    End If
                                 End If
                                 Cont += 1
                             Next
@@ -849,16 +828,7 @@ Partial Class Inventarios_ResguardoMaterial
                             MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                             TieneError = True
                             Exit For
-                        Else
+
-                            If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
-                                    If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                        TieneError = True
-                                        MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                        Exit For
-                                    End If
-                                Next
-                            End If
                         End If
                     End If
                     Cont += 1
@@ -880,16 +850,7 @@ Partial Class Inventarios_ResguardoMaterial
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
-                                Else
+
-                                    If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                        For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
-                                            If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                                TieneError = True
-                                                MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                                Exit For
-                                            End If
-                                        Next
-                                    End If
                                 End If
                                 Cont += 1
                             Next
@@ -1010,206 +971,6 @@ Partial Class Inventarios_ResguardoMaterial
         UpFiltraLiberacion.Update()
     End Sub
 
-#End Region
-
-#Region "SECCION ALMACEN"
-    Private Sub CreaDtSeccionAlmacen()
-        DtSeccionAlmacen = New DataTable
-        DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
-        DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenOrigen", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenDestino", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenOrigen", GetType(String))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenDestino", GetType(String))
-        DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("TipoSeccionAlmacen", GetType(Integer))
-    End Sub
-    Private Sub CargaDdlAlmacen()
-        DdlSeccionAlmacenOrigen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacenOrigen.DataBind()
-
-        DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacenDestino.DataBind()
-    End Sub
-    Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-        If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen origen.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'If Not DdlAlmacenDestino.SelectedValue.ToEntero > 0 AndAlso Not ChkTransitorio.Checked Then
-        '    Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-        GvSeccion.Columns(2).Visible = True
-        DivSeccionAlmacenDestino.Visible = True
-
-        DivSeccionAlmacenOrigen.Visible = True
-        GvSeccion.Columns(1).Visible = True
-
-        CantidadTotal = gvRow.DataKey("Cantidad").ToDecimal
-        IndexSeccionAlmacen = gvRow.RowIndex
-        CvePS = gvRow.DataKey("CvePS").ToEntero
-        TipoSeccionAlmacen = 1
-        CargaSeccionAlmacen()
-        RegistraScript("$('#DModalSeccionAlmacen').modal()")
-    End Sub
-
-    Protected Sub LnkSeccionAlmacenDestino_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-        If Not DdlAlmacenLiberacion.SelectedValue.ToEntero > 0 Then
-            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        DivSeccionAlmacenOrigen.Visible = True
-        DivSeccionAlmacenDestino.Visible = True
-        GvSeccion.Columns(1).Visible = True
-        GvSeccion.Columns(2).Visible = True
-
-        CantidadTotal = gvRow.FCTextBox("TxtCantidad").Text.ToDecimal
-        IndexSeccionAlmacen = gvRow.RowIndex
-        CvePS = gvRow.DataKey("CvePS").ToEntero
-        TipoSeccionAlmacen = 2
-        CargaSeccionAlmacen()
-        RegistraScript("$('#DModalSeccionAlmacen').modal()")
-
-    End Sub
-
-    Private Sub CargaSeccionAlmacen()
-        Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-        GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}  AND TipoSeccionAlmacen = {TipoSeccionAlmacen}")
-        GvSeccion.DataBind()
-
-        TxtCantidadSeccion.Text = ""
-        DdlSeccionAlmacenOrigen.SelectedIndex = 0
-        DdlSeccionAlmacenDestino.SelectedIndex = 0
-        Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
-        If CantidadRestante = 0 Then
-            RVTxtCantidad.MaximumValue = "1"
-            TxtCantidadSeccion.Enabled = False
-        Else
-            RVTxtCantidad.MaximumValue = CantidadRestante.ToString
-            TxtCantidadSeccion.Enabled = True
-        End If
-
-        If TipoSeccionAlmacen = 1 Then
-            If CantidadTotalSeccion > 0 Then
-                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False
-                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
-            Else
-                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True
-                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = ""
-            End If
-            If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
-                DdlAlmacen.Enabled = False
-                DdlAlmacen.ToolTip = "Cuenta con sección almacen"
-            Else
-                DdlAlmacen.Enabled = True
-                DdlAlmacen.ToolTip = ""
-            End If
-            UpGenerales.Update()
-
-        ElseIf TipoSeccionAlmacen = 2 Then
-            If CantidadTotalSeccion > 0 Then
-                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = False
-                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = "Cuenta con sección almacen"
-            Else
-                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = True
-                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = ""
-            End If
-            If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
-                DdlAlmacenLiberacion.Enabled = False
-                DdlAlmacenLiberacion.ToolTip = "Cuenta con sección almacen"
-            Else
-                DdlAlmacenLiberacion.Enabled = True
-                DdlAlmacenLiberacion.ToolTip = ""
-            End If
-            UpGridLiberacion.Update()
-            UpFiltraLiberacion.Update()
-        End If
-
-        UpModalSeccionAlmacen.Update()
-    End Sub
-
-    Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-
-        Dim ObjInv As New ClsInventarios
-        Dim CantidadDisponible As Decimal = 0
-        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacenOrigen.SelectedValue.ToEntero, If(TipoSeccionAlmacen = 1, DdlAlmacen.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero),
-                                                        CvePS, UsuarioActual.CveEmpresa) Then
-            If ObjInv.DtResultados.Rows.Count > 0 Then
-                CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
-            End If
-        End If
-        ObjInv.Dispose()
-
-        CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacenOrigen = {DdlSeccionAlmacenOrigen.SelectedValue} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-
-        If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
-            Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        Dim Row As DataRow = Nothing
-        DtSeccionAlmacen.AcceptChanges()
-        Row = DtSeccionAlmacen.NewRow
-        Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
-        Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
-        Row("CveSeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedValue.ToEntero
-        Row("SeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedItem.Text
-        Row("CveSeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedValue.ToEntero
-        Row("SeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedItem.Text
-        Row("CvePS") = CvePS
-        Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
-        Row("TipoSeccionAlmacen") = TipoSeccionAlmacen
-        DtSeccionAlmacen.Rows.Add(Row)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        Dim Index As Integer = 0
-        For Each Dr As DataRow In DtSeccionAlmacen.Rows
-            If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
-                Exit For
-            End If
-            Index += 1
-        Next
-        DtSeccionAlmacen.Rows.RemoveAt(Index)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
-    '    If Not CveVentaSurtir > 0 Then
-    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    Dim ObjInv As New ClsInventarios
-    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
-    '    End If
-    '    ObjInv.Dispose()
-    '    GvVerSeccionesAlmacen.DataBind()
-    '    UpVerSeccionesAlmacen.Update()
-    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
-    'End Sub
-
 #End Region
 
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click

Inventarios/TraspasoAlmacen.aspx

@@ -450,10 +450,10 @@
                                         <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="100px" />
                                         <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="90px" />
                                         <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="90px" />
-                                        <asp:BoundField HeaderText="Batch" DataField="Batch" ItemStyle-Width="90px" />
+                                        <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-Width="90px" />
                                         <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                             <ItemTemplate>
-                                                <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                                s
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField>
@@ -654,7 +654,7 @@
                                 <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="15%" />
                                 <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                     <ItemTemplate>
-                                        <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacenDestino" OnClick="LnkSeccionAlmacenDestino_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                        sss
                                     </ItemTemplate>
                                 </asp:TemplateField>
                             </Columns>
@@ -726,74 +726,7 @@
             </div>
         </div>
     </div>
-
+ 
-    <%--SECCION DE ALMACEN--%>
-    <div id="DModalSeccionAlmacen" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalSeccionAlmacen" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlSeccionAlmacen" Text="Sección Almacen" runat="server"> </asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-2">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtCantidadSeccion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvCantidadSeccion" runat="server" ControlToValidate="TxtCantidadSeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoCantidadSeccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvCantidadSeccion"></ajax:ValidatorCalloutExtender>
-                                    <asp:RangeValidator ID="RVTxtCantidad" runat="server" ControlToValidate="TxtCantidadSeccion" MinimumValue="0" MaximumValue="1" Type="Double" Text="<b><span style='text-decoration: underline'>ERROR:</span></b><br />No cuenta con la cantidad suficiente." ValidationGroup="VgmSeccion" />
-                                    <label for="<%= TxtCantidadSeccion.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-4" runat="server" id="DivSeccionAlmacenOrigen">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenOrigen" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacenOrigen" runat="server" ControlToValidate="DdlSeccionAlmacenOrigen" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen Origen''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VcoSeccionAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacenOrigen"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacenOrigen.ClientID.ToString()%>">Sección Almacen O.:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-4" runat="server" id="DivSeccionAlmacenDestino" visible="false">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlSeccionAlmacenDestino" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Seccion" DataValueField="CveSeccion">
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvSeccionAlmacenDestino" runat="server" ControlToValidate="DdlSeccionAlmacenDestino" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen Destino''</b> es necesario, por favor ingréselo." ValidationGroup="VgmSeccion"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VceSeccionAlmacenDestino" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacenDestino"></ajax:ValidatorCalloutExtender>
-                                    <label for="<%= DdlSeccionAlmacenDestino.ClientID.ToString()%>">Sección Almacen D.:</label>
-                                </div>
-                            </div>
-                            <div class="col-md-2">
-                                <asp:LinkButton ID="LnkAddSeccionAlmacen" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " OnClick="LnkAddSeccionAlmacen_Click" data-placement="top" ToolTip="Agregar Sección Almacen" runat="server" ValidationGroup="VgmSeccion"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:LinkButton>
-                            </div>
-                        </div>
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <asp:GridView ID="GvSeccion" runat="server" GridLines="None" ShowHeaderWhenEmpty="true"
-                                    CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true"
-                                    AutoGenerateColumns="False" EmptyDataText="No se han agregado datos"
-                                    DataKeyNames="Consec">
-                                    <Columns>
-                                        <asp:BoundField DataField="CantidadSeccionAlmacen" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
-                                        <asp:BoundField DataField="SeccionAlmacenOrigen" HeaderText="Sección Almacen Origen" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:BoundField DataField="SeccionAlmacenDestino" HeaderText="Sección Almacen Destino" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEliminarSeccion" runat="server" OnClick="LnkEliminarSeccion_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la sección?" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
     <%--CARGA EXCEL--%>
     <div id="DivCargaExcelConceptos" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">

OC/OC.aspx

@@ -1380,7 +1380,7 @@
                                         </asp:TemplateField>
                                         <asp:BoundField HeaderText="Serie" DataField="SerieLote" ItemStyle-Width="10%" Visible="false" />
                                         <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="10%" Visible="false" />
-                                        <asp:BoundField HeaderText="Batch" DataField="Batch" ItemStyle-Width="10%" Visible="false" />
+                                        <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="10%" Visible="false" />
                                     </Columns>
                                 </asp:GridView>
 

OC/OC.aspx.vb

@@ -2841,7 +2841,7 @@ Partial Class OC
                                     Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G")
                                     If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then
                                         For Each Dr As DataRow In ObjInventarios.DtResultados.Rows
-                                            If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                                            If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
                                                 TieneError = True
                                                 Exit For
                                             End If
@@ -4811,7 +4811,7 @@ Partial Class OC
         Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
 
         For Each fileItem As Archivo In Filesgral
-            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             Filename = fileItem.filename
         Next
 
@@ -6102,7 +6102,7 @@ Partial Class OC
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargarArchivo(Directorio, file.filename, Tipo)
         Else
@@ -6346,7 +6346,7 @@ Partial Class OC
     Private Function GetPS(Opt As String, Valor As String) As String
         Dim StrReturn As String = String.Empty
         Dim CvePS As Integer = 0
-        CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString.ToEntero
+        CvePS = GlobalDTPS(UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString.ToEntero
         If CvePS > 0 Then
             StrReturn = "True|" & CvePS.ToString
         Else
@@ -6819,7 +6819,7 @@ Partial Class OC
                     GVInv.Columns(4).Visible = True
                 End If
 
-                If e.Row.DBCampo("Batch") <> "" Then
+                If e.Row.DBCampo("FechaCaducidad") <> "" Then
                     GVInv.Columns(4).Visible = True
                 End If
 
@@ -7509,7 +7509,7 @@ Partial Class OC
     Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs)
         If TxtExcelCot.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
             CargarArchivoCot(Directorio, file.filename)
 
             CargaCotizaciones(CveOrdenCompra)

PortalGPS/InicioGPS.aspx

@@ -340,11 +340,5 @@
     }
 
     </script>
-    <script
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
-    </script>
-    <%--<script
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAJnZ1CoEUX425C20aqzFw4dYxFL_LfThk&libraries=places">
-    </script>--%>
 </asp:Content>
-

Ventas/Clientes.aspx.vb

@@ -3744,8 +3744,10 @@ Partial Class Clientes
     End Sub
 
     Private Sub GenerarRepCrystal(Formato As String)
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
         If Imagen.Exists Then

Ventas/PV.aspx

@@ -945,7 +945,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="Lote" HeaderText="Lote" />
-                                                            <asp:BoundField DataField="Batch" HeaderText="Batch" />
+                                                            <asp:BoundField DataField="FechaCaducidad" HeaderText="FechaCaducidad" />
                                                         </Columns>
                                                     </asp:GridView>
                                                 </div>

Ventas/PV.aspx.vb

@@ -1789,7 +1789,7 @@ Partial Class PV
             'Cargo de nueva cuenta el detalle de Ventas (Conceptos)
             If Not OcurrioError Then
                 Dim index As Integer = 0
-                For Each Row As DataRow In TmpDT.Rows
+                For Each Row As DataRow In TmpDT.FiltraParametros("EliminarDB = False").Rows
                     Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero()
                     If CveVentaDetalle > 0 Then
                         If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then
@@ -1847,19 +1847,45 @@ Partial Class PV
             End If
 
             'RECARGA LOS DATOS
-            If ObjVentas.GetVentaDetalle(CveVenta) Then
+            ObjFactura.Dispose()
-                TmpDT = ObjVentas.DtResultados.Copy()
+            ObjFactura = Nothing
-                ObjFactura.DtDetalle = TmpDT
+            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
-            Else
+
+            If ObjFactura Is Nothing Then
                 OcurrioError = True
+            Else
+                TmpDT = ObjFactura.DtDetalle
+                TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
+                TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+
+                Dim NumRowsPS As Integer = 0
+                Dim CantidadPS As Decimal = 0
+                For Each GvRow As GridViewRow In GvPS.Rows
+                    If GvRow.RowType = DataControlRowType.DataRow Then
+                        NumRowsPS += 1
+                        CantidadPS += GvRow.DataKey("Cantidad").ToDecimal()
+                    End If
+                Next
+
+                'VALIDA NUMERO DE REGISTROS
+                If TmpDT.Rows.Count <> NumRowsPS Then
+                    OcurrioError = True
+                End If
+
+                'VALIDA CANTIDAD DE REGISTROS
+                If TmpDT.SUM("Cantidad") <> CantidadPS Then
+                    OcurrioError = True
+                End If
+
             End If
 
+
             'GUARDA USADOS
-            If Not ObjVentas.EliminarUsados(CveVenta) Then
+            If Not OcurrioError AndAlso Not ObjVentas.EliminarUsados(CveVenta) Then
                 OcurrioError = True
             End If
 
-            If TmpDTRecepcionUsados IsNot Nothing Then
+            If Not OcurrioError AndAlso TmpDTRecepcionUsados IsNot Nothing Then
                 For Each drow As DataRow In TmpDTRecepcionUsados.Rows
                     If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero) Then
                         OcurrioError = True
@@ -1869,11 +1895,11 @@ Partial Class PV
             End If
 
             'GUARDAR AJUSTES'
-            If Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then
+            If Not OcurrioError AndAlso Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then
                 OcurrioError = True
             End If
 
-            If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then
+            If Not OcurrioError AndAlso TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then
                 For Each Dr As DataRow In TmpDTAjustes.Rows
                     If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
                                                                Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero,
@@ -1884,11 +1910,11 @@ Partial Class PV
             End If
 
             'GUARDAR POLIZA VIRTUAL
-            If Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then
+            If Not OcurrioError AndAlso Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then
                 OcurrioError = True
             End If
 
-            If TmpDTPolizaVirtual IsNot Nothing Then
+            If Not OcurrioError AndAlso TmpDTPolizaVirtual IsNot Nothing Then
                 For Each drow As DataRow In TmpDTPolizaVirtual.Rows
                     If ObjAcum.AddPolizaVirtual(CveVenta, drow("CveVentaDetalle").ToString().ToEntero(), drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("Descuento").ToString.ToDecimal,
                                                     drow("Total").ToString.ToDecimal, drow("TipoServicio").ToString.ToEntero, drow("TipoPoliza").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero, drow("AnioVehiculo").ToString.ToEntero, CBool(drow("TieneUsado").ToString),
@@ -2758,13 +2784,18 @@ Partial Class PV
 
 #Region "GVPS"
     Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting
-
         Dim DbRow As DataRow = Nothing
         DbRow = TmpDT.Rows(e.RowIndex)
 
-        EliminarUsados(DbRow("Consec").ToString().ToEntero())
+        Me.CveVentaDetalle = DbRow("CveVentaDetalle").ToString().ToEntero()
 
-        TmpDT.Rows.Remove(DbRow)
+        If Me.CveVentaDetalle <= 0 Then
+            EliminarUsados(DbRow("Consec").ToString().ToEntero())
+            TmpDT.Rows.Remove(DbRow)
+        Else
+            EliminarUsados()
+            DbRow("EliminarDB") = True
+        End If
 
         GvPS.DataSource = TmpDT.FiltraParametros("EliminarDB = False")
         DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
@@ -2774,6 +2805,9 @@ Partial Class PV
 
         Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
 
+        Me.CveVentaDetalle = -1
+
+
         UpContado.Update()
     End Sub
     Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound
@@ -2920,13 +2954,13 @@ Partial Class PV
             DtTemporal.Columns.Add("Lote", Type.GetType("System.String"))
         End If
 
-        If Not DtTemporal.Columns.Contains("Batch") Then
+        If Not DtTemporal.Columns.Contains("FechaCaducidad") Then
-            DtTemporal.Columns.Add("Batch", Type.GetType("System.String"))
+            DtTemporal.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
         End If
 
         GvInv.Columns(4).Visible = DtTemporal.MAX("SerieLote", "SerieLote <> ''") <> "" Or CveVenta <= 0
         GvInv.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
-        GvInv.Columns(6).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
+        GvInv.Columns(6).Visible = DtTemporal.MAX("FechaCaducidad", "FechaCaducidad <> ''") <> ""
 
         GvInv.DataSource = DtTemporal.FiltraParametros("EliminarDB = False")
         GvInv.DataBind()

Ventas/ProductosServicios.aspx.vb

@@ -2545,7 +2545,7 @@ Partial Class ProductosyServicios
         DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
         DdlAlmacen.DataBind()
 
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
         DdlSeccionAlmacen.DataBind()
 

Ventas/Ventas.aspx

@@ -1614,7 +1614,7 @@
                                                 Almacén: 
                                                 <asp:DropDownList ID="ddlAlmacen" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="select2me" Width="200px"></asp:DropDownList>
                                             </div>
-                                            <div class=" col-sm-8">
+                                            <div class=" col-sm-10">
                                                 <div class="Widthall" style="overflow-x: auto;">
                                                     <asp:GridView ID="GvInv" runat="server" AutoGenerateColumns="false" DataKeyNames="Origen" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" HeaderStyle-CssClass="Titulos" CssClass="table table-striped  table-hover" Style="text-align: center;" GridLines="None">
                                                         <Columns>
@@ -1655,7 +1655,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="Lote" HeaderText="Lote" />
-                                                            <asp:BoundField DataField="Batch" HeaderText="Batch" />
+                                                            <asp:BoundField DataField="FechaCaducidad" HeaderText="FechaCaducidad" />
                                                         </Columns>
                                                     </asp:GridView>
                                                 </div>