Repcomprasaf, compras ver cultivos en subproyectos

Ventas/ProductosServicios.aspx.vb

@@ -1260,8 +1260,9 @@ Partial Class ProductosyServicios
         If DdlSATPS.txtValue.Value.ToEntero > 0 Then
             If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene activada la carta porte
 
-                ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
+
                 If Not ValidaMaterialPeligrosoMensaje Then
+                    ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
                     Exit Sub
                 End If
             End If
@@ -3148,7 +3149,9 @@ Partial Class ProductosyServicios
 
         ObjGrales.Dispose()
 
-
+        If ValidaMaterialPeligrosoMensaje Then
+            BtnGuardar_Click(Nothing, Nothing)
+        End If
 
         'Return Respuesta