Progress e Tecnologia

Novo Site

2009-02-02T03:41:00.000-08:00

Bom Dia Pessoal,Hoje venho aqui pra dar uma boa noticia.Agora temos um novo forum de Progress e o mais importante com muito conteudo e qualidade.Veja no Link abaixo :http://www.4each.com.br

Auxilio para usar comandos Word e Excel

2008-07-24T12:04:00.000-07:00

Pessoal aprendi algo muito legal e quero mandar pra vocês. Sabe quando precisamos saber algum comando OLE de excel, word ou algo assim pra usar no progress, vejam isso. Tem um aplicativo que vem na instalação chamado 'COM Object Viewer': (Ele também esta no ProTools) bin\proobjvw.exe Nele, procura e abre a biblioteca Ole do word, excel etc: C:\Arquivos de

Excel

2008-07-14T11:45:00.000-07:00

Segue alguns comandos para gerar excel com o Progress.DEF VAR excelAPP AS COM-HANDLE NO-UNDO./* Cria uma nova Planilha */CREATE "Excel.Application" excelAPPexcelAPP:VISIBLE = FALSE. /* Nao mostra a planilha */excelAPP:Workbooks:Add. /* Adiciona uma pasta de trabalho com 3 planilhas */excelAPP:ActiveSheet:PageSetup:Orientation = 2. /* Orientacao da impressao: 1 - Portrait, 2 Landscape */excelAPP:

Excel

2008-06-20T11:50:00.000-07:00

excelAPP:Range("A1"):VALUE = "Teste". /* Adiciona a palavra TESTE … celula A1 */excelAPP:Range("A1"):Font:NAME = "Courier New". /* Aplica a fonte */excelAPP:Range("A1"):Font:SIZE = 20. /* Aplica o tamanho 20 de fonte */excelAPP:Range("A1"):Font:bold = TRUE. /* Aplica Negrito */chExcelApplication:Range("C5"):SELECT.chExcelApplication:ActiveCell:Characters(1,3):FONT:bold = YES. /*Aplica Negrito

Excel

2008-05-15T11:52:00.000-07:00

/* Inserindo figuras no excel */excelAPP:Range("A1"):SELECT.excelAPP:ActiveSheet:Pictures:Insert("C:\temp\imagem.bmp").excelAPP:ActiveSheet:Pictures("Picture 1"):Select. /* Seleciona a figura */excelAPP:Selection:ShapeRange:LEFT = 80.5. /* Posiciona na horizontal em 80.5 */excelAPP:Selection:ShapeRange:TOP = 200.5. /* Posiciona na vertical em 200.5 */excelAPP:Selection:ShapeRange:Width = 115.75.

Problemas de acentuação

2008-05-15T04:06:00.000-07:00

Tivemos vários problemas de acentuação quando damos um comando "disp" para um arquivo texto. Neste caso, estamos usando o comando CONVERT TARGET 'iso8859-1'.Exemplo:Define stream s-saida.OUTPUT STREAM s-saida TO c:\teste.txt CONVERT TARGET 'iso8859-1'.

Formatação

2008-04-16T11:05:00.000-07: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

Excel

2008-03-01T12:54:00.000-08:00

Código em 4gl para identificar a versão do excel:DEF VAR chExcelApplication AS COM-HANDLE NO-UNDO.CREATE "Excel.Application" chExcelApplication.IF chExcelApplication:version < "12.0" THEN MESSAGE "Office XP ou anterior." VIEW-AS ALERT-BOX INFO BUTTONS OK.ELSE MESSAGE "Office 2007 ou posterior." VIEW-AS ALERT-BOX INFO BUTTONS OK.RELEASE OBJECT chExcelApplication.

Dia da semana

2008-02-01T10:00:00.000-08:00

Forma de descobrir qual o dia da semana de uma data.define variable dia as character no-undo.assign dia = "Domingo;Segunda;Terca;Quarta;Quinta;Sexta;Sabado".message "Hoje é" entry(weekday(today), dia, ";") view-as alert-box.

Criando arquivos .doc

2008-01-02T09:40:00.000-08:00

define var ch-Word as component-handle no-undo.define var ch-Documento as component-handle no-undo.define var ch-FormField as component-handle no-undo.define var ch-Range as component-handle no-undo.Create "Word.Application" ch-Word. ch-Word:ScreenUpdating = yes.ch-Word:WindowState = 1.ch-Word:Visible = yes.ch-Word:System:Cursor = 0.ch-Documento = ch-Word:Documents:Add("c:\temp\pro_word.doc").

Renomear Arquivos de um diretório

2007-12-23T05:56:00.000-08:00

Programinha de exemplo para renomear todos os arquivos de um diretório:DEF VAR c-texto AS CHAR FORMAT "x(60)" NO-UNDO.DEF VAR c-diretorio AS CHAR NO-UNDO.DEF VAR c-caminho AS CHAR NO-UNDO.DEF VAR c-comando AS CHAR NO-UNDO.DEF VAR c-arq-orig AS CHAR FORMAT "x(60)" NO-UNDO.DEF VAR c-arq-dest AS CHAR FORMAT "x(60)" NO-UNDO. ASSIGN c-diretorio = "c:\temp\" c-comando = "dir /b " + c-diretorio + "*.bmp

For each diferente

2007-11-01T11:19:00.000-07:00

Uma forma diferente de fazer for each.FOR EACH ITEM FIELDS(it-codigo class-fisc descricao-1 descricao-2 un peso-liquido) WHERE NOT CAN-FIND (PRODUTOS WHERE produtos.procodi = item.it-codigo) NO-LOCK:

Excel

2007-09-15T11:48:00.000-07:00

/* Seleciona toda a planilha e tira as linhas de grade*/excelAPP:ActiveWindow:LargeScroll(0, 0, -1, 0).excelAPP:Cells:Select. /* Seleciona todas a celulas da planilha ativa */excelAPP:Selection:FONT:SIZE = 8. /* Modifica a fonte da planilha toda para 8 */excelAPP:Selection:Interior:ColorIndex = 2. /* Modifica a cor de fundo para branco */excelAPP:Selection:Interior:Pattern = 1.excelAPP:

Chamadas dinâmicas de Rotinas

2007-06-26T04:55:00.000-07: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

Índices

2007-06-12T09:26:00.001-07: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-30T15:08:00.000-07: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' &thenfor each customer fields({&campos}) no-lock: display {&campos} with title 'Progress

PROCESSADORES

2007-05-30T14:38:00.000-07: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.{&p-exemplo}

Trabalhando com Word

2007-04-13T09:02:00.000-07: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-30T10:04:00.001-07:00

OUTPUT TO c:\clientes.csv. FOR EACH emitente NO-LOCK: EXPORT DELIMITER ";" nome-emit cgc SKIP.END.OUTPUT CLOSE.

Gerar arquivo com o comando PUT.

2007-03-30T10:02:00.001-07: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.

Jogar direto para uma Porta

2007-03-30T10:01:00.000-07:00

OUTPUT TO LPT1.DISPLAY "Jogar para a LPT1".OUTPUT CLOSE.

Jogar direto para a Impressora Padrao

2007-03-30T10:00:00.000-07:00

OUTPUT TO PRINTER.DISPLAY "Jogar para a Impressora Padrao".OUTPUT CLOSE.

Gerar arquivo sem definicao de STREAM

2007-03-30T05:14:00.000-07:00

OUTPUT TO c:\clientes.txt. FOR EACH emitente NO-LOCK: DISP nome-emit cgc SKIP.END.OUTPUT CLOSE.

Numero dentro de String

2007-03-27T05:31:00.002-07: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" view-as

Dias após janeiro

2007-03-27T05:31:00.001-07: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-27T04:25:00.000-07: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-22T09:44:00.000-07: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?prod_id=0504

Computador Quantico

2007-03-22T09:39:00.000-07: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-22T08:34:00.000-07: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.

Rato USB

2007-03-22T06:07:00.000-07:00

Galera essa é pra quem gosta de animais de estimação rssrsrsrsr... veja esse acessório usb muito interessante.

Porta Caneta Muito interessante

2007-03-22T06:06:00.000-07:00

Armagedon Hub

2007-03-22T05:59:00.000-07: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.

Nosso Button

2007-03-17T07:53:00.000-07:00

Para adicionar nosso botão em seu blog utilize o código abaixo <#a href="http://progressetecnologia.blogspot.com/"> <#img src="http://2.bp.blogspot.com/_Ax7zVDLWbEc/RfrUShYHgqI/AAAAAAAAAGE/BBQ7kwb3yMM/s400/button_progress.png" alt="" border="0"> <#/a>Ps.: Retirar o caracter #

Atributos de Criação de campos

2007-03-16T05:33:00.001-07: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.

Tipos de Indice

2007-03-16T05:32:00.001-07: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-14T10:27:00.000-07: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.

Apresentando o ADM

2007-03-13T10:51:00.000-07: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.

Apresentando o ACE

2007-03-13T10:49:00.000-07:00

O ACE (Application Component Environment) é a ferramenta que permite a construção de aplicações na versão 8. Ela acrescenta ao UIB diversas características como o SMARTOBJECT palette, Wizards, Cue Cards, Progress Advisor e novos ‘Include files’.

SCREEN-VALUE

2007-03-13T10:45:00.000-07:00

Contém o valor em tela de um componente (contido no screen buffer). Não necessariamente é o valor real armazenado no widget."variavel(ou tabela.campo)":SCREEN-VALUE IN FRAME {&FRAME-NAME} = "variavel(tabela.campo)".

UIB

2007-03-13T10:37:00.000-07:00

O User Interface Builder é a ferramenta de programação visual do ambiente de desenvolvimento Progress.O código gerado pelo UIB apresenta as seguintes seções: - Definitions - Main Block - Triggers - Procedures - Functions

VISIBLE

2007-03-13T10:28:00.000-07:00

Controla se o widget está ou não visível. Seu tipo é Lógico.VISIBLE [ IN BROWSE browse-name ]

Lista Propath

2007-03-13T09:37:00.000-07:00

define variable diretorios as character view-as selection-list inner-chars 50 inner-lines 10 sort. define frame f-diretorios diretorios with title 'Diretorios do Propath' centered row 5. diretorios:list-items = propath. prompt diretorios with frame f-diretorios.

EMPTY

2007-03-13T05:23:00.000-07:00

Este comando limpa TODOS os registros da tabela temporária: EMPTY TEMP-TABLE tabela.

BLANK

2007-03-13T05:17:00.000-07:00

O comando BLANK permite que os caracteres digitados não ficam visíveis ao usuário, pode ser usados para solicitar a entrada de senhas:DEF VAR c-senha AS CHAR .UPDATE fil-senha BLANK VALIDATE (c-senha = "password" , " Senha Incorreta! ").

Includes

2007-03-12T10:20:00.000-07:00

Pode-se agregar a um programa trechos de código escritos porções espalhadas por vários arquivos. Para tal, basta escrever o trecho de código que se deseja incluir no programa, salvá-lo e, no programa que em se deseja utilizá-lo, fazer referência a ele usando a seguinte sintaxe: { [ … ]}Os parâmetros são opcionais (sua existência é determinada pelo programador e pelo progblema que se está

Execução de Procedures e Programas Externos

2007-03-12T10:15:00.000-07:00

Ø RUNUtilizado para executar internal procedures (que fazem parte do mesmo programa de onde a chamada é feita), external procedures (procedures de programas externos) ou até outros programas.

Traduzir Pagina

2007-03-11T07:05:00.000-07:00

TranslateVeja o blog de Progress em Ingles

OS-DRIVES

2007-03-10T05:34:00.000-08:00

Retorna uma Lista dos drives disponíveis na sessão atual.define variable drives as character view-as combo-box. form drives with frame f-drives. assign drives:list-items = os-drives. update drives with frame f-drives.

ETIME

2007-03-10T02:46:00.000-08:00

Este comando retorna o tempo em milissegundos a partir do início da sessão Progress.Se passado um valor Lógio Positivo (YES ou TRUE) à função o seu timer é zerado. DEF VAR d-segundos AS DEC. /* variavel para mostrar o tempo em segundos */ pause 0 before-hide. ETIME(yes). /* Zera o Timer */ for each (tabela) :DISP (tabela) with 1 columns.end. ASSIGN d-segundos = ETIME / 1000. /* transformando

Sequences

2007-03-09T08:23:00.000-08:00

Você deve criar a tua sequencia, para você salvar teu registro você faz assim:ASSIGN tabela.campo = NEXT-VALUE(sua-sequencia). Assim toda vez que gravar um registro e atribuir a ele o novo valor da sequencia.Para você mostrar o valor corrente da sequencia:DISP CURRENT-VALUE(sua-sequencia).

Querys

2007-03-09T08:15:00.001-08:00

Querys são outra forma oferecida pelo Progress para se trabalhar com tabelas. As diferenças básicas entre estas e o comando For são: · querys não delimitam um bloco; a abertura e o fechamento de uma query são comandos independentes, que não delimitam uma transação; · uma query aberta não significa um

Manipulação de registros

2007-03-09T08:14:00.003-08:00

Ø Create . Cria um novo registro na tabela associada ao buffer. Ø Delete . Exclui um registro da tabela associada ao buffer. Ø Find where . Busca um registro na tabela especificada com o filtro de

Comandos Condicionais

2007-03-09T08:14:00.001-08:00

Ø if then else A execução de um bloco fica condicionada a uma expressão. Ø case Quando, a partir da avaliação de uma expressão, tem-se múltiplas possibilidades de execução (e não somente duas, como no comando “if”), utiliza-se o comando case. Obs.: O comando suporta dois encerramentos de bloco

Comandos de bloco e de repetição

2007-03-09T08:13:00.001-08:00

Ø End Indica o fim de um bloco iniciado com um PROCEDURE, FUNCTION, DO, REPEAT, CASE ou FOR EACH. No caso de procedures e funções, pode-se encerrar também com “End Procedure.” ou “End Function.”. Ø Do Basicamente, agrupa comandos em um único bloco. O bloco aberto por este comando deve ser encerrado por

Comandos de Entrada/Saída

2007-03-08T08:50:00.000-08:00

Há varios comandos em Progress que podem ser utilizados para efetuar operações de entrada/saída. Os principais:DisplayUpdatePutMessage

Parâmetros

2007-03-08T08:49:00.000-08:00

Procedures e funções podem receber parâmetros (Input Parameters) e devolver resultados através dos mesmos parâmetros pelos quais recebem (Output Parameters) ou por outros parâmetros (Input-Output Parameters). Da mesma forma que variáveis comuns, parâmetros tem um tipo (que pode ser herdado de um campo de tabela ou definido a partir dos tipos básicos).

Tabelas Temporárias

2007-03-08T08:45:00.000-08:00

Pode-se definir uma tabela pelo tempo de vida de um programa, ou mesmo para trocar informações entre programas. Para tal, deve-se definir a mesma. A sintaxe para definição de temp-tables é bastante abrangente, permitindo que se defina tabelas auxiliares com todas as características encontradas em tabelas criadas via Dicionário de Dados. Exemplos: DEFINE TEMP-TABLE tt-funcao LIKE

Buffers

2007-03-08T08:26:00.000-08:00

Um buffer é uma referência a uma tabela pertencente a um banco de dados. Qualquer programa escrito em Progress sempre tem, por default, tantos buffers pré-definidos quantas são as tabelas pertencentes aos bancos aos quais está conectado o client Progress – um para cada tabela. Se temos uma tabela de nome CLIENTE em um banco ao qual estamos conectados, então temos o buffer CLIENTE

Propath

2007-03-08T08:20:00.001-08:00

Progress possui algumas variáveis de ambiente. A mais importante para quem desenvolve software utilizando Progress é o propath. Esta variável contém os diretórios, separados por vírgulas, que a sessão Progress enxerga quando tem que procurar um programa para execução. A importância de conhecê-la é simples: se você coloca um programa em um diretório que não está presente

Conexão a bancos Progress

2007-03-08T08:18:00.000-08:00

Mono-usuário Uma conexão mono-usuário permite a somente um único usuário acessar a(s) base(s) conectada(s) desta forma. O usuário monopoliza o(s) banco(s) de dado(s). Multi-usuário Progress, no entanto, é destinado ao desenvolvimento de aplicações baseado na arquitetura client-server (um programa cliente faz uma

ROUND

2007-03-08T07:52:00.000-08:00

Este comando é usado para arredondamento, o número depois da vírgula na operação informa quantas casas decimais o resultado terá. ASSIGN d-total = ROUND(300 / 15.33,1).O resultado com o uso do ROUND dá '19,60', sem o camando daria '19,56'.

Cria Diretório

2007-03-06T08:09:00.000-08:00

Para criar uma pasta durante uma execução:OS-CREATE-DIR 'Nome_diretorio'.

PROCESS EVENTS

2007-03-06T08:06:00.000-08:00

O comando permite a execução de outros eventos a qualquer momento dentro de um looping, no bloco do FOR EACH por exemplo:FOR EACH tabela:PROCESS EVENTS.DISP tabela.END.

Contar Registros

2007-03-06T07:55:00.000-08:00

Para contar a quantidade de registros usando queryDEF QUERY qry FOR customer FIELDS () SCROLLING. OPEN QUERY qry PRESELECT EACH customer NO-LOCK. DISPLAY NUM-RESULTS("qry").

Combo-Box

2007-03-06T07:48:00.000-08:00

Alimentar: combo:add-first(valor1,valor2) in frame {&frame-name} .Zerar: combo:LIST-ITEMS in frame {&frame-name} = "".

Retira Espaços em Branco

2007-03-06T07:45:00.000-08:00

O comando abaixo retira do campo/variável os espaçoes em branco: disp trim(campo).

Copiando e Colando no Excel

2007-03-06T07:43:00.000-08:00

PROCEDURE copia-linha. /*insere uma linha na aba 1*/ chWorkSheet:Range("A" + STRING(i-linha) + ":R" + STRING(i-linha)):INSERT. RELEASE OBJECT chWorksheet. /*Seleciona a aba 2*/ chWorkSheet = chExcelApplication:Sheets:ITEM(2). chWorkSheet:SELECT(). /*Posiciona e copia o conteúdo da coluna A linha 1 até a coluna R linha 1*/ chWorkSheet:Range("A1" + ":R1") :SELECT.

Copiando Arquivos

2007-03-06T07:30:00.000-08:00

OS-COPY VALUE("F:\TEMP\arquivo_origem.txt") VALUE("F:\temp_aux\arquivo_destino.txt").

Sequences

2007-03-06T07:29:00.000-08:00

Para usar uma sequence utilize o comando abaixo.assign tabela.campo = next-value(sua-sequencia). Esse comando pega o valor atuao joga no campo e incrementa o valor da sequencePara mostrar o valor corrente da sequencia,disp current-value(sua-sequencia).

Dados Compartilhados

2007-03-06T04:26:00.000-08:00

Usar o comando DEFINE NEW SHARED na primeira procedure onde você se referencia a uma variável, frame, buffer, ou stream compartilhada. Nos procedures subsequentes onde você se referencia a dados compartilhados, você deve usar o comando DEFINE SHARED.DEFINE NEW SHARED VARIABLE FRAME BUFFER STREAM WORKFILEDEFINE SHARED VARIABLE FRAME BUFFER STREAM WORKFILE

Listando diferenças de Tabelas

2007-03-05T11:59:00.000-08:00

OBS.: {1} é o nome do arquivo onde será gerada a listaDEF VAR c-diferencas AS CHAR.DEF STREAM s-diferencas.OUTPUT STREAM s-diferencas TO c:\temp\{1} APPEND.BUFFER-COMPARE p-table TO p-old-table SAVE c-diferencas.EXPORT STREAM s-diferencas c-diferencas.OUTPUT STREAM s-diferencas CLOSE.

Código Limpo

2007-03-05T11:58:00.000-08:00

Pessoal no trecho abaixo vamos mostrar uma maneira de tirar aqueles milhares de if avail do código. Claro que isso só é util em alguns casos. Por exemplo um create acompanhado de um assign grande. Veja o trecho de código abaixo.create movto-ggf.assign movto-ggf.cod-versao-integracao = 001 movto-ggf.nr-ord-produ = ord-prod.nr-ord-prod when avail ord-prod movto-ggf.nr-req-sum

Operadores Pouco usados

2007-03-05T10:57:00.000-08:00

Operadores Pouco usadosEQ Igual a ou =NE Diferente de ou <>GT Maior que ou >GE Maior ou igual a ou >=LT Menor que ou

Funções de Data

2007-03-05T10:56:00.000-08:00

Descobrindo o ano de uma dataDISP YEAR(TODAY).Descobrindo o mes de uma dataDISP MONTH(TODAY).Descobrindo o dia de uma dataDISP DAY(TODAY).

Pegando quem chamou

2007-03-05T10:08:00.000-08:00

Para saber qual programa ou procedure chamou seu programa utilize o comando abaixo MESSAGE program-name(1) VIEW-AS ALERT-BOX INFO BUTTONS OK.

Operador EQ

2007-03-05T09:44:00.000-08:00

As vezes encontramos esse operador em uso e nao sabemos o que é apesar de ser bem simples.if 1 EQ 0 thenEQ - é uma abreviação de equals, ou seja é o mesmo de usar o '='

Acentuação no WebSpeed

2007-03-05T09:09:00.001-08:00

Maneiras de Resolver1) A simples é especificando o código de página no ini do serviço do webspeed. Ponha o ISO-8859-1. Tcharam, seus problemas se acabaram. Pode usar acentos à vontade.2) A demorada é usar o CODEPAGE-CONVERT3) Recomendado pelo W3C e semânticamente correto e compatível com qualquer navegador em qualquer lugar do mundo... Use os códigos XHTML para caracteres especiais...

Extensões geradas Progress

2007-03-05T08:16:00.000-08:00

Principais Extensões dos Arquivos Gerados pelo Progress .p Procedures e Triggers de Banco de Dados .i Includes .r Programas compilados .db Base de Dados .bi Before Image da Base de Dados .ai After image da Base de Dados .lk Lock da base da dados .lg Registro das todas as ocorrências relativas a uma base

O que é PROGRESS ?

2007-03-05T08:11:00.000-08:00

Muitos Perguntam o que é Progress, entao achei melhor colocar uma definição simples que achei por ai.Progress é um ambiente de desenvolvimento baseado na tecnologia cliente/servidor que visa oferecer soluções informatizadas a problemas das inúmeras áreas de negócio existentes. Para atingir tal meta, o Ambiente de Desenvolvimento de Aplicações Progress (ADE) oferece um completo e integrado

Pegar usuário corrente no EMS

2007-03-04T07:06:00.000-08:00

Pegar usuário corrente no EMSDEFINE NEW GLOBAL SHARED VAR c-seg-usuario AS CHAR NO-UNDO.

Identificar Click CheckBox

2007-03-03T06:11:00.000-08:00

O código abaixo retorna qual checkbox foi selecionado.script language='javascript'function checkClick(objeto) { switch (objeto.name) { case 'c1': alert('1: ' + objeto.name + ' = ' + objeto.checked); break; case 'c2': alert('2: ' + objeto.name + ' = ' + objeto.checked); break; default: alert('0: ERRO ' + objeto.name + ' = ' + objeto.checked);

Colabore Conosco

2007-03-03T05:54:00.000-08:00

Você gostaria de ser autor no mais novo blog de Progress da net ?Estamos selecionando pessoas para fazer parte da nossa equipe e ajudar a comunidade. Para participar mande 3 dicas para fdantasdeoliveira@gmail.com. Entraremos em contato assim que possivel.Ja somos 6 editores desde o lancamento.Participe voce tambem. Mande-nos os artigos.Abraco Galera

Identificar ano Bisexto

2007-03-02T07:29:00.000-08:00

Identificar ano BisextoIF YEAR(TODAY) MOD 4 = 0 THENDO: MESSAGE 'Esse Ano é bisexto' VIEW-AS ALERT-BOX INFO BUTTONS OK.END.Contribuição de Edgar Junior Datasul Campinas

Otimizaçao de Codigo - VI

2007-03-01T10:34:00.000-08:00

Comparando Strings Para comparação múltipla de strings use os comandos lookup, can-do ou index. Exemplo: Usar: CAN-DO("SP,RJ,DF",estado) /* esse é o mais eficiente*/ LOOKUP(estado,"SP,RJ,DF") <> 0 Ao invés de IF estado = "SP" OR estado = "RJ" OR estado = "DF" THEN

Otimizacao de Codigo - V

2007-03-01T07:57:00.001-08:00

Otimizações de loop Tirar trechos que não são alterados em um loop causa melhorias de performance bem visíveis. Veja o exemplo abaixo Em vez de: FOR EACH clientes NO-LOCK: Assign nome = ‘Jundiai’. IF cliente.cidade = nome THEN DISP cliente.nome-cliente. END. Usamos Assign nome = ‘Jundiai’. FOR EACH clientes NO-LOCK: IF cliente.cidade = nome

Otimizacao de Codigo - IV

2007-03-01T07:54:00.001-08:00

Redução de força. Há vários exemplos em que operações mais caras podem ser substituídas por operações mais baratas. Por exemplo, para calcular o comprimento da concatenação de duas cadeias, podemos somar os comprimentos das duas. Veja exemplos abaixo: No trecho abaixo a diferença é que a concatenação da string q é muito pesada é desnecessária. Em vez de LENGTH(s1 + s2). usamos

Otimizacao de Codigo - III

2007-03-01T07:52:00.000-08:00

Eliminação de código morto. Código morto é todo trecho que nunca vai ser executado, trechos em lugares impossíveis de serem alcançados. Alguns exemplos seguem abaixo. Trecho após o retorno de uma função. FUNCTION calcula RETURNS CHARACTER(): Def var a as char. RETURN string(10 + 20). /* Function return value. */ Assign a = a + 1. /* Essa linha nunca vai

Otimizacao de Codigo - II

2007-03-01T06:00:00.000-08:00

Uma boa forma de otimizar um for each numa tabela de muitos campos, quando você tem uma seleção que não se adequa a um nenhum indice, é a utilização do comando fields. Ele trará no for each somente os campos da tabela que foram especificados, por isto, é imprescindível que qualquer campo que você vá utilizar no programa esteja dentro do fields. Vou mostrar um exemplo:FOR EACH tabela1 FIELDS(

Palavras Reservadas - Arquivo UltraEdit

2007-02-28T09:27:00.000-08:00

/L20"Progress 9.1D" Nocase Escape Char = ~ Block Comment On = /* Block Comment Off = */ File Extensions = p i w/Delimiters = @!()\/[]{}:;'"<>,.?/Function String 1 = "PROCEDURE ^(*^):"/Function String 2 = "PROCEDURE ^(*^)."/Function String 3 = "^(FUNCTION *^) RETURN*"/Marker Characters = "{}"/Indent Strings SOL = "DO" "THEN DO" "ELSE DO" "OTHERWISE DO" "FOR" "THEN FOR" "ELSE FOR" "OTHERWISE FOR"

DISABLE TRIGGERS

2007-02-28T05:50:00.000-08:00

As vezes você precisa rodar um programa de acerto por exemplo, e não quer que as triggers da tabela sejam disparadas durante a execução. Para isto, existe um comando:Ex:DISABLE TRIGGERS FOR LOAD OF nome-da-tabela.

Apresentação - Lucimara

2007-02-28T05:30:00.000-08:00

Antes de sair postando dicas, o Dantas sugeriu que eu me apresentasse... sendo assim, segue:Lucimara - Tecnóloga em Informática, formada pela Unicamp em 2006. Tenho 25 anos, e nos últimos quatro anos estou atuando com desenvolvimentos em Progress, com produtos da Datasul (Magnus, EMS, HCM). Interesse especial por Gerenciamento de Projetos, Técnicas de documentação e Motivação de Equipes,

Otimização de Código - I

2007-02-27T05:47:00.000-08:00

Eliminação de sub-expressões comuns. Suponha que a mesma expressão ocorre mais de uma vez em um trecho de programa. Se as variáveis que ocorrem na expressão não tem seus valores alterados entre as duas ocorrências, é possível calcular seu valor apenas uma vez.Exemplo...Assign x = a + b....Assign y = a + b....Se os valores de a e de b não são alterados, é possível guardar o valor da

Comando Connect

2007-02-27T04:00:00.000-08:00

Entendendo o comando connect e seus parametros

Encontrar um Zoom

2007-02-27T03:20:00.000-08:00

O padrão de nomenclatura do zoom do EMS 2.04 é:• "z" + "00" + "dumpname"Onde: z é o prefixo de zoom, 00 é a versão do objeto, e o dumpname é o nome físico da tabela.Exemplos:• mgcad.cliente = ad036 ==> z01ad036• mgcad.repres = ad229 ==> z01ad229

SELECTION-LIST

2007-02-27T02:29:00.000-08:00

Você sabe como tirar a seleção de um selection list ?A maneira mais facil é a seguinteselList:SCREEN-VALUE = ?.

Página Web

2007-02-22T13:44:00.000-08:00

Para chamar página da web :

Aplicações externas

2007-02-22T09:38:00.000-08:00

Para executar aplicações externas é utilizado o comando OS-COMMAND como segue abaixo

Executando comandos SQL

2007-02-22T09:28:00.000-08:00

Abrir arquivo PPT

2007-02-22T09:25:00.000-08:00

Testando o WebSpeed

2007-02-22T09:24:00.000-08:00

Testar se o Webspeed está no ar é simples.É só digitar a URL da sua aplicação no Internet Explorer com o final "Ping" e pronto esse endereço retorna uma página com a configuração do broker. Abaixo segue um exemplo.http:///scripts/cgiip.exe/WService=/Ping