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,21 @@
+DATABASE smarmotech
+MAIN
+
+
+DEFINE s_sel CHAR(200),
+       p_usuario CHAR(80)
+CONNECT TO "marmotech+driver='dbmftm90',source='ifxmarmotech'" USER "informix" USING "luismi001"
+
+LET s_sel="SELECT SUSER_SNAME() "
+PREPARE st_usr FROM s_sel
+DECLARE cc_usr CURSOR FOR st_usr
+LET p_usuario=NULL
+OPEN cc_usr
+FETCH cc_usr INTO p_usuario
+IF STATUS<>0 THEN
+LET p_usuario="NO USUARIOS CONECTADOS"
+END IF
+DISPLAY "USUARIO ",p_usuario
+CLOSE cc_usr
+FREE st_usr
+END MAIN