{ ------------------------------------------------------------------ PROGRAMA : IPPRMT003 OBJETIVO : Capturar, Modificar, Eliminar registros de la Tabla Tipos de Movimientos. PROGRAMADOR : Ing. Juan Soto. FECHA REALIZACION : Enero 20, 1993. ------------------------------------------------------------------ } GLOBALS "irprgb000.4gl" DEFINE xconsumo VARCHAR(10) 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 irprmt003() END MAIN FUNCTION irprmt003() CLEAR SCREEN OPTIONS FORM LINE 9, ERROR LINE 23, COMMENT LINE 21 OPEN FORM irfmmt003 FROM "irfmmt003" DISPLAY FORM irfmmt003 DISPLAY "irprmt003" 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 irpcad003() COMMAND "Consultar-modificar" " Realiza Busqueda Cancela Operacion" CALL irpcmf003() COMMAND "Salir" "Retorna Menu Anterior" EXIT MENU END MENU END FUNCTION FUNCTION irpcad003() ## 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 irtb00005 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 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 irtb00005 VALUES (transacc.cod_mov, transacc.descrip_mov, transacc.status_mov, transacc.cuenta_1, transacc.cuenta_2, transacc.cuenta_3, null,SUSER_SNAME(), GETDATE(), null, NULL,transacc.consumo, transacc.control_departamento,transacc.control_maquina, transacc.requisiciones, transacc.requiere_autorizacion ) 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 irpcmf003() DEFINE encontrados INTEGER ## Aqui se prepara para la captura del criterio de seleccion #WHENEVER ERROR CONTINUE CONSTRUCT criterio ON irtb00005.cod_mov,irtb00005.descrip_mov FROM cod_mov,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 irtb00005 where ", " status_t is null and ", criterio clipped, " ORDER BY 1" PREPARE busca FROM selec 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 END IF DISPLAY BY NAME transacc.* MENU "OPCIONES " COMMAND "Siguiente" "Presenta en pantalla el proximo registro encontrado" FETCH NEXT datos INTO transacc.*,xconsumo IF STATUS = NOTFOUND THEN LET numero_msg = 4 CALL msg(numero_msg) END IF DISPLAY BY NAME transacc.* COMMAND "Anterior" "Presenta en pantalla el registro anterior encontrado" FETCH PREVIOUS datos INTO transacc.*,xconsumo IF STATUS = NOTFOUND THEN LET numero_msg = 5 CALL msg(numero_msg) 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.*,xconsumo LET numero_msg = 4 CALL msg(numero_msg) COMMAND "Escoger" " Actualiza Registro Cancela Operacion" INPUT BY NAME transacc.descrip_mov, transacc.status_mov, transacc.consumo, transacc.control_departamento, transacc.control_maquina, transacc.requisiciones, transacc.requiere_autorizacion, transacc.cuenta_1, transacc.cuenta_2, transacc.cuenta_3, 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 irtb00005 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, consumo = transacc.consumo, control_departamento = transacc.control_departamento, control_maquina = transacc.control_maquina, requisiciones = transacc.requisiciones, requiere_autorizacion = transacc.requiere_autorizacion, us_mod = SUSER_SNAME(), fech_mod = GETDATE() WHERE cod_mov = transacc.cod_mov LET numero_msg = 13 CALL msg(numero_msg) EXIT INPUT END INPUT COMMAND KEY ("L") "eLiminar" LET encontrados = 0 SELECT count(*) INTO encontrados FROM irtb00006 WHERE cod_mov = transacc.cod_mov AND status_t IS NULL IF encontrados = 0 THEN UPDATE irtb00005 SET status_t = "E" WHERE cod_mov = transacc.cod_mov LET numero_msg = 39 CALL msg(numero_msg) ELSE LET numero_msg = 383 CALL msg(numero_msg) END IF COMMAND "Retornar" "Retorna al menu anterior" CLEAR FORM EXIT MENU END MENU END FUNCTION