CURSO DE 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.

Entre em contato: contato@cursodeprogress.com.br
Skype: alx_amorim@hotmail.com
Leia mais: http://cursodeprogress.webnode.com.br/

http://progressparavoce.blogspot.com

www.progressparavoce.com.br
www.cursodeprogress.com.br

Relatório em Excel com Progress - Usando varios Recursos simples

Abaixo demonstro um exemplo de relatório em progress que gera arquivo em excel todo comentado, vejam que utilizo varios recursos interessantes como titulo, numero de pagina e outras dicas de formatação.....


/* Cria as variaveis necessárias para o relatório */DEF VAR chExcelApplication AS COM-HANDLE NO-UNDO.
DEF VAR chWorkbook AS COM-HANDLE NO-UNDO.
DEF var chworksheet AS com-handle.
DEF VAR m-linha AS INTEGER NO-UNDO. /* Variável p/ contagem das linhas */
ASSIGN m-linha = 1.
CREATE "Excel.Application" chExcelApplication. /* Cria a Planilha */
ASSIGN chWorkbook = chExcelApplication:Workbooks:ADD("")
       chworksheet=chexcelapplicAtion:sheets:item(1)
       chworksheet:name="Pasta do Relatório". /* Nome que será criada a Pasta da Planilha */
       m-linha = 2.
    ASSIGN chWorkSheet:PageSetup:Orientation = 1. /* Define papel como formato Retrato */
    ASSIGN chworksheet:range("A1:C1"):FONT:colorindex = 02 /* Aplica fonte cor Branca no Titulo */
       chworksheet:range("A1:C1"):MergeCells = TRUE. /* Cria a Planilha */
       chworksheet:range("A1:C1"):VALUE = "Titulo - Titulo do Relatório".
       chWorkSheet:Range("A1:C1"):HorizontalAlignment = 3. /* Centraliza o Titulo */
       chWorkSheet:Range("A1:C1"):Interior:colorindex = 01. /* Aplica fundo preto no titulo */
     /* Cria os titulos para as colunas do relatório */
    ASSIGN chworksheet:range("A2:C2"):font:bold = TRUE  /* Aplica negrito na linha de titulo das colunas */
        chworksheet:range("A" + STRING(m-linha)):VALUE = "TituloColuna A"
        chworksheet:range("B" + STRING(m-linha)):VALUE = "TituloColuna B"
        chworksheet:range("C" + STRING(m-linha)):VALUE = "TituloColuna C"
        m-linha = m-linha + 1.
       /* Faça o for each desejado */    FOR EACH tabela NO-LOCK:
            /* Lista os dados da tabela nas colunas */
            ASSIGN chworksheet:range("A" + STRING(m-linha)):VALUE = tabela.campo1
                chworksheet:range("B" + STRING(m-linha)):VALUE = tabela.campo2
                chworksheet:range("C" + STRING(m-linha)):VALUE = tabela.campo3.
                ASSIGN m-linha = m-linha + 1.       
    END.
    ASSIGN
    chExcelApplication:Range("B1:B65000"):NumberFormat = "dd/mm/aaaa"  /* Formato de data na col B */
    chExcelApplication:Range("C1:C65000"):NumberFormat = "#.##0,00". /* formato numerico c/2 dec na col C */
    chWorkSheet:PageSetup:RightFooter  = "&d/&t" + "-PAGINA:" + "&P/&N". /* Data/Hora e Nr Pg no Rodapé */
    chworksheet:range("B2:C2"):EntireColumn:AutoFit. /* Define automaticamente a largura das colunas */
    chExcelApplication:COLUMNS("A:A"):ColumnWidth = 25.00. /* Define manualmente a largura da coluna A */
    chExcelApplication:Rows("1:65000"):RowHeight  = 17.00. /* Tamanho da linha */
    chWorkSheet:PageSetup:PrintTitleRows  = "$1:$1". /* Adiciona o Titulo em todas as paginas de Impressao */
    chWorkSheet:PageSetup:Zoom  = 80. /* Aplica 80% para ajuste na impressao da pagina */
    chExcelApplication:Range("A1"):select.
    chExcelApplication:Visible = yes.
    RELEASE OBJECT chExcelApplication.
    RELEASE OBJECT chWorkbook.

Material para começar a estudar progress Apostila, Tutorial Completo

Olá galera, esta é a apostila mais divulgada na net sobre progress, bastante completa, legal para ter quando se está 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

Fonte para gerar codigos de barras do tipo EAN 13

Segue um link para donwload de uma fonte para gerar codigos de barras do tipo EAN13, é possivel concilia-la com uma funçao para gerar os codigos a partir de um programa progress, se alguem precisar tenho alguns programas de exemplo basta solicitar pelos comentários....

http://files.cursodeprogress.webnode.com.br/200000010-815fb8259a/EAN13.ttf

Progress - Usando Zoom (para pesquisas) em programas para Datasul EMS

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

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/

http://progressparavoce.blogspot.com

http://www.alxconsultoria.com

Material Para Programação em Progress

Bem-vindos à ALX - Consultoria e Treinamentos
Cursos Progress - Formação Progress

http://progressparavoce.blogspot.com/2011/08/material-para-comecar-estudar-progress.html

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/

http://progressparavoce.blogspot.com

http://www.alxconsultoria.com

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.

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!

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.

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/

http://progressparavoce.blogspot.com

www.cursodeprogress.com.br
www.progressparavoce.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/

http://progressparavoce.blogspot.com

www.cursodeprogress.com.br
www.progressparavoce.com.br

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

http://progressparavoce.blogspot.com

http://www.alxconsultoria.com