Contratos

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()