PROCEDURE browsers ** IF NOT WVISIBLE("Order's Items") SELE cur_coit go BOTT DEFINE WINDOW wzbrow ; AT 0, 75.100 ; SIZE 44.250,105 ; TITLE "Itens constantes na compra" ; FONT "Arial", 7 ; FLOAT ; NOCLOSE ; NOZOOM ; NOMINIMIZE ; SYSTEM BROWSE NOWAIT WINDOW wzbrow; FONT "Arial", 8 ; NODELETE NOMENU NOAPPEND FIELDS ; d4prodt :H = "Code" :R,; d4qtpec :9 :H = "Qtde." :R :v=wrele() :F,; produtos.descricao :48 :W=.F. :H = "Product's Description" :R,; d4pruni :9 :W=.F. :H = "$ Unit.",; d4prtot :11 :W=.F. :H = "$ Total"; WHEN wwhen() ******rest; activate window wzbrow RELEASE WINDOW wzbrow else SELE cur_coit activate window ("Order's items") go TOP SHOW GETS SELE cur_coit ENDIF ** RETURN