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 @@ - %Desc. Pronto Pago: + + - + Días Crédito: - + 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