Registra adprmt027 (Formulario de Vacaciones) y corrige bugs
- Registra adfmmt027.per (FORMULARIOS_AD) y la aplicacion adprmt027 en ADMINISTRACION PERSONAL. - MAIN: se quitan el usuario y la clave escritos en el fuente (kpolanco); vuelve a usar los argumentos de la linea de comandos. - adpcmf027: CONVERT(CHAR(10),fecha,103) hacia variables DATE -> columna directa (-1205). - La tabla vacaciones no existia en marmotech (.250); se creo con adprmt027_vacaciones.sql (14 columnas del esquema viejo). Verificado contra la BD .250: Nuevo, Buscar, Escoger y eLiminar con la ficha 110 (el registro de prueba se elimino). Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
co-authored by
Claude Sonnet 5.5
parent
9c520ec3ad
commit
4e3993daf8
@@ -30,8 +30,6 @@ MAIN
|
||||
CALL ARG_VAL(1) RETURNING usuarios
|
||||
CALL ARG_VAL(2) RETURNING clave
|
||||
CALL ARG_VAL(3) RETURNING impresor
|
||||
let usuarios = "kpolanco"
|
||||
let clave = "RevolutionX3"
|
||||
CONNECT to "smarmotech" USER usuarios USING clave
|
||||
SELECT a.* INTO p_companias.* FROM companias a
|
||||
CALL adprmt027()
|
||||
@@ -183,8 +181,8 @@ DEFINE elimina CHAR(3)
|
||||
|
||||
LET SELEC = " SELECT a.ano,a.num_emp,a.cod_puesto,a.nom1_emp,a.nom2_emp, ",
|
||||
" a.apell1_emp,a.apell2_emp, ",
|
||||
" a.cedula,a.serie,a.nomina,CONVERT(CHAR(10),a.fecha_ing,103), ",
|
||||
" a.nom_puesto,CONVERT(CHAR(10),a.fech_vac,103) ",
|
||||
" a.cedula,a.serie,a.nomina,a.fecha_ing, ",
|
||||
" a.nom_puesto,a.fech_vac ",
|
||||
" FROM vacaciones a ",
|
||||
" WHERE ",
|
||||
criterio clipped,
|
||||
|
||||
Reference in New Issue
Block a user