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 @@ + + + +