The OpenEdge Hive - Code Samples

Using .net user control with 4GL (adm2) container

brynjar — Wed, 07 Jan 2015 15:22:33 +0000

The sample shows how a .net user control can be used with an ADM2 container. There is no specific support for ADM2 otherwise (links, etc) but it should be quite possible to modify the window super-proc to support automated display of date values in a date picker, f.ex, along the lines it's done for the JukeBox framework.

Components:

JBoxWrapWindowInForm.p:
Super proc for container that keeps track of control(s) in window, (re-)creates the window menu as .net menu and manages resize of control(s)

JBoxWrapperForm.cls:

Object-Oriented ABL Techniques

Marginal Tiete - progress game

Jaison Antoniazzi — Tue, 03 Apr 2012 16:19:30 +0000

Greetings,
I made this game to emulate Atari's Grand Prix.
You can use this code to view how to use dynamic objects and other functions like includes, and methods.

Running:
1. Extract all files,
2. Select car.p and right click, choose RUN under window's context menu or open it with progress procedure editor.

Skype me jaison.antoniazzi for questions.

Enjoy :D

Best regards,
Jaison Antoniazzi

Hive group

Haversine implementation in ABL

d.cook — Mon, 06 Feb 2012 06:44:31 +0000

This is the Haversine formula translated into an ABL procedure. The Haversine formula is used for determining the Great-Circle distance in km between two latitude/longitude references.

The formula is based off the Javascript interpretation here: http://www.codecodex.com/wiki/Calculate_Distance_Between_Two_Points_on_a...

Requires Progress STandard Libraries with math_asin function uncommented (see http://www.oehive.org/node/2057)

ABL(4GL) General Programming Group

New Version of base64encode.p

Scott Auge — Mon, 19 Dec 2011 18:32:14 +0000

Dries Feys was good enough to send out a new base64encode.p file over the peg. I am posting it here for further distribution (and use!)

(Note: Some have said they have had problems with this.)

ABL(4GL) General Programming Group

Introduction to the parameter object

Stefan — Mon, 18 Jan 2010 14:03:18 +0000

I'm reading Martin Fowler's refactoring and will work out some of his methods (which also apply to building new software) in this blog. Read this to get some background info:

http://sourcemaking.com/refactoring/introduce-parameter-object
http://www.refactoring.com/catalog/introduceParameterObject.html
http://martinfowler.com/ap2/range.html

Below a simple daterangeparameter object, and therebelow a procedure using the daterange object.

Miscellaneous Group

GUI OpenEdge Password Meter

shimshai — Tue, 30 Jun 2009 14:29:54 +0000

A password meter written in ABL.
It is database independent and uses the first connected database for the session.
By default it has 2 levels of strength that can be easily checked for and/or required: Strong Passwords and Xtra Strong Passwords
It checks for the following:
Required for strong passwords:
Length of 12 to 24 characters
Use of all 4 types of characters
Not the same as the previous 5 passwords
No personal names (first or last) and no company names or company acronym (hard-coded).

Required for Xtra strong passwords:
At least 2 upper case letters used

ABL(4GL) General Programming Group

How to add a colored square in the titlebar through api

Dries — Thu, 23 Apr 2009 15:12:10 +0000

Sometimes it's neccessary to add a Caption in the titlebar to give extra information to the user of your application. The attached file does this, and makes sure the window got redrawn when windows triggers arive.
As you can see, many instances of msgblst32 are added on this window. The goal is to make it more the controlling window which always catches the events on the underlaying session applications. As every window needs its own ocx, I provided 40 instances which are hopefully enough to maintain every window.

Win32 API samples

Video on calling web services from the 4GL/ABL

Scott Auge — Tue, 03 Mar 2009 19:36:14 +0000

I have a video up on amduus.com on how to call out to web services with example coding.

The video can be seen at http://amduus.com/training/Using_bprowsdldoc.html

Development Tools Group

Example function to return various date formats. YYYYMMDD

dherrin — Fri, 27 Feb 2009 16:51:21 +0000

In this example function you pass to it the format you want YYYYMMDD YYMMDD ISO etc. along with date and time delimiters you wish to use. This does use the NOW statement which is not in older versions.

Development Tools Group

Testing character values to see if they are integer, decimal or character values.

dherrin — Tue, 17 Feb 2009 21:10:27 +0000

This set of examples show various methods to test for character, integer, and decimal values.
The various test methods came from a discussion on the PEG and suggestions by members and myself.

Typical time results per 100,000 iterations of the functions.

+--------------------------------------------------+ ¦-123 ¦ ¦ ¦ ¦fn-ISCHAR-loop: 31510 ms no Loop method ¦ ¦fn-ISCHAR: 3681 ms no DEC(x) error method¦

Development Tools Group