4GL/ABL General Programming


Need help on underline font

Hi Everyone,

I'm new to progress ABL,
can anyone tell me what is the command to change the font to become underline font?

Thank you in advance.


Convert .NET System.Byte[] TO Progress MEMPTR

I would like to convert .NET System.Byte[] TO ABL MEMPTR (BLOB).
What is the most efficient way to achieve this?

I have already create code to get this done, but it performs much to slow. (see code snippet: METHODE 1)

I was try to increase the performance for the conversion by using base64 as an intermediate form.
But i can not get it to work. See code snippets METHODE 2 and METHODE 3)


/* METHOD 1 */
METHOD PUBLIC STATIC MEMPTR ConvertToMemptr( byteArray AS "System.Byte[]" ):


Generation of XML files in UTF-8 format

Hi,

I'm trying to generate XML files in UTF-8 format using progress. The purpose of this is to display hebrew characters.
The current code page is "ISO8859-1". The only codepages which have collation to hebrew seem to be "ISO8859-8" and "IBM862".
Is there any way to convert codepage from "ISO8859-1" to either "ISO8859-8" or "IBM862"? Or is a code page conversion from "ISO8859-1" to "UTF-8" sufficient?
Please advise.

Thanks.


Integrating Adobe CQ5 With progress

Hi All,

We are looking a way to integrate CQ5 with existing progress webspeed app. Anybody knows ongoing project on this two technologies ???


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


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?


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!


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


Writing file

Hi all!
I try to write file.

OUTPUT TO "/home/user1/dir1/111.txt".
  PUT UNFORMATTED "TEST1" SKIP.
  PUT UNFORMATTED "TEST2" SKIP.
OUTPUT CLOSE.

If directory "dir1" don't exists how can I catch write-error exception?


Syndicate content