{ ------------------------------------------------------------------ PROGRAMA : INPRMT005 OBJETIVO : Capturar, Modificar, Eliminar registros de la Tabla Tipos de Movimientos. PROGRAMADOR : Ing. Betania Guerrero Perez FECHA REALIZACION : Julio 31, 1992. ------------------------------------------------------------------ } GLOBALS "inprgb000.4gl" MAIN DEFER INTERRUPT CALL ARG_VAL(1) RETURNING usuarios CALL ARG_VAL(2) RETURNING clave CALL ARG_VAL(3) RETURNING impresor CONNECT to "smarmotech" USER usuarios USING clave SELECT * INTO p_companias.* FROM companias CALL inprmt005() END MAIN FUNCTION inprmt005() CLEAR SCREEN OPTIONS FORM LINE 9, ERROR LINE 23, COMMENT LINE 21 OPEN FORM infmmt005 FROM "infmmt005" DISPLAY FORM infmmt005 CALL pantalla() DISPLAY "inprmt005" AT 4,3 DISPLAY "Tipos de Movimientos" AT 6,30 MENU "OPCIONES" COMMAND "Adicionar" " Adiciona Registro Cancela Operacion" let int_flag = false CLEAR FORM let int_flag = false CALL inpcad005() COMMAND "Consultar-modificar" " Realiza Busqueda Cancela Operacion" CALL inpcmf005() COMMAND "Salir" "Retorna Menu Anterior" EXIT MENU END MENU END FUNCTION FUNCTION inpcad005() ## Captura los datos que va a contener el registro # WHENEVER ERROR CONTINUE INPUT BY NAME transacc.* ## Verifica que el codigo no exista en el catalogo de transacciones. Si existe, ## entonces despliega los datos del registro existente. AFTER FIELD cod_mov IF transacc.cod_mov = 0 OR transacc.cod_mov IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_mov ELSE SELECT * INTO transacc.* FROM intb00005 WHERE cod_mov = transacc.cod_mov IF status >= 0 THEN IF STATUS != NOTFOUND THEN IF transacc.status_t = "E" THEN LET numero_msg = 36 CALL msg(numero_msg) NEXT FIELD cod_mov END IF DISPLAY BY NAME transacc.* LET numero_msg = 12 CALL msg(numero_msg) LET transacc.descrip_mov = NULL LET transacc.status_mov = NULL LET transacc.cuenta_1 = NULL LET transacc.cuenta_2 = NULL LET transacc.cuenta_3 = NULL NEXT FIELD cod_mov END IF ELSE CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if END IF END IF AFTER FIELD descrip_mov IF transacc.descrip_mov IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD descrip_mov END IF AFTER INPUT IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE RETURN END IF IF transacc.descrip_mov IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD descrip_mov ELSE INSERT INTO intb00005 (cod_mov,descrip_mov,status_mov,cuenta_1,cuenta_2,cuenta_3,us_crea,fech_crea,consumo) VALUES (transacc.cod_mov, transacc.descrip_mov, transacc.status_mov, transacc.cuenta_1, transacc.cuenta_2, transacc.cuenta_3, usuarios, getdate(),transacc.consumo) CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if LET numero_msg = 1 CALL msg(numero_msg) CLEAR FORM INITIALIZE transacc.* TO null NEXT FIELD cod_mov END IF AFTER FIELD fech_mod EXIT INPUT END INPUT END FUNCTION FUNCTION inpcmf005() ## Aqui se prepara para la captura del criterio de seleccion # WHENEVER ERROR CONTINUE CONSTRUCT criterio ON cod_mov,descrip_mov FROM intb00005.cod_mov,intb00005.descrip_mov IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE RETURN END IF LET SELEC = " SELECT UNIQUE * FROM intb00005 where ", " status_t is null and ", criterio clipped, " ORDER BY 1" PREPARE busca FROM selec CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if DECLARE datos SCROLL CURSOR WITH HOLD FOR busca OPEN datos FETCH FIRST datos INTO transacc.* IF status >= 0 THEN IF STATUS = NOTFOUND THEN LET numero_msg = 3 CALL msg(numero_msg) RETURN END IF ELSE CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if END IF DISPLAY BY NAME transacc.* MENU "OPCIONES " COMMAND "Siguiente" "Presenta en pantalla el proximo registro encontrado" FETCH NEXT datos INTO transacc.* IF STATUS = NOTFOUND THEN LET numero_msg = 4 CALL msg(numero_msg) END IF CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if DISPLAY BY NAME transacc.* COMMAND "Anterior" "Presenta en pantalla el registro anterior encontrado" FETCH PREVIOUS datos INTO transacc.* IF STATUS = NOTFOUND THEN LET numero_msg = 5 CALL msg(numero_msg) END IF CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if DISPLAY BY NAME transacc.* COMMAND "Primero" "Presenta en pantalla el primer registro encontrado" FETCH FIRST datos INTO transacc.* DISPLAY BY NAME transacc.* LET numero_msg = 5 CALL msg(numero_msg) COMMAND "Ultimo" "Presenta en pantalla el ultimo registro encontrado" FETCH LAST datos INTO transacc.* DISPLAY BY NAME transacc.* LET numero_msg = 4 CALL msg(numero_msg) COMMAND "Escoger" " Actualiza Registro Cancela Operacion" INPUT BY NAME transacc.descrip_mov, transacc.status_mov, transacc.cuenta_1, transacc.cuenta_2, transacc.cuenta_3, transacc.consumo, transacc.us_crea, transacc.fech_crea, transacc.us_mod, transacc.fech_mod WITHOUT DEFAULTS AFTER FIELD descrip_mov IF transacc.descrip_mov IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD descrip_mov END IF AFTER INPUT #### Verifica si el usuario presiono la tecla IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE RETURN END IF UPDATE intb00005 SET descrip_mov = transacc.descrip_mov, status_mov = transacc.status_mov, cuenta_1 = transacc.cuenta_1, cuenta_2 = transacc.cuenta_2, cuenta_3 = transacc.cuenta_3, us_mod = suser_sname(), fech_mod = getdate(), intb00005.consumo = transacc.consumo WHERE cod_mov = transacc.cod_mov CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if LET numero_msg = 13 CALL msg(numero_msg) EXIT INPUT END INPUT COMMAND KEY ("L") "eLiminar" UPDATE intb00005 SET status_t = "E" WHERE cod_mov = transacc.cod_mov LET numero_msg = 39 CALL msg(numero_msg) COMMAND "Retornar" "Retorna al menu anterior" CLEAR FORM EXIT MENU END MENU END FUNCTION