From e3ce9b7adc843d5b2584cc7bf13acaa5fa8f4877 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 May 2024 08:00:23 -0700 Subject: [PATCH] =?UTF-8?q?-=20mejora=20en=20validaci=C3=B3n=20de=20EMD=20?= =?UTF-8?q?presupuesto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ab37f5341..7d5dc99d7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4187,20 +4187,17 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click - - If Not ValidaPresupuesto(2) Then Exit Sub End If '------------------ INICIA VALIDACIONES ------------------ - If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 Then + If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia) Exit Sub End If - Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal() If Not CveSubProyectoPrincipal > 0 Then @@ -4208,7 +4205,7 @@ Partial Class Compras_Compras End If If Not ValidaVinculacionNotaFactura() Then - Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia) + Alert("Se requiere que la nota este aplicada a las facturas", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -8615,7 +8612,6 @@ Partial Class Compras_Compras 'PORCENTAJE IVA Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal - Dim TmpCveRetIVAConcepto As Integer = If(CveRetIVAConceptoOriginal <> DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetIVAConcepto.SelectedValue.ToEntero, -1) Dim TmpCveRetISRConcepto As Integer = If(CveRetISRConceptoOriginal <> DdlRetISRConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, -1) Dim tNoDeducible As Integer = If(ChkEsNoDeducible.Checked, 1, 0)