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,106 @@
+{
+-------------------------------------------------------------------------
+PROGRAMA  : NOPRMT019
+OBJETIVO  : Cambiar de departamento a los empleados y que se actualise en
+            la tabla notb00003 (Movimientos Fijos)
+
+PROGRAMADOR : Juan F. Soto
+FECHA       : Septiembre 27, 1994.
+-------------------------------------------------------------------------
+}
+GLOBALS
+ "noprgb000.4gl"
+MAIN
+  DEFER INTERRUPT
+  CALL ARG_VAL(1) RETURNING usuarios
+  CALL ARG_VAL(2) RETURNING clave
+  
+ # LET usuarios = 'jsoto'
+ # LET clave = 'lmmjvsd2009'
+  
+  CONNECT to "smarmotech"  USER  usuarios USING clave
+  SELECT a.* INTO p_companias.* FROM companias a
+  CALL noprmt019()
+END MAIN
+
+FUNCTION noprmt019()
+
+DEFINE datos_c  RECORD 
+       num_emp       SMALLINT,
+       depto_de      SMALLINT,
+       nombre_dp_d   CHAR(30),
+       depto_a       SMALLINT,
+       nombre_dp_a   CHAR(30),
+       nombre        CHAR(30)
+END RECORD
+
+OPTIONS
+       ERROR LINE 24,
+       FORM LINE 8
+
+OPEN FORM nofmmt019 FROM "nofmmt019"
+DISPLAY FORM nofmmt019
+
+LABEL vuelve:
+INPUT BY NAME datos_c.*             
+AFTER FIELD num_emp
+ SELECT nom1_emp,apell1_emp,departamento INTO descrip1,descrip2,
+        datos_c.depto_de
+ FROM adtb00003
+ WHERE num_emp = datos_c.num_emp
+
+ IF status = notfound THEN
+    LET numero_msg = 3
+    CALL msg(numero_msg)
+    NEXT FIELD num_emp
+ END IF
+
+ LET nombre    = descrip1 clipped,descrip2 clipped
+ DISPLAY BY NAME nombre
+
+ SELECT nom_dpto INTO descrip3
+ FROM adtb00001
+ WHERE departamento = datos_c.depto_de
+
+ LET datos_c.nombre_dp_d = descrip3 clipped
+ DISPLAY BY NAME datos_c.depto_de,datos_c.nombre_dp_d
+ NEXT FIELD depto_a
+
+ AFTER FIELD depto_a  
+ SELECT nom_dpto INTO descrip3
+ FROM adtb00001
+ WHERE departamento = datos_c.depto_a 
+
+ IF status = notfound THEN
+    LET numero_msg = 3 
+    CALL msg(numero_msg)
+    NEXT FIELD depto_a 
+ END IF
+
+ LET datos_c.nombre_dp_a = descrip3 clipped
+ DISPLAY BY NAME datos_c.nombre_dp_a
+
+ AFTER INPUT
+ IF int_flag THEN
+    LET numero_msg = 2
+    CALL msg(numero_msg)
+    LET int_flag = false
+    RETURN
+ END IF
+ EXIT INPUT
+END INPUT
+
+UPDATE adtb00003 set departamento = datos_c.depto_a,
+                     us_mod = SUSER_SNAME(),
+                     fech_mod = GETDATE()
+       WHERE num_emp = datos_c.num_emp 
+
+UPDATE notb00003 set departamento = datos_c.depto_a,
+                     us_mod = SUSER_SNAME(),
+                     fech_mod = GETDATE()
+       WHERE num_emp = datos_c.num_emp 
+LET numero_msg = 13
+CALL msg(numero_msg)
+GOTO vuelve
+END FUNCTION
+