[RESOLVIDO] MI0309

Pessoal preciso criar um botão no MI0309 , "Pagina 2" , criei uma upc só que esta mostrando o botão em todas as folder.

Alguem sabe como pegar a folder correta.

Grato

Rogerio segue a UPC,

/*-----------------------------------------------------------------------------------
PROGRAMA : upcmi0309-u00.p
OBJETIVO : Chamada de UPC do mi0309
AUTOR : Valdir Fantin
DATA : 08|08|2008
-----------------------------------------------------------------------------------*/

/*************************************************************************************
INCLUDES
*************************************************************************************/
{include/i-prgvrs.i upcmi0309-u00.p 2.04.00.000}

/*************************************************************************************
PARAMETROS
*************************************************************************************/
DEFINE INPUT PARAMETER p-ind-event AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-ind-object AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-object AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-frame AS WIDGET-HANDLE NO-UNDO.
DEFINE INPUT PARAMETER p-cod-table AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-row-table AS ROWID NO-UNDO.

define variable c-objeto as char no-undo.
define variable h_frame as widget-handle no-undo.
define new global shared var wh-objeto as Widget-handle No-undo.
define new global shared var adm-broker-hdl as handle no-undo.
def var c-ctrl-tab as char no-undo.
def var h-ctrl-tab as handle no-undo.
define new global shared var wh-cop as Widget-handle no-undo.
define new global shared var w-rowid-ord-manut AS Rowid No-undo.
DEFINE VARIABLE i-ctrl-tab-folder AS INTEGER NO-UNDO.
DEFINE VARIABLE i-ctrl-tab-page AS INTEGER NO-UNDO.

DEFINE VARIABLE adm-current-page AS INTEGER NO-UNDO.


assign c-objeto = entry(num-entries(p-wgh-object:file-name, "~/"), p-wgh-object:file-name, "~/").

/*************************************************************************************
MAIN-BLOCK
*************************************************************************************/
/* RUN upc/upcmi0304-u01.p (INPUT p-ind-event, */
/* INPUT p-ind-object, */
/* INPUT p-wgh-object, */
/* INPUT p-wgh-frame, */
/* INPUT p-cod-table, */
/* INPUT p-row-table). */

/*
MESSAGE "p-ind-event : "p-ind-event skip
"p-ind-object: "p-ind-object skip
"p-wgh-object: " p-wgh-objectrivate-data skip
"p-wgh-frame : "p-wgh-frame skip
"p-cod-table : "p-cod-table skip
"p-row-table : " string(p-row-table) skip
/* "c-objeto: " c-objeto */
VIEW-AS ALERT-BOX INFO BUTTONS OK.
*/

IF RETURN-VALUE = "NOK":U THEN
RETURN "NOK":U.


if p-ind-event = "AFTER-CHANGE-PAGE" and
p-ind-object = "CONTAINER" THEN DO:


RUN get-attribute IN THIS-PROCEDURE ('Current-Page':U).
ASSIGN adm-current-page = INTEGER(RETURN-VALUE).

RUN get-attribute IN THIS-PROCEDURE ('Current-Folder':U).
ASSIGN i-ctrl-tab-folder = INTEGER(RETURN-VALUE).


MESSAGE "p-ind-event : "p-ind-event skip
"p-ind-object: "p-ind-object skip
"p-wgh-object: " p-wgh-objectrivate-data skip
"p-wgh-frame : "p-wgh-frame skip
"p-cod-table : "p-cod-table skip
"p-row-table : " string(p-row-table) skip
"c-objeto: " c-objeto skip
"Pag......." adm-current-page skip
"Folder...." i-ctrl-tab-folder skip
VIEW-AS ALERT-BOX INFO BUTTONS OK.

create button wh-cop
assign row = 10.15
column = 72
width = 5.5
height = 1.25
frame = p-wgh-frame
sensitive = yes
visible = yes
label = "+ Opções"
TOOLTIP = "Opções na Ordem Manutencao".
/*
on choose of wh-cop persistent run esupc/trg_leave.p.
/************************************************************************
No programa trg_leave.p Coloque o codigo que desejar, lembres-se sempre
que qualquer codido a ser executado em qualquer evento de um objeto dentro de uma upc
dever ser atravez de um pesistent run, nao iria funcionar se por exemplo vc usa-se o seguinte codigo.
************************************************************************
on choose of wh-cop message "teste" view-as alert-box.
************************************************************************
************************************************************************ */
wh-cop:load-image("image/gr-cla.bmp").
*/


PROCEDURE set-attribute-list :
/* -----------------------------------------------------------
Purpose: Accepts the value of the complete object attribute list
and runs procedures to set individual attributes.
Parameters: INPUT comma-separated attribute list.
Notes: Not all attributes are settable. Those which are a
part of an event such as enable/disable (which set
ENABLED on/off) or hide/view (which set HIDDEN on/off)
can be queried through get-attribute but cannot be set.
-------------------------------------------------------------*/

DEFINE INPUT PARAMETER p-attr-list AS CHARACTER NO-UNDO.

RUN broker-set-attribute-list IN adm-broker-hdl
(INPUT THIS-PROCEDURE, INPUT p-attr-list) NO-ERROR.

RETURN.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */


PROCEDURE get-attribute :
/* -----------------------------------------------------------
Purpose: Returns the value of a std variable or attribute-table entry.
Parameters: INPUT attribute name, RETURN-VALUE (string)
Notes:
-------------------------------------------------------------*/

DEFINE INPUT PARAMETER p-attr-name AS CHARACTER NO-UNDO.

RUN broker-get-attribute IN adm-broker-hdl
(INPUT THIS-PROCEDURE, INPUT p-attr-name) NO-ERROR.

RETURN RETURN-VALUE.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */