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,44 @@
+
+IMPORT util
+IMPORT com
+IMPORT os
+IMPORT security
+
+#
+## 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(120)
+       CALL http_req.setTimeout(120)
+       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")
+    
+           DISPLAY "request ",cmd
+       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