October 20, 2017, 12:22 PM
WillySa [CLOSED] How to Read a maintain procedure parameters from fex procedure
Hello.
I have an HTM file that run a fex procedure and the fex procedure launch a maintain procedure and I need to pass a parameter from fex to Maintain. My problem is that Maintain not show the Variable sent by the fex. Can Help me to solve this issue....thanks
This is the Maintain Code:
MAINTAIN FILE VARIABL From USUA
$$Declarations
Declare USUA/A8;
Declare WUsu/A8=sys_mgr.get_nameParm('USUA');
Case Top
Compute WUsu = USUA;
Winform Show Form1;
EndCase
END
And this is the fex procedure that launch the Maintain:
-* File capusuar.fex
-SET &USRCO = &FAMILIA;
-SET &CLAVE = 'pwd4' || EDIT(&FAMILIA,'9999');
-RUN
-SET &ECHO=ALL;
-RUN
SET TITLE=OFF
SET MSG=OFF
-RUN
TABLE FILE VARIABL
HEADING
" "
" "
" "
" "
" "
" "
" "
" "
" "
" "
"
" " " Bienvenido " Click Aqui para Continuar " PRINT FAMILIA RAZSOC NOMBUSU BY ID IF ID EQ &USUARIO IF FAMILIA EQ &FAMILIA ON TABLE SET PAGE NOPAGE ON TABLE PCHOLD FORMAT HTML ON TABLE SET STYLE * TYPE=REPORT, FONT=VERDANA, SIZE=11, GRID=OFF, SQUEEZE=OFF, $ TYPE=HEADING, $ TYPE=TITLE, COLOR=WHITE, BACKCOLOR=WHITE, $ TYPE=DATA, COLOR=WHITE, BACKCOLOR=WHITE, $ TYPE=HEADING, BACKCOLOR=TEAL, COLOR=WHITE, $ TYPE=HEADING, LINE=11, SIZE=16, STYLE=BOLD, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=13, SIZE=14, STYLE=BOLD, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=14, JUSTIFY=CENTER, SIZE=14, URL=http://localhost:8080//ibi_apps/WFServlet?(IBIF_cmd='MNTCON EX PASEDASH -v USUA=&USUARIO' IBIC_user='&USRCO'\ IBIC_server='EDASERVE'\ IBIC_pass='&CLAVE'),$ $ ENDSTYLE END -RUN -IF &LINES EQ 0 GOTO MENSAJE; -*-READ DATUSFA &USU.A8 &FAM.A8 &RAZ.A50 -*-RUN -*-HTMLFORM DASHTABLE -*-RUN -GOTO SALIDA -MENSAJE -HTMLFORM NODATADB -RUN -SALIDA
This message has been edited. Last edited by: FP Mod Chuck , October 26, 2017 04:19 PM October 20, 2017, 03:51 PM
FP Mod Chuck Hi WilliSA
Here is a sample I have. In my fex here is the drill down code
TYPE=DATA, COLUMN=N1, TARGET='_self', URL=/ibi_apps/WFServlet?(LAST_NAME=N1 TIMESTAMP=N10 IBIF_cmd='MNTCON RUN WFCONT' IBIS_passthru='on' IBIS_connect='on' IBIAPP_app='wfmdemo baseapp' IBIC_server='EDASERVE'), $
In my maintain here is how I declared the variable coming in.
Compute KeyName/a0 = "LAST_NAME"; compute LAST_NAME_IN/a20 = IWC.GetAppCgiValue (KeyName);
Hope this helps.