From 39ebc429f6e625d4c976a35f7ea8aa570657ec5a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 20 Aug 2021 10:06:21 -0700
Subject: [PATCH] alias flexible

---
 Compras/Compras.aspx.vb | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 741d40466..106f36421 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18653,12 +18653,18 @@ Partial Class Compras_Compras
         UpPSAlias.Update()
     End Sub
     Protected Sub BtnAddPSAlias_Click(sender As Object, e As EventArgs) Handles BtnAddPSAlias.Click
-        Dim PS As New ClsProductosServicios
-        Dim CvePS = -1
-        Dim tPS = ""
-        Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero
+
+        Dim CvePS As Integer = -1
+        Dim tPS As String = ""
+
         CvePS = DdlPSAlias2.SelectedValue.ToEntero
         tPS = DdlPSAlias2.SelectedText
+        If CvePS <= 0 Then
+            Alert("No se ha seleccionado el producto.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+        Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero
+
         Dim DtpsTemp As DataTable = Nothing
         Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, CveSubProyecto).FiltroPrimeroValor("CveContrato").ToEntero
         If CveContrato > 0 Then
@@ -18672,7 +18678,7 @@ Partial Class Compras_Compras
             DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
         End If
 
-
+        Dim PS As New ClsProductosServicios
         If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario, ChkAliasFlexible.Checked) Then
             GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = PS.DtResultados