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