Focal Point
[CLOSED] How to Read a maintain procedure parameters from fex procedure

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/6557070886

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,


WebFocus 8009, Windows 10, Windows Server 2012
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.


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats