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,45 @@
+
+IMPORT util
+IMPORT os
+IMPORT com
+
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+ END RECORD
+FUNCTION reporte(url)
+    DEFINE url STRING
+  DEFINE credenciales RECORD
+       usuario    VARCHAR(50),
+       clave       VARCHAR(50),
+       cotizacion       INT,
+       cliente          STRING, 
+       respuesta        SMALLINT,
+       comentario       STRING,
+       dispositivo      STRING
+  END RECORD,
+      menajes RECORD
+        cod_msg INT,
+        descripcion STRING
+      END RECORD
+  
+,
+      r_cmd t_sync_cmd,
+      s STRING,
+      ret,res STRING
+
+    LET credenciales.usuario = 'jsoto'
+    LET credenciales.clave = 'lmmjvsd2014'
+    LET credenciales.cotizacion = 205882
+    LET credenciales.dispositivo='GOOGLECHROME'
+    LET credenciales.respuesta = 3
+    LET credenciales.cliente='CENTRO ODONTOLOGICO ORTHOBRIGHT DRA YAJAIRA SRL'
+    LET credenciales.comentario = 'ESTO ES UNA PRUEBA'  
+    LET r_cmd.oper = 'respuesta_clientes'
+    LET r_cmd.data = util.JSON.stringify(credenciales)
+    LET s = util.JSON.stringify(r_cmd)
+  
+    CALL sync_send_command(url, s) RETURNING ret, res
+   
+    DISPLAY "RESPUESTA: ",res     
+END FUNCTION