From 8dff320a8276b4e6d0a6f932fc389377dc2f86bb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 28 Sep 2022 18:15:43 -0700 Subject: [PATCH] Validar seleccion de personal y caja chica al actualizar compra --- Compras/Compras.aspx.vb | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 349be1126..d152d48e1 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8591,19 +8591,18 @@ Partial Class Compras_Compras End If End If - - 'VALIDA IMPORTES If CveFactura > 0 Then 'SI NO VIENE DE FACTURA/XML NO VALIDA TOTALES - - - - If Not ValidaTotalesGuardar() Then Exit Sub End If End If + If DdlRembolsoCajaChica.SelectedValue.ToEntero() > 0 AndAlso DdlRembolsoPersonal.SelectedValue.ToEntero() > 0 Then + Alert("No se puede tener seleccionada una 'Caja Chica' y 'Personal/Empleado' a la vez", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + For Each Row As DataRow In TmpDT.Rows If Row("CveSubProyecto").ToString.ToEntero <= 0 Then Alert("No se ha completado la asignacion de proyectos en la compra. ", TipoMensaje.MsgAdvertencia) @@ -11968,13 +11967,15 @@ Partial Class Compras_Compras Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs) TrRembolsoCajaChica.Visible = False TrRembolsoPersonal.Visible = False - DdlRembolsoCajaChica.SelectedValueExist("-1") - DdlRembolsoPersonal.SelectedValueExist("-1") + DdlRembolsoCajaChica.SelectedValueExistInsert("-1", "Seleccione") + DdlRembolsoPersonal.SelectedValueExistInsert("-1", "Seleccione") If RblRembolso.SelectedValue.ToEntero = 1 Then TrRembolsoPersonal.Visible = True ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then TrRembolsoCajaChica.Visible = True End If + + UPCondicionesPago.Update() End Sub #End Region