ABL(4GL) General Programming Group

This group is for topics on coding in ABL (formerly known as Progress 4GL). Topics include code snippets, code examples, utility programs, tricks, techniques, and patterns. There are other groups for other more specific topics like Win32 API, OO programming, and specific programming tools.


Selecting Fields for Excel

Selecting Fields for Excel

Tables from Database gathered

Tables from Database gathered

db2Excel

db2Excel

DB2Excel

Hi guys,
I tried to create a program that will generate code that will export table contents to excel
and wanted other people to test my project. (P.S. Please excuse my coding, I'm just a starter with progress :}).

This program is created using Openedge 10.1B and tested using Microsoft Excel 2007
DB2Excel is a program that automatically generates code for importing data to excel.

Step 1: db2Excel Collects tables from the database and makes them available for selection.
(if needed for schema preview, you can edit the source code to view system tables)


Progress (4GL / ABL) Procedure Editor Extensions

Description

Some Progress Editor extensions, to add convenience and robustness to the developer.
Supported by all versions \ OS \ Terminal environments.
Open Source.
Author: Yuval Papish
Homepage: http://www.yuvcom.com/ProgressEditorExtensions


[WebSpeed] Webfunct.map: someone know this type of working method?

I find a txt file, full of this line:

"AR1" "SEATCHOOSE" "file1.p" "file2.p" "file3.html"
"AT5" "REPRICE" "file1.p" "file2.p" ""
"AT5" "REVISE" "file1.p" "file2.p" "file3.html"

, and a PRG master that we can call "init.p" that print on screen the new (dates driven) HTML page using a mix of link product with JavaScript ... i suppose ... O_O

If this kind of working is a standard of Progress products, someone can help me to understand better the mechanism plz?

TNX!


The istructions like "&IF DEFINE(PIPPO) = 0 &THEN" what are? o_o

... example:

&IF DEFINE(PIPPO) = 0 &THEN
    DEF SHARED VAR g-ses-id AS CHAR NO-UNDO.
&ENDIF

Draw with ABL is possible? :D

Hi to all!

I made an exercise into i calculate the Fibonacci value.
The second idea that incoming in my head was "Why don't made a graphic rapresentation of the y=f(x) function"?

I try in the mode explain in picture.

[IMG]http://img398.imageshack.us/img398/9960/drawwithabldz1.png[/IMG]

Someone can indicate the mode to do this second idea?
TNX!

[PS]
I have think to display pxl to the place of character. Is this the "Master Road"? :)

Draw with ABLDraw with ABL


Draw with ABL

Draw with ABL

Calling Crystal Report from ABL using JDBC Connection

Cystal Report XI
OE Architect 10.1C

Hi PSC Users,
I found this code from PSDN. This is how to call Crystal Report using ODBC.
CREATE "CrystalRuntime.Application" chApplication.

chDocument = chApplication:OpenReport("d:\customer\crystal\1 Sales per country per customer top-5.rpt", 1).
chDatabase = chDocument:DATABASE.
chParamDefs = chDocument:ParameterFields.
chParamDef = chParamDefs:Item(1).
MESSAGE chParamDef:ParameterFieldName .
ResultText = chParamDef:SetCurrentValue(500).

chDocument:EnableParameterPrompting = TRUE.


Combo-Box inside A browse crashes after changed-value.Please help..

hi progress users,
I started to use OE Architect 10.1C. The combo-box inside the browse will not give an error if the list-items are listed during the design time in the properties window. But what I did was filling the combo-box after the browser is realized(during runtime).

Anyone has encountered this problem before? Please help if you have some suggestions.

I've already visited the knowledge based.(Still under investigation)

Thanx in advance.


OE10 - Best practice suggestions for source / object code folder organization

My OE10 arrived yesterday. I'd like to use this opportunity to better organize my source and object code folders. I have both GUI and CHUI code, and an increasing number of source and r-code files which are non-interactive and shared across the user interface environments.

Over the past decade (v8 through v9) I have organized my folders along the following lines:

src (CHUI and shared source)
- ap/
- ar/
- gl/
...

tty (CHUI and shared r-Code)
- ap/
- ar/
- gl/
...

gui (GUI Source AND Object)
- ap/
- ar/
- gl/
...
- viewers/
- windows/


[4GL/ABL] FOR EACH "nested" and "FOR EACH, EACH" is the same thing?

... or there's some substantial differences?

/* Trovare le righe d'ordine associate all'ordine dell'ultimo cliente nella tabella del DB */

FIND LAST customer.
DISPLAY customer.name.

FOR EACH order, EACH orderline OF order WHERE order.custnum = customer.custnum:
    DISPLAY orderline WITH FRAME a TITLE "MODO 1".
END.

FOR EACH order
:
    FOR EACH orderline OF order WHERE order.custnum = customer.custnum
    :
        DISPLAY orderline WITH FRAME b TITLE "MODO 2".
    END.
END.

[PS]
run with DB Sports2000


msg

msg

msg


[4GL/ABL] Experiment: variable & widget

I made this code:

---------------

/* TRIGGER */
DO:
  /* Tentativo da oggetto a variabile */
  ASSIGN fill-in-1 = INPUT fill-in-1.
  DISPLAY "1] " + fill-in-1 @ fill-in-1 WITH FRAME fMain.
  
  /* Tentativo attributo dell'oggetto */
  ASSIGN fill-in-2:SCREEN-VALUE = "2] " + fill-in-1.
  
  /* extension version of assign? */
  ASSIGN toggle-1 = INPUT toggle-1.
  /* compact version of assign? */
  ASSIGN toggle-2.
  
  /*
  ESEMPIO in C
  i = i + 1.
  i++.
  ++i.
  */
  
  IF toggle-1 THEN DO:
                MESSAGE "toggle1".
#
Syndicate content