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,60 @@
+IMPORT util
+IMPORT com
+
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+     END RECORD
+
+DEFINE r_cmd t_sync_cmd -- el comando recibido por el server
+  
+MAIN
+DEFINE req com.HTTPServiceRequest,
+  s1,s2,s,url,ret,res STRING
+  LET url = 'https://ws.marmotech.com.do/gas/ws/r/restserver'
+  LET r_cmd.oper='rnc'
+  LET r_cmd.data = '{\"usuario\":\"crm_user\",\"clave\":\"XMarmotech2019\",\"rnc\":\"130337391\"}"}'
+   CALL sync_send_command(url, s) RETURNING ret, res
+  LET s1= req.getRequestHeader("Access-Control-Allow-Origin")
+END MAIN
+FUNCTION read_request(req)
+
+    DEFINE req com.HTTPServiceRequest
+    DEFINE cmd STRING,
+    p RECORD
+      oper STRING,
+    data RECORD
+      usuario  STRING,
+      clave    STRING,
+      codigo   STRING
+    END RECORD
+   END RECORD
+    INITIALIZE r_cmd.* TO NULL
+    
+    TRY
+       CALL req.readTextRequest() RETURNING cmd
+       
+    CATCH
+  
+       CALL show_err(SFMT("Unexpected HTTP request read exception: %1", STATUS))
+       RETURN FALSE
+    END TRY
+#LET cmd='{"oper": "productos_display","data": { "usuario": "CRM_user", "clave": "XMarmotech2019", "codigo": "196681781079"}}'
+    IF LENGTH(cmd) == 0 THEN
+       -- la operacion va a estar vacia y va dar error por invalida
+       RETURN TRUE
+    END IF
+    #DISPLAY "EL CMD ",cmd
+    TRY
+    
+       CALL util.JSON.parse(cmd, r_cmd)
+      
+    CATCH
+      
+       CALL show_err(SFMT("JSON parse error: %1", STATUS))
+       RETURN FALSE
+    END TRY
+
+    RETURN TRUE
+
+END FUNCTION