From 651ab57c3faaab2be2305d9a3e681c2146a933af Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 6 Jul 2020 14:18:30 -0700
Subject: [PATCH] -- quitar funcionalidad 563

---
 Inventarios/Apartados.aspx.vb         | 16 ----------------
 Inventarios/RepAnomalias.aspx         |  2 +-
 Inventarios/ResguardoMaterial.aspx.vb |  2 --
 Inventarios/TraspasoAlmacen.aspx.vb   |  4 ----
 4 files changed, 1 insertion(+), 23 deletions(-)

diff --git a/Inventarios/Apartados.aspx.vb b/Inventarios/Apartados.aspx.vb
index f10ca6247..f48ad283d 100644
--- a/Inventarios/Apartados.aspx.vb
+++ b/Inventarios/Apartados.aspx.vb
@@ -132,9 +132,6 @@ Partial Class Inventarios_Apartados
 
         TipoSeccionAlmacen = 0
 
-        GvDatos.Columns(5).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-        GvDatosDesapartado.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-
     End Sub
     Private Sub CargaCombos()
 
@@ -631,12 +628,6 @@ Partial Class Inventarios_Apartados
         Next
 
         Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
-        'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-        '    If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
-        '        Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-        '        Exit Sub
-        '    End If
-        'End If
 
         Dim ObjInventario As New ClsInventarios
 
@@ -909,13 +900,6 @@ Partial Class Inventarios_Apartados
             End If
         Next
 
-        'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-        '    If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
-        '        Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-        '        Exit Sub
-        '    End If
-        'End If
-
         'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
         Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble)
         'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")
diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx
index a067252e2..284ea3c83 100644
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -234,7 +234,7 @@
                     <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
-                    <asp:BoundField HeaderText="Costo" DataField="Costo" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
                 </Columns>
             </asp:GridView>
 
diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index 621037f48..c706e4f5c 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -152,8 +152,6 @@ Partial Class Inventarios_ResguardoMaterial
         CargaCombos()
         TxtFecha.Text = Now.ToShortDateString
         TxtFechaLiberacion.Text = Now.ToShortDateString
-        GvM.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-        GvMLiberacion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
 
         GvM.DataBind()
 
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 9cb9ddc3a..09ed1a802 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -195,10 +195,6 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If Request("CveEntrada") IsNot Nothing AndAlso Request("CveEntrada").ToString.ToEntero > 0 Then
                 CargaMovimiento(Request("CveEntrada").ToString.ToEntero)
-            Else
-                GvDatos.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-                GvDatosRecepcion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-                ThSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then