primer commit subida

PROYECTO/ctdir/ctprmt013.4gl

@@ -0,0 +1,153 @@
+{
+===========================================================================
+   Programa    : CTPRMT013.4GL 
+   Sistema     : Sistema de Costos
+   Proceso     : Mantenimiento para el control de los dias de produccion
+                 por mes del periodo contable
+   Autor       : Tadeo A. Ferreras
+   Fecha       : Julio 13, 1993
+===========================================================================
+}
+ GLOBALS
+  "ctprgb000.4gl"
+
+   DEFINE mes_g RECORD
+     mes          CHAR(4), 
+     descrip      CHAR(25),
+     dias_prod    DECIMAL(12,2)
+   END RECORD             
+
+  FUNCTION  ctprmt013()
+
+  LET int_flag = FALSE
+#WHENEVER ERROR CONTINUE
+
+  CLEAR SCREEN
+  OPTIONS
+   FORM LINE 9,
+   ERROR LINE 23,
+   COMMENT LINE 21
+
+  CALL pantalla()
+  DISPLAY "ctprmt013" AT 4,3
+  DISPLAY "Dias de Produccion" AT 6,31 
+  OPEN FORM ctfmmt013  FROM "ctfmmt013"
+  DISPLAY FORM ctfmmt013
+
+  MENU "OPCIONES"
+    COMMAND "Consultar-modificar"
+            "<ESC> Realiza Busqueda          <Supr> Cancela Operacion"
+      CLEAR FORM
+      CALL ctmdmt013()
+    COMMAND "Salir"
+     EXIT MENU
+    END MENU
+   END FUNCTION
+
+ FUNCTION ctmdmt013()
+   LET int_flag = FALSE
+  CONSTRUCT criterio ON a.mes FROM mes 
+
+    IF int_flag THEN
+     LET numero_msg = 2
+     CALL msg(numero_msg)
+     LET int_flag = FALSE
+     RETURN
+    END IF
+
+  LET selec =
+   "SELECT a.mes,a.descrip,a.dias_prod FROM mestable a ",
+   "WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY a.mes"
+
+    PREPARE comando FROM selec
+    DECLARE pro SCROLL CURSOR FOR comando
+
+    OPEN pro
+    FETCH FIRST pro INTO mes_g.*
+     
+    IF STATUS = NOTFOUND THEN
+     LET numero_msg = 3
+     CALL msg(numero_msg)
+     RETURN
+    END IF
+
+    DISPLAY BY NAME mes_g.*
+
+   MENU "Opcion"
+     COMMAND "Siguiente"
+             "Presenta en pantalla al proximo registro encontrado"
+    FETCH NEXT pro INTO mes_g.*
+     
+    IF STATUS = NOTFOUND THEN
+     LET numero_msg = 4
+     CALL msg(numero_msg)
+     FETCH LAST pro INTO mes_g.*
+    END IF
+
+    DISPLAY BY NAME mes_g.*
+
+   COMMAND "Anterior"
+           "Presenta en pantalla al registro anterior encontrado"
+
+    FETCH PREVIOUS pro INTO mes_g.*
+     
+    IF STATUS = NOTFOUND THEN
+     LET numero_msg = 5
+     CALL msg(numero_msg)
+     FETCH LAST pro INTO mes_g.*
+    END IF
+
+    DISPLAY BY NAME mes_g.*
+
+ COMMAND "Primero"
+         "Presenta en pantalla al primer registro encontrado"
+    FETCH FIRST pro INTO mes_g.*
+     
+     LET numero_msg = 5
+     CALL msg(numero_msg)
+
+    DISPLAY BY NAME mes_g.*
+
+  COMMAND "Ultimo"
+          "Presenta en pantalla al ultimo registro encontrado"
+    FETCH LAST pro INTO mes_g.*
+     
+    DISPLAY BY NAME mes_g.*
+
+ COMMAND "Escoger"
+
+    INPUT BY NAME mes_g.dias_prod
+    WITHOUT DEFAULTS
+ 
+    AFTER FIELD dias_prod   
+
+    IF mes_g.dias_prod IS NULL OR mes_g.dias_prod < 0 THEN
+      LET numero_msg = 16 
+      CALL msg(numero_msg)
+      NEXT FIELD dias_prod
+    END IF
+  END INPUT
+
+    IF int_flag THEN
+     LET numero_msg = 2
+     CALL msg(numero_msg)
+     LET int_flag = FALSE
+     RETURN
+   END IF
+
+   UPDATE mestable SET (dias_prod,us_mod,fech_mod) =
+     (mes_g.dias_prod,USER,CURRENT)
+   WHERE mes = mes_g.mes 
+
+  LET numero_msg = 13
+  CALL msg(numero_msg)
+
+#COMMAND KEY ("N") "aNular"
+#  UPDATE mestable  SET (status_t,us_mod,fech_mod) =
+#    ("E",USER,CURRENT)
+#  WHERE mes = mes_g.mes 
+
+ COMMAND "Retornar"
+  EXIT MENU
+ END MENU
+END FUNCTION