From acb5c204a8057332e59a5e20d021dedaa61afa02 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 11 Apr 2025 08:20:40 -0700
Subject: [PATCH] =?UTF-8?q?--=20consideraci=C3=B3n=20de=20identificar=20lo?=
 =?UTF-8?q?s=20vencimientos=20--=20bloquear=20el=20cambio=20de=20dias=20ve?=
 =?UTF-8?q?ncimiento?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/ProveedoresAbonar.aspx.vb | 2 +-
 OC/OC.aspx                       | 7 ++++---
 OC/OC.aspx.vb                    | 3 +++
 3 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 580c82fb1..86cad07ec 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -535,7 +535,7 @@ Partial Class Bancos_ProveedoresAbonar
                 e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format(" RNCAutocheck = true;FnCambia({0},this,{1},2,'{2}',2);", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo"))
             End If
             'si el vencimiento es diferente al configurado en el proveedor, se pone en rojo
-            If DateDiff(DateInterval.Day, e.Row.DBCampo("Fecha").ToDate, e.Row.DBCampo("FechaVencimiento").ToDate) <> ProveedorPlazoPago Then
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DateDiff(DateInterval.Day, e.Row.DBCampo("Fecha").ToDate, e.Row.DBCampo("FechaVencimiento").ToDate) <> ProveedorPlazoPago Then
                 e.Row.Cells(6).ForeColor = Drawing.Color.Red
                 e.Row.Cells(6).ToolTip = $"Dias de Vencimiento ({DateDiff(DateInterval.Day, e.Row.DBCampo("Fecha").ToDate, e.Row.DBCampo("FechaVencimiento").ToDate)}) diferente al configurado en el proveedor ({ProveedorPlazoPago})"
             End If
diff --git a/OC/OC.aspx b/OC/OC.aspx
index 2cc5f7670..fbce205e2 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -508,14 +508,15 @@
                                         </td>
                                     </tr>
                                     <tr id="TrDescuentoProntoPago" runat="server" visible="false">                                         
-                                        <td><b>%Desc. Pronto Pago:</b></td>
+                                        <td><b>
+                                            <asp:Label ID="Label2" runat="server" Text="%. P. P:" ToolTip="% descuento de pronto pago"></asp:Label></b></td>
                                         <td>
-                                            <asp:TextBox ID="TxtPorcentajeProntoPago" CssClass="form-control " runat="server" MaxLength="50" Width="80px" Height="28px"></asp:TextBox>
+                                            <asp:TextBox ID="TxtPorcentajeProntoPago" CssClass="form-control input-sm" runat="server" MaxLength="50" Width="80px" ></asp:TextBox>
                                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPorcentajeProntoPago" ValidChars="1234567890." />
                                         </td>
                                         <td><b>Días Crédito:</b></td>
                                          <td>
-                                             <asp:TextBox runat="server" ID="TxtDiasCreditoOC" MaxLength="50" Width="80px" Height="28px"></asp:TextBox>
+                                             <asp:TextBox runat="server" ID="TxtDiasCreditoOC" CssClass="form-control input-sm" MaxLength="50" Width="45px" Enabled="False"></asp:TextBox>
                                              <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDiasCreditoOC" FilterType="Custom"  ValidChars="0123456789"  />
                                          </td>
                                     </tr>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 112e913f1..52dbb0613 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1078,6 +1078,9 @@ Partial Class OC_OC
                 DdlSubProyectoGral.Visible = True
                 TrDescuentoEscalonado.Visible = True
                 TrDescuentoProntoPago.Visible = True
+                If UsuarioActual.TienePermisoProceso(401) Then
+                    TxtDiasCreditoOC.Enabled = True
+                End If
 
             End If