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

WEBSERVICES/tipos.4gl

@@ -0,0 +1,63 @@
+IMPORT util
+
+FUNCTION tipos(data)
+  DEFINE ptipos DYNAMIC ARRAY OF RECORD
+    cod_tipo    SMALLINT,
+    descripcion VARCHAR(60)
+  END RECORD,
+   i SMALLINT
+DEFINE  credenciales RECORD
+        usuario,clave VARCHAR(50),
+        clase,grupo SMALLINT
+        
+  END RECORD,
+  data STRING
+
+  DEFINE mensajes RECORD
+     cod_msg  INT,
+     mensaje_out STRING
+   END RECORD
+
+
+ CALL util.JSON.parse(data,credenciales)
+ IF credenciales.usuario IS NULL THEN
+      LET mensajes.cod_msg=3
+      LET mensajes.mensaje_out='USUARIO ESTA EN BLANCO'
+      RETURN util.JSON.stringify(mensajes)
+   END IF 
+   
+   CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
+     IF STATUS < 0 THEN
+      LET mensajes.cod_msg = 422
+      LET mensajes.mensaje_out="ERROR EN CONEXION ",sqlca.sqlerrm
+      DISCONNECT CURRENT
+      RETURN util.JSON.stringify(mensajes)
+   END IF
+     IF credenciales.clase IS NULL THEN
+      LET mensajes.cod_msg = 423
+      LET mensajes.mensaje_out="ERROR, DEBES ENVIAR LA CLASE DEL PRODUCTO "
+      DISCONNECT CURRENT
+      RETURN util.JSON.stringify(mensajes)
+   END IF
+     IF credenciales.grupo IS NULL THEN
+      LET mensajes.cod_msg = 423
+      LET mensajes.mensaje_out="ERROR, DEBES ENVIAR EL GRUPO DEL PRODUCTO "
+      DISCONNECT CURRENT
+      RETURN util.JSON.stringify(mensajes)
+   END IF
+   
+ DECLARE c1 CURSOR FOR
+   SELECT DISTINCT a.cod_tipo,a.descripcion FROM iptb00024 a 
+        INNER JOIN iptb00002 b ON b.cod_n = credenciales.clase AND
+                                  b.cod_grupo = credenciales.grupo AND b.status_t IS NULL
+    WHERE a.status_t IS NULL AND (a.descripcion IS NOT NULL AND a.descripcion NOT LIKE 'NO TIENE%') 
+                                 
+    
+ LET i = 1
+ FOREACH c1 INTO ptipos[i].*
+   LET i = i + 1
+ END FOREACH
+
+ DISCONNECT CURRENT
+ RETURN util.JSON.stringify(ptipos)
+END FUNCTION