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

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,148 @@
+IMPORT util
+IMPORT com
+IMPORT os
+IMPORT security
+
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+     END RECORD
+
+MAIN
+  DEFINE k,kurl,kbodega STRING,
+         ktrue BOOLEAN
+   DEFINE ku RECORD
+    usuario VARCHAR(50),
+    clave   VARCHAR(20),
+    sesion  VARCHAR(10)
+  END RECORD       
+  LET ku.usuario = 'conecta'
+  LET ku.clave = 'conecta'
+
+ #   LET kurl = "https://ws.marmotech.com.do/gas/ws/r/restserver"
+ #  LET kurl = "http://10.0.0.6:8098/gas/ws/r/restserver"
+    LET kurl = "http://192.168.40.9/gas/ws/r/restserver"
+  CALL respuestatest(kurl)
+  LET ku.usuario = 'conecta'
+  LET ku.clave = 'conecta'
+
+END MAIN
+
+FUNCTION respuestatest(xurl)
+   DEFINE xurl STRING
+   DEFINE p RECORD
+          credenciales RECORD
+              usuario,clave      VARCHAR(50)
+       END RECORD,
+           repuesta RECORD
+                num_emp     INT,
+                cedula,
+                nombre,
+                id_pregunta,pregunta,repuesta,departamento string
+           END RECORD,
+           mensajes RECORD
+              cod_msg INT,
+              descripcion STRING
+           END RECORD
+       END RECORD,
+       r_cmd  t_sync_cmd
+  
+  DEFINE cmd, res, msg,url STRING,
+         ret INT
+  DEFINE r RECORD
+    perror STRING,
+    pbodega SMALLINT
+  END RECORD
+  
+  DEFINE data RECORD
+         
+              usuario,clave      VARCHAR(50)
+  END RECORD
+
+  LET p.credenciales.usuario = 'conecta'
+  LET p.credenciales.clave = 'conecta'
+
+  LET p.repuesta.cedula = '00104581939'
+  LET p.repuesta.departamento='TECNOLOGIA'
+  LET p.repuesta.id_pregunta = 'ENC001'
+  LET p.repuesta.nombre='JUAN FRANCISCO SOTO CONCEPCION'
+  LET p.repuesta.num_emp=3355
+  LET p.repuesta.pregunta='CUAN SATISFECHO USTED SE SIENTE CON EL NIVEL DE SERVICIO DE SU SUPLIDOR INTERNO?'
+  LET p.repuesta.repuesta='1'
+  
+DISPLAY " URL ",xurl
+   LET r_cmd.oper = "respuesta"
+   LET r_cmd.data = util.JSON.stringify(p) -- aca se convierte a string los datos de la operacion
+   LET cmd = util.JSON.stringify(r_cmd)
+   
+   CALL sync_send_command(xurl, cmd) RETURNING ret, res
+   DISPLAY "cmd", cmd,"ret ",ret," RES: ",RES
+   IF ret == 0 THEN
+       
+      CALL util.JSON.parse(res,P)
+  
+      ELSE
+        LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n",url
+        CALL show_sync_err(msg)
+
+      END IF 
+ 
+ 
+END FUNCTION
+
+
+#
+## Communications library using com (http or https)
+#
+
+FUNCTION sync_send_command(url, cmd)
+
+    DEFINE url, cmd STRING
+    DEFINE result, tmp STRING
+    DEFINE http_req com.HTTPRequest
+    DEFINE http_resp com.HTTPResponse
+   
+    
+    TRY   LET http_req = com.HTTPRequest.Create(url)
+       CALL http_req.setConnectionTimeout(40)
+       CALL http_req.setTimeout(40)
+       CALL http_req.setMethod("POST")
+       CALL http_req.setCharset("UTF-8")
+       CALL http_req.setHeader("DBSync-Client","mbs")
+       CALL http_req.setHeader("Content-Type","dbsync/json")
+    
+       CALL http_req.doTextRequest(cmd)
+       LET http_resp=http_req.getResponse()
+       IF http_resp.getStatusCode() != 200 THEN
+         RETURN http_resp.getStatusCode(), http_resp.getStatusDescription()
+       END IF
+       LET tmp = http_resp.getStatusDescription()
+       IF (tmp == "OK" || tmp == "no error" ) THEN
+          RETURN -1, SFMT("HTTP request status description: %1 ",tmp)
+       END IF
+       LET result = http_resp.getTextResponse()
+    CATCH
+       RETURN -2, SFMT("HTTP request error: STATUS=%1 (%2)",STATUS,SQLCA.SQLERRM)
+    END TRY
+       
+    RETURN 0, result
+
+END FUNCTION
+
+FUNCTION show_sync_err(msg)
+    DEFINE msg STRING
+    CALL fgl_winmessage(%"ERROR", msg, "exclamation")
+END FUNCTION
+
+FUNCTION b64_to_file(str_b64,f_sal)
+
+  DEFINE f_sal,str_b64,str_aux STRING
+
+  TRY
+     CALL security.Base64.SaveBinary(f_sal,str_b64)
+  CATCH
+  DISPLAY " data ",str_b64
+     LET str_aux="Unable to convert Base64 String to file :",STATUS
+     CALL fgl_winmessage("Error",str_aux,"stop")
+  END TRY
+ END FUNCTION