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

WEBSERVICES/requisiciones_compras_d.4gl

@@ -0,0 +1,49 @@
+IMPORT util
+IMPORT security
+
+FUNCTION requisiciones_compra_d(pdata)
+  DEFINE i SMALLINT,
+  pdata STRING
+  
+  DEFINE generales RECORD
+       usuario     VARCHAR(50),
+       clave       VARCHAR(50)
+     END RECORD
+    DEFINE data RECORD 
+     req_master DYNAMIC ARRAY OF RECORD
+       num_req  INT,
+       uso      STRING,
+       fecha    DATE
+     END RECORD,     
+    
+       r_out RECORD
+         mensaje_out STRING,
+         cod_msg INT
+     END RECORD
+  END RECORD,
+ idx INT  
+ DISPLAY "requi compras d"
+ # LOCATE data.archivos.imagen IN MEMORY
+    CALL util.JSON.parse(pdata,generales)
+  #  WHENEVER ERROR CONTINUE
+  
+    CONNECT TO "smarmotech" USER generales.usuario USING generales.clave
+    IF STATUS < 0 THEN
+       LET data.r_out.cod_msg = STATUS
+       LET data.r_out.mensaje_out = 'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
+       DISCONNECT CURRENT    
+       RETURN util.JSON.stringify(data)
+    END IF
+    
+    DECLARE busca_master CURSOR FOR
+       select a.num_req,a.uso,a.fech_req,b.nom_dpto
+       from cotb00006 a,adtb00001 b where a.fech_req > '10/01/2019' AND
+                                          a.departamento = b.departamento  
+    LET i = 1   
+    FOREACH busca_master INTO data.req_master[i].*
+       LET i = i + 1
+    END FOREACH
+    
+    DISCONNECT CURRENT
+    RETURN util.JSON.stringify(data)
+END FUNCTION