Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTO/ctdir/ctprmt014.4gl

@@ -0,0 +1,308 @@
+{
+===========================================================================
+   Programa    : CTPRMT014 
+   Sistema     : Inventario Producto en Proceso
+   Proceso     : Factor Costo (Labor)
+   Autor       : Tadeo A. Ferreras
+   Fecha       : Junio 29, 1993
+===========================================================================
+}
+ GLOBALS
+  "ctprgb000.4gl"
+   DEFINE mes_ant SMALLINT
+
+   DEFINE datos_m RECORD
+     cod_n       INTEGER, 
+     cod_grupo   INTEGER, 
+     cod_tipo    INTEGER, 
+     cod_sec     INTEGER, 
+     mes         SMALLINT,
+     ano         CHAR(4),
+     cantidad    DECIMAL(14,5)
+   END RECORD,             
+     descrip CHAR(30),
+     unidad  CHAR(15),
+     puntero     INTEGER 
+
+  FUNCTION  ctprmt014()
+
+  LET int_flag = FALSE
+ 
+  CLEAR SCREEN
+  OPTIONS
+   FORM LINE 9,
+   ERROR LINE 23,
+   COMMENT LINE 21
+
+  CALL pantalla()
+  DISPLAY "ctprmt014" AT 4,3
+  DISPLAY "Inventario Producto en Proceso" AT 6,25
+  OPEN FORM ctfmmt014  FROM "ctfmmt014"
+  DISPLAY FORM ctfmmt014
+
+  MENU "OPCIONES"
+    COMMAND "Adicionar" 
+            "<Esc> Adiciona Registro     <Supr> Cancela Operacion"
+      CLEAR FORM
+      CALL ctadmt014()
+    COMMAND "Consultar-modificar"
+            "<Esc> Realiza Busqueda      <Supr> Cancela Operacion"
+      CLEAR FORM
+      CALL ctmdmt014()
+    COMMAND "Salir"
+     EXIT MENU
+    END MENU
+   END FUNCTION
+
+ FUNCTION ctadmt014()
+
+  LABEL nuevo:
+  INPUT BY NAME datos_m.*
+   
+   AFTER FIELD cod_sec  
+    IF datos_m.cod_sec IS NULL THEN
+      LET numero_msg = 16
+      CALL msg(numero_msg)
+      NEXT FIELD cod_sec
+    END IF
+
+    SELECT UNIQUE descrip_esp,unidad_med INTO descrip,unidad       
+    FROM intb00001 WHERE status_t IS NULL AND 
+                         cod_n = datos_m.cod_n and
+                         cod_grupo = datos_m.cod_grupo and
+                         cod_tipo = datos_m.cod_tipo and
+                         cod_sec = datos_m.cod_sec
+
+    IF STATUS = NOTFOUND THEN
+      LET numero_msg = 3 
+      CALL msg(numero_msg)
+      NEXT FIELD cod_n    
+    END IF
+    LET mes_ant = month(today) using "&&"
+    DISPLAY BY NAME descrip,unidad
+
+    BEFORE FIELD ano   
+     LET datos_m.ano   = YEAR(today) USING "&&&&"
+     DISPLAY BY NAME datos_m.ano   
+
+    BEFORE FIELD mes   
+     LET datos_m.mes = mes_ant
+     DISPLAY BY NAME datos_m.mes   
+
+    AFTER FIELD mes     
+
+    LET mes_ant = datos_m.mes
+    IF datos_m.ano = YEAR(today) AND datos_m.mes > MONTH(today) THEN
+       LET numero_msg = 173
+       CALL msg(numero_msg)
+       NEXT FIELD mes
+    END IF
+
+    AFTER FIELD ano     
+
+    IF datos_m.ano   IS NULL THEN
+      LET datos_m.ano   = YEAR(today) USING "&&&&"
+    END IF
+
+    IF datos_m.ano > YEAR(today) THEN
+       LET numero_msg = 173
+       CALL msg(numero_msg)
+       NEXT FIELD ano
+    END IF
+
+    SELECT UNIQUE a.cod_n FROM cttb00015 a WHERE a.cod_n = datos_m.cod_n AND
+           a.cod_grupo = datos_m.cod_grupo AND a.cod_tipo = datos_m.cod_tipo AND
+           a.cod_sec = datos_m.cod_sec AND a.ano = datos_m.ano AND
+           a.mes = datos_m.mes AND a.status_t IS NULL
+
+    IF STATUS != NOTFOUND THEN
+       LET numero_msg = 12
+       CALL msg(numero_msg)
+       NEXT FIELD
+       cod_n
+    END IF 
+
+    AFTER FIELD cantidad    
+    IF datos_m.cantidad IS NULL THEN
+     LET numero_msg = 16
+     CALL msg(numero_msg)
+     NEXT FIELD cantidad
+    END IF
+  END INPUT
+
+  IF int_flag THEN
+   LET numero_msg = 2
+   CALL msg(numero_msg)
+   LET int_flag = FALSE
+   RETURN
+  END IF
+
+IF  datos_m.cod_n    IS NOT NULL AND datos_m.cod_grupo  IS NOT NULL
+    AND datos_m.cod_tipo IS NOT NULL AND datos_m.cod_sec    IS NOT NULL
+    AND datos_m.ano      IS NOT NULL AND datos_m.cantidad   IS NOT NULL
+    AND datos_m.mes      IS NOT NULL AND datos_m.cantidad > 0  THEN   
+    
+     INSERT INTO cttb00015 VALUES(datos_m.*,NULL,USER,CURRENT,NULL,NULL)       
+
+  LET numero_msg = 1
+  CALL msg(numero_msg)
+  CLEAR FORM
+  GOTO nuevo
+ END IF
+
+END FUNCTION
+
+
+ FUNCTION ctmdmt014()
+ LET int_flag = FALSE
+  CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.mes,a.ano
+                     FROM cod_n,cod_grupo,cod_tipo,cod_sec,mes,ano
+
+
+    IF int_flag THEN
+     LET numero_msg = 2
+     CALL msg(numero_msg)
+     LET int_flag = FALSE
+     RETURN
+    END IF
+
+  LET selec =
+   "SELECT a.rowid,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
+   "a.mes,a.ano,a.cantidad,b.descrip_esp,b.unidad_med, ",
+   "a.us_crea,a.fech_crea,a.us_mod,a.fech_mod ",
+   "FROM cttb00015 a, intb00001 b WHERE a.status_t IS NULL AND ",
+   "a.cod_n = b.cod_n AND a.cod_grupo = b.cod_grupo ",
+   "AND a.cod_tipo = b.cod_tipo AND a.cod_sec = b.cod_sec AND ",
+   criterio CLIPPED,"ORDER BY 2,3,4,5"
+
+    PREPARE comando FROM selec
+    DECLARE pro SCROLL CURSOR FOR comando
+
+    OPEN pro
+    FETCH FIRST pro INTO puntero,datos_m.*,descrip,unidad,
+                         usuario_c,fecha_c,usuario_m,fecha_m
+     
+    IF STATUS = NOTFOUND THEN
+     LET numero_msg = 3
+     CALL msg(numero_msg)
+     RETURN
+    END IF
+
+    DISPLAY BY NAME datos_m.*,descrip,unidad,
+                    usuario_c,fecha_c,usuario_m,fecha_m
+
+   MENU "Opcion"
+     COMMAND "Siguiente"
+             "Presenta en pantalla el proximo registro encontrado"
+    FETCH NEXT pro INTO puntero,datos_m.*,descrip,unidad,
+                         usuario_c,fecha_c,usuario_m,fecha_m
+     
+    IF STATUS = NOTFOUND THEN
+     LET numero_msg = 4
+     CALL msg(numero_msg)
+     FETCH LAST pro INTO puntero,datos_m.*,descrip,unidad,
+                         usuario_c,fecha_c,usuario_m,fecha_m
+    END IF
+
+    DISPLAY BY NAME datos_m.*,descrip,unidad   , 
+                    usuario_c,fecha_c,usuario_m,fecha_m
+
+   COMMAND "Anterior"
+           "Presenta en pantalla el registro anterior encontrado"
+
+    FETCH PREVIOUS pro INTO puntero,datos_m.*,descrip,unidad,
+                         usuario_c,fecha_c,usuario_m,fecha_m
+     
+    IF STATUS = NOTFOUND THEN
+     LET numero_msg = 5
+     CALL msg(numero_msg)
+     FETCH LAST pro INTO puntero,datos_m.*,descrip,unidad,
+                         usuario_c,fecha_c,usuario_m,fecha_m
+    END IF
+
+    DISPLAY BY NAME datos_m.*,descrip,unidad, 
+                    usuario_c,fecha_c,usuario_m,fecha_m
+
+ COMMAND "Primero"
+         "Presenta en pantalla el primer registro encontrado"
+    FETCH FIRST pro INTO puntero,datos_m.*,descrip,unidad,
+                         usuario_c,fecha_c,usuario_m,fecha_m
+     
+     LET numero_msg = 5
+     CALL msg(numero_msg)
+
+    DISPLAY BY NAME datos_m.*,descrip,unidad, 
+                    usuario_c,fecha_c,usuario_m,fecha_m
+
+  COMMAND "Ultimo"
+          "Presenta en pantalla el ultimo registro encontrado"
+    FETCH LAST pro INTO puntero,datos_m.*,descrip,unidad,
+                         usuario_c,fecha_c,usuario_m,fecha_m
+     
+    DISPLAY BY NAME datos_m.*,descrip,unidad, 
+                    usuario_c,fecha_c,usuario_m,fecha_m
+
+ COMMAND "Escoger"
+
+    INPUT BY NAME datos_m.*  WITHOUT DEFAULTS
+    AFTER FIELD cod_sec
+    IF datos_m.cod_sec IS NULL THEN
+      LET numero_msg = 16
+      CALL msg(numero_msg)
+      NEXT FIELD cod_sec
+    END IF
+
+    SELECT UNIQUE descrip_esp,unidad_med INTO descrip,unidad       
+    FROM intb00001 WHERE status_t IS NULL AND 
+                         cod_n = datos_m.cod_n and
+                         cod_grupo = datos_m.cod_grupo and
+                         cod_tipo = datos_m.cod_tipo and
+                         cod_sec = datos_m.cod_sec
+
+    IF STATUS = NOTFOUND THEN
+      LET numero_msg = 3 
+      CALL msg(numero_msg)
+      NEXT FIELD cod_n    
+    END IF
+    LET mes_ant = month(today) using "&&"
+    DISPLAY BY NAME descrip,unidad
+    AFTER FIELD mes
+    IF datos_m.mes is null THEN
+       LET numero_msg = 16
+       CALL msg(numero_msg)
+       NEXT FIELD cantidad
+    END IF
+
+    AFTER FIELD cantidad    
+    IF datos_m.cantidad IS NULL THEN
+     LET numero_msg = 16
+     CALL msg(numero_msg)
+     NEXT FIELD cantidad
+    END IF
+  END INPUT
+
+    IF int_flag THEN
+     LET numero_msg = 2
+     CALL msg(numero_msg)
+     LET int_flag = FALSE
+     RETURN
+   END IF
+
+   UPDATE cttb00015 SET (ano,mes,cantidad,cod_n,cod_grupo,cod_tipo,cod_sec,
+                         us_mod,fech_mod) =
+     (datos_m.ano,datos_m.mes,datos_m.cantidad,datos_m.cod_n,datos_m.cod_grupo,
+      datos_m.cod_tipo,datos_m.cod_sec,USER,CURRENT)
+   WHERE rowid      = puntero 
+   
+  LET numero_msg = 13
+  CALL msg(numero_msg)
+
+ COMMAND KEY ("L") "eLiminar"
+   UPDATE cttb00015 SET (status_t,us_mod,fech_mod) =
+     ("E",USER,CURRENT)
+   WHERE rowid      = puntero
+
+ COMMAND "Retornar"
+  EXIT MENU
+ END MENU
+END FUNCTION