Ola galera, esta e a apostila mais divulgada na net sobre progress, bastante completa, legal para ter quando se esta iniciando na linguagem, foi escrita por Marcio Brener Costa... segue abaixo o link para baixarem a vontade...http://files.cursodeprogress.webnode.com.br/200000011-d98b3da858/dominando_progress.pdf Podemos usar um zoom de forma simples em nossos programas desenvolvidos para datasul ems.... segue um exemplo basico....def var hprogramzoom as handle no-undo.DEFINE VARIABLE wh-pesquisa AS HANDLE NO-UNDO.DEFINE VARIABLE l-implanta AS LOGICAL NO-UNDO.DEFINE NEW GLOBAL SHARED VARIABLE wh-window AS HANDLE NO-UNDO.DEFINE NEW GLOBAL SHARED VARIABLE adm-broker-hdl AS HANDLE NO-UNDO. DEF VAR l-implanta AS LOGICAL. assign l-implanta = NO. {include/zoomvar.i &prog-zoom=inzoom/z02in172.w &campo=f-item-ini &campozoom=it-codigo &frame={&frame-name}} Pessoal, ministro alguns cursos e treinamentos de Openedge Progress e Datasul, progress voltado ou nao para Datasul EMS, tudo direto ao assunto sem os blablablas dos cursos que vemos por ai nas poucas empresas que tem a disposicao, trabalho com treinamentos In-Company e VIP, presencial e Online (remoto), customizado de acordo com a necessidade e grau de conhecimento do aluno ou grupo....Qualquer necessidade entrem em contato que passo os precosEmail: alx_amorim@terra.com.brMSN: alx_amorim@hotmail.comValeu! Meu primeiro Post no Blog. Senhoras e senhores, inicia aqui mais um Blog sobre tecnologia, mais especificamente sobre a linguagem e banco de dados Openedge Progress e sobre o ERP Datasul EMS Totvs.Minha intencao e colocar no blog dicas sobre o uso do Progress e EMS Datasul e fatos do dia a dia que podem ser de interesse dos leitores. Bem-vindos a ALX - Consultoria e Treinamentos Cursos Progress - Formacao Progress Treinamento Customizado focado na necessidade do cliente.Os treinamentos customizados com foco na necessidade do cliente e procura atender as expectativas dos alunos de maneira rapida e eficiente, sem a necessidade de grandes teorias e praticas desnecessarias no dia a dia, utilizando programas de exemplo como base tona o treinamento mais interessante e proporciona ao aluno a possibilidade de deixar o treinamento ja utilizando os recursos adquiridos.Treinamento Totalmente Pratico.O Aluno trabalha diretamente em exemplos e modelos de programas reais, nao perdendo tempo e ficando com bagagem cheia de teoria e pouca pratica no assunto abordado.Entre em contato: alx_amorim@hotmail.comMSN: alx_amorim@hotmail.comLeia mais: http://cursodeprogress.webnode.com.br/http://progressparavoce.blogspot.comhttp://www.alxconsultoria.com /* Definicao de Parametros ***********************************************/define input parameter p-ind-event as character.define input parameter p-ind-object as character.define input parameter p-wgh-object as handle.define input parameter p-wgh-frame as widget-handle.define input parameter p-cod-table as character.define input parameter p-row-table as rowid./* variaveis locais ******************************************************/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 wh-botao as Widget-handle no-undo. assign c-objeto = entry(num-entries(p-wgh-object:file-name, "~/"), p-wgh-object:file-name, "~/")./* Cria um Botao ********************************************************/if p-ind-event = "INITIALIZE" and p-ind-object = "CONTAINER" thendo: create button wh-botao assign row = 1.15 column = 52 width = 4.5 height = 1.25 frame = p-wgh-frame sensitive = yes visible = yes label = "Botao" TOOLTIP = "Tooltip do Botao". on choose of wh-botao persistent run upcs/executa_na_upc.p. wh-botao:load-image("image/gr-cla.bmp").end. Bem-vindos a ALX - Consultoria e Treinamentos Curso de Progress - Consultoria DatasulOs treinamentos sao VIP as datas sao agendadas conforme necessidade do aluno. Treinamento Customizado focado na necessidade do cliente.Os treinamentos customizados com foco na necessidade do cliente e procura atender as expectativas