From 81d669748d8bc8cbf9f993b9527fa4df6e76747d Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Fri, 9 Oct 2020 11:19:52 -0700
Subject: [PATCH] Funcionalidad 281 bloquear fechas

---
 Bancos/FluctuacionCambiaria.aspx     | 10 ++++----
 Bancos/PrestamoPersonal.aspx.cs      | 11 +++++++++
 Inventarios/EntradasSalidas.aspx.vb  | 35 ++++++++++++++++++++++++++++
 Inventarios/EntregaAlmacen.aspx.vb   |  8 +++++++
 Inventarios/RecepcionAlmacen.aspx.vb |  8 +++++++
 Inventarios/TraspasoAlmacen.aspx.vb  | 12 ++++++++++
 6 files changed, 78 insertions(+), 6 deletions(-)

diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index 3ecd068fa..56c76c41c 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -147,9 +147,7 @@
                         </div>
                         <div class="col-md-2">
                             <asp:TextBox ID="TxtConceptoFluctuacion" runat="server"></asp:TextBox>
-                        </div>
-
-                        
+                        </div>                        
 
                     </div>
                 </div>
@@ -230,15 +228,15 @@
                         <div class="row">
 
                              
-                            <div class="col-md-3 form-group form-md-line-input input-iconright">
-                                 <asp:TextBox ID="TxtConceptoCompras" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control  marginFixRow" Width="90%"></asp:TextBox>
+                            <div class="col-md-5 form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtConceptoCompras" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control  marginFixRow" Width="96%"></asp:TextBox>
                                  <asp:RequiredFieldValidator ID="RFVTxtConceptoCompras" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCompras"
                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCompras"></asp:RequiredFieldValidator>
                                  <label for="<%= TxtConceptoCompras.ClientID.ToString()%>">Concepto:</label>                                                                    
                                  <i></i>
                              </div>
 
-                            <div class="col-md-3 form-group form-md-line-input input-iconright">                                
+                            <div class="col-md-1 form-group form-md-line-input input-iconright">                                
                                 <asp:DropDownList ID="DdlSubProyectoCompras" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%" >
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoCompras.ClientID.ToString()%>"><asp:Label runat="server" ID="LblSubProyectoCompras"></asp:Label></label>
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index f9674a6bb..2ecb1b234 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -106,6 +106,17 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
             txtFechaF.Text = DateTime.Now.ToShortDateString();
             TxtImporte.Attributes.Add("disabled", "disabled");
 
+            if(UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1)
+            {
+                TxtFechaPrestamo.Enabled = false;
+                ImgCalendarioPrestamo.Visible = false;
+
+                TxtFechaDocumento.Enabled = false;
+                ImgCalendario.Visible = false;
+
+            }
+
+
         }
     }
 
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 08040c50e..059f71e5b 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -275,6 +275,7 @@ Partial Class Inventarios_EntradasSalidas
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
         If Not IsPostBack Then
 
             CveMovimiento = -1
@@ -289,6 +290,7 @@ Partial Class Inventarios_EntradasSalidas
             CreaDT()
             CargaCombos()
             TxtFecha.Text = Now.ToShortDateString
+            TxtFechaInvFisico.Text = Now.ToShortDateString
             RVFecha.MaximumValue = Now.ToShortDateString
 
             If Not UsuarioActual.CveEmpresa = 48 Then
@@ -350,7 +352,25 @@ Partial Class Inventarios_EntradasSalidas
                 PermisoVerImportes()
             End If
 
+
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+                TxtFechaInvFisico.Enabled = False
+                ImgFechaInvFisico.Visible = False
+
+                UpGenerales.Update()
+                UpModalInventarioFisico.Update()
+
+            End If
+
         End If
+
+
+
+
     End Sub
 
 #Region "  PERMISOS PAGINAS  "
@@ -927,6 +947,21 @@ Partial Class Inventarios_EntradasSalidas
             'BtnGuardar.Visible = False
         End If
 
+
+        If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+            TxtFecha.Enabled = False
+            ImgFecha.Visible = False
+
+            TxtFechaInvFisico.Enabled = False
+            ImgFechaInvFisico.Visible = False
+
+
+
+
+        End If
+
+        UpModalInventarioFisico.Update()
         BloqueaEdicionEncabezado()
         Mov.Dispose()
         UpGenerales.Update()
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 6d6e99153..8aff48266 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -263,6 +263,14 @@ Partial Class Inventarios_EntregaAlmacen
             InicializaValores()
             CargaParametrosAD()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
+
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+            End If
+
         End If
     End Sub
 
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 5022d6ebb..e5b39aeef 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -399,6 +399,14 @@ Partial Class Inventarios_RecepcionAlmacen
             CargaPermisos()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
 
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+            End If
+
+
         End If
     End Sub
 
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index edb1228f1..efb17de68 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -228,6 +228,18 @@ Partial Class Inventarios_TraspasoAlmacen
 
             TipoSeccionAlmacen = 0
 
+
+
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+                TxtFechaRecepcion.Enabled = False
+                ImgFechaRecepcion.Visible = False
+
+            End If
+
         Else
             If ChkTransitorio.Checked Then
                 RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")