From 9c4ecf78438188ab45359f65c55defc0ac04f194 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 3 Mar 2022 11:49:19 -0700 Subject: [PATCH] =?UTF-8?q?--=20si=20es=20cartaporte,=20valide=20que=20tie?= =?UTF-8?q?ne=20chofer=20y=20cami=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx.vb | 23 ++++++++++------------- 1 file changed, 10 insertions(+), 13 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index b02bf0718..cc4733a86 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -817,19 +817,16 @@ Partial Class Inventarios_TraspasoAlmacen #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - 'If ChkEmitirTimbrado.Checked Then - - ' If DdlChofer.SelectedValue.ToEntero <= 0 Then - ' Alert("Debe de seleccionar un chofer") - ' Exit Sub - ' End If - ' If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then - ' Alert("Debe de seleccionar una unidad") - ' Exit Sub - ' End If - - - 'End If + If ChkEmitirCartaPorte.Checked Then + If DdlChofer.SelectedValue.ToEntero <= 0 Then + Alert("Debe de seleccionar un chofer.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then + Alert("Debe de seleccionar una unidad.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If 'VALIDA ALMACEN ORIGEN Y DESTINO If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then