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.


Is zlib.dll always required?..

Hi,

I'm having little difficulties using zlib.dll in our product, because I install it to different types of environments and it would be perfect if I could use just clean progress-code (not any unix/windows libraries etc).

I have no need to compress/uncomress or crypt files, so I beleave it would be somehow possible to get rid of that dll library

Any suggestions?

brgds
Risto Järvinen


Justus OpenEdge Tools 0.002

First released: Thu, 2011-07-28 12:55

New Justus version released: Justus 0.002.
This version includes SmartGrep, a search tool that can recognize ABL statements in order to find only the code you really need.
Based on Lucene Search Engine, Smartgrep accepts Google-like queries with boolean operators and statement filters. Some common search examples include looking for FIND or FOR without a LOCK clause or temp-table definitions without NO-UNDO.


Prolint Installation Guide (Windows)

This is a generic installation guide slightly modified from an actual installation. Please update as you see fit. Please keep in mind, we would like this to be generic enough so it can be used by all. The guide is written in MS Word.


I can't create Browse widget

I have written code from "OpenEdge® Development:Progress® 4GL Reference":

DEF BUTTON btn-delete LABEL "Delete".
DEF VAR hBrowse AS WIDGET-HANDLE.
DEF FRAME myFrm SKIP(10) btn-delete WITH SIZE 80 BY 22.

DEF QUERY q1 FOR myTable SCROLLING.
OPEN QUERY q1 FOR EACH myTable NO-LOCK.

CREATE BROWSE hBrowse
ASSIGN
TITLE = "TEST1"
FRAME = FRAME myFrm:HANDLE
QUERY = QUERY q1:HANDLE
X = 2
Y = 2
WIDTH = 74
DOWN =22
VISIBLE = YES
SENSITIVE = TRUE
READ-ONLY = NO


Kudos

Hi Patrick,
I just wanted to publicly say thanks very much for posting DataDigger. I've been using it a lot lately.
Regards,
John


Word and Excel Utilities V9 r-code

I've uploaded version 9 r-code for the Word and Excel utilities.

Like almost everything else we do the utilities are compatible with version 9 or better and work on UNIX/Linux and Windows.

Please download the utilities and try the samples.

http://www.oehive.org/project/libooxml

If you have any questions or requests please feel free to contact me.

Alon Blich
Email: alonblich@gmail.com
Phone: +972-54-2188086
Skype: alon.blich


Get widget handle from a procedure handle

Hi

Im trying to get the handle of a widget but cant seem to get any further than a window.

running the below will loop through all the procedures running but how would i get a handle to one of these so that i can chaneg the WINDOW-STATE

def var v-hand as handle no-undo.
def var v-hand2 as handle no-undo.

v-hand = session:first-procedure.

do while valid-handle(v-hand):
v-hand2 = v-hand:next-sibling.
MESSAGE v-hand2:TYPE VIEW-AS ALERT-BOX.
v-hand = v-hand2.
end.

any help is appreciated.


Events in OOP

Hi!
How can I throw and then catch event from object? Can anybody help me?


Windows Background Process w/o Taskbar Entry

Does anyone know a way to launch an OE session in the background on Windows (XP) without having it show on the Windows Taskbar? Looking to create a "silent" process that is run from the Windows Task Scheduler that runs frequently throughout the day, and don't want the "noise" for the user.


New to Progress

I landed at a company that uses QAD. They have quite a bit of custom code.

I've been looking for Progress books / samples / etc. So far, I've discovered a pdf by John Sadd.

I'm starting out with simple questions: How do you reference the lenght of an array? How do you break out of a loop, etc.

If you could point me to some resources it would be appreciated!


Can't Seem to Set WidowControl

Using the the Word automation object, generally with great results. The problem is that I can't set the ParagraphFormat properties of WidowControl, KeepWithNext, or KeepTogether.

The OE COM Object Viewer shows these as integer values.

(from the viewer ...)
Property Set: :KeepWithNext [ = Integer-Var ].

This is apparently untrue, as usage of an integer will generate a type mismatch error at runtime. Boolean values do not generate the error, but fail to set the properties, also. I have also tried characters "0" and "1", but they generate errors. Any ideas???


New position

Accepted a position in March 2011 with PNY Technologies in Parsippany NJ, as Sr. Programmer/Analyst. We are installing the Epicor 9 MRP system, the business logic of which is written in Progress ABL.

I'm doing various enhancements to the Business Objects to customize the system for PNY's needs. We will eventually install e9 in our facilities in France and Taiwan.

The GUI is written in .Net and all ABL is run on appservers. We are actually using a SQL-Server database and Progress DataServer for MSSQL.


creating a binary file from progress

How do we generate a binary file from progress??


Corrupted Progress Database

Dear All,

Please anybody tell me how to fix my corrupted Progress database.
I've tried to do :
- proutil "mydb" -C truncate bi -F
the error is 'stack buffer overflow'

Thank's


smtpmail.p has a future sent date

Hi all,

Using v5.3 of smtpmail.p and finding that it is generating e-mails that have a sent date some 10 hours after the real sent time. I've checked the logs and can confirm that the date/time/timezone that smtpmail.p sends down the socket is right. Timezone settings also appear to be correct on the mail server.

We're running UTC+10. A mail sent at 12:27PM local time today gets a sent time of 10:27PM today... it's like the offset is being applied again. Any ideas?

TIA
NickW


#
Syndicate content