diff --git a/Edoc/CatDocumentos.aspx.vb b/Edoc/CatDocumentos.aspx.vb
index e2afe6520..171aac132 100644
--- a/Edoc/CatDocumentos.aspx.vb
+++ b/Edoc/CatDocumentos.aspx.vb
@@ -1,10 +1,13 @@
-
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
 Imports System.IO
-
+Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl
+
 Partial Class RH_CatDocumentos
     Inherits ClsPaginas
 
@@ -92,10 +95,9 @@ Partial Class RH_CatDocumentos
     Property Estatus As Boolean
         Get
             If ViewState("Estatus") Is Nothing Then
-                Return False
-            Else
-                Return DirectCast(ViewState("Estatus"), Boolean)
+                ViewState("Estatus") = False
             End If
+            Return DirectCast(ViewState("Estatus"), Boolean)
         End Get
         Set(value As Boolean)
             ViewState("Estatus") = value
@@ -219,17 +221,18 @@ Partial Class RH_CatDocumentos
         CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero
         DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
         Orden = GvRow.DataKey("Orden").ToEntero
-        Estatus = GvRow.DataKey("Estatus") = "True"
-        Requerido = GvRow.DataKey("Requerido") = "True"
+        Estatus = Boolean.Parse(GvRow.DataKey("Estatus"))
+        Requerido = Boolean.Parse(GvRow.DataKey("Requerido"))
+
 
         Txtdocumentacion.Text = Documentacion
-        TxtOrden.Text = GvRow.DataKey("Orden")
+        TxtOrden.Text = Orden.ToString
 
         TxtDiasLimite.Text = GvRow.DataKey("DiasLimite")
-        ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite") = "True"
+        ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite"))
         TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad")
 
-        ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento") = "True"
+        ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento"))
 
         DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
         chkEstatus.Checked = Estatus
diff --git a/Edoc/CatDocumentosContratos.aspx.vb b/Edoc/CatDocumentosContratos.aspx.vb
index 9bce2a167..24b3d55ed 100644
--- a/Edoc/CatDocumentosContratos.aspx.vb
+++ b/Edoc/CatDocumentosContratos.aspx.vb
@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq
diff --git a/Edoc/CatTipoContratos.aspx.vb b/Edoc/CatTipoContratos.aspx.vb
index 158eababc..0af135e97 100644
--- a/Edoc/CatTipoContratos.aspx.vb
+++ b/Edoc/CatTipoContratos.aspx.vb
@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq
diff --git a/Edoc/Contratos.aspx.vb b/Edoc/Contratos.aspx.vb
index 9ae0556a9..5e531a8e4 100644
--- a/Edoc/Contratos.aspx.vb
+++ b/Edoc/Contratos.aspx.vb
@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq
diff --git a/Empresas/Grales/Formatos/EntradasSalidas.rdlc b/Empresas/Grales/Formatos/EntradasSalidas.rdlc
index 97f895378..289fcb212 100644
--- a/Empresas/Grales/Formatos/EntradasSalidas.rdlc
+++ b/Empresas/Grales/Formatos/EntradasSalidas.rdlc
@@ -47,39 +47,39 @@
         </Field>
         <Field Name="SaldoIniCant">
           <DataField>SaldoIniCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoInitCant">
           <DataField>SaldoInitCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="EntradaCant">
           <DataField>EntradaCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SalidaCant">
           <DataField>SalidaCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoFCant">
           <DataField>SaldoFCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoIniImp">
           <DataField>SaldoIniImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="EntradaImp">
           <DataField>EntradaImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SalidaImp">
           <DataField>SalidaImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoFImp">
           <DataField>SaldoFImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="Orden">
           <DataField>Orden</DataField>
@@ -1012,7 +1012,7 @@
                                   <Value>=IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1056,7 +1056,7 @@
                                   <Value>=IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1100,7 +1100,7 @@
                                   <Value>=IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1144,7 +1144,7 @@
                                   <Value>=IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1726,7 +1726,6 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>
@@ -1859,6 +1858,7 @@
               </Paragraphs>
               <rd:DefaultName>Textbox2</rd:DefaultName>
               <Top>1.13799cm</Top>
+              <Left>0.01cm</Left>
               <Height>0.52945cm</Height>
               <Width>20.5896cm</Width>
               <ZIndex>1</ZIndex>
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index 63596b1f9..1710c7e8d 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -1,4 +1,7 @@
-Imports System.Data
+Option Explicit On
+Option Strict On
+
+Imports System.Data
 Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
@@ -65,7 +68,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
             End If
 
             TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
-            TxtFechaF.Text = Now
+            TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
             FechaInicial = "-1"
             FechaFinal = "-1"
 
@@ -374,7 +377,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
             FechaI = "01-01-0001"
         End If
         If FechaF = "-1" OrElse FechaFinal.ToDate > Now.ToDate Then
-            FechaF = Now
+            FechaF = Now.ToString("dd/MM/yyyy")
         End If
         Dim RutaPDF As String
         Dim Ruta As String = UsuarioActual.Empresa.Ruta
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index cd7fea4c6..6cff3f356 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1704,7 +1704,7 @@ Partial Class RH_Personal
                 'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno
 
 
-                If ObjPersonal.CveUniforme > 0 Then
+                If ObjPersonal.CveUniforme > 0 Or UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
                     LnkSurtir.Visible = True
                     ViewState("CveUniforme") = ObjPersonal.CveUniforme
                     DdlUniforme.SelectedValueExist(CveUniforme)
@@ -5636,7 +5636,7 @@ Partial Class RH_Personal
 
     Private Sub CargaUniformesPersonal()
 
-        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then
+        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140, 7, 11, 12, 122, 145) Then
 
             GvUniforme.Visible = True
             GvUniformesResguardo.Visible = False
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 51539abc1..829d7d6d9 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -260,7 +260,16 @@ Partial Class Ventas_ClientesAbonar
         Dim CveTipoCuenta As Integer = 2
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores
 
-        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
+
+        Dim dt As DataTable
+
+        If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+            dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros(" CveTipoCuenta in (1,2) ")
+        Else
+            dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
+        End If
+
+
 
         If ChkPagarPesos.Checked Then
             dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))