Scribd
Upload
252 views288 pages

Progress 4gl

Uploaded by

Guillermo Besares Veliz
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF or read online on Scribd
252 views288 pages

Progress 4gl

Uploaded by

Guillermo Besares Veliz
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF or read online on Scribd
You are on page 1/ 288
Curso de PROGRESS TECNOLOGIA PARA DESARROLLO DE SISTEMAS PROGRAMACION EN PROGRESS DIRIGIDO A Personal de sistemas enfocado al desarrollo de aplicaciones en FROGRESS. OBJETIVO GENERAL Capacitar al participante en el lenguaje de programacién y manejador de base de datos PROGRESS para que sea capaz de crear aplicaciones y bases de datos que resuelvan sus requerimientos de manejo de informacién. OBJETIVOS ESPECIFICOS Al finalizar el curso el participante seré capaz de: 1. Crear integramente una base de datos en PROGRESS que satisfaga los requerimientos de informacién de un sistema completo, aprovechando las ventajas otorgadas por el diccionario de datos. 2. Escribir eficientemente procedimientos de actualizacién a archivos en el lenguaje de programacién 4GL de PROGRESS. 3. Hacer consultas por medio del 4GL de PROGRESS para obtener informacion oportuna y exacta manejando los archivos de la base de datos. 4. Manejar estéticamente las formas de pantalla para darle presentacién organizada a procesos de actualizaciones y consultas para pantalla. Ors CLEAR FRAME pa-materia ALL. PROMPT-FOR materia.fol WITH FRAME pa-materia. FIND materia USING materia.fol EXCLUSIVE-LOCK NO-WAIT NO-ERROR. IF AVAILABLE materia THEN DO: {EMATO1A.S) /*MUESTRA*/ END. ELSE DO: BELL. IF LOCKED materia THEN MESSAGE "Registro bloqueado espere un momento". ELSE MESSAGE "El Folio No Existe". PAUSE .5 NO-MESSAGE. UNDO, RETRY. END. v-borrar = no. UPDATE v-borrar WITH ROW FRAME-ROW + 5 + FRAME-LINE + 5 COLUMN 15 SIDE-LABELS OVERLAY FRAME f-borrar. IF v-borrar THEN De DELETE materia. END. CLEAR FRAME f-borrar ALL. HIDE FRAME f-borrar. HIDE MESSAGE. NEXT. END. SOSH OE OEE CAMB OS # SHI I IIE / IF v-accion = v-panel[3] THEN DO TRANSACTION: CLEAR FRAME pa-materia ALL. PROMPT-FOR materia.fol WITH FRAME pa-materia. FIND materia USING materia.fol EXCLUSIVE-LOCK NO-WAIT NO-ERROR. IF AVAILABLE materia THEN DO: {EMATO1A.S} /*MUESTRA*/ END. ELSE DO: BELL. IF LOCKED materia THEN MESSAGE “Registro bloqueado espere un momento". ELSE MESSAGE "El Folio No Existe". PAUSE .5 NO-MESSAGE. UNDO, RETRY. END. {EMATO1B.S} END. JODO IO J ac XCONSULITA SSI I / IF v-accion = v-panel(4] THEN DO TRANSACTION: run consulta.p "materia" "materia. fol materia.cvedpt materia.nommat materia.fc materia.f1 materia.vcur" “fol LEAVE. /* {EMATO1A.S} MUESTRA DE PANTALLA DE MATERIAS */ FIND depto | WHERE depto.cvedpt = materia.cvedpt NO-LOCK NO-ERROR. DISPLAY materia.fol materia.cveapt materia.nommat materia. fc materia.fl materia.vcur WITH FRAME pa-materia. IF AVAILABLE depto THEN DISPLAY depto.nomdpt WITH FRAME pa-materia.

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy