From 4e3993daf8b79f2b7a02430ea3628664f2801e3b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Tue, 20 Oct 2026 10:20:42 -0400 Subject: [PATCH] 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 --- PROYECTO/addir/adprmt027.4gl | 6 ++---- PROYECTO/mbsERP.4pw | 5 +++++ 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/PROYECTO/addir/adprmt027.4gl b/PROYECTO/addir/adprmt027.4gl index 0a0fced..6a77775 100644 --- a/PROYECTO/addir/adprmt027.4gl +++ b/PROYECTO/addir/adprmt027.4gl @@ -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, diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 89e0308..5b82402 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -960,6 +960,7 @@ + @@ -976,6 +977,10 @@ + + + +