From 69b3f0728d26616192941bc5096f5e35247322ff Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 25 Feb 2025 18:06:06 -0700 Subject: [PATCH] =?UTF-8?q?en=20pr=C3=A9stamo=20de=20proveedor,=20al=20ini?= =?UTF-8?q?ciar=20que=20no=20tenga=20seleccionado=20proveedor,=20que=20pon?= =?UTF-8?q?ga=20alerta=20de=20que=20el=20proveedor=20es=20requerido!!!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index f807296b7..791c11dbb 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1774,6 +1774,10 @@ Partial Class Inventarios_EntradasSalidas End Sub Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + If DdlConcepto.SelectedValue.ToEntero = 28 AndAlso DdlProveedores.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar un proveedor", TipoMensaje.MsgAdvertencia) + Exit Sub + End If If Not IsDate(TxtFecha.Text.Replace(",", "")) Then Alert("Debe seleccioanr una fecha valida", TipoMensaje.MsgAdvertencia)