-

AF/AF.aspx.vb

@@ -2407,7 +2407,7 @@ Partial Class AF_AF
         Dim filemove As String = ""
 
         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(".", "")
             filemove = fileItem.filename
         Next
 

App_Code/ClsInventarios.vb

@@ -1133,7 +1133,7 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean
+    Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleGet")
 
@@ -1141,6 +1141,7 @@ Public Class ClsInventarios
             .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsOIEventos.vb

@@ -219,6 +219,294 @@ Public Class ClsOIEventos
     Public Property objCorreo As ObjEventosCorreo
 
 #End Region
+#Region "Cuestionario"
+
+    Public Function GetUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveSeguir As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoaUnoCuestionario_UsuariosGet", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario)
+            .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function UpUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveSeguir As Integer, conUser As Boolean) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoaUnoCuestionario_UsuarioUp", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario)
+            .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+            .Add("@conUser", SqlDbType.Bit).Value = (conUser)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function AddUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveSeguir As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoaUnoCuestionario_UsuarioAdd", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario)
+            .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function RemoveUnoaUnoCuestionario_Usuarios(cveUsuario As Integer, CveSeguir As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoaUnoCuestionario_UsuarioRemove", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSeguir", SqlDbType.Int).Value = (CveSeguir)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+
+    Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Int32, cveUsuario As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoaUnoCuestionarioGet", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function GetUnoaUnoCuestionarioPreguntas(cveUnoaUnoCuestionario As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoaUnoCuestionarioPreguntasGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = cveUnoaUnoCuestionario
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer)) As Boolean
+        Dim retorno As Boolean = False
+
+        Dim xmlPreguntas As System.Xml.Linq.XDocument = Nothing
+        If ListPreguntas IsNot Nothing AndAlso ListPreguntas.Count > 0 Then
+            xmlPreguntas = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("Preguntas", ListPreguntas.[Select](Function(x) New System.Xml.Linq.XElement("CveUnoaUnoPregunta", x))))
+        End If
+        DataAdapter("PA_OI_UnoaUnoCuestionarioAdd", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario)
+            .Add("@Comentario", SqlDbType.VarChar).Value = (Comentario)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario)
+            .Add("@xmlPreguntas", SqlDbType.Xml).Value = If(xmlPreguntas Is Nothing, DBNull.Value, DirectCast(xmlPreguntas.ToString(), Object))
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function UpUnoaUnoCuestionario(CveUnoaUnoCuestionario As Integer, Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer)) As Boolean
+        Dim retorno As Boolean = False
+
+        Dim xmlPreguntas As System.Xml.Linq.XDocument = Nothing
+        If ListPreguntas IsNot Nothing AndAlso ListPreguntas.Count > 0 Then
+            xmlPreguntas = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("Preguntas", ListPreguntas.[Select](Function(x) New System.Xml.Linq.XElement("CveUnoaUnoPregunta", x))))
+        End If
+        DataAdapter("PA_OI_UnoaUnoCuestionarioUp", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (CveUnoaUnoCuestionario)
+            .Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario)
+            .Add("@Comentario", SqlDbType.VarChar).Value = (Comentario)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario)
+            .Add("@xmlPreguntas", SqlDbType.Xml).Value = If(xmlPreguntas Is Nothing, DBNull.Value, DirectCast(xmlPreguntas.ToString(), Object))
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function RemoveUnoaUnoCuestionario(CveUnoaUnoCuestionario As Integer, CveUsuario As Integer) As Boolean
+        Dim retorno As Boolean = False
+
+        DataAdapter("PA_OI_UnoaUnoRemoveCuestionario", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (CveUnoaUnoCuestionario)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+#End Region
+#Region "uno a uno"
+    Public Function GetUnoAUnoSiguiendoA(CveUsuario As Integer, CveUsuarioSeguidor As Integer, cveEmpresa As Integer, Optional Fechastr As String = "") As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoAUnoSiguiendoA", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario)
+            .Add("@CveUsuarioSeguidor", SqlDbType.Int).Value = (CveUsuarioSeguidor)
+            .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa)
+            .Add("@Fechastr", SqlDbType.VarChar).Value = (Fechastr)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function GetUnoaUnoPregunta(cveUnoaUnoPregunta As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_GetUnoaUnoPregunta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@cveUnoaUnoPregunta", SqlDbType.Int).Value = (cveUnoaUnoPregunta)
+            .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 UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function AddUnoaUnoPregunta(Pregunta As String, cveUnoaUnoPreguntaVinculo As Int32, CveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_AddUnoaUnoPregunta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Pregunta", SqlDbType.VarChar).Value = (Pregunta)
+            .Add("@cveUnoaUnoPreguntaVinculo", SqlDbType.Int).Value = (cveUnoaUnoPreguntaVinculo)
+            .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng)
+            .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function UpUnoaUnoPregunta(cveUnoaUnoPregunta As Int32, Pregunta As String, cveUnoaUnoPreguntaVinculo As Int32, CveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UpUnoaUnoPregunta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@cveUnoaUnoPregunta", SqlDbType.Int).Value = (cveUnoaUnoPregunta)
+            .Add("@Pregunta", SqlDbType.VarChar).Value = (Pregunta)
+            .Add("@cveUnoaUnoPreguntaVinculo", SqlDbType.Int).Value = (cveUnoaUnoPreguntaVinculo)
+            .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng)
+            .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function RemoveUnoaUnoPregunta(cveUnoaUnoPregunta As Integer, CveEmpresa As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_RemoveUnoaUnoPregunta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@cveUnoaUnoPregunta", SqlDbType.Int).Value = (cveUnoaUnoPregunta)
+            .Add("@cveEmpresa", SqlDbType.Int).Value = (CveEmpresa)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el UnoaUnoPregunta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function UnoAUnoTableroGet(cveEmpresa As Int32, fecha As String, cveUsuario As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoAUnoTableroGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Fecha", SqlDbType.Date).Value = (fecha)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+            .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 Tablero Uno A Uno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return retorno
+    End Function
+    Public Function UnoAUnoTableroAdd(cveEmpresa As Int32, fecha As String, cveUsuario As Int32, CveUnoaUnoPregunta As Integer, Comentarios As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_OI_UnoAUnoADD", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Fecha", SqlDbType.Date).Value = (fecha)
+            .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+            .Add("@CveUnoaUnoPregunta", SqlDbType.Int).Value = (CveUnoaUnoPregunta)
+            .Add("@Comentarios", SqlDbType.VarChar).Value = (Comentarios)
+            .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 Tablero Uno A Uno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return retorno
+    End Function
+#End Region
 #Region "Trello"
     Public Function GetTablero(cveTablero As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
         Dim retorno As Boolean = False

App_Code/ClsPaginas.vb

@@ -1182,11 +1182,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, Optional Estatus 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, Optional Codigo As String = "-1") As DataTable
         Get
             Dim ObjPS As New ClsProductosServicios
 
-            If ObjPS.GetPS(CvePS, -1, CveEmpresa, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta, pEstado:=Estatus) Then
+            If ObjPS.GetPS(CvePS, -1, CveEmpresa, Codigo:=Codigo, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta, pEstado:=Estatus) Then
                 GlobalDTPS = ObjPS.DtResultados
             Else
                 GlobalDTPS = Nothing
@@ -3630,6 +3630,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), -1)
+            PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), -1)
+            PaginaDict.Add("/OI/UnoaUnoConfiguracion.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), -1)
             PaginaDict.Add("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1)

App_Code/ClsProductosServicios.vb

@@ -399,7 +399,8 @@ Public Class ClsProductosServicios
                           Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                           Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Integer
+                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
+                          Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -473,6 +474,11 @@ Public Class ClsProductosServicios
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
             .Add("@Litraje", SqlDbType.Float).Value = Litraje
             .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
+
+            .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie
+            .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
+            .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
+            .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
         End With
 
         Try
@@ -620,6 +626,7 @@ Public Class ClsProductosServicios
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                              Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
                              Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Boolean
+
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosUpdate")
@@ -699,7 +706,6 @@ Public Class ClsProductosServicios
             .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
             .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
             .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
-
         End With
 
         Try

App_Code/modExtensiones.vb

@@ -68,6 +68,53 @@ Namespace Extensiones
 #End Region
 
 
+        Public Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+            GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+            Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath)
+
+            Dim unnamed As Integer = 0
+            Dim cols As Integer
+            Dim columns As String()
+            Dim curRow As Integer = 0
+            Dim curCol As Integer = 0
+            Dim dataTable As DataTable = New DataTable()
+            Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0)
+
+            For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+
+                If firstRowHasHeaders Then
+
+                    If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
+                        dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
+                    Else
+                        dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
+                    End If
+
+                    curRow = 1
+                Else
+                    dataTable.Columns.Add("Column " & (cols + 1))
+                End If
+            Next
+
+            While curRow < worksheet.Rows.Count
+                columns = New String(cols - 1) {}
+
+                For curCol = 0 To cols - 1
+
+                    If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
+                        columns(curCol) = ""
+                    Else
+                        columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
+                    End If
+                Next
+
+                dataTable.Rows.Add(columns)
+                curRow += 1
+            End While
+
+            Return dataTable
+        End Function
+
         Public Function CadenaConexion() As String
             Dim BaseDatos As String = "Ventas"
             'If Not IsNothing(System.Web.HttpContext.Current) AndAlso Not IsNothing(System.Web.HttpContext.Current.Session) Then

Bancos/CreditosPagoMultiple.aspx.vb

@@ -216,7 +216,7 @@ Partial Class Bancos_CreditosPagoMultiple
         Dim filemove As String = ""
         Dim Comprobante As String = ""
         For Each fileItem As Archivo In filesgral
-            Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
+            Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             filemove = fileItem.filename
         Next
 

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -718,13 +718,15 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If SBErrores.ToString.Length > 0 Then
             Mensaje.Append("<a class='Texto' data-toggle='collapse' data-target='#ErroresCuentas'>Errores Cuentas</a><br>")
-            Mensaje.Append("<div id='ErroresCuentas' Class='collapse'")
+            Mensaje.Append("<div id='ErroresCuentas' Class='collapse'>")
             Mensaje.Append(SBErrores.ToString)
             Mensaje.Append("</div>")
         End If
 
         If NombreArchivoBancomer.Length > 0 Or NombreArchivoInterbancario.Length > 0 Then
             Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
+        Else
+            Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia)
         End If
 
 
@@ -1100,8 +1102,9 @@ Partial Class Bancos_PagoElectronicoGrupos
             End If
 
 
+        Else
 
-
+            Alert(MENSAJEError.ToString, TipoMensaje.MsgAdvertencia)
 
         End If
 
@@ -2417,7 +2420,7 @@ Partial Class Bancos_PagoElectronicoGrupos
             TipoMasiva = 2
             GvProveedores.Columns(0).HeaderText = "Funcionario"
             CargaFyE()
-            BtnGenerarProveedores.Text = "Generar Layout Alta Funcionarios"
+            BtnGenerarProveedores.Text = "Generar LayoutBtnGenerarPago Alta Funcionarios"
         End If
     End Sub
     Protected Sub BtnGenerarProveedores_Click(sender As Object, e As EventArgs)

Bancos/PopIECompras.aspx.vb

@@ -979,6 +979,9 @@ Partial Class Bancos_PopIECompras
             Case 2
                 LblPagueseA.Text = "Beneficiario"
         End Select
+
+
+
         CargaCuentas()
         CargaCuentasDepositos()
         UpDatos.Update()
@@ -3336,7 +3339,10 @@ Partial Class Bancos_PopIECompras
     End Sub
 
     Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True)
+
+        If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
             Try
+
                 Dim Msg As String = ""
                 If NombreArchivo <> "-1" Then ' 
 
@@ -3380,6 +3386,9 @@ Partial Class Bancos_PopIECompras
                 OnError("Ocurrió error al mandar MAIL", ex)
 
             End Try
+        End If
+
+
     End Sub
 #End Region
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -2377,10 +2377,23 @@ Partial Class Bancos_ProveedoresAbonar
         'cuando es cheque
         If DdlTipoTransaccion.SelectedValue = "1" Then
             ChkAbonoCuenta.Visible = True
+
+
         Else
             ChkAbonoCuenta.Visible = False
         End If
 
+        If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
+            ChkEnviarCorreo.Enabled = False
+            ChkEnviarCorreo.Checked = False
+        Else
+            ChkEnviarCorreo.Enabled = True
+            ChkEnviarCorreo.Checked = True
+        End If
+
+
+
+
         CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
         RecargaCuentasDepositos()
 

Bancos/RepSaldosDetalle.aspx

@@ -6,25 +6,49 @@
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
     <li>
-    <asp:LinkButton ID="ImgExcel" runat="server"   ><img src="/Imagenes/IconoExcel.gif" /> Generar</asp:LinkButton></li>
+    <asp:LinkButton ID="ImgExcel" runat="server"   ><img src="/Imagenes/IconoExcel.gif" /> Excel</asp:LinkButton></li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Saldos Bancarios Detalle&nbsp;-&nbsp;<asp:Label ID="LblCuenta" runat="server" Text=""></asp:Label>
+    Reporte de Saldos Bancarios Detalle
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
       <li>
-        <asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> PDF</asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
     <br />
     <div class="row">
-        <div class="col-md-11">
+        <div class="col-md-1" >
+            <asp:Label runat="server" Width="100%" Style="text-align: right;">Banco: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" Font-Bold="true" ID="lbBancoNombre"></asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" ID="lblBancoCuenta" Width="100%" Style="text-align: right;">Cuenta: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label ID="LblCuenta" Font-Bold="true" runat="server" Text=""></asp:Label>
+        </div>
+        <div class="col-md-1" >
+            <asp:Label runat="server" Width="100%" Style="text-align: right;">Fecha Inicial: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" Font-Bold="true" ID="LblFechaI"></asp:Label>
+        </div>
+        <div class="col-md-1" >
+            <asp:Label runat="server" Width="100%" Style="text-align: right;">Fecha Fin: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" Font-Bold="true" ID="LblFechaF"></asp:Label>
+        </div>
+        <div class="col-md-3">
             <asp:Label ID="LblTextoSaldoInicial" runat="server" Text="Saldo Inicial: $ " Width="100%" Style="text-align: right;"></asp:Label>
         </div>
         <div class="col-md-1">
-            <asp:Label ID="LblSaldoInicial" Font-Bold="true" runat="server" Text="" Width="100%" Style="text-align: right;"></asp:Label>
+            <asp:Label ID="LblSaldoInicial" Font-Bold="true" runat="server" Text="" Width="100%" ></asp:Label>
         </div>
     </div>
     <br />

Bancos/RepSaldosDetalle.aspx.vb

@@ -155,6 +155,9 @@ Partial Class Bancos_RepSaldosDetalle
                 Cuenta = dr("NumCuenta").ToString
                 CLABE = dr("CLABE").ToString
                 Banco = dr("Banco").ToString
+                lbBancoNombre.Text = Banco
+                LblFechaI.Text = FechaInicio
+                LblFechaF.Text = FechaFin
                 If CveCuenta > 0 Then
                     LblCuenta.Text = dr("NumCuenta").ToString
                     LblSaldoInicial.Text = dr("SaldoInicial").ToString.ToDouble.FormatoNumero
@@ -174,13 +177,15 @@ Partial Class Bancos_RepSaldosDetalle
     End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
+        ImprimirReporte("Excel")
     End Sub
 
-
-
 #Region "P D F"
     Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
+        ImprimirReporte("PDF")
+    End Sub
+
+    Private Sub ImprimirReporte(formato As String)
         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)
 
@@ -215,7 +220,7 @@ Partial Class Bancos_RepSaldosDetalle
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-        ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle")
+        ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato)
 
         Ban.Dispose()
     End Sub

Bancos/Reportes.aspx.vb

@@ -141,7 +141,7 @@ Partial Class Bancos_Reportes
                         rv.LocalReport.DataSources.Clear()
                         rv.LocalReport.DataSources.Add(rds)
                         rv.LocalReport.DataSources.Add(rds2)
-                        rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc"
+                        rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\rptChequeMovimientos.rdlc"
                         rv.LocalReport.Refresh()
 
                         Dim paramList As New List(Of ReportParameter)

Compras/Proveedores.aspx.vb

@@ -2625,7 +2625,7 @@ Partial Class Compras_Proveedores
         Dim filemove As String = ""
 
         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(".", "")
             filemove = fileItem.filename
         Next
 
@@ -2871,7 +2871,7 @@ Partial Class Compras_Proveedores
 
             Try
 
-                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(".", "")
                 Dim tempArray() As String
                 tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
 

Empresas/72/Formatos/ConsumoInterno.rdlc

@@ -6,19 +6,22 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.08025cm</Width>
+              <Width>1.10177cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.86537cm</Width>
+              <Width>2.88689cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>10.83004cm</Width>
+              <Width>7.80282cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.36735cm</Width>
+              <Width>2.38887cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.1384cm</Width>
+              <Width>2.86584cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.15992cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -169,7 +172,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontFamily>myriad Pro</FontFamily>
                                 <FontSize>8pt</FontSize>
@@ -205,6 +208,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox25">
@@ -356,14 +404,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontFamily>myriad Pro</FontFamily>
                                 <FontSize>7.5pt</FontSize>
@@ -373,7 +421,39 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>#0e2455</Color>
@@ -429,6 +509,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -445,7 +526,7 @@
         <Top>0.32135cm</Top>
         <Left>0.15491cm</Left>
         <Height>0.78196cm</Height>
-        <Width>19.28141cm</Width>
+        <Width>19.20611cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1645,8 +1726,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
         <Field Name="Observaciones">

Empresas/72/Formatos/DevolucionCliente.rdlc

@@ -6,19 +6,22 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.4138cm</Width>
+              <Width>1.08751cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.86537cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.90885cm</Width>
+              <Width>5.59405cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.36735cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.7734cm</Width>
+              <Width>2.92336cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.35004cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -169,7 +172,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -205,6 +208,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox17">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox17</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox25">
@@ -350,14 +398,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                               </Style>
@@ -366,7 +414,37 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -419,6 +497,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -435,7 +514,7 @@
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
         <Height>0.96717cm</Height>
-        <Width>17.32877cm</Width>
+        <Width>17.18768cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -667,7 +746,7 @@
     <Height>1.28125in</Height>
     <Style />
   </Body>
-  <Width>6.91494in</Width>
+  <Width>6.87327in</Width>
   <Page>
     <PageHeader>
       <Height>5.57099cm</Height>
@@ -1523,8 +1602,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/DevolucionProveedor.rdlc

@@ -6,19 +6,22 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.57983cm</Width>
+              <Width>1.31525cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.08131cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.53279cm</Width>
+              <Width>1.29467cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>10.75259cm</Width>
+              <Width>9.37148cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.3418cm</Width>
+              <Width>2.37522cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.85039cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -210,7 +213,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -245,6 +248,50 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -382,14 +429,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote1">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                               </Style>
@@ -400,7 +447,39 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote1</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(rownumber(nothing) = 1, "1pt", "0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -423,6 +502,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1014,8 +1094,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/EntradaGarantia.rdlc

@@ -6,19 +6,22 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.4138cm</Width>
+              <Width>1.19235cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.86537cm</Width>
+              <Width>2.76934cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.90885cm</Width>
+              <Width>6.51065cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.36735cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.7734cm</Width>
+              <Width>2.8175cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.6716cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -169,7 +172,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -205,6 +208,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox10">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox10</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox25">
@@ -214,7 +262,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Unidad Medida</Value>
+                              <Value>U. M.</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -350,14 +398,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                               </Style>
@@ -366,7 +414,37 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -419,6 +497,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -435,7 +514,7 @@
         <Top>0.17639cm</Top>
         <Left>0.09031cm</Left>
         <Height>0.96717cm</Height>
-        <Width>17.32877cm</Width>
+        <Width>17.32879cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -458,7 +537,7 @@
     <Height>0.54167in</Height>
     <Style />
   </Body>
-  <Width>6.8759in</Width>
+  <Width>6.85791in</Width>
   <Page>
     <PageHeader>
       <Height>7.62974cm</Height>
@@ -1283,8 +1362,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/EntradaSalida.rdlc

@@ -12,13 +12,16 @@
               <Width>2.83362cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.8771cm</Width>
+              <Width>6.46008cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.3356cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.74165cm</Width>
+              <Width>2.66764cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.44519cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -169,7 +172,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -205,6 +208,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox17">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox17</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox25">
@@ -214,7 +262,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Unidad Medida</Value>
+                              <Value>U.M.</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -350,14 +398,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                               </Style>
@@ -366,7 +414,37 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -419,6 +497,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -435,7 +514,7 @@
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
         <Height>0.96717cm</Height>
-        <Width>17.17002cm</Width>
+        <Width>17.12418cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1523,8 +1602,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/Entradas.rdlc

@@ -12,13 +12,16 @@
               <Width>2.06688cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.9493cm</Width>
+              <Width>6.26873cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.51129cm</Width>
+              <Width>1.69187cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.43594cm</Width>
+              <Width>2.8175cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.11844cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.56514cm</Width>
@@ -175,7 +178,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontFamily>MYRIAd Pro</FontFamily>
                                 <FontSize>8pt</FontSize>
@@ -211,6 +214,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontFamily>MYRIAd Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox13">
@@ -454,14 +502,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontFamily>MYRIAd Pro</FontFamily>
                                 <FontSize>7.5pt</FontSize>
@@ -471,7 +519,39 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontFamily>MYRIAd Pro</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>#0e2455</Color>
@@ -603,6 +683,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -619,7 +700,7 @@
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
         <Height>0.96717cm</Height>
-        <Width>19.16931cm</Width>
+        <Width>19.16932cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -787,7 +868,7 @@
     <Height>1.75444in</Height>
     <Style />
   </Body>
-  <Width>7.65766in</Width>
+  <Width>7.59789in</Width>
   <Page>
     <PageHeader>
       <Height>4.936cm</Height>
@@ -1584,8 +1665,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/Inicial.rdlc

@@ -6,16 +6,19 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.1404cm</Width>
+              <Width>1.05339cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.59197cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.63545cm</Width>
+              <Width>6.3576cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.5cm</Width>
+              <Width>2.35639cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.50847cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.42465cm</Width>
@@ -175,7 +178,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -211,6 +214,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox2</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox13">
@@ -448,14 +496,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                               </Style>
@@ -464,7 +512,37 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -589,6 +667,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -783,7 +862,7 @@
     <Height>1.83333in</Height>
     <Style />
   </Body>
-  <Width>7.34178in</Width>
+  <Width>7.30197in</Width>
   <Page>
     <PageHeader>
       <Height>3.45433cm</Height>
@@ -1223,8 +1302,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/RepInventarioFisicoDetalle.rdlc

@@ -6,7 +6,7 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>0.79429cm</Width>
+              <Width>0.68396cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.97898cm</Width>
@@ -18,13 +18,16 @@
               <Width>2.21979cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>9.02301cm</Width>
+              <Width>6.63334cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.70612cm</Width>
+              <Width>2.66899cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.36486cm</Width>
+              <Width>2.64746cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.25453cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.82873cm</Width>
@@ -251,7 +254,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>SerieLote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -283,6 +286,47 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox45">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox45</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>DimGray</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <LeftBorder>
+                          <Style>None</Style>
+                        </LeftBorder>
+                        <RightBorder>
+                          <Style>None</Style>
+                        </RightBorder>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox3">
@@ -590,7 +634,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                                 <Format>dd/MM/yyyy</Format>
@@ -616,6 +660,40 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Cantidad">
@@ -737,6 +815,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -2104,8 +2183,12 @@
           <DataField>PS</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
         <Field Name="Cantidad">

Empresas/72/Formatos/Salidas.rdlc

@@ -6,19 +6,22 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.08025cm</Width>
+              <Width>1.04906cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.86537cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>10.83004cm</Width>
+              <Width>8.0952cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.36735cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.1384cm</Width>
+              <Width>2.73484cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.16959cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -169,7 +172,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontFamily>myriad Pro</FontFamily>
                                 <FontSize>8pt</FontSize>
@@ -205,6 +208,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox25">
@@ -356,14 +404,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontFamily>myriad Pro</FontFamily>
                                 <FontSize>7.5pt</FontSize>
@@ -373,7 +421,39 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>#0e2455</Color>
@@ -429,6 +509,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1930,8 +2011,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/Salidas2.rdlc

@@ -12,13 +12,16 @@
               <Width>2.86537cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>9.8615cm</Width>
+              <Width>7.37333cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.36735cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.7734cm</Width>
+              <Width>2.83354cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.42802cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -166,7 +169,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -201,6 +204,50 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox25">
@@ -348,14 +395,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                               </Style>
@@ -364,7 +411,38 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#0e2455</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>#0e2455</Color>
@@ -419,6 +497,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -435,7 +514,7 @@
         <Top>0.17639cm</Top>
         <Left>0.12912cm</Left>
         <Height>0.78196cm</Height>
-        <Width>19.28142cm</Width>
+        <Width>19.28141cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -489,7 +568,7 @@
     <Height>1.76239in</Height>
     <Style />
   </Body>
-  <Width>7.68771in</Width>
+  <Width>7.65583in</Width>
   <Page>
     <PageHeader>
       <Height>8.50287cm</Height>
@@ -1654,8 +1733,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/SalidasGarantia.rdlc

@@ -12,13 +12,16 @@
               <Width>2.86537cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.90885cm</Width>
+              <Width>5.69408cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.36735cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.7734cm</Width>
+              <Width>2.69107cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.29712cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -169,7 +172,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -205,6 +208,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox10">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox10</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox25">
@@ -350,14 +398,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>7.5pt</FontSize>
                               </Style>
@@ -366,7 +414,37 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -419,6 +497,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -435,7 +514,7 @@
         <Top>0.17639cm</Top>
         <Left>0.09031cm</Left>
         <Height>0.96717cm</Height>
-        <Width>17.32877cm</Width>
+        <Width>17.32879cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -458,7 +537,7 @@
     <Height>0.54167in</Height>
     <Style />
   </Body>
-  <Width>6.8759in</Width>
+  <Width>6.85791in</Width>
   <Page>
     <PageHeader>
       <Height>7.62974cm</Height>
@@ -1283,8 +1362,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/Traslado.rdlc

@@ -15,11 +15,14 @@
               <Width>2.34246cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>11.56087cm</Width>
+              <Width>8.36884cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.64409cm</Width>
             </TablixColumn>
+            <TablixColumn>
+              <Width>3.08208cm</Width>
+            </TablixColumn>
           </TablixColumns>
           <TablixRows>
             <TablixRow>
@@ -223,7 +226,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontWeight>Bold</FontWeight>
                                 <Color>White</Color>
@@ -259,6 +262,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox10">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox10</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>#0e2455</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -401,14 +449,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
                               </Style>
@@ -419,7 +467,40 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <VerticalAlign>Bottom</VerticalAlign>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -443,6 +524,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -459,7 +541,7 @@
         <Top>0.07056cm</Top>
         <Left>0.03488cm</Left>
         <Height>0.92264cm</Height>
-        <Width>20.29478cm</Width>
+        <Width>20.18483cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -545,8 +627,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox31</rd:DefaultName>
-        <Top>1.15947cm</Top>
+        <Top>1.13431cm</Top>
-        <Left>2.85732cm</Left>
+        <Left>2.8926cm</Left>
         <Height>0.90014cm</Height>
         <Width>17.46676cm</Width>
         <ZIndex>3</ZIndex>
@@ -1564,8 +1646,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/72/Formatos/TrasladoAlmacen.rdlc

@@ -6,7 +6,7 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.37635cm</Width>
+              <Width>1.03892cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.74824cm</Width>
@@ -15,21 +15,24 @@
               <Width>1.41283cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>8.7207cm</Width>
+              <Width>7.13876cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.50488cm</Width>
+              <Width>2.21384cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.51239cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.15376cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.60235cm</Width>
+              <Width>2.07958cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
             <TablixRow>
-              <Height>0.51314cm</Height>
+              <Height>1.01502cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -229,7 +232,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Serie/Lote</Value>
+                              <Value>Serie</Value>
                               <Style>
                                 <FontWeight>Bold</FontWeight>
                                 <Color>White</Color>
@@ -265,6 +268,51 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Sección Almacén</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox2</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <BackgroundColor>#0e2455</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox14">
@@ -497,14 +545,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieLote">
+                    <Textbox Name="Serie">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SerieLote.Value</Value>
+                              <Value>=Fields!Serie.Value</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
                               </Style>
@@ -515,7 +563,40 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieLote</rd:DefaultName>
+                      <rd:DefaultName>Serie</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <VerticalAlign>Bottom</VerticalAlign>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SeccionAlmacen">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -772,6 +853,40 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <VerticalAlign>Bottom</VerticalAlign>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox66">
@@ -1026,6 +1141,40 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox18">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <VerticalAlign>Bottom</VerticalAlign>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox70">
@@ -1280,6 +1429,40 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox42">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox42</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <VerticalAlign>Bottom</VerticalAlign>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox76">
@@ -1371,6 +1554,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1395,8 +1579,8 @@
         <DataSetName>DsInventarios</DataSetName>
         <Top>0.07056cm</Top>
         <Left>0.03488cm</Left>
-        <Height>2.80201cm</Height>
+        <Height>3.30389cm</Height>
-        <Width>20.51911cm</Width>
+        <Width>20.29832cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1504,7 +1688,7 @@
     <Height>1.68587in</Height>
     <Style />
   </Body>
-  <Width>8.09683in</Width>
+  <Width>8.0052in</Width>
   <Page>
     <PageHeader>
       <Height>8.33298cm</Height>
@@ -2984,8 +3168,12 @@
           <DataField>Almacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="SerieLote">
+        <Field Name="Serie">
-          <DataField>SerieLote</DataField>
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SeccionAlmacen">
+          <DataField>SeccionAlmacen</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>

Empresas/Grales/Formatos/EquiposGPS.rdlc

@@ -35,10 +35,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox9</rd:DefaultName>
-        <Top>0.0441cm</Top>
+        <Top>0.66321cm</Top>
-        <Left>0.09671cm</Left>
+        <Left>0.16285cm</Left>
         <Height>0.478cm</Height>
-        <Width>17.92498cm</Width>
+        <Width>11.30626cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -50,7 +50,7 @@
         </Style>
       </Textbox>
       <Line Name="Line1">
-        <Top>0.62012cm</Top>
+        <Top>1.25512cm</Top>
         <Left>0.22583cm</Left>
         <Height>0cm</Height>
         <Width>17.79586cm</Width>
@@ -65,16 +65,16 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>3.65719cm</Width>
+              <Width>2.95132cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.49856cm</Width>
+              <Width>2.94294cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.44923cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.99986cm</Width>
+              <Width>1.5894cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.68423cm</Width>
@@ -82,6 +82,9 @@
             <TablixColumn>
               <Width>2.54257cm</Width>
             </TablixColumn>
+            <TablixColumn>
+              <Width>1.5217cm</Width>
+            </TablixColumn>
             <TablixColumn>
               <Width>2.19006cm</Width>
             </TablixColumn>
@@ -288,6 +291,39 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Estatus</Value>
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox3">
@@ -531,6 +567,40 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Estatus">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=iif(Fields!Estatus.Value="1","Activo","Inactivo")</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Estatus</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="FechaIng">
@@ -578,6 +648,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -591,9 +662,9 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
-        <Top>0.79651cm</Top>
+        <Top>1.43151cm</Top>
         <Height>1.16648cm</Height>
-        <Width>18.02169cm</Width>
+        <Width>17.87145cm</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -601,8 +672,56 @@
           </Border>
         </Style>
       </Tablix>
+      <Textbox Name="Textbox13">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cliente: </Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Cliente.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox13</rd:DefaultName>
+        <Top>0.0441cm</Top>
+        <Left>0.16285cm</Left>
+        <Height>0.478cm</Height>
+        <Width>11.30626cm</Width>
+        <ZIndex>3</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>0.86559in</Height>
+    <Height>1.13642in</Height>
     <Style />
   </Body>
   <Width>7.09515in</Width>
@@ -652,7 +771,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>REPORTE SERVICIOS</Value>
+                  <Value>RELACIÓN DE EQUIPOS GPS</Value>
                   <Style>
                     <FontSize>10.5pt</FontSize>
                     <FontWeight>Bold</FontWeight>
@@ -862,11 +981,13 @@
                   <Value>=Now</Value>
                   <Style>
                     <FontSize>9pt</FontSize>
-                    <Format>D</Format>
+                    <Format>dd/MM/yyyy</Format>
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox11</rd:DefaultName>
@@ -958,6 +1079,10 @@
           <DataField>FechaIng</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Estatus">
+          <DataField>Estatus</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>
@@ -994,6 +1119,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Cliente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

Empresas/Grales/Formatos/RepSaldosDetalle.rdlc

@@ -5,7 +5,7 @@
       <Line Name="Line1">
         <Top>0.08792cm</Top>
         <Height>0cm</Height>
-        <Width>20.43968cm</Width>
+        <Width>19.02093cm</Width>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -16,31 +16,31 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1cm</Width>
+              <Width>0.99817cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.7cm</Width>
+              <Width>0.89235cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.6439cm</Width>
+              <Width>1.64207cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>6.48678cm</Width>
+              <Width>6.29065cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.63648cm</Width>
+              <Width>2.28597cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.29cm</Width>
+              <Width>1.28817cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.83034cm</Width>
+              <Width>1.82851cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.70625cm</Width>
+              <Width>1.70442cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.02375cm</Width>
+              <Width>2.02192cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -473,7 +473,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.83813cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -803,8 +803,8 @@
         <DataSetName>DataSet1</DataSetName>
         <Top>0.36336cm</Top>
         <Left>0.06868cm</Left>
-        <Height>1.06771cm</Height>
+        <Height>1.30584cm</Height>
-        <Width>20.3175cm</Width>
+        <Width>18.95225cm</Width>
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
@@ -813,13 +813,13 @@
         </Style>
       </Tablix>
     </ReportItems>
-    <Height>0.60091in</Height>
+    <Height>0.79883in</Height>
     <Style />
   </Body>
-  <Width>8.06795in</Width>
+  <Width>7.48856in</Width>
   <Page>
     <PageHeader>
-      <Height>2.94217cm</Height>
+      <Height>3.048cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -850,7 +850,9 @@
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
@@ -979,7 +981,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
           <Top>0.11854cm</Top>
-          <Left>16.8543cm</Left>
+          <Left>15.48905cm</Left>
           <Height>1.76352cm</Height>
           <Width>3.53188cm</Width>
           <ZIndex>3</ZIndex>
@@ -1038,7 +1040,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
           <Top>2.41272cm</Top>
-          <Left>15.92826cm</Left>
+          <Left>14.56301cm</Left>
           <Height>0.52945cm</Height>
           <Width>4.45792cm</Width>
           <ZIndex>4</ZIndex>
@@ -1110,7 +1112,7 @@
           <Top>0.11437cm</Top>
           <Left>0.10583cm</Left>
           <Height>0cm</Height>
-          <Width>20.33385cm</Width>
+          <Width>18.9151cm</Width>
           <Style>
             <Border>
               <Style>Solid</Style>
@@ -1266,7 +1268,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
           <Top>0.22726cm</Top>
-          <Left>18.32031cm</Left>
+          <Left>16.95506cm</Left>
           <Height>0.36335cm</Height>
           <Width>2.06587cm</Width>
           <ZIndex>5</ZIndex>

General/RepPaqueteriasGuias.aspx.cs

@@ -618,7 +618,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         {
             try
             {
-                FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "");
+                FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "");
                 string rutaDestino = UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\" + CvePaqueteriaGuia + "." + FileExtension;
                 if (!System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\"))
                 {

Inventarios/AjustesSeccionAlmacen.aspx

@@ -1,19 +1,32 @@
 <%@ 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 ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+<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 ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
+            </li>
+            <li>
+                <asp:LinkButton ID="LbDescargarExcel" runat="server"><i class='fa fa-file-excel-o'></i> Descargar Formato</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LbDescargarExcel" />
+        </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+<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">
@@ -45,7 +58,9 @@
                 <Columns>
                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />
-                                <asp:BoundField HeaderText="Sección Actual" DataField="SeccionAlmacen" ItemStyle-Width="15%" />
+                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="5%" />
+                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" 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>
@@ -54,17 +69,56 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Nueva Seccion" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
-                                        <asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveSeccionAlmacen" DataTextField="SeccionAlmacen" class="select2me"></asp:DropDownList>
+                            <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>
+    <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Agregar Excel</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row">
+                        <label class="col-md-2 truncate" style="text-align: right;">Almacen:</label>
+                        <div class="col-md-10">
+                            <asp:DropDownList ID="DdlAlmacenExcel" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="100%"></asp:DropDownList>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 200px;">
+                            <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-2" style="text-align: left">
+                            <asp:Button ID="BtnDescargar" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                        </div>
+                        <div class="col-md-10" style="text-align: right">
+                            <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar"></asp:Button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
 </asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
 

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -15,6 +15,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         DdlAlmacen.DataBind()
 
+        DdlAlmacenExcel.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        DdlAlmacenExcel.DataBind()
+
         DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificaciones.DataBind()
         DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -129,10 +132,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
         End If
 
-
         If Not ErrorMovInv Then
             ObjInventario.Commit()
-            cargadatos
+            CargaDatos()
             Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
         Else
             ObjInventario.RollBack()
@@ -141,4 +143,198 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
         ObjInventario.Dispose()
     End Sub
+
+    Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click
+        Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteSecCad.xlsx"
+        Dim Archivo As New IO.FileInfo(Directorio)
+        If Archivo.Exists Then
+            Response.Clear()
+            Response.ClearHeaders()
+            Response.ClearContent()
+            Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
+            Response.AddHeader("Content-Length", Archivo.Length.ToString())
+            Response.ContentType = "text/plain"
+            Response.Flush()
+            Response.TransmitFile(Archivo.FullName)
+            Response.End()
+        End If
+    End Sub
+
+    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 = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "")
+            If Tipo = "EXCEL" Then
+                Dim CveAlmacen As Integer = DdlAlmacenExcel.SelectedValue.ToEntero()
+                Dim CveSubProyecto As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}")
+
+                CargarArchivo(Directorio, file.filename, CveAlmacen, CveSubProyecto)
+            Else
+                Alert("El archivo no es de tipo excel", TipoMensaje.MsgAdvertencia)
+            End If
+
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+    End Sub
+
+    Private Sub CargarArchivo(Ruta As String, FileName As String, CveAlmacen As Integer, CveSubProyecto As Integer)
+        Dim DtExcel As DataTable = ReadExcelFile(Ruta + FileName, True)
+
+        Dim ErrorArchivo = False
+        If Not ErrorArchivo AndAlso DtExcel IsNot Nothing Then
+            If Not DtExcel.Columns(0).ColumnName = "Código" Then
+                Alert("El nombre de la segunda columna debe ser 'Código'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DtExcel.Columns(1).ColumnName = "Producto/Servicio" Then
+                Alert("El nombre de la cuarta columna debe ser 'Producto/Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DtExcel.Columns(2).ColumnName = "SeccionAlmacen" Then
+                Alert("El nombre de la quinta columna debe ser 'SeccionAlmacen'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DtExcel.Columns(3).ColumnName = "Serie" Then
+                Alert("El nombre de la sexta columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DtExcel.Columns(4).ColumnName = "Lote" Then
+                Alert("El nombre de la séptima columna debe ser 'Lote'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DtExcel.Columns(5).ColumnName = "FechaCaducidad" Then
+                Alert("El nombre de la octava columna debe ser 'FechaCaducidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            DtExcel.TableName = "Datos"
+
+            If Not ErrorArchivo Then
+                Dim ErrorMovInv As Boolean = False
+
+                Dim RowNoEncontrados As New StringBuilder()
+                Dim NumAgregados As Integer = 0
+
+                Dim ObjInventario As New ClsInventarios()
+                Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL())
+
+                Try
+                    Dim DtExistenciasSecciones As DataTable = Nothing
+                    If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                        DtExistenciasSecciones = ObjInventario.DtResultados.Copy()
+                    End If
+
+                    'SALIDA ALMACÉN
+                    Dim CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1,
+                                                                          MovimientoFijo:=False, Modulo:="ASA/SA")
+
+                    'ENTRADA ALMACÉN
+                    Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", TipoCambio:=-1,
+                                                                          MovimientoFijo:=False, Modulo:="ASA/EA")
+
+                    Dim dtSecciones As DataTable = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, CveAlmacen)
+                    dtSecciones.CaseSensitive = False
+
+                    For Each RowExcel As DataRow In DtExcel.Rows
+
+                        Dim Codigo As String = RowExcel("Código").ToString.Trim
+                        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=Codigo).Rows(0)
+
+                        If DrPS IsNot Nothing Then
+                            If Not ErrorMovInv Then
+                                Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero()
+                                Dim CveUM As Integer = DrPS("CveUM").ToString().ToEntero()
+                                Dim ProductoServicio As String = RowExcel("Producto/Servicio").ToString.Trim
+
+                                Dim SeccionAlmacen As String = RowExcel("SeccionAlmacen").ToString.Trim
+                                Dim CveSeccionAlmacen As Integer = dtSecciones.FiltroPrimeroValor("CveSeccion", $"AlmacenSeccion='{SeccionAlmacen}'")
+
+                                Dim Serie As String = RowExcel("Serie").ToString()
+                                Dim Lote As String = RowExcel("Lote").ToString()
+                                Dim FechaCaducidad As Date = IfNull(RowExcel("FechaCaducidad"), MinFecha).ToString.ToDate
+
+                                Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS}")
+
+                                Dim CveSeccionAlmacenSalida As Integer = RowExistencia("CveSeccionAlmacen").ToString().ToEntero()
+                                Dim CantidadSalida As Decimal = RowExistencia("Existencia").ToString().ToDecimal()
+                                Dim SerieSalida As String = RowExistencia("Serie").ToString()
+                                Dim LoteSalida As String = RowExistencia("Lote").ToString()
+                                Dim FechaCaducidadSalida As Date = IfNull(RowExistencia("FechaCaducidad"), MinFecha).ToString.ToDate
+                                Dim PUSalida As Decimal = RowExistencia("PU").ToString()
+
+                                'GENERA LA SALIDA DE LOS PRODUCTOS QUE VIENEN EN EL EXCEL
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadSalida, CveUM, CvePS, PUSalida, CveSeccionAlmacen:=CveSeccionAlmacenSalida, Serie:=SerieSalida, Lote:=LoteSalida, FechaCaducidad:=FechaCaducidadSalida, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                    ErrorMovInv = True
+                                    Exit For
+                                End If
+
+                                Dim CveMovimientoDetalleSalida As Integer = ObjInventario.CveMovimientoDetalle
+
+                                ErrorMovInv = CveMovimientoDetalleSalida <= 0
+
+                                'GENERA LA ENTRADA DE LOS PRODUCTOS QUE SE DIERON ENTRADA
+                                If Not ErrorMovInv Then
+                                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa, CveMovimientoDetalle:=CveMovimientoDetalleSalida) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                                        Dim RowEntrada As DataRow = ObjInventario.DtResultados.Rows(0)
+
+                                        Dim CvePSEntrada = RowEntrada("CvePS").ToString().ToEntero()
+                                        Dim CantidadEntrada As Decimal = RowEntrada("Cantidad").ToString().ToDecimal()
+                                        Dim PUEntrada As Decimal = RowEntrada("PUOriginal").ToString().ToDecimal()
+                                        Dim CveUMEntrada As Integer = RowEntrada("CveUM").ToString().ToEntero()
+
+                                        Dim CostoIndirecto As Decimal = RowEntrada("CostoIndirecto").ToString().ToDecimal()
+
+                                        'ACTUALIZAMOS EL PS, PARA QUE TENGA EL APLICA SECCION
+                                        ErrorMovInv = Not ObjPS.UpdateAplicaSeccionAlmacen(CvePS, UsuarioActual.CveEmpresa, True)
+
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, CantidadEntrada, CveUMEntrada, CvePSEntrada, PUEntrada, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                            ErrorMovInv = True
+                                            Exit For
+                                        End If
+
+                                    Else
+                                        ErrorMovInv = True
+                                    End If
+                                End If
+                            End If
+                        Else
+                            ErrorMovInv = True
+                            RowNoEncontrados.AppendFormat("{0},", Codigo)
+                        End If
+
+                    Next
+                    dtSecciones.Dispose()
+
+                Catch ex As Exception
+                    ErrorMovInv = True
+                    OnError("Ocurrió un error al agregar el inventario", ex)
+                End Try
+
+                If ErrorMovInv Then
+                    ObjInventario.RollBack()
+
+                    Dim SbError As New StringBuilder()
+                    SbError.Append("Ocurrió un error al guardar")
+                    If RowNoEncontrados.Length > 0 Then
+                        SbError.Append("Los siguientes códigos no fueron encontrados en el sistema.<br/>")
+                        SbError.Append(RowNoEncontrados.ToString())
+                    End If
+
+                    Alert(SbError.ToString(), TipoMensaje.MsgError)
+                Else
+                    ObjInventario.Commit()
+                    Alert("Se realizó el ajuste de los productos correctamente.")
+                End If
+
+                ObjInventario.Dispose()
+                ObjPS.Dispose()
+
+            End If
+        Else
+            Alert("Ocurrió un error al cargar el excel.", TipoMensaje.MsgError)
+        End If
+    End Sub
+
 End Class

Inventarios/RecepcionUsados.aspx.vb

@@ -1540,7 +1540,7 @@ Partial Class Inventarios_RecepcionUsados
         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
 
@@ -1624,7 +1624,7 @@ Partial Class Inventarios_RecepcionUsados
         Dim Filename As String = ""
 
         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
 

OC/OC.aspx.vb

@@ -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
@@ -6110,52 +6110,6 @@ Partial Class OC
         End If
     End Sub
 
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
-
-        Dim unnamed As Integer = 0
-        Dim cols As Integer
-        Dim columns As String()
-        Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
-
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
-
-            If firstRowHasHeaders Then
-
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
-                Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
-                End If
-
-                curRow = 1
-            Else
-                dataTable.Columns.Add("Column " & (cols + 1))
-            End If
-        Next
-
-        While curRow < worksheet.Rows.Count
-            columns = New String(cols - 1) {}
-
-            For curCol = 0 To cols - 1
-
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
-                Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
-            Next
-
-            dataTable.Rows.Add(columns)
-            curRow += 1
-        End While
-
-        Return dataTable
-    End Function
 
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
 
@@ -7509,7 +7463,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)

OI/SoporteADS.aspx.vb

@@ -2011,7 +2011,7 @@ Partial Class OI_SoporteADS
 
         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
             Dim tempArray() As String
             tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -2061,7 +2061,7 @@ Partial Class OI_SoporteADS
 
         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
             Dim tempArray() As String
             tempArray = fileItem.filename.ToString().Split("-".ToCharArray())

OI/UnoaUno.aspx

@@ -0,0 +1,452 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="UnoaUno.aspx.cs" Inherits="OI_UnoaUno" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .fecharef {
+            margin-top: 2px;
+        }
+
+        th {
+            text-align: left;
+        }
+
+        .lnkUserBlack {
+            text-decoration: none;
+            color: #060606;
+            font-size: 14px;
+            font-weight: 600;
+        }
+
+        .lnkUsergray {
+            color:#999b9b;
+            font-size: 11px;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+
+    <asp:UpdatePanel ID="UpTitulo" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            Tablero Uno a Uno -
+            <asp:Literal ID="LtlusuarioTitulo" runat="server"></asp:Literal>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkSeguir" OnClick="LnkSeguir_Click" CssClass="" runat="server"><i class ="fa fa-eye"></i>Seguir</asp:LinkButton></li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpContenido" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+
+            <div class="row">
+                <div class="col-md-4 col-sm-4">
+                    <div class="portlet light smmallpadding bordered">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="fa fa-users font-green"></i>
+                                <span class="caption-subject bold uppercase">
+                                    <asp:Literal ID="Literal3" runat="server">Siguiendo A</asp:Literal></span>
+                            </div>
+                            <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding" style="padding-left:25px;">
+                            <div class="scroller" style="max-height: 200px;" data-always-visible="1" data-rail-visible="0">
+                                <asp:GridView ID="GVSiguiendoA" runat="server" GridLines="None" CssClass="Widthall" AutoGenerateColumns="False" ShowHeader="false" DataKeyNames="CveUsuario,Nombre">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Nombre">
+                                            <ItemTemplate>
+                                                <asp:LinkButton OnClick="SiguiendoAUser_Click" CssClass="lnkUserBlack" runat="server" Text='<%# Eval("Nombre")%>'> </asp:LinkButton><br />
+                                                <asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Fecha","ultima Actualización: {0:dd/MM/yyyy}")%>'> </asp:Label>
+
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                            </div>
+                        </div>
+                    </div>
+
+                    <div class="portlet light smmallpadding bordered">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="fa fa-user-secret font-green"></i>
+                                <span class="caption-subject bold uppercase">
+                                    <asp:Literal ID="Literal4" runat="server">Seguido por</asp:Literal></span>
+                            </div>
+                            <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding"  style="padding-left:25px;">
+                            <asp:GridView ID="GVSeguidoPor" runat="server" GridLines="None" CssClass="" AutoGenerateColumns="False" ShowHeader="false">
+                                <Columns>
+                                    <asp:TemplateField HeaderText="Nombre">
+                                        <ItemTemplate>
+                                            <asp:Label runat="server"  CssClass="lnkUserBlack" Text='<%# Eval("NombreSeguidor")%>'> </asp:Label>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+                    </div>
+                </div>
+                <div class="col-md-8 col-sm-8">
+                    <div class="portlet light smmallpadding bordered">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="fa fa-question-circle font-green"></i>
+                                <span class="caption-subject bold uppercase">
+                                    <asp:Literal ID="Literal1" runat="server">Preguntas</asp:Literal></span>
+                            </div>
+                            <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </div>
+                        </div>
+                        <asp:Panel ID="pnluserPreguntas" runat="server" class="portlet-body rowpadding">
+                            <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" OnClick="BtnConsultar_Click" CssClass="btn btn-primary" />
+                                    </div>
+                                    <div class="titlefiltros  caption ">
+                                        <ul class="list-inline text-size-12">
+                                            <li>Fecha :</li>
+                                            <li style="margin-right: 30px">
+                                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                                    <asp:TextBox ID="TxtCFecha" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                                                    <span class="input-group-btn ">
+                                                        <asp:LinkButton ID="LnkFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                                    </span>
+                                                    <ajax:MaskedEditExtender ID="MEETxtCFecha" runat="server" TargetControlID="TxtCFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                    <ajax:CalendarExtender runat="server" ID="CEETxtCFecha" TargetControlID="TxtCFecha" PopupButtonID="LnkFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                    <asp:RequiredFieldValidator ID="RfvTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <asp:CompareValidator ID="CVTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</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="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </li>
+                                        </ul>
+                                    </div>
+                                </div>
+                            </div>
+                            <asp:GridView ID="GVPA_OI_UnoAUnoTableroGet" runat="server" GridLines="None" CssClass="table table-hover Widthall" AutoGenerateColumns="False" ShowHeader="false"
+                                DataKeyNames="CveUnoaUnoPregunta,Pregunta,Respuesta,CveUnoaUno">
+                                <Columns>
+                                    <asp:TemplateField HeaderText="Comentarios">
+                                        <ItemTemplate>
+                                            <h4>
+                                                <asp:Label ID="lblPregunta" CssClass="bold" runat="server" Text='<%# Eval("Pregunta")%>'> </asp:Label></h4>
+                                            <br />
+                                            <asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Rows="3" runat="server"></asp:TextBox>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                </Columns>
+                            </asp:GridView>
+                            <br />
+                            <br />
+                            <div class="text-center">
+                                <asp:LinkButton runat="server" ID="LnkGuardar" OnClick="LnkGuardar_Click" CssClass="btn btn-primary"> Guardar</asp:LinkButton>
+                            </div>
+                        </asp:Panel>
+                    </div>
+                </div>
+            </div>
+
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div id='<%= idDivModalSeguir %>' class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpModalSeguir" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <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" style="text-align: left">
+                            <asp:Literal ID="Literal2" runat="server">Seguir</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <ajax:TabContainer ID="TabContainerSeguir" ClientIDMode="static" CssClass="tab-wizard" runat="server" Width="100%" AutoPostBack="true" OnActiveTabChanged="TabContainerSeguir_ActiveTabChanged">
+                            <ajax:TabPanel ID="TabPreguntas" runat="server" HeaderText="Preguntas">
+                                <ContentTemplate>
+
+                                    <asp:UpdatePanel ID="upPreguntas" runat="server" UpdateMode="Conditional">
+                                        <ContentTemplate>
+                                            <asp:Panel ID="PnlPreguntas" runat="server" DefaultButton="LnkGuardarPregunta">
+                                                <div class="portlet light smmallpadding bordered">
+                                                    <div class="portlet-title">
+                                                        <div class="caption font-green">
+                                                            <i class="fa fa-question-circle font-green"></i>
+                                                            <span class="caption-subject bold uppercase">
+                                                                <asp:Literal ID="LtlTituloPregunta" runat="server">Preguntas</asp:Literal></span>
+                                                        </div>
+                                                        <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
+                                                        <div class="actions">
+                                                            <div class="btn-group">
+                                                            </div>
+                                                        </div>
+                                                    </div>
+                                                    <div class="portlet-body rowpadding">
+                                                        <div class="row">
+                                                            <div class="col-sm-6 ">
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:TextBox ID="TxtPregunta" CssClass="form-control TxtPregunta" runat="server"></asp:TextBox>
+                                                                    <asp:Label runat="server" AssociatedControlID="TxtPregunta">Pregunta:</asp:Label>
+                                                                    <asp:RequiredFieldValidator ID="RfvPregunta" runat="server" ControlToValidate="TxtPregunta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="VGMPreguntas"></asp:RequiredFieldValidator>
+                                                                    <ajax:ValidatorCalloutExtender ID="VcoPregunta" runat="server" HighlightCssClass="vco" TargetControlID="RfvPregunta"></ajax:ValidatorCalloutExtender>
+                                                                </div>
+                                                            </div>
+                                                            <div class="col-sm-6 ">
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:DropDownList ID="DdlPregunta" CssClass="form-control input-sm select2me " runat="server" DataTextField="Pregunta" DataValueField="CveUnoaUnoPregunta" Style="width: 100%"></asp:DropDownList>
+                                                                    <asp:Label runat="server" AssociatedControlID="DdlPregunta">Vinculo:</asp:Label>
+                                                                </div>
+                                                            </div>
+                                                        </div>
+                                                        <div class="text-right">
+                                                            <asp:LinkButton ID="LnkGuardarPregunta" OnClick="LnkGuardarPregunta_Click" ValidationGroup="VGMPreguntas" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
+                                                            <asp:LinkButton ID="LnkCancelarPregunta" OnClick="LnkCancelarPregunta_Click" Visible="false" CssClass="btn btn-danger" runat="server">Cancelar</asp:LinkButton>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                                <asp:GridView ID="GVUnoaUnoPregunta" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall"
+                                                    AutoGenerateColumns="False" ShowHeaderWhenEmpty="true" EmptyDataText="Sin preguntas capturadas"
+                                                    DataKeyNames="CveUnoaUnoPregunta,Pregunta,CveUnoaUnoPreguntaVinculo,PreguntaVinculo">
+                                                    <Columns>
+                                                        <asp:BoundField HeaderText="Pregunta" DataField="Pregunta" />
+                                                        <asp:BoundField HeaderText="Vinculada a" DataField="PreguntaVinculo" />
+                                                        <asp:TemplateField ItemStyle-Width="30">
+                                                            <ItemTemplate>
+                                                                <asp:LinkButton data-toggle="tooltip" title="Editar" OnClick="LnkEditarPregunta_Click" CssClass="btn btn-circle btn-sm green btn-xs" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                        <asp:TemplateField ItemStyle-Width="30">
+                                                            <ItemTemplate>
+                                                                <asp:LinkButton runat="server" OnClick="LnkEliminarPregunta_Click" CssClass="btn btn-circle btn-sm red btn-xs" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar la Pregunta?" data-btn-ok-label="si" />
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                    </Columns>
+                                                </asp:GridView>
+                                            </asp:Panel>
+                                        </ContentTemplate>
+                                    </asp:UpdatePanel>
+                                </ContentTemplate>
+                            </ajax:TabPanel>
+                            <ajax:TabPanel ID="TabCuestionario" runat="server" HeaderText="Cuestionario">
+                                <ContentTemplate>
+
+                                    <asp:UpdatePanel ID="UpCuestionario" runat="server" UpdateMode="Conditional">
+                                        <ContentTemplate>
+                                            <asp:Panel ID="PnlCuestionario" runat="server" DefaultButton="LnkGuardarCuestionario">
+                                                <div class="portlet light smmallpadding bordered">
+                                                    <div class="portlet-title">
+                                                        <div class="caption font-green">
+                                                            <i class="fa fa-list font-green"></i>
+                                                            <span class="caption-subject bold uppercase">Cuestionario</span>
+                                                        </div>
+                                                        <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
+                                                        <div class="actions">
+                                                            <div class="btn-group"></div>
+                                                        </div>
+                                                    </div>
+                                                    <div class="portlet-body rowpadding">
+                                                        <asp:DropDownList ID="DdlCuestionario" CssClass="form-control input-sm select2me " runat="server" DataTextField="Cuestionario" DataValueField="CveUnoaUnoCuestionario" Style="width: 100%" OnSelectedIndexChanged="DdlCuestionario_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
+                                                        <%--<asp:DropDownList ID="DdlCuestionario" CssClass="form-control select2me" runat="server"></asp:DropDownList>--%>
+                                                        <div class="form-group form-md-line-input">
+                                                            <asp:TextBox ID="TxtCuestionario" CssClass="form-control TxtCuestionario" runat="server"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtCuestionario">Cuestionario:</asp:Label>
+                                                            <asp:RequiredFieldValidator ID="RfvCuestionario" runat="server" ControlToValidate="TxtCuestionario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuestionario''</b> es necesario, por favor ingréselo." ValidationGroup="VGMCuestionario"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VcoCuestionario" runat="server" HighlightCssClass="vco" TargetControlID="RfvCuestionario"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                        <div class="form-group form-md-line-input" style="display: none;">
+
+                                                            <asp:TextBox ID="TxtCuestComentario" CssClass="form-control TxtCuestionario" runat="server"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtCuestComentario">Comentario:</asp:Label>
+                                                        </div>
+
+                                                        <asp:GridView ID="GvPreguntasCuestionario" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GvPreguntasCuestionario"
+                                                            AutoGenerateColumns="False" ShowHeaderWhenEmpty="true" EmptyDataText="Sin preguntas capturadas"
+                                                            DataKeyNames="CveUnoaUnoPregunta,Pregunta,CveUnoaUnoPreguntaVinculo,PreguntaVinculo">
+                                                            <Columns>
+                                                                <asp:TemplateField ItemStyle-Width="30">
+                                                                    <HeaderTemplate></HeaderTemplate>
+                                                                    <ItemTemplate>
+                                                                        <asp:CheckBox ID="ChkConPregunta" ClientIDMode="Predictable" runat="server" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:BoundField HeaderText="Pregunta" DataField="Pregunta" />
+                                                            </Columns>
+                                                        </asp:GridView>
+                                                        <div class="text-right">
+                                                            <asp:LinkButton ID="LnkGuardarCuestionario" OnClick="LnkGuardarCuestionario_Click" ValidationGroup="VGMCuestionario" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
+                                                            <%--<asp:LinkButton ID="LnkCancelarCuestionario" OnClick="LnkCancelarCuestionario_Click" Visible="false" CssClass="btn btn-danger" runat="server">Cancelar</asp:LinkButton>--%>
+                                                        </div>
+                                                    </div>
+                                                </div>
+
+                                                <%-- <asp:GridView ID="GVCuestionario" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                                                    DataKeyNames="CveUnoaUnoCuestionario,Cuestionario,CveUsuario,Usuario">
+                                                    <Columns>
+                                                        <asp:TemplateField HeaderText="Cuestionario">
+                                                            <ItemTemplate>
+                                                                <asp:Label ID="lblcuestionario" runat="server" Text='<%# Eval("Cuestionario")%>'> </asp:Label>
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                        <asp:TemplateField ItemStyle-Width="30">
+                                                            <ItemTemplate>
+                                                                <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditarCuestionario" OnClick="LnkEditarCuestionario_Click" CssClass="btn btn-circle btn-sm green btn-xs" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                        <asp:TemplateField ItemStyle-Width="30">
+                                                            <ItemTemplate>
+                                                                <asp:LinkButton ID="LnkEliminarCuestionario" runat="server" OnClick="LnkEliminarCuestionario_Click" CssClass="btn btn-circle btn-sm red  btn-xs" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el Cuestionario?" data-btn-ok-label="si" />
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                    </Columns>
+                                                </asp:GridView>--%>
+                                            </asp:Panel>
+                                        </ContentTemplate>
+                                    </asp:UpdatePanel>
+                                </ContentTemplate>
+                            </ajax:TabPanel>
+                            <ajax:TabPanel ID="TabUsuarios" runat="server" HeaderText="Seguir a">
+                                <ContentTemplate>
+
+                                    <asp:UpdatePanel ID="UpSeguirA" runat="server" UpdateMode="Conditional">
+                                        <ContentTemplate>
+                                            <asp:Panel ID="PnlSeguirA" runat="server">
+                                                <div class="portlet light smmallpadding bordered">
+                                                    <div class="portlet-title">
+                                                        <div class="caption font-green">
+                                                            <i class="fa fa-user-plus font-green"></i>
+                                                            <span class="caption-subject bold uppercase">Seguir A</span>
+                                                        </div>
+                                                        <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
+                                                        <div class="actions">
+                                                            <div class="btn-group"></div>
+                                                        </div>
+                                                    </div>
+                                                    <div class="portlet-body rowpadding">
+                                                        <%--<div class="row">
+                                                            <div class="col-sm-6 ">
+
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:DropDownList ID="DdlUsuario" CssClass="form-control input-sm select2me " runat="server" DataTextField="Nombre" DataValueField="CveUsuario" Style="width: 100%"></asp:DropDownList>
+                                                                    <asp:Label runat="server" AssociatedControlID="DdlUsuario">Seguir A:</asp:Label>
+                                                                    <asp:RequiredFieldValidator ID="RfvDdlUsuario" runat="server" ControlToValidate="DdlUsuario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuestionario''</b> es necesario, por favor ingréselo." ValidationGroup="VGMSeguirA"></asp:RequiredFieldValidator>
+                                                                    <ajax:ValidatorCalloutExtender ID="VcoDdlUsuario" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlUsuario"></ajax:ValidatorCalloutExtender>
+                                                                </div>
+                                                            </div>
+                                                            <div class="col-sm-6 ">
+
+                                                                <div class="form-group form-md-line-input"> 
+                                                                </div>
+                                                            </div>
+                                                        </div>--%>
+                                                        <asp:GridView ID="GvUsuarioCuest" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                                                            DataKeyNames="CveUsuario,Nombre">
+                                                            <Columns>
+                                                                <asp:TemplateField ItemStyle-Width="30">
+                                                                    <HeaderTemplate></HeaderTemplate>
+                                                                    <ItemTemplate>
+                                                                        <asp:CheckBox ID="ChkConPregunta" ClientIDMode="Predictable" runat="server" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField HeaderText="Usuario">
+                                                                    <ItemTemplate>
+                                                                        <asp:Label runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <%--<asp:TemplateField HeaderText="Cuestionario">
+                                                                    <ItemTemplate>
+                                                                        <asp:Label ID="lblcuestionario2" runat="server" Text='<%# Eval("Cuestionario")%>'> </asp:Label>
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>--%>
+                                                                <asp:TemplateField ItemStyle-Width="30">
+                                                                    <ItemTemplate>
+                                                                        <%--<asp:LinkButton ID="LnkEliminarCuestionarioUser" runat="server" OnClick="LnkEliminarCuestionarioUser_Click" CssClass="btn btn-circle btn-sm red  btn-xs" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el Cuestionario?" data-btn-ok-label="si" />--%>
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                            </Columns>
+                                                        </asp:GridView>
+                                                        <div class="text-right">
+                                                        </div>
+                                                    </div>
+                                                </div>
+
+                                            </asp:Panel>
+                                        </ContentTemplate>
+                                    </asp:UpdatePanel>
+                                </ContentTemplate>
+                            </ajax:TabPanel>
+                        </ajax:TabContainer>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkGuardarSeguirA" Visible="false" OnClick="LnkGuardarSeguirA_Click" ValidationGroup="VGMSeguirA" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
+                        <button data-dismiss="modal" class="btn btn-danger">Cerrar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+    
+    <div id='<%= idDivModalSiguiendoA %>' class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpModalSiguiendoA" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <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" style="text-align: left">Siguiendo A:
+                            <asp:Literal ID="LtlTitulosiguiendoA" runat="server"></asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        
+                            <div class="" style="max-height: 200px;" data-always-visible="1" data-rail-visible="0">
+                                <asp:GridView ID="gvPregResSiguiendoA" runat="server" GridLines="None" CssClass="Widthall" AutoGenerateColumns="False" ShowHeader="false">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Nombre">
+                                            <ItemTemplate>
+                                                <asp:LinkButton OnClick="SiguiendoAUser_Click" CssClass="lnkUserBlack" runat="server" Text='<%# Eval("Pregunta")%>'> </asp:LinkButton><br />
+                                                <asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Respuesta")%>'> </asp:Label>
+                                                <%--<asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Fecha","ultima Actualización: {0:dd/MM/yyyy}")%>'> </asp:Label>--%>
+
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                            </div>
+                    </div>
+                    <div class="modal-footer">
+                        <button data-dismiss="modal" class="btn btn-danger">Cerrar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

OI/UnoaUno.aspx.cs

@@ -0,0 +1,576 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+public partial class OI_UnoaUno : ClsPaginas
+{
+
+
+    #region Propiedades 
+    public const string idDivModalSeguir = "idDivModalSeguir";
+    public const string idDivModalSiguiendoA = "idDivModalSiguiendoA";
+    private int CcveUnoaUnoPregunta
+    {
+        get { return (ViewState["CcveUnoaUnoPregunta"] == null) ? 0 : Convert.ToInt32(ViewState["CcveUnoaUnoPregunta"]); }
+        set { ViewState["CcveUnoaUnoPregunta"] = value; }
+    }
+    private System.Data.DataTable DtPreguntas
+    {
+        get { return (ViewState["DtPreguntas"] == null) ? null : (System.Data.DataTable)ViewState["DtPreguntas"]; }
+        set { ViewState["DtPreguntas"] = value; }
+    }
+    //private int CcveUnoaUnoCuestionario
+    //{
+    //    get { return (ViewState["CcveUnoaUnoCuestionario"] == null) ? 0 : Convert.ToInt32(ViewState["CcveUnoaUnoCuestionario"]); }
+    //    set { ViewState["CcveUnoaUnoCuestionario"] = value; }
+    //}
+    #endregion 
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            TxtCFecha.Text = DateTime.Now.ToString("dd/MM/yyyy");
+            LtlusuarioTitulo.Text = UsuarioActual.Nombre;
+
+
+
+            GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+            GvUsuarioCuest.DataBind();
+            CargarSiguiendoA();
+            CargarSeguidoPor();
+            BtnConsultar_Click(null, null);
+        }
+    }
+    private void CargarSiguiendoA()
+    {
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            ObjUnoa.GetUnoAUnoSiguiendoA(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa);
+            GVSiguiendoA.DataSource = ObjUnoa.DtResultados;//.FiltraParametros("","",new string[] { "CveSeguir", "Usuario" });
+        }
+        GVSiguiendoA.DataBind();
+    }
+    private void CargarSeguidoPor()
+    {
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            ObjUnoa.GetUnoaUnoCuestionario_Usuarios(-1, -1, UsuarioActual.CveUsuario);
+            GVSeguidoPor.DataSource = ObjUnoa.DtResultados.FiltraParametros("", "", new string[] { "CveUsuarioSeguidor", "NombreSeguidor" });
+        }
+        GVSeguidoPor.DataBind();
+    }
+    protected void BtnConsultar_Click(object sender, EventArgs e)
+    {
+        GVPA_OI_UnoAUnoTableroGet.DataSource = new System.Data.DataTable();
+        using (ClsOIEventos ObjPA_O = new ClsOIEventos())
+        {
+
+            ObjPA_O.UnoAUnoTableroGet(UsuarioActual.CveEmpresa, TxtCFecha.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario);
+            GVPA_OI_UnoAUnoTableroGet.DataSource = ObjPA_O.DtResultados;
+            ObjPA_O.Dispose();
+        }
+        GVPA_OI_UnoAUnoTableroGet.DataBind();
+        if (GVPA_OI_UnoAUnoTableroGet.Rows.Count > 0)
+        {
+            LnkGuardar.Visible = true;
+        }
+        else
+        {
+            LnkGuardar.Visible = false;
+        }
+        UpContenido.Update();
+    }
+
+    protected void LnkGuardar_Click(object sender, EventArgs e)
+    {
+        string fecha = TxtCFecha.Text.ToDate().ToString("yyyy/MM/dd");
+        bool continuar = true;
+        using (ClsOIEventos ObjPA_O = new ClsOIEventos())
+        {
+            foreach (GridViewRow gvrow in GVPA_OI_UnoAUnoTableroGet.Rows)
+            {
+                if (continuar)
+                {
+                    int CveUnoaUnoPregunta = gvrow.DataKey("CveUnoaUnoPregunta").ToEntero();
+                    if (CveUnoaUnoPregunta > 0)
+                    {
+                        string Comentarios = gvrow.FCTextBox("TxtComentarios").Text;
+                        continuar = ObjPA_O.UnoAUnoTableroAdd(UsuarioActual.CveEmpresa, fecha, UsuarioActual.CveUsuario, CveUnoaUnoPregunta, Comentarios);
+                    }
+
+                }
+            }
+
+        }
+        if (continuar)
+        {
+            Alert("Tus respuestas se han actualizado", ModExtensiones.TipoMensaje.ToastInformacion);
+        }
+    }
+
+    protected void LnkSeguir_Click(object sender, EventArgs e)
+    {
+        TabContainerSeguir.ActiveTabIndex = 0;
+        CargarPreguntas();
+        cargarCuestionario(); CargarSeguirA();
+        if (GVUnoaUnoPregunta.Rows.Count > 0)
+        {
+            TabContainerSeguir.ActiveTabIndex = 1;
+            //if (GVCuestionario.Rows.Count > 0)
+            //{
+            //    TabContainerSeguir.ActiveTabIndex = 2;
+            //}
+        }
+        else
+        {
+            TabContainerSeguir.ActiveTabIndex = 0;
+        }
+        switch (TabContainerSeguir.ActiveTabIndex)
+        {
+            case 1:
+                TxtCuestionario.Focus();
+                break;
+            case 2:
+                //TxtCuestionario.Focus();
+                break;
+            default:
+                TxtPregunta.Focus();
+                break;
+        }
+        RegistraScript(string.Format("$('#{0}').modal()", idDivModalSeguir));
+        UpModalSeguir.Update();
+        openmodalseguir();
+    }
+    private void openmodalseguir()
+    {
+        string focustxt = "$('.TxtPregunta').focus();";
+        switch (TabContainerSeguir.ActiveTabIndex)
+        {
+            case 1:
+                focustxt = "$('.TxtCuestionario').focus();";
+                break;
+            default:
+                focustxt = "$('.TxtPregunta').focus();";
+                break;
+        }
+        RegistraScript(string.Format("$('#{0}').modal();$('#{0}').on('shown.bs.modal', function (e) {{ {1} }});", idDivModalSeguir, focustxt));
+    }
+    #region pregunta
+    private void CargarPreguntas()
+    {
+
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            if (ObjUnoa.GetUnoaUnoPregunta(-1, UsuarioActual.CveEmpresa))
+            {
+                GVUnoaUnoPregunta.DataSource = ObjUnoa.DtResultados;
+                DdlPregunta.DataSource = ObjUnoa.DtResultados;
+                GvPreguntasCuestionario.DataSource = ObjUnoa.DtResultados;
+
+            }
+        }
+        GvPreguntasCuestionario.DataBind();
+        GVUnoaUnoPregunta.DataBind();
+        DdlPregunta.DataBind();
+        //DdlPregunta.Items.Insert(0, new ListItem("", "-2"));
+        DdlPregunta.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        upPreguntas.Update();
+    }
+
+    //protected void LnkAgregarPregunta_Click(object sender, EventArgs e)
+    //{
+    //    TxtPregunta.Text = "";
+    //    DdlPregunta.SelectedIndex = -1;
+    //    CcveUnoaUnoPregunta = -1;
+    //    LtlTituloPregunta.Text = "Agregar Pregunta";
+    //    TxtPregunta.Focus();
+
+    //    LnkAgregarPregunta.Visible = false;
+    //    LnkGuardarPregunta.Visible = true;
+    //    LnkCancelarPregunta.Visible = true;
+    //}
+    protected void LnkEditarPregunta_Click(object sender, EventArgs e)
+    {
+        TxtPregunta.Text = "";
+        CcveUnoaUnoPregunta = -1;
+        TxtPregunta.Focus();
+
+
+        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        CcveUnoaUnoPregunta = gvRow.DataKey("CveUnoaUnoPregunta").ToEntero();
+        string Pregunta = gvRow.DataKey("Pregunta");
+        int cveUnoaUnoPreguntaVinculo = gvRow.DataKey("CveUnoaUnoPreguntaVinculo").ToEntero();
+
+        TxtPregunta.Text = Pregunta;
+        DdlPregunta.SelectedValue = "-1";
+        DdlPregunta.SelectedValueExist(cveUnoaUnoPreguntaVinculo.ToString());
+
+
+        LnkGuardarPregunta.Text = "Actualizar";
+        LnkCancelarPregunta.Visible = true;
+        upPreguntas.Update();
+        openmodalseguir();
+    }
+    protected void LnkCancelarPregunta_Click(object sender, EventArgs e)
+    {
+        CcveUnoaUnoPregunta = -1;
+        LnkGuardarPregunta.Text = "Guardar";
+        LnkCancelarPregunta.Visible = false;
+        upPreguntas.Update();
+        openmodalseguir();
+    }
+    protected void LnkEliminarPregunta_Click(object sender, EventArgs e)
+    {
+        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        CcveUnoaUnoPregunta = gvRow.DataKey("CveUnoaUnoPregunta").ToEntero();
+        bool continuar = true;
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+
+            continuar = ObjUnoa.RemoveUnoaUnoPregunta(CcveUnoaUnoPregunta, UsuarioActual.CveEmpresa);
+        }
+        if (continuar)
+        {
+            CcveUnoaUnoPregunta = -1;
+            TxtPregunta.Text = "";
+            CcveUnoaUnoPregunta = -1;
+            TxtPregunta.Focus();
+            LnkGuardarPregunta.Text = "Guardar";
+            LnkCancelarPregunta.Visible = false;
+            Alert("La pregunta se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion);
+            CargarPreguntas();
+        }
+        openmodalseguir();
+    }
+
+    protected void LnkGuardarPregunta_Click(object sender, EventArgs e)
+    {
+        bool continuar = true;
+
+        string Pregunta = TxtPregunta.Text;
+        int cveUnoaUnoPreguntaVinculo = DdlPregunta.SelectedValue.ToEntero();
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            if (CcveUnoaUnoPregunta > 0)
+            {
+
+                continuar = ObjUnoa.UpUnoaUnoPregunta(CcveUnoaUnoPregunta, Pregunta, cveUnoaUnoPreguntaVinculo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+            }
+            else
+            {
+                continuar = ObjUnoa.AddUnoaUnoPregunta(Pregunta, cveUnoaUnoPreguntaVinculo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+            }
+        }
+        if (continuar)
+        {
+            CargarPreguntas();
+            CcveUnoaUnoPregunta = -1;
+            TxtPregunta.Text = "";
+            CcveUnoaUnoPregunta = -1;
+            TxtPregunta.Focus();
+            LnkGuardarPregunta.Text = "Guardar";
+            LnkCancelarPregunta.Visible = false;
+            Alert("La pregunta se ha agregado correctamente", ModExtensiones.TipoMensaje.ToastInformacion);
+        }
+        openmodalseguir();
+    }
+
+    #endregion
+    #region Cuestionario
+    private void cargarCuestionario()
+    {
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            ObjUnoa.GetUnoaUnoCuestionario(-1, UsuarioActual.CveUsuario);
+            DtPreguntas = ObjUnoa.DtResultados;
+            DdlCuestionario.DataSource = ObjUnoa.DtResultados;
+        }
+        //GVCuestionario.DataBind();
+        DdlCuestionario.DataBind();
+        DdlCuestionario.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        openmodalseguir();
+    }
+    protected void LnkGuardarCuestionario_Click(object sender, EventArgs e)
+    {
+
+        bool continuar = true;
+
+        string Cuestionario = TxtCuestionario.Text;
+        string Comentario = TxtCuestComentario.Text;
+        int cveUnoaUnoPreguntaVinculo = DdlPregunta.SelectedValue.ToEntero();
+        int CveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero();
+        string msg = "";
+        List<int> lPreguntas = new List<int>();
+        foreach (GridViewRow item in GvPreguntasCuestionario.Rows)
+        {
+            CheckBox chk = item.FCCheckBox("ChkConPregunta");
+            if (chk.Checked)
+            {
+                lPreguntas.Add(item.DataKey("CveUnoaUnoPregunta").ToEntero());
+            }
+        }
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            if (CveUnoaUnoCuestionario > 0)
+            {
+
+                continuar = ObjUnoa.UpUnoaUnoCuestionario(CveUnoaUnoCuestionario, Cuestionario, Comentario, UsuarioActual.CveUsuario, lPreguntas);
+                msg = "El cuestionario se ha actualizado correctamente";
+            }
+            else
+            {
+                continuar = ObjUnoa.AddUnoaUnoCuestionario(Cuestionario, Comentario, UsuarioActual.CveUsuario, lPreguntas);
+                msg = "El cuestionario se ha agregado correctamente";
+            }
+        }
+        if (continuar)
+        {
+            DdlCuestionario.SelectedIndex = -1;
+            cargarCuestionario();
+            DdlCuestionario_SelectedIndexChanged(null, null);
+            Alert(msg, ModExtensiones.TipoMensaje.ToastInformacion);
+        }
+        openmodalseguir();
+    }
+
+
+    protected void DdlCuestionario_SelectedIndexChanged(object sender, EventArgs e)
+    {
+        int CveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero();
+        string Cuestionario = DdlCuestionario.SelectedItem.Text;
+        string Comentario = "";
+        if (CveUnoaUnoCuestionario > 0)
+        {
+            System.Data.DataRow drow = DtPreguntas.FiltroPrimero(string.Format("CveUnoaUnoCuestionario={0}", CveUnoaUnoCuestionario));
+            if (drow != null)
+            {
+                Comentario = drow["Comentario"].ToString();
+            }
+            System.Data.DataTable dt = new System.Data.DataTable();
+            using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+            {
+                ObjUnoa.GetUnoaUnoCuestionarioPreguntas(CveUnoaUnoCuestionario);
+                dt = ObjUnoa.DtResultados;
+            }
+            foreach (GridViewRow item in GvPreguntasCuestionario.Rows)
+            {
+                CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta");
+                int CveUnoaUnoPregunta = item.DataKey("CveUnoaUnoPregunta").ToEntero();
+                ChkConPregunta.Checked = false;
+                if (dt.FiltraParametros(string.Format("CveUnoaUnoPregunta={0}", CveUnoaUnoPregunta)).Rows.Count > 0)
+                {
+                    ChkConPregunta.Checked = true;
+                }
+            }
+            LnkGuardarCuestionario.Text = "Actualizar";
+        }
+        else
+        {
+            Cuestionario = "";
+            Comentario = "";
+            foreach (GridViewRow item in GvPreguntasCuestionario.Rows)
+            {
+                CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta");
+                ChkConPregunta.Checked = false;
+            }
+            LnkGuardarCuestionario.Text = "Guardar";
+        }
+        TxtCuestionario.Text = Cuestionario;
+        TxtCuestComentario.Text = Comentario;
+        UpCuestionario.Update();
+        CargarSeguirA();
+        UpSeguirA.Update();
+        openmodalseguir();
+    }
+    //protected void LnkCancelarCuestionario_Click(object sender, EventArgs e)
+    //{
+
+    //    CcveUnoaUnoCuestionario = -1;
+    //    LnkGuardarCuestionario.Text = "Guardar";
+    //    LnkCancelarCuestionario.Visible = false;
+    //    UpCuestionario.Update(); 
+    //    openmodalseguir();
+    //}
+
+    //protected void LnkEditarCuestionario_Click(object sender, EventArgs e)
+    //{
+    //    TxtCuestionario.Text = "";
+    //    CcveUnoaUnoPregunta = -1;
+    //    TxtPregunta.Focus();
+
+    //    GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+    //    CcveUnoaUnoCuestionario = gvRow.DataKey("CveUnoaUnoCuestionario").ToEntero();
+    //    string Cuestionario = gvRow.DataKey("Cuestionario");
+    //    TxtCuestionario.Text = Cuestionario;
+    //    System.Data.DataTable dt = new System.Data.DataTable();
+    //    using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+    //    {
+    //        ObjUnoa.GetUnoaUnoCuestionarioPreguntas(CcveUnoaUnoCuestionario);
+    //        dt = ObjUnoa.DtResultados;
+    //    }
+    //        foreach (GridViewRow item in GvPreguntasCuestionario.Rows)
+    //    {
+    //        CheckBox ChkConPregunta=item.FCCheckBox("ChkConPregunta");
+    //        int CveUnoaUnoPregunta = item.DataKey("CveUnoaUnoPregunta").ToEntero();
+    //        ChkConPregunta.Checked = false;
+    //        if(dt.FiltraParametros(string.Format("CveUnoaUnoPregunta={0}", CveUnoaUnoPregunta)).Rows.Count > 0)
+    //        {
+    //            ChkConPregunta.Checked = true;
+    //        }
+
+    //    }
+    //    LnkGuardarCuestionario.Text = "Actualizar";
+    //    LnkCancelarCuestionario.Visible = true;
+    //    UpCuestionario.Update();
+    //    openmodalseguir();
+    //}
+
+    //protected void LnkEliminarCuestionario_Click(object sender, EventArgs e)
+    //{
+
+    //    GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+    //    CcveUnoaUnoCuestionario = gvRow.DataKey("CveUnoaUnoCuestionario").ToEntero();
+    //    bool continuar = true;
+    //    using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+    //    {
+    //        continuar = ObjUnoa.RemoveUnoaUnoCuestionario(CcveUnoaUnoPregunta, UsuarioActual.CveUsuario);
+    //    }
+    //    if (continuar)
+    //    {
+    //        CcveUnoaUnoCuestionario = -1; 
+    //        Alert("El cuestionario se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion);
+    //        cargarCuestionario();
+    //    }
+    //    openmodalseguir();
+    //}
+    #endregion
+
+    private void CargarSeguirA()
+    {
+        System.Data.DataTable dt = null;
+        int cveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero();
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            ObjUnoa.GetUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario, UsuarioActual.CveUsuario, -1);
+            dt = ObjUnoa.DtResultados;
+        }
+        bool isdtok = (dt != null && dt.Rows.Count > 0);
+        foreach (GridViewRow item in GvUsuarioCuest.Rows)
+        {
+            CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta");
+            int CveSeguir = item.DataKey("CveUsuario").ToEntero();
+            if (isdtok && dt.FiltraParametros(string.Format("CveSeguir={0}", CveSeguir)).Rows.Count > 0)
+            {
+                ChkConPregunta.Checked = true;
+            }
+            else
+            {
+                ChkConPregunta.Checked = false;
+            }
+        }
+        CargarSiguiendoA();
+        UpContenido.Update();
+        UpSeguirA.Update();
+    }
+    protected void LnkGuardarSeguirA_Click(object sender, EventArgs e)
+    {
+
+        bool continuar = true;
+        string msg = "";
+        int cveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero();
+        //int CveSeguir = DdlUsuario.SelectedValue.ToEntero();
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            ObjUnoa.IniciaTransacSQL();
+
+            foreach (GridViewRow item in GvUsuarioCuest.Rows)
+            {
+                CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta");
+                int CveSeguir = item.DataKey("CveUsuario").ToEntero();
+                if (continuar)
+                {
+                    continuar = ObjUnoa.UpUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario, UsuarioActual.CveUsuario, CveSeguir, ChkConPregunta.Checked);
+
+                }
+            }
+            if (continuar)
+            {
+                msg = "El cuestionario se ha actualizado correctamente";
+                ObjUnoa.Commit();
+            }
+            else
+            {
+                ObjUnoa.RollBack();
+            }
+        }
+        if (continuar)
+        {
+            //CcveUnoaUnoCuestionario = -1;
+            Alert(msg, ModExtensiones.TipoMensaje.ToastInformacion);
+            CargarSeguirA();
+            RegistraScript(string.Format("$('#{0}').modal('hide');", idDivModalSeguir));
+        }
+        openmodalseguir();
+    }
+
+    //protected void LnkEliminarCuestionarioUser_Click(object sender, EventArgs e)
+    //{
+
+
+    //    bool continuar = true;
+    //    int cveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero();
+    //    int CveSeguir = DdlUsuario.SelectedValue.ToEntero();
+    //    using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+    //    {
+    //        continuar = ObjUnoa.AddUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario, UsuarioActual.CveUsuario, CveSeguir);
+    //    }
+    //    if (continuar)
+    //    {
+    //        //CcveUnoaUnoCuestionario = -1;
+    //        Alert("El cuestionario se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion);
+    //        CargarSeguirA();
+    //    }
+    //    openmodalseguir();
+    //}
+
+
+    protected void TabContainerSeguir_ActiveTabChanged(object sender, EventArgs e)
+    {
+        LnkGuardarSeguirA.Visible = false;
+        if (TabContainerSeguir.ActiveTab == TabUsuarios)
+        {
+            if (DdlCuestionario.SelectedValue.ToEntero() <= 0)
+            {
+                TabContainerSeguir.ActiveTab = TabCuestionario;
+                Alert("debe Seleccionar un cuestioniario", ModExtensiones.TipoMensaje.MsgAdvertencia);
+            }
+            else
+            {
+                LnkGuardarSeguirA.Visible = true;
+            }
+        }
+        openmodalseguir();
+        UpSeguirA.Update();
+    }
+
+
+    protected void SiguiendoAUser_Click(object sender, EventArgs e)
+    {
+        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CveUsuario = gvRow.DataKey("CveUsuario").ToEntero();
+        string Nombre = gvRow.DataKey("Nombre");
+        LtlTitulosiguiendoA.Text = Nombre;
+        gvPregResSiguiendoA.DataSource = null;
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            ObjUnoa.GetUnoAUnoSiguiendoA(UsuarioActual.CveUsuario, CveUsuario, UsuarioActual.CveEmpresa);
+            gvPregResSiguiendoA.DataSource = ObjUnoa.DtResultados;
+        }
+        gvPregResSiguiendoA.DataBind();
+        RegistraScript(string.Format("$('#{0}').modal();", idDivModalSiguiendoA));
+        UpModalSiguiendoA.Update();
+    }
+}

OI/UnoaUnoConfiguracion.aspx

@@ -0,0 +1,81 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="UnoaUnoConfiguracion.aspx.cs" Inherits="OI_UnoaUnoConfiguracion" %>
+
+<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">
+    Configuración Uno a Uno
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+    <li ><asp:LinkButton ID = "LinkButton1" OnClick ="LnkAgregarUnoa_Click" runat = "server" ><i class="fa fa-plus"></i>Etiqueta</asp:LinkButton></li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content> 
+<asp:Content ID="Content8" ContentPlaceHolderID="C" Runat="Server">
+    <asp:UpdatePanel ID="upDatosUnoa" runat ="server" UpdateMode="Conditional" >
+        <ContentTemplate>
+            <asp:GridView ID="GVUnoaUnoEtiqueta" runat="server" GridLines="None" CssClass ="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                datakeynames="CveUnoaUnoEtiqueta,Etiqueta,CveUnoaUnoEtiquetaVinculo,CveGrupo,CveEmpresa,Empresa">
+                <Columns> 
+                    <asp:BoundField HeaderText="Etiqueta"  DataField="Etiqueta" />
+                    <asp:TemplateField ItemStyle-Width="50">
+                        <ItemTemplate>
+                            <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarUnoa_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField  ItemStyle-Width="50">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarUnoa_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 el UnoaUnoEtiqueta?" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div id="DModalUnoaUnoEtiqueta" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UPModalUnoa" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content" >
+                    <div class="modal-header ">
+                        <div class="modal-btn">
+                        </div>
+                        <h4 class="modal-title"><asp:Literal ID="ltlUnoatitulo" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-4 truncate ">Etiqueta</div>
+                            <div class="col-md-8">
+                                <asp:TextBox ID="TxtUnoaetiqueta" CssClass="form-control input-sm "    runat="server"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RfvUnoaetiqueta" runat="server" ControlToValidate="TxtUnoaetiqueta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Etiqueta''</b> es necesario, por favor ingréselo." ValidationGroup="VGMUnoa"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VcoUnoaetiqueta" runat="server" HighlightCssClass="vco" TargetControlID="RfvUnoaetiqueta"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-4 truncate ">Vinculo </div>
+                            <div class="col-md-8">
+                                <asp:DropDownList ID="DdlUnoaetiqueta1" CssClass="form-control input-sm select2me "  runat="server" DataTextField="Etiqueta" DataValueField="CveUnoaUnoEtiqueta" style="width:    100%" ></asp:DropDownList>
+                            </div>
+                        </div> 
+                    </div>
+                    <div class="modal-footer">
+                        
+                            <asp:Button ID="BtnUnoaADD" OnClick="BtnUnoaADD_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGMUnoa" />
+                            <asp:Button ID="BtnUnoaEdit" OnClick="BtnUnoaEdit_Click" runat="server" Text="Actualizar" CssClass="btn btn-primary" ValidationGroup="VGMUnoa" ></asp:Button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+</asp:Content>
+<asp:Content ID="Content9" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+
+

OI/UnoaUnoConfiguracion.aspx.cs

@@ -0,0 +1,132 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+
+public partial class OI_UnoaUnoConfiguracion : ClsPaginas
+{
+
+    #region Propiedades 
+    private int CcveUnoaUnoEtiqueta
+    {
+        get { return (ViewState["CcveUnoaUnoEtiqueta"] == null) ? 0 : Convert.ToInt32(ViewState["CcveUnoaUnoEtiqueta"]); }
+        set { ViewState["CcveUnoaUnoEtiqueta"] = value; }
+    }
+    #endregion
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            CargaUnoaUnoEtiqueta();
+        }
+    }
+    protected void CargaUnoaUnoEtiqueta()
+    {
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+
+            ObjUnoa.GetUnoaUnoEtiqueta(-1, UsuarioActual.CveEmpresa);
+            GVUnoaUnoEtiqueta.DataSource = ObjUnoa.DtResultados;
+            DdlUnoaetiqueta1.DataSource = ObjUnoa.DtResultados;
+        } 
+        GVUnoaUnoEtiqueta.DataBind();
+        DdlUnoaetiqueta1.DataBind();
+        DdlUnoaetiqueta1.Items.Insert(0,new ListItem("Seleccione","-1"));
+        upDatosUnoa.Update();
+    } 
+    protected void LimpiaUnoaUnoEtiqueta()
+    {
+        TxtUnoaetiqueta.Text = "";
+        DdlUnoaetiqueta1.SelectedIndex = 0;
+        UPModalUnoa.Update();
+    }
+    protected void LnkEditarUnoa_Click(object sender, EventArgs e)
+    {
+        LimpiaUnoaUnoEtiqueta();
+        ltlUnoatitulo.Text = "Actualizar Etiqueta";
+        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        CcveUnoaUnoEtiqueta = gvRow.DataKey("CveUnoaUnoEtiqueta").ToEntero();
+        string etiqueta = gvRow.DataKey("Etiqueta");
+        int cveUnoaUnoEtiquetaVinculo = gvRow.DataKey("CveUnoaUnoEtiquetaVinculo").ToEntero();
+        int cveGrupo = gvRow.DataKey("CveGrupo").ToEntero();
+        int cveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero();
+
+        TxtUnoaetiqueta.Text = etiqueta.ToString();
+        DdlUnoaetiqueta1.SelectedValue = "-1";
+        DdlUnoaetiqueta1.SelectedValueExist(cveUnoaUnoEtiquetaVinculo.ToString()); 
+        this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal();");
+        BtnUnoaADD.Visible = false;
+        BtnUnoaEdit.Visible = true;
+        UPModalUnoa.Update();
+    }
+    protected void LnkAgregarUnoa_Click(object sender, EventArgs e)
+    {
+        ltlUnoatitulo.Text = "Agregar Etiqueta";
+        this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal();");
+        LimpiaUnoaUnoEtiqueta();
+        BtnUnoaADD.Visible = true;
+        BtnUnoaEdit.Visible = false;
+        UPModalUnoa.Update();
+    }
+    protected void BtnUnoaADD_Click(object sender, EventArgs e)
+    {
+
+        string etiqueta = TxtUnoaetiqueta.Text;
+        int cveUnoaUnoEtiquetaVinculo = DdlUnoaetiqueta1.SelectedValue.ToEntero();
+        int cveGrupo = 1;
+        int cveEmpresa = UsuarioActual.CveEmpresa;
+        bool Continuar = false;
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+            Continuar=ObjUnoa.AddUnoaUnoEtiqueta(etiqueta, cveUnoaUnoEtiquetaVinculo, cveGrupo, cveEmpresa);
+        }
+        if (Continuar)
+        {
+            this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal('hide');");
+            LimpiaUnoaUnoEtiqueta();
+            CargaUnoaUnoEtiqueta();
+            UPModalUnoa.Update();
+            this.Alert("La Etiqueta se ha agregado");
+        }
+    }
+    protected void BtnUnoaEdit_Click(object sender, EventArgs e)
+    {
+
+        string etiqueta = TxtUnoaetiqueta.Text;
+        int cveUnoaUnoEtiquetaVinculo = DdlUnoaetiqueta1.SelectedValue.ToEntero();
+        int cveGrupo = 1;
+        int cveEmpresa = UsuarioActual.CveEmpresa;
+        bool Continuar = false;
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        { 
+             Continuar = ObjUnoa.UpUnoaUnoEtiqueta(CcveUnoaUnoEtiqueta, etiqueta, cveUnoaUnoEtiquetaVinculo, cveGrupo, cveEmpresa);
+        }
+        if (Continuar)
+        {
+            this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal('hide');");
+            LimpiaUnoaUnoEtiqueta();
+            UPModalUnoa.Update();
+            CargaUnoaUnoEtiqueta();
+            this.Alert("La Etiqueta se ha actualizado");
+        }
+    }
+    protected void LnkEliminarUnoa_Click(object sender, EventArgs e)
+    {
+        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        CcveUnoaUnoEtiqueta = gvRow.DataKey("CveUnoaUnoEtiqueta").ToEntero();
+        bool Continuar = false;
+        using (ClsOIEventos ObjUnoa = new ClsOIEventos())
+        {
+
+         Continuar = ObjUnoa.RemoveUnoaUnoEtiqueta(CcveUnoaUnoEtiqueta);
+        }
+        if (Continuar)
+        {
+            CargaUnoaUnoEtiqueta();
+            this.Alert("La Etiqueta se ha Eliminado");
+        }
+    }
+}

PortalProveedor/PortalProveedor.aspx.vb

@@ -1676,7 +1676,7 @@ Partial Class Portal_PortalProveedor
 
         '    Try
 
-        '        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(".", "")
         '        Dim tempArray() As String
         '        tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
 

Ventas/Clientes.aspx

@@ -283,7 +283,7 @@
     <asp:UpdatePanel runat="server" ID="UpReporteGpsButton" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="ReporteDispositivos" Visible="False" OnClick="GenerarReporte" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-pdf-o'></i> Dispositivos GPS"></asp:LinkButton>
+                <asp:LinkButton ID="ReporteDispositivos" Visible="False" OnClick="GenerarReporte" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-pdf-o'></i> PDF"></asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>
@@ -294,7 +294,7 @@
     <asp:UpdatePanel runat="server" ID="UpReporteGpsExcel" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkReporteExcel" Visible="False" OnClick="GenerarReporteExcel" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-excel-o'></i> Dispositivos GPS"></asp:LinkButton>
+                <asp:LinkButton ID="LnkReporteExcel" Visible="False" OnClick="GenerarReporteExcel" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-excel-o'></i> Excel"></asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>

Ventas/Clientes.aspx.vb

@@ -3758,6 +3758,7 @@ Partial Class Clientes
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("Cliente", TxtNombre.Text))
 
         Dim ObjGPS As New ClsGPS
         Dim tablaReporte As DataTable

Ventas/PV.aspx.vb

@@ -1776,6 +1776,17 @@ Partial Class PV
                 Moneda = 1
             End If
 
+            'ELIMINA LOS DETALLES
+            If Not OcurrioError Then
+                Dim DtEliminados As DataTable = TmpDT.FiltraParametros("EliminarDB = True AND CveVentaDetalle > 0", "", {"CveVentaDetalle"})
+
+                For Each Dr1 As DataRow In DtEliminados.Rows
+                    If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString.ToEntero) Then
+                        OcurrioError = True
+                    End If
+                Next
+            End If
+
             'Actualizo los parametros de la venta
             If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
                                           UsuarioActual.CveEmpresa, CveVenta, 0, 0,
@@ -1789,7 +1800,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("PorcentajeIEPS").ToString().ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then
@@ -1834,32 +1845,46 @@ Partial Class PV
                 Next
             End If
 
+            'RECARGA LOS DATOS
+            ObjFactura.Dispose()
+            ObjFactura = Nothing
+            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
 
-            'ELIMINA LOS DETALLES
+            If ObjFactura Is Nothing Then
-            If Not OcurrioError Then
-                Dim DtEliminados As DataTable = TmpDT.FiltraParametros("EliminarDB = True AND CveVentaDetalle > 0", "", {"CveVentaDetalle"})
-
-                For Each Dr1 As DataRow In DtEliminados.Rows
-                    If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString.ToEntero) 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
-            End If
 
-            'RECARGA LOS DATOS
+                'VALIDA NUMERO DE REGISTROS
-            If ObjVentas.GetVentaDetalle(CveVenta) Then
+                If TmpDT.Rows.Count <> NumRowsPS Then
-                TmpDT = ObjVentas.DtResultados.Copy()
-                ObjFactura.DtDetalle = TmpDT
-            Else
                     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 +1894,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 +1909,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 +2783,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()
 
+        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 +2804,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

Ventas/Ventas.aspx.vb

@@ -6281,6 +6281,14 @@ Partial Class Ventas
                     e.Row.FCCheckBox("cbInv").Enabled = False
                 End If
 
+                'SI DEBE HACER SALIDA DIRECTA DE ALMACEN DEBE ESTAR SELECCIONADO SIEMPRE
+                If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+                    e.Row.FCCheckBox("cbInv").Checked = True
+                    If UsuarioActual.CveEmpresa = 141 Then
+                        e.Row.FCCheckBox("cbInv").Enabled = False
+                    End If
+                End If
+
             End If
 
             If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then
@@ -11197,6 +11205,15 @@ Partial Class Ventas
                     Next
                 End If
 
+                'EN ECONOLLANTAS DEBE REALIZAR SIEMPRE LA SALIDA DE ALMACEN
+                If UsuarioActual.CveEmpresa = 141 AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                    For Each GvRow As GridViewRow In GvInv.Rows
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+                            GvRow.FCCheckBox("cbInv").Checked = True
+                        End If
+                    Next
+                End If
+
                 If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
 
                     Dim Filtro As String = ""
@@ -11299,6 +11316,11 @@ Partial Class Ventas
                             i = i + 1
                         Next
 
+                        'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
+                        If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
+                            OcurrioError = True
+                        End If
+
                         'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
                         If Not OcurrioError Then
                             Dim DtCostos As DataTable = Nothing
@@ -19505,30 +19527,11 @@ Partial Class Ventas
     Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcelVentas.Click
         DescargarFormato()
     End Sub
-    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String, FileUrl As String)
         Dim dt As New DataTable
-        Dim Conexion As Odbc.OdbcConnection = Nothing
         Dim ErrorArchivo = False
         Dim n As Integer = 0
-        Try
+        dt = ReadExcelFile(FileUrl, True)
-            Select Case Tipo
-                Case "EXCEL"
-                    Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
-                    Conexion.Open()
-                    Dim cmd = Conexion.CreateCommand()
-                    cmd.CommandType = CommandType.Text
-                    cmd.CommandText = "Select * FROM [Hoja1$] WHERE Cantidad >=1"
-                    Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
-                    DataAdapter.Fill(dt)
-                Case Else
-                    Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
-                    Exit Sub
-            End Select
-        Catch ex As Exception
-            ErrorArchivo = True
-            OnError("Ocurrio un Error al leer el archivo <br/>" & ex.Message, ex)
-        End Try
-        Conexion.Close()
         If Not ErrorArchivo Then
             If Not dt.Columns(0).ColumnName = "Cantidad" Then
                 Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError)
@@ -19577,6 +19580,7 @@ Partial Class Ventas
                 Dim RowNoEncontrados As String = ""
                 Dim NumAgregados As Integer = 0
                 For Each Row As DataRow In dt.Rows
+                    NumAgregados = NumAgregados + 1
                     Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal
                     Dim UM As String = Row("UM").ToString()
                     Dim Codigo As String = Row("Código").ToString().Trim.ToUpper
@@ -19728,7 +19732,7 @@ Partial Class Ventas
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
             Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
-            CargarArchivo(Directorio, file.filename, Tipo)
+            CargarArchivo(Directorio, file.filename, Tipo, file.FileUrl)
         Else
             Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
         End If
@@ -25504,4 +25508,7 @@ Partial Class Ventas
     Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
         CargaEventoBitacora()
     End Sub
+
+
+
 End Class

asmx/WSApp.asmx

@@ -426,6 +426,31 @@ Public Class WSApp
             Application("GlobalDTMotivosHorasExtras") = value
         End Set
     End Property
+
+
+    Public Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
+                Dim ObjUnidadesMedida As New ClsUnidadesMedida()
+                If ObjUnidadesMedida.GetUnidadesMedida(CveEmpresa) Then Application(AppNombre) = ObjUnidadesMedida.DtResultados
+                ObjUnidadesMedida.Dispose()
+            End If
+
+            If CveEmpresa <> -1 Then
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " UnidadMedida", DataViewRowState.CurrentRows)
+                GlobalDTUnidadesMedida = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTUnidadesMedida = DirectCast(Application(AppNombre), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
 #End Region
 
     Public Property CveEmpresa As Integer = 143
@@ -1433,6 +1458,7 @@ Public Class WSApp
     End Function
 #End Region
 
+
 End Class
 
 Namespace WebServiceAppModels2

packages.config

@@ -28,7 +28,6 @@
   <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
   <package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />
   <package id="NC-OS-SessionStateProvider" version="4.4.0.0" targetFramework="net40" />
-  <package id="Newtonsoft.Json" version="8.0.2" targetFramework="net40" />
   <package id="NuGet.Core" version="2.8.0" targetFramework="net4" />
   <package id="Owin" version="1.0" targetFramework="net45" />
   <package id="StackExchange.Redis.StrongName" version="1.0.488" targetFramework="net40" />

vwd.webinfo

@@ -58,6 +58,8 @@
     
   
     
+  
+