From ee64b40941f99767994ddc4dbd9ca873f584fa5a Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 12 Jul 2021 15:28:19 -0700
Subject: [PATCH] Contratos

---
 Contratos/ContratoObra.aspx.vb | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 484dc6af8..acff7db4c 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -1820,6 +1820,26 @@ Partial Class Contratos_ContratoObra
 
     Protected Sub BtnAgregarDetalleInsumos_Click(sender As Object, e As EventArgs)
 
+
+        'DdlProductowsInsumos.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        If Not DdlProductowsInsumos.UsaWebService Then
+            If DdlRubro.SelectedValue.ToEntero = 2 And DdlProductowsInsumos.SelectedValue.ToEntero <= 0 Then
+                Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        Else
+
+
+            If DdlRubro.SelectedValue.ToEntero = 1 And DdlProductowsInsumos.txtValue.Value.ToEntero <= 0 Then
+                Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        End If
+
+
+
         If CveContratoDetalleEditar = -1 Then
 
             Dim Row As DataRow = TmpDT.NewRow()