Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTO/PRDIR/prverificar.4gl

@@ -0,0 +1,13 @@
+FUNCTION verificar(codigo)
+  DEFINE codigo STRING,
+         existe VARCHAR(1)
+
+  SELECT DISTINCT a.codigo_bloque FROM intb00018 a
+  WHERE a.codigo_bloque = codigo
+
+   IF STATUS = NOTFOUND THEN
+      RETURN 'N'
+    ELSE
+      RETURN 'S'  
+   END IF     
+END FUNCTION