Progress e Tecnologia

RSS Feed Homepage

Chamadas dinâmicas de Rotinas
2007-06-26 13:55:00
Não sei se já aconteceu com vocês, mas dependendo do nível de reaproveitamento de código da sua aplicação podemos ter a necessidade de chamarmos uma PROCEDURE ou FUNCTION que não sabemos o nome ou que não sabemos o numero de parâmetros. Para isso existe uma solução muito interessante. Todas AS procedures e functions do PROGRESS são executadas internamente através de uma instancia de
More About: Cham , Icas

Índices
2007-06-12 18:26:00
Pessoal, não sei se todos sabem como funciona o Índice de uma tabela no Banco de Dados Progress e como os Sistemas Client e Server do Progress manipulam isso. Fiz questão de escrever o nome dos três componentes para que vocês comecem a ver que não e uma coisa só. Basicamente funciona da seguinte maneira: O banco de dados e o arquivo físico gravado no disco, um arquivo de dados indexados

Diretivas Preprocessadas
2007-05-31 00:08:00
Diretivas preprocessadas são avaliadas apenas em tempo de execução, isso é, sua sintaxe e conteúdo são validados apenas quando solicitados sob uma condição válida. Foi implementada a partir da versão 7 do Progress. Exemplo &scoped-define campos cust-num name.&if substring(proversion, 1, 1) = '8' &then for each customer fields({&campos}) no-lock: display {&campos} with title '
More About: Dire , Prep

PROCESSADORES
2007-05-30 23:38:00
De grande importância para o desenvolvimento em si,aprenderemos sobre os PREPROCESSADORES! No Progress eles funcionam como comandos e/ou instruções literais a serem pre-utilizados para o funcionamento de um programa. Simplesmente como uma palavra-chave que equivale a própria linguagem ou lista de instruções e/ou valores para utilização. Exemplo: &scoped-define p-exemplo display today. {&

Trabalhando com Word
2007-04-13 18:02:00
Olá pessoal, Neste artigo vamos mostrar como criar um documento do word usando Progress 4GL é bem parecido com a maneira de se criar planilhas do excel. 1- Comandos para criação do arquivo A primeira coisa que temos que fazer é criar o documento: CREATE "Word .Application" AppWord. Acima criamos uma instância do aplicativo word agora vamos criar um documento: AppWord:Documents:ADD().

Gerar arquivos CSV
2007-03-30 19:04:00
OUTPUT TO c:clientes.csv. FOR EACH emitente NO-LOCK: EXPORT DELIMITER ";" nome-emit cgc SKIP. END. OUTPUT CLOSE.
More About: Gera

Gerar arquivo com o comando PUT.
2007-03-30 19:02:00
DEF STREAM clientes. OUTPUT STREAM clientes TO VALUE('C:clientes.txt'). FOR EACH emitente NO-LOCK: PUT STREAM clientes nome-emit cgc SKIP. END. OUTPUT STREAM clientes CLOSE.
More About: Gera

Jogar direto para uma Porta
2007-03-30 19:01:00
OUTPUT TO LPT1. DISPLAY "Jogar para a LPT1". OUTPUT CLOSE.
More About: Para , Dire

Jogar direto para a Impressora Padrao
2007-03-30 19:00:00
OUTPUT TO PRINTER. DISPLAY "Jogar para a Impress ora Padrao". OUTPUT CLOSE.
More About: Para , Dire

Gerar arquivo sem definicao de STREAM
2007-03-30 14:14:00
OUTPUT TO c:clientes.txt. FOR EACH emitente NO-LOCK: DISP nome-emit cgc SKIP. END. OUTPUT CLOSE.
More About: Stream , Gera

Numero dentro de String
2007-03-27 14:31:00
Galera esse programa busca numeros dentro de uma string, muito util quando precisamos quebrar uma string em uma posição onde tem um numero mas nao sabemos quais são essas posições. def variable i as int no-undo. def variable s as char no-undo. s = "ProgresseTecnologia5blogspot6com". do i = 1 to length(s): if lookup(substring(s,i,1),"0,1,2,3,4,5,6,7, 8,9") <> 0 then message "Numero encontrado
More About: String , Tring

Dias após janeiro
2007-03-27 14:31:00
Galera essa função conta quantos dias se passaram depois de primeiro de janeiro. DEF VAR Dia as DATE NO-UNDO. DEF VAR qtdeDias as INTEGER NO-UNDO. ASSIGN Dia = TODAY. ASSIGN qtdeDias = Dia - date(1,1,year(Dia)) + 1. DISP qtdeDias.

Nome da Estação
2007-03-27 13:25:00
Para pegar o nome do computador podemos usar o seguinte comando. if opsys = "win32" then message os-getenv("COMPUTERNAME"). else if opsys="unix" then message os-getenv("HOSTNAME").

Picador de Papel USB
2007-03-22 17:44:00
Galera essa é pro povo que mexe com documentos confidenciais. Um picador de papel usb pela bagatela de 32 dolares vejam vcs msms. No site tem até um video demonstrando o produto. http://www.usbgeek.com/prod_detail.php?pr od_id=0504
More About: Pica , Apel

Computador Quantico
2007-03-22 17:39:00
A canadense D-Wave apresentou em 13 de fevereiro deste ano um protótipo funcional do que pode vir a ser o primeiro computador quântico comercial do mundo. O lançamento está previsto para 2008. O protótipo do chip quântico tem 16 qubits (bits quânticos), mas a D-Wave promete chegar aos 32 qubits no final de 2007, depois a 512 qubits e atingir os 1.024 qubits até o final de 2008. O chip quântico,

Template de Relatorio
2007-03-22 16:34:00
Galera quem nunca teve o problema das abas de um relatorio ou mesmo outras templates que quando vc executa ele aparece as frames uma por cima da outra. A solução é entrar na primeira aba. Usando o seguinte comando. apply "mouse-select-click":U to im-pg-sel in frame f-relat.
More About: Template , Temp

Rato USB
2007-03-22 14:07:00
Galera essa é pra quem gosta de animais de estimação rssrsrsrsr... veja esse acessório usb muito interessante.

Armagedon Hub
2007-03-22 13:59:00
Galera achei um site com coisas bizarras para PC. Vou postar aqui. Esse é um hub usb. No caso de nervoso abra a tampa e aperte ele vai soar uma sirene muito alta.
More About: Arma

Nosso Button
2007-03-17 15:53:00
Para adicionar nosso botão em seu blog utilize o código abaixo <#a href="http://progressetecnologia.blogspot .com/"> <#img src="http://bp1.blogger.com/_Ax7zVDLWbEc/ RfrUShYHgqI/AAAAAAAAAGE/BBQ7kwb3yMM/s400/ button_progress.png" alt="" border="0"> <#/a> Ps.: Retirar o caracter #
More About: Button

Formatação
2007-03-16 19:05:00
Quem precisar mostrar números em formato americano, deve utilizar o seguinte comando: SESSION:NUMERIC-FORMAT = "AMERICAN". Com este comando, os números aparecerão como o exemplo: 5,999.00

Atributos de Criação de campos
2007-03-16 13:33:00
MANDATORY Campo nao aceitará valores nulos(?). EXTENT quer dizer que o campo será um array de tantas casas . PS.: Por padrao um banco de dados nao deve possuir campos array, se isso for necessário deve ser criada uma tabela filho com tais valores.
More About: Campos

Tipos de Indice
2007-03-16 13:32:00
PRIMARY, que quer dizer que será o índice principal, padrão. UNIQUE, que quer dizer que não poderá conter o mesmo valor no campo que você especificar, portanto será obrigatoriamente único. WORD INDEX, que quer dizer que se você especificar um campo string, este campo será ordenado pelas palavras que este string conter.

Reuso de código por referência
2007-03-14 18:27:00
Todos os SmartObjects são instâncias run-time persistentes de programas Progress. É desnecessário copiar fisicamente o código fonte 4GL do objeto para um SmartContainer. Um desenvolvedor pode dar manutenção a todas as instâncias de um determinado SmartObject alterando um único arquivo. Este ganho em manutenção é possível porque o SmartContainer apenas referencia os objetos que contém.
More About: Refer

Apresentando o ADM
2007-03-13 18:51:00
O ADM (Application Development Model) é um novo método para desenhar e construir aplicações. Ela possibilita a rápida construção de aplicações a partir do reuso de objetos e da fácil manutenção de componentes e, consequentemente, de sistemas.
More About: Resent