alias flexible

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