tag:blogger.com,1999:blog-572007794411184205Mon, 23 Sep 2024 00:26:20 +0000ProgresstipsSourcecodePerformanceTecnologiaWebSpeedOfficeTutoriaisstreamusbAPI - WindowsAstronomiaEMSHTMLImpressoraIndicesInuteisJavaScriptTriggerUPC - DatasulprinterCSSColaboreEXTENTForumHCMMANDATORYPalavras ReservadasPrimarySQLWordWord Indexdicasfor eachinteressantelinklpt1picador de papelquanticosuperprocessadoresDicas de Progress e novidades de Tecnologia Tips and Tricks of Progress and WebSpeed. Samples Sources Nao achou o que encontrava ? Poste nos comentarios e um de nossos editores postaram um artigo sobre o assunto.http://progressetecnologia.blogspot.com/noreply@blogger.com (Unknown)Blogger125125tag:blogger.com,1999:blog-572007794411184205.post-2601109831256085887Mon, 02 Feb 2009 11:41:00 +00002009-02-02T03:43:08.753-08:00for eachForuminteressantelinkProgressBom 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.brhttp://progressetecnologia.blogspot.com/2009/02/novo-site.htmlnoreply@blogger.com (Unknown)2tag:blogger.com,1999:blog-572007794411184205.post-2886695099538335075Thu, 24 Jul 2008 19:04:00 +00002008-07-25T04:06:20.122-07:00Pessoal 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 http://progressetecnologia.blogspot.com/2008/07/auxilio-para-usar-comandos-word-e-excel.htmlnoreply@blogger.com (Lucimara)4tag:blogger.com,1999:blog-572007794411184205.post-4814187972680806480Mon, 14 Jul 2008 18:45:00 +00002008-07-24T19:01:24.527-07:00Segue 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 */http://progressetecnologia.blogspot.com/2008/07/excel.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-4355920305015454080Fri, 20 Jun 2008 18:50:00 +00002008-07-24T11:52:50.633-07:00excelAPP: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 http://progressetecnologia.blogspot.com/2008/06/excel.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-8491006841027673727Thu, 15 May 2008 18:52:00 +00002008-07-24T11:54:22.126-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. http://progressetecnologia.blogspot.com/2008/05/excel.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-8083244966420389881Thu, 15 May 2008 11:06:00 +00002008-07-25T04:10:46.359-07:00Tivemos 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'.http://progressetecnologia.blogspot.com/2008/05/problemas-de-acentuao.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-4944095789857177005Wed, 16 Apr 2008 18:05:00 +00002008-07-24T19:02:13.224-07:00Quem 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.00http://progressetecnologia.blogspot.com/2007/03/formatao.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-4009939971347933320Sat, 01 Mar 2008 20:54:00 +00002008-07-24T12:42:22.159-07:00Có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.http://progressetecnologia.blogspot.com/2008/03/excel.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-4627819350523327171Fri, 01 Feb 2008 18:00:00 +00002008-07-24T19:03:08.084-07:00ProgressSourceForma 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.http://progressetecnologia.blogspot.com/2007/03/dia-da-semana.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-8269471420040493248Wed, 02 Jan 2008 17:40:00 +00002008-07-24T19:04:11.130-07:00API - WindowscodeProgressSourcetipsdefine 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").http://progressetecnologia.blogspot.com/2007/03/criando-arquivos-doc.htmlnoreply@blogger.com (Lucimara)2tag:blogger.com,1999:blog-572007794411184205.post-6620685800852722682Sun, 23 Dec 2007 13:56:00 +00002008-07-24T19:05:23.529-07:00Programinha 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 + "*.bmphttp://progressetecnologia.blogspot.com/2007/03/renomear-arquivos-de-um-diretrio.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-463655166239811716Thu, 01 Nov 2007 18:19:00 +00002008-07-24T11:45:26.412-07:00Uma 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:http://progressetecnologia.blogspot.com/2007/11/for-each-diferente.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-3207463504791546673Sat, 15 Sep 2007 18:48:00 +00002008-07-24T11:50:02.076-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.http://progressetecnologia.blogspot.com/2007/09/excel.htmlnoreply@blogger.com (Lucimara)0tag:blogger.com,1999:blog-572007794411184205.post-2110543756395499293Tue, 26 Jun 2007 11:55:00 +00002007-06-26T07:48:57.288-07:00dicasProgress 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 http://progressetecnologia.blogspot.com/2007/06/chamadas-dinmicas-de-rotinas.htmlnoreply@blogger.com (Unknown)13tag:blogger.com,1999:blog-572007794411184205.post-8189185597996182902Tue, 12 Jun 2007 16:26:00 +00002007-06-12T09:26:31.168-07:00IndicesPerformance 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 http://progressetecnologia.blogspot.com/2007/06/ndices.htmlnoreply@blogger.com (Unknown)3tag:blogger.com,1999:blog-572007794411184205.post-6808991509514562192Wed, 30 May 2007 22:08:00 +00002007-05-30T15:18:12.767-07:00Diretivas 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' &amp;thenfor each customer fields({&campos}) no-lock: display {&campos} with title 'http://progressetecnologia.blogspot.com/2007/05/diretivas-preprocessadas.htmlnoreply@blogger.com (Fernanda)0tag:blogger.com,1999:blog-572007794411184205.post-8928390884458840925Wed, 30 May 2007 21:38:00 +00002007-05-30T15:05:46.178-07:00ProgresstipsDe 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}http://progressetecnologia.blogspot.com/2007/05/processadores.htmlnoreply@blogger.com (Fernanda)0tag:blogger.com,1999:blog-572007794411184205.post-3272849043330820043Fri, 13 Apr 2007 16:02:00 +00002007-04-13T09:05:22.132-07:00OfficeWordOlá 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().http://progressetecnologia.blogspot.com/2007/04/trabalhando-com-word.htmlnoreply@blogger.com (Unknown)0tag:blogger.com,1999:blog-572007794411184205.post-3436661486621816575Fri, 30 Mar 2007 17:04:00 +00002007-03-30T10:04:43.795-07:00ProgressstreamOUTPUT TO c:\clientes.csv. FOR EACH emitente NO-LOCK: EXPORT DELIMITER ";" nome-emit cgc SKIP.END.OUTPUT CLOSE.http://progressetecnologia.blogspot.com/2007/03/gerar-arquivos-csv.htmlnoreply@blogger.com (Unknown)0tag:blogger.com,1999:blog-572007794411184205.post-3158364131943001188Fri, 30 Mar 2007 17:02:00 +00002007-03-30T10:04:08.072-07:00streamtipsDEF 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.http://progressetecnologia.blogspot.com/2007/03/gerar-arquivo-com-o-comando-put.htmlnoreply@blogger.com (Unknown)0tag:blogger.com,1999:blog-572007794411184205.post-8751723093827546984Fri, 30 Mar 2007 17:01:00 +00002007-03-30T10:02:25.887-07:00Impressoralpt1printerOUTPUT TO LPT1.DISPLAY "Jogar para a LPT1".OUTPUT CLOSE.http://progressetecnologia.blogspot.com/2007/03/jogar-direto-para-uma-porta.htmlnoreply@blogger.com (Unknown)0tag:blogger.com,1999:blog-572007794411184205.post-5572017165214656919Fri, 30 Mar 2007 17:00:00 +00002007-03-30T10:01:35.412-07:00ImpressoraprinterOUTPUT TO PRINTER.DISPLAY "Jogar para a Impressora Padrao".OUTPUT CLOSE.http://progressetecnologia.blogspot.com/2007/03/jogar-direto-para-impressora-padrao.htmlnoreply@blogger.com (Unknown)0tag:blogger.com,1999:blog-572007794411184205.post-1402331042511953857Fri, 30 Mar 2007 12:14:00 +00002007-03-30T07:56:41.109-07:00streamOUTPUT TO c:\clientes.txt. FOR EACH emitente NO-LOCK: DISP nome-emit cgc SKIP.END.OUTPUT CLOSE.http://progressetecnologia.blogspot.com/2007/03/gerar-arquivo-sem-definicao-de-stream.htmlnoreply@blogger.com (Unknown)1tag:blogger.com,1999:blog-572007794411184205.post-6726225140578804405Tue, 27 Mar 2007 12:31:00 +00002007-03-27T05:32:08.387-07:00ProgresstipsGalera 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-ashttp://progressetecnologia.blogspot.com/2007/03/numero-dentro-de-string.htmlnoreply@blogger.com (Unknown)0tag:blogger.com,1999:blog-572007794411184205.post-3174432173142360321Tue, 27 Mar 2007 12:31:00 +00002007-03-27T05:31:30.311-07:00ProgresstipsGalera 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.http://progressetecnologia.blogspot.com/2007/03/dias-aps-janeiro.htmlnoreply@blogger.com (Unknown)1