-

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

@@ -978,7 +978,10 @@ Partial Class Bancos_PopIECompras
 
             Case 2
                 LblPagueseA.Text = "Beneficiario"
-        End Select
+        End Select
+
+
+
         CargaCuentas()
         CargaCuentasDepositos()
         UpDatos.Update()
@@ -3335,51 +3338,57 @@ Partial Class Bancos_PopIECompras
         Alert(Str.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
     End Sub
 
-    Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True)
-        Try
-            Dim Msg As String = ""
-            If NombreArchivo <> "-1" Then ' 
-
-                Dim ObjMail As New ClsSisMail()
-                Dim RutaXML As String = String.Format("{0}\XML\Pag\{1}.xml", UsuarioActual.Empresa.Ruta, NombreArchivo)
-                Dim RutaPDF As String = String.Format("{0}\PDF\Pag\{1}.pdf", UsuarioActual.Empresa.Ruta, NombreArchivo)
-
-                Dim Cuerpo As String = "Se hace entrega del comprobante de pago"
-                Dim Asunto As String = "Entrega de comprobante de pago"
-
-                If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
-
-                    Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF})
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML})
-
-                    If ObjMail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Cuerpo, "", LSRutasMail) Then
-
-                        If ConAlerta Then
-                            RegistraScript("$('#ModalDivMail').modal('hide');")
-                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-                        End If
-
-                    Else
-                        Msg = "No se pudo enviar el correo electrónico."
-                    End If
-
-                Else
-                    Msg = "No se pudo adjuntar el correo electrónico."
-                End If
-
-            End If
-
-            If ConAlerta AndAlso Msg <> "" Then
-                Alert(Msg, TipoMensaje.MsgError)
-            End If
+    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 ' 
+
+                    Dim ObjMail As New ClsSisMail()
+                    Dim RutaXML As String = String.Format("{0}\XML\Pag\{1}.xml", UsuarioActual.Empresa.Ruta, NombreArchivo)
+                    Dim RutaPDF As String = String.Format("{0}\PDF\Pag\{1}.pdf", UsuarioActual.Empresa.Ruta, NombreArchivo)
+
+                    Dim Cuerpo As String = "Se hace entrega del comprobante de pago"
+                    Dim Asunto As String = "Entrega de comprobante de pago"
+
+                    If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
+
+                        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF})
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML})
+
+                        If ObjMail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Cuerpo, "", LSRutasMail) Then
+
+                            If ConAlerta Then
+                                RegistraScript("$('#ModalDivMail').modal('hide');")
+                                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+                            End If
+
+                        Else
+                            Msg = "No se pudo enviar el correo electrónico."
+                        End If
+
+                    Else
+                        Msg = "No se pudo adjuntar el correo electrónico."
+                    End If
+
+                End If
+
+                If ConAlerta AndAlso Msg <> "" Then
+                    Alert(Msg, TipoMensaje.MsgError)
+                End If
+
+
+            Catch ex As Exception
+                OnError("Ocurrió error al mandar MAIL", ex)
+
+            End Try
+        End If
 
 
-        Catch ex As Exception
-            OnError("Ocurrió error al mandar MAIL", ex)
-
-        End Try
     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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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>
-        <Left>2.85732cm</Left>
+        <Top>1.13431cm</Top>
+        <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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>
-        <Width>20.51911cm</Width>
+        <Height>3.30389cm</Height>
+        <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">
-          <DataField>SerieLote</DataField>
+        <Field Name="Serie">
+          <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>
-        <Left>0.09671cm</Left>
+        <Top>0.66321cm</Top>
+        <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>
-        <Width>20.3175cm</Width>
+        <Height>1.30584cm</Height>
+        <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,70 +1,124 @@
 <%@ 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:UpdatePanel runat="server" ID="UpFiltraEntrega" UpdateMode="Conditional">
-                    <ContentTemplate>
-                        <div class="portlet solid  grey-cascade portlet-filter">
-                            <div class="portlet-title portlet-filterT smalltitle magindate">
-                                <div class="tools">
-                                    <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-default" />
-                                </div>
-                                <div class="titlefiltros caption ">
-                                     
-                                         <label class="col-md-1 truncate" style="text-align: right;">Almacen:</label>
-                                            <div class="col-md-3">
-                                                <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="300px"></asp:DropDownList>
-                                            </div>
-                                        
-                                         <label class="col-md-1 truncate" style="text-align: right;">Clasificacion:</label>
-                                            <div class="col-md-3">
-                                             <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="300px" ></asp:DropDownList>
-                                      </div>
-                                    
-                                </div>
-                            </div>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpFiltraEntrega" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle magindate">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-default" />
+                    </div>
+                    <div class="titlefiltros caption ">
+
+                        <label class="col-md-1 truncate" style="text-align: right;">Almacen:</label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="300px"></asp:DropDownList>
                         </div>
-                    </ContentTemplate>
-                </asp:UpdatePanel>
-                <br />
-      <asp:UpdatePanel runat="server" ID="UppD" UpdateMode="Conditional">
-                    <ContentTemplate>
-                    <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,CveSeccionAlmacen,FechaCaducidad,Lote" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
-                            <Columns>                                 
-                                <asp:BoundField HeaderText="Producto" DataField="CodigoPS"  />                               
-                                <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />
-                                <asp:BoundField HeaderText="Sección Actual" DataField="SeccionAlmacen" ItemStyle-Width="15%" />
-                                <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###.##}"  ItemStyle-Width="5%" />
-                                <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">                                   
-                                    <ItemTemplate>
-                                        <asp:CheckBox ID="Chk" Checked="true" runat="server" ></asp:CheckBox>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                  <asp:TemplateField HeaderText="Nueva Seccion" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
-                                    <ItemTemplate>
-                                        <asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveSeccionAlmacen" DataTextField="SeccionAlmacen" 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>
+                        <label class="col-md-1 truncate" style="text-align: right;">Clasificacion:</label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="300px"></asp:DropDownList>
+                        </div>
+
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <br />
+    <asp:UpdatePanel runat="server" ID="UppD" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,CveSeccionAlmacen,FechaCaducidad,Lote" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />
+                    <asp:BoundField HeaderText="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>
+                            <asp:CheckBox ID="Chk" Checked="true" runat="server"></asp:CheckBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nueva Seccion" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveAlmacenSeccion" DataTextField="AlmacenSeccion" class="select2me"></asp:DropDownList>
+
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+            <asp:Button ID="BtnCambiarSeccion" runat="server" Text="Cambiar Sección" CssClass="btn btn-primary" />
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <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

@@ -1,144 +1,340 @@
-
-Imports System.Data
-Imports Extensiones
-
-Partial Class Inventarios_AjustesSeccionAlmacen
-    Inherits ClsPaginas
-
-    Private Sub Inventarios_AjustesSeccionAlmacen_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
-            CargaCombos()
-        End If
-    End Sub
-
-    Private Sub CargaCombos()
-        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-        DdlAlmacen.DataBind()
-
-        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
-        DdlClasificaciones.DataBind()
-        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-
-    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
-    End Sub
-
-    Private Sub CargaDatos()
-        Dim ObjInv As New ClsInventarios
-
-        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvD.DataSource = ObjInv.DtResultados
-        End If
-
-        ObjInv.Dispose()
-        GvD.DataBind()
-        UppD.Update()
-    End Sub
-
-    Private Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
-            e.Row.FCDropDownList("DDlS").DataBind()
-
-        End If
-    End Sub
-
-    Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click
-        Dim ObjInventario As New ClsInventarios
-        Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL)
-        Dim Dtt As DataTable = Nothing
-        Dim CveMovimientoEntrada As Integer = 0
-        Dim Folio = 0
-        Dim ErrorMovInv As Boolean = False
-        Dim TextoError = ""
-        Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
-
-
-
-        Dim Fecha As Date = DateTime.Now
-        'AGREGAMOS LA ENTRADA
-        Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                          Observaciones:="", Modulo:="ASA/G1")
-        Folio = ObjInventario.Folio
-
-        If CveMovimientoSalida <= 0 Then
-            TextoError = "No se pudo generar el movimiento de salida correctamente"
-            ErrorMovInv = True
-        Else
-
-            Dim CveMovimientoDetalleEntrada As Integer = 0
-            Dim Cont As Integer = 0
-            For Each gvr As GridViewRow In GvD.Rows
-
-                'que este seleccionado y que tenga diferente seccion
-                If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCDropDownList("DDlS").SelectedValue.ToEntero <> gvr.DataKey("CveSeccionAlmacen").ToEntero Then
-
-                    If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
-                        ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
-                    End If
-
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.DataKey("Existencia").ToDecimal, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al guardar los movimientos de salida"
-                        Exit For
-                    End If
-
-                End If
-
-            Next
-
-            If Not ErrorMovInv Then
-
-                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-
-                    Dim resultado As DataTable = ObjInventario.DtResultados
-                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="ASA/G1")
-                    Dim ind As Integer = 0
-
-                    For Each Row As DataRow In resultado.Rows
-                        Dim CvePS = Row("CvePS").ToString().ToEntero()
-                        Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
-                        Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
-                        Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
-                        Dim CveSeccionAlmacen As Integer = GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
-                        Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal()
-                        Dim Serie As String = Row("Serie").ToString()
-                        Dim Lote As String = Row("Lote").ToString()
-                        Dim FechaCaducidad As Date = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
-
-                        'actualizamos el PS, para que tenga el aplica seccion
-
-                        ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
-
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                            ErrorMovInv = True
-                            Exit For
-                        End If
-                        ind += 1
-                    Next
-                    resultado.Dispose()
-
-                Else
-                    TextoError = "No se pudo registrar el movimiento"
-                    ErrorMovInv = True
-                End If
-
-            End If
-
-        End If
-
-
-        If Not ErrorMovInv Then
-            ObjInventario.Commit()
-            cargadatos
-            Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
-        Else
-            ObjInventario.RollBack()
-            Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError)
-        End If
-
-        ObjInventario.Dispose()
-    End Sub
-End Class
+
+Imports System.Data
+Imports Extensiones
+
+Partial Class Inventarios_AjustesSeccionAlmacen
+    Inherits ClsPaginas
+
+    Private Sub Inventarios_AjustesSeccionAlmacen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+        End If
+    End Sub
+
+    Private Sub CargaCombos()
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        DdlAlmacen.DataBind()
+
+        DdlAlmacenExcel.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        DdlAlmacenExcel.DataBind()
+
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjInv As New ClsInventarios
+
+        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvD.DataSource = ObjInv.DtResultados
+        End If
+
+        ObjInv.Dispose()
+        GvD.DataBind()
+        UppD.Update()
+    End Sub
+
+    Private Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+            e.Row.FCDropDownList("DDlS").DataBind()
+
+        End If
+    End Sub
+
+    Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click
+        Dim ObjInventario As New ClsInventarios
+        Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL)
+        Dim Dtt As DataTable = Nothing
+        Dim CveMovimientoEntrada As Integer = 0
+        Dim Folio = 0
+        Dim ErrorMovInv As Boolean = False
+        Dim TextoError = ""
+        Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
+
+
+
+        Dim Fecha As Date = DateTime.Now
+        'AGREGAMOS LA ENTRADA
+        Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+                                                          Observaciones:="", Modulo:="ASA/G1")
+        Folio = ObjInventario.Folio
+
+        If CveMovimientoSalida <= 0 Then
+            TextoError = "No se pudo generar el movimiento de salida correctamente"
+            ErrorMovInv = True
+        Else
+
+            Dim CveMovimientoDetalleEntrada As Integer = 0
+            Dim Cont As Integer = 0
+            For Each gvr As GridViewRow In GvD.Rows
+
+                'que este seleccionado y que tenga diferente seccion
+                If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCDropDownList("DDlS").SelectedValue.ToEntero <> gvr.DataKey("CveSeccionAlmacen").ToEntero Then
+
+                    If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
+                        ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
+                    End If
+
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.DataKey("Existencia").ToDecimal, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
+                        ErrorMovInv = True
+                        TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                        Exit For
+                    End If
+
+                End If
+
+            Next
+
+            If Not ErrorMovInv Then
+
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+
+                    Dim resultado As DataTable = ObjInventario.DtResultados
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="ASA/G1")
+                    Dim ind As Integer = 0
+
+                    For Each Row As DataRow In resultado.Rows
+                        Dim CvePS = Row("CvePS").ToString().ToEntero()
+                        Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                        Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
+                        Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
+                        Dim CveSeccionAlmacen As Integer = GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
+                        Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal()
+                        Dim Serie As String = Row("Serie").ToString()
+                        Dim Lote As String = Row("Lote").ToString()
+                        Dim FechaCaducidad As Date = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
+
+                        'actualizamos el PS, para que tenga el aplica seccion
+
+                        ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+                        ind += 1
+                    Next
+                    resultado.Dispose()
+
+                Else
+                    TextoError = "No se pudo registrar el movimiento"
+                    ErrorMovInv = True
+                End If
+
+            End If
+
+        End If
+
+        If Not ErrorMovInv Then
+            ObjInventario.Commit()
+            CargaDatos()
+            Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
+        Else
+            ObjInventario.RollBack()
+            Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError)
+        End If
+
+        ObjInventario.Dispose()
+    End Sub
+
+    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 Not OcurrioError Then
-                Dim DtEliminados As DataTable = TmpDT.FiltraParametros("EliminarDB = True AND CveVentaDetalle > 0", "", {"CveVentaDetalle"})
+            If ObjFactura Is Nothing Then
+                OcurrioError = True
+            Else
+                TmpDT = ObjFactura.DtDetalle
+                TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
+                TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
 
-                For Each Dr1 As DataRow In DtEliminados.Rows
-                    If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString.ToEntero) Then
-                        OcurrioError = True
+                Dim NumRowsPS As Integer = 0
+                Dim CantidadPS As Decimal = 0
+                For Each GvRow As GridViewRow In GvPS.Rows
+                    If GvRow.RowType = DataControlRowType.DataRow Then
+                        NumRowsPS += 1
+                        CantidadPS += GvRow.DataKey("Cantidad").ToDecimal()
                     End If
                 Next
+
+                'VALIDA NUMERO DE REGISTROS
+                If TmpDT.Rows.Count <> NumRowsPS Then
+                    OcurrioError = True
+                End If
+
+                'VALIDA CANTIDAD DE REGISTROS
+                If TmpDT.SUM("Cantidad") <> CantidadPS Then
+                    OcurrioError = True
+                End If
+
             End If
 
-            'RECARGA LOS DATOS
-            If ObjVentas.GetVentaDetalle(CveVenta) Then
-                TmpDT = ObjVentas.DtResultados.Copy()
-                ObjFactura.DtDetalle = TmpDT
-            Else
-                OcurrioError = True
-            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()
 
-        TmpDT.Rows.Remove(DbRow)
+        If Me.CveVentaDetalle <= 0 Then
+            EliminarUsados(DbRow("Consec").ToString().ToEntero())
+            TmpDT.Rows.Remove(DbRow)
+        Else
+            EliminarUsados()
+            DbRow("EliminarDB") = True
+        End If
 
         GvPS.DataSource = TmpDT.FiltraParametros("EliminarDB = False")
         DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
@@ -2774,6 +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
-            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()
+        dt = ReadExcelFile(FileUrl, True)
         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

@@ -1,5 +1,5 @@
-<%@ WebService Language="VB" Class="WSApp" %>
-
+<%@ WebService Language="VB" Class="WSApp" %>
+
 Option Explicit On
 
 Imports System.Data
@@ -22,9 +22,9 @@ Imports Newtonsoft.Json.Linq
 <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Public Class WSApp
-    Inherits System.Web.Services.WebService
+    Inherits System.Web.Services.WebService
 #Region "G L O B A L - D T"
-
+
     Public ReadOnly Property UrlSitio As String
         Get
             Return ConfigurationManager.AppSettings("UrlSitio").ToString
@@ -425,9 +425,34 @@ Public Class WSApp
         Set(value As DataTable)
             Application("GlobalDTMotivosHorasExtras") = value
         End Set
-    End Property
+    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
 
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -448,7 +473,7 @@ Public Class WSApp
         Else
         End If
         ObjEmpresa.Dispose()
-    End Sub
+    End Sub
 #Region "M E T O D O S - S E R V I C I O"
     Public Function ValidaUsuario(CveUsuario As Integer) As Usuario
         Dim UsuarioActual As Usuario = Nothing
@@ -783,9 +808,9 @@ Public Class WSApp
             Retorno.Mensajes.Add("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.")
         End If
         ObjInv.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "P E D I D O S"
     Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
         Dim Timbre As New CFDITimbre
@@ -899,9 +924,9 @@ Public Class WSApp
             i += 1
         Next
         Return Timbre
-    End Function
+    End Function
 #End Region
-
+
 #Region "R E M I S I O N E S"
     Private Function CreaFactura(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, Observaciones As String, ListaPS As List(Of MVentaProductos)) As Modelos.Factura
         If CveSubProyecto <= 0 Then
@@ -1430,9 +1455,10 @@ Public Class WSApp
         End Try
         ObjVentas.Dispose()
         Return strBody.ToString
-    End Function
+    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 @@
     
   
     
+  
+