Abel LópezandClaude Sonnet 5
750b9a6bcf
Se agrega noprmt025 al proyecto usando nofmmt025.4fd (tiene los campos monto_ars/monto_afp que faltan en el .per). Se corrigen tres bugs que impedian usar el programa: 1. nopcmf023(): CONVERT(varchar,fecha,101) hacia variable DATE, mismo patron de error -1205 "Invalid month in date" ya visto en otros programas. 2. nopcad023(): la validacion de tipo_emp contra notb00010 usaba un SELECT sin INTO/cursor (singleton select), que exige exactamente una fila. notb00010 es la tabla de periodos de nomina (un registro por periodo), con cientos de filas por tipo_emp, asi que esta validacion fallaba siempre con error -284 "A subquery has returned not exactly one row", bloqueando por completo la opcion Nuevo. Se cambia a SELECT COUNT(*) INTO existe_tipo. 3. nofmmt025.4fd: el campo fecha (Edit widget, formonly) no tenia format="dd/mm/yyyy", causando que Genero interpretara la fecha tecleada con el formato de fecha por defecto del sistema en vez del formato dominicano, dando "Invalid month in date" al capturar un dia mayor a 12 como mes. Probado ciclo completo: Nuevo, Buscar, Escoger y eLiminar sobre parametro de prueba (numero_nomina=26). Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
394 lines
13 KiB
Plaintext
394 lines
13 KiB
Plaintext
{
|
|
------------------------------------------------------------------
|
|
PROGRAMA : noprmt023
|
|
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
|
Tabla Numeros de Periodos de Nomina.
|
|
PROGRAMADOR : Oscar Castillo
|
|
FECHA REALIZACION : Friday, 15 December, 2000
|
|
------------------------------------------------------------------
|
|
}
|
|
GLOBALS "noprgb000.4gl"
|
|
DEFINE relacion RECORD LIKE notb00023.*
|
|
DEFINE existe_tipo INTEGER
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
|
|
CONNECT to "smarmotech" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
CALL noprmt025()
|
|
END MAIN
|
|
|
|
FUNCTION noprmt025()
|
|
CLEAR SCREEN
|
|
OPTIONS
|
|
FORM LINE 9,
|
|
ERROR LINE 23,
|
|
COMMENT LINE 21
|
|
|
|
|
|
OPEN FORM nofmmt025 FROM "nofmmt025"
|
|
DISPLAY FORM nofmmt025
|
|
|
|
|
|
MENU
|
|
ON ACTION nuevo
|
|
let int_flag = false
|
|
CLEAR FORM
|
|
CALL nopcad023()
|
|
ON ACTION buscar
|
|
|
|
let int_flag = false
|
|
CALL nopcmf023()
|
|
ON ACTION Salir
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|
|
FUNCTION nopcad023()
|
|
#WHENEVER ERROR CONTINUE
|
|
## Captura los datos que va a contener el registro
|
|
|
|
INPUT BY NAME relacion.*
|
|
|
|
## Verifica que el codigo no exista en el catalogo de unidades. Si existe,
|
|
## entonces despliega los datos del registro existente.
|
|
|
|
AFTER FIELD numero_nomina
|
|
IF relacion.numero_nomina IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
|
|
SELECT *
|
|
FROM notb00023 a
|
|
WHERE a.numero_nomina = relacion.numero_nomina
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
|
|
AFTER FIELD tipo_emp
|
|
IF relacion.tipo_emp IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD tipo_emp
|
|
END IF
|
|
|
|
SELECT COUNT(*) INTO existe_tipo
|
|
FROM notb00010 a
|
|
WHERE a.tipo_emp = relacion.tipo_emp
|
|
AND a.status_t IS NULL
|
|
|
|
IF existe_tipo = 0 THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD tipo_emp
|
|
END IF
|
|
|
|
IF relacion.tipo_emp = "Q" AND
|
|
relacion.numero_nomina <= 24 THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
|
|
IF relacion.tipo_emp = "S" AND
|
|
relacion.numero_nomina <= 52 THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
|
|
AFTER FIELD fecha
|
|
IF relacion.fecha IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD fecha
|
|
END IF
|
|
|
|
SELECT a.*
|
|
FROM notb00023 a
|
|
WHERE a.tipo_emp = relacion.tipo_emp
|
|
AND a.fecha = relacion.fecha
|
|
AND a.status_t IS NULL
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD tipo_emp
|
|
END IF
|
|
|
|
AFTER FIELD monto_excento
|
|
IF relacion.monto_excento IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD monto_excento
|
|
END IF
|
|
|
|
AFTER FIELD porc_15
|
|
IF relacion.porc_15 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD porc_15
|
|
END IF
|
|
|
|
AFTER FIELD porc_20
|
|
IF relacion.porc_20 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD porc_20
|
|
END IF
|
|
|
|
AFTER FIELD porc_25
|
|
IF relacion.porc_25 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD porc_25
|
|
END IF
|
|
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
IF relacion.numero_nomina IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
ELSE
|
|
INSERT INTO notb00023 VALUES (relacion.numero_nomina,
|
|
relacion.tipo_emp,relacion.fecha,relacion.monto_excento,
|
|
relacion.porc_15,relacion.porc_20,relacion.porc_25,
|
|
null, SUSER_SNAME(), GETDATE(), null, null,relacion.monto_ars,relacion.monto_afp)
|
|
|
|
|
|
LET numero_msg = 1
|
|
CALL msg(numero_msg)
|
|
CLEAR FORM
|
|
END IF
|
|
|
|
END INPUT
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION nopcmf023()
|
|
DEFINE chfecha char(25)
|
|
## Aqui se prepara para la captura del criterio de seleccion
|
|
CONSTRUCT BY NAME criterio ON a.numero_nomina,a.tipo_emp #,a.fecha
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
LET SELEC = "SELECT a.numero_nomina,a.tipo_emp,a.fecha,a.monto_excento,",
|
|
"a.porc_15,a.porc_20,a.porc_25,a.monto_ars,a.monto_afp FROM notb00023 a where ",
|
|
" a.status_t is null and ",
|
|
criterio clipped
|
|
|
|
|
|
PREPARE busca FROM selec
|
|
DECLARE datos SCROLL CURSOR FOR busca
|
|
OPEN datos
|
|
|
|
FETCH FIRST datos INTO relacion.numero_nomina,
|
|
relacion.tipo_emp,
|
|
relacion.fecha,
|
|
relacion.monto_excento,
|
|
relacion.porc_15,
|
|
relacion.porc_20,
|
|
relacion.porc_25,
|
|
relacion.monto_ars,
|
|
relacion.monto_afp
|
|
#LET relacion.fecha = chfecha
|
|
# DISPLAY chfecha TO fecha
|
|
DISPLAY BY NAME relacion.*
|
|
|
|
MENU "OPCIONES "
|
|
COMMAND "Siguiente"
|
|
"Presenta en pantalla el proximo registro encontrado"
|
|
FETCH NEXT datos INTO relacion.numero_nomina,
|
|
relacion.tipo_emp,
|
|
relacion.fecha,
|
|
relacion.monto_excento,
|
|
relacion.porc_15,
|
|
relacion.porc_20,
|
|
relacion.porc_25,
|
|
relacion.monto_ars,
|
|
relacion.monto_afp
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 4
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
DISPLAY BY NAME relacion.*
|
|
|
|
COMMAND "Anterior"
|
|
"Presenta en pantalla el registro anterior encontrado"
|
|
FETCH PREVIOUS datos INTO relacion.numero_nomina,
|
|
relacion.tipo_emp,
|
|
relacion.fecha,
|
|
relacion.monto_excento,
|
|
relacion.porc_15,
|
|
relacion.porc_20,
|
|
relacion.porc_25,
|
|
relacion.monto_ars,
|
|
relacion.monto_afp
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 5
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
DISPLAY BY NAME relacion.*
|
|
|
|
COMMAND "Primero"
|
|
"Presenta en pantalla el primer registro encontrado"
|
|
FETCH FIRST datos INTO relacion.numero_nomina,
|
|
relacion.tipo_emp,
|
|
relacion.fecha,
|
|
relacion.monto_excento,
|
|
relacion.porc_15,
|
|
relacion.porc_20,
|
|
relacion.porc_25,
|
|
relacion.monto_ars,
|
|
relacion.monto_afp
|
|
DISPLAY BY NAME relacion.*
|
|
LET numero_msg = 5
|
|
CALL msg(numero_msg)
|
|
|
|
COMMAND "Ultimo"
|
|
"Presenta en pantalla el ultimo registro encontrado"
|
|
FETCH LAST datos INTO relacion.numero_nomina,
|
|
relacion.tipo_emp,
|
|
relacion.fecha,
|
|
relacion.monto_excento,
|
|
relacion.porc_15,
|
|
relacion.porc_20,
|
|
relacion.porc_25,
|
|
relacion.monto_ars,
|
|
relacion.monto_afp
|
|
DISPLAY BY NAME relacion.*
|
|
LET numero_msg = 4
|
|
CALL msg(numero_msg)
|
|
|
|
COMMAND "Escoger"
|
|
"<Esc> Actualiza Registro <Ctrl-C> Cancela Operacion"
|
|
|
|
INPUT BY NAME relacion.* WITHOUT DEFAULTS
|
|
|
|
AFTER FIELD numero_nomina
|
|
IF relacion.numero_nomina IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
{
|
|
SELECT *
|
|
FROM notb00023 a
|
|
WHERE a.numero_nomina = relacion.numero_nomina
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
|
|
IF relacion.tipo_emp = "Q" AND
|
|
relacion.numero_nomina <= 24 THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
|
|
IF relacion.tipo_emp = "S" AND
|
|
relacion.numero_nomina <= 52 THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD numero_nomina
|
|
END IF
|
|
}
|
|
AFTER FIELD monto_excento
|
|
IF relacion.monto_excento IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD monto_excento
|
|
END IF
|
|
|
|
AFTER FIELD porc_15
|
|
IF relacion.porc_15 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD porc_15
|
|
END IF
|
|
|
|
AFTER FIELD porc_20
|
|
IF relacion.porc_20 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD porc_20
|
|
END IF
|
|
|
|
AFTER FIELD porc_25
|
|
IF relacion.porc_25 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD porc_25
|
|
END IF
|
|
|
|
#### Verifica si el usuario presiono la tecla <Ctrl-C>
|
|
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
CLEAR FORM
|
|
RETURN
|
|
END IF
|
|
|
|
#DISPLAY "PASO ", relacion.numero_nomina," ",relacion.porc_15
|
|
|
|
UPDATE notb00023 SET numero_nomina = relacion.numero_nomina,
|
|
monto_excento = relacion.monto_excento,
|
|
porc_15 = relacion.porc_15,
|
|
porc_20 = relacion.porc_20,
|
|
porc_25 = relacion.porc_25,
|
|
us_mod = SUSER_SNAME(),
|
|
fecha_mod = GETDATE(),
|
|
monto_ars = relacion.monto_ars,
|
|
monto_afp = relacion.monto_afp
|
|
WHERE fecha = relacion.fecha
|
|
|
|
|
|
LET numero_msg = 13
|
|
CALL msg(numero_msg)
|
|
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
COMMAND KEY ("L") "eLiminar"
|
|
UPDATE notb00023 SET status_t = "E",
|
|
us_mod = SUSER_SNAME(),
|
|
fecha_mod = GETDATE()
|
|
WHERE fecha = relacion.fecha
|
|
|
|
LET numero_msg = 39
|
|
CALL msg(numero_msg)
|
|
COMMAND "Retornar"
|
|
"Retorna al menu anterior"
|
|
CLEAR FORM
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|