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}}
sexta-feira, 29 de julho de 2011
Calendário de Cursos Openedge Progress Software
Bem-vindos à ALX - Consultoria e Treinamentos
Curso de Progress - Consultoria Datasul
Os 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 dos alunos de maneira rápida e eficiente, sem a necessidade de grandes teorias e praticas desnecessárias 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 já utilizando os recursos adquiridos.
Treinamento Totalmente Pratico.
O Aluno trabalha diretamente em exemplos e modelos de programas reais, não perdendo tempo e ficando com bagagem cheia de teoria e pouca pratica no assunto abordado.
Leia mais: http://cursodeprogress.webnode.com.br/
quinta-feira, 28 de julho de 2011
Material Para Programação em Progress
Bem-vindos à ALX - Consultoria e Treinamentos
Cursos Progress - Formação 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 rápida e eficiente, sem a necessidade de grandes teorias e praticas desnecessárias 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 já utilizando os recursos adquiridos.
Treinamento Totalmente Pratico.
O Aluno trabalha diretamente em exemplos e modelos de programas reais, não perdendo tempo e ficando com bagagem cheia de teoria e pouca pratica no assunto abordado.
Leia mais: http://cursodeprogress.webnode.com.br/
terça-feira, 26 de julho de 2011
Exemplo de uma UPC Básica
/* Definição 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 Botão ********************************************************/if p-ind-event = "INITIALIZE" and
p-ind-object = "CONTAINER" then
do:
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 = "Botão"
TOOLTIP = "Tooltip do Botão".
on choose of wh-botao persistent run upcs/executa_na_upc.p.
wh-botao:load-image("image/gr-cla.bmp").
end.
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 Botão ********************************************************/if p-ind-event = "INITIALIZE" and
p-ind-object = "CONTAINER" then
do:
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 = "Botão"
TOOLTIP = "Tooltip do Botão".
on choose of wh-botao persistent run upcs/executa_na_upc.p.
wh-botao:load-image("image/gr-cla.bmp").
end.
sexta-feira, 22 de julho de 2011
Curso de Progress e Datasul EMS, Treinamentos, Cursos
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 disposiçao, 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 preços
Email: alx_amorim@terra.com.br
Skype: alx_amorim
www.cursodeprogress.com.br
www.progressparavoce.com.br
Valeu!
Qualquer necessidade entrem em contato que passo os preços
Email: alx_amorim@terra.com.br
Skype: alx_amorim
www.cursodeprogress.com.br
www.progressparavoce.com.br
Valeu!
Meu primeiro post no Blog - Progress Openedge - Datasul
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 intenção é 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.
sexta-feira, 1 de julho de 2011
Datasul e Progress
Bem-vindos à ALX - Consultoria e Treinamentos
Datasul e Progress - Curso de Progress - Curso Progress - Formação 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 rápida e eficiente, sem a necessidade de grandes teorias e praticas desnecessárias 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 já utilizando os recursos adquiridos.
Treinamento Totalmente Pratico.
O Aluno trabalha diretamente em exemplos e modelos de programas reais, não perdendo tempo e ficando com bagagem cheia de teoria e pouca pratica no assunto abordado.
Leia mais: http://cursodeprogress.webnode.com.br/
Curso Programação Progress
Bem-vindos à ALX - Consultoria e Treinamentos
Curso de Progress - Consultoria Datasul
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 rápida e eficiente, sem a necessidade de grandes teorias e praticas desnecessárias 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 já utilizando os recursos adquiridos.
Treinamento Totalmente Pratico.
O Aluno trabalha diretamente em exemplos e modelos de programas reais, não perdendo tempo e ficando com bagagem cheia de teoria e pouca pratica no assunto abordado.
Leia mais: http://cursodeprogress.webnode.com.br/
Assinar:
Postagens (Atom)