AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- consideración de identificar los vencimientos

Browse Source 
-- bloquear el cambio de dias vencimiento
This commit is contained in:
rrene
2025-04-11 08:20:40 -07:00
parent 4893563404
commit acb5c204a8
3 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -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

7
OC/OC.aspx
View File

@@ -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>

3
OC/OC.aspx.vb
View File

@@ -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