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,66 @@
+
+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),
+       orden       INT
+  END RECORD
+
+DEFINE o RECORD 
+
+    orden_master RECORD
+            ventas char(1) ,
+	     cotizacion_no INT ,
+	     num_oc INT  ,
+	     tipo_cliente SMALLINT  ,
+	     sec_cliente SMALLINT  ,
+         cliente VARCHAR(100)
+    END RECORD,
+    orden_detalle DYNAMIC ARRAY OF RECORD
+	num_oc int ,
+	secuencia smallint ,
+	area smallint ,
+	cod_n smallint ,
+	cod_grupo smallint ,
+	cod_tipo smallint ,
+	cod_sec smallint ,
+	precio DEC(10, 2) ,
+    cantiad_1 DEC(12,4),
+	cantidad DEC(12, 5) ,
+	descuento DEC(10, 2) ,
+	fecha_compromiso date ,
+	estado_produccion VARchar(20) ,
+	observacion VARchar(100) ,
+	id_kit int 
+
+    END RECORD,
+      menajes RECORD
+        cod_msg INT,
+        descripcion STRING
+      END RECORD
+  END RECORD
+,
+      r_cmd t_sync_cmd,
+      s STRING,
+      ret,res STRING
+
+    LET credenciales.usuario = 'jusoto'
+    LET credenciales.clave = 'lmmjvsd2014'
+    LET credenciales.orden = 205882  
+    LET r_cmd.oper = 'orden_cliente'
+    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 "ORDEN ",res     
+END FUNCTION