Search results

Hi, Thank you for your notes. I really didn't know about HEX values in ABL. I saw this KB too. I'll implement and post again.

Hello, I did another approach, more efficient, using keybd_event from Win32 API. You can customize the virtual keyboard with any keystrokes that you need. Try it and let me know.

With decimals and integer fields will be a big problem. I think the only solution is to use SendInput or SendMessage, from Win32 api, to simulate the keystrokes.

Hello friend, I did this sample for you, try it and let me know. Unzip the file, run w-cashing.w and after, click on "Open Keyboard" button. Feel free to change anything you think needs doing.

Hi, Please read this, it can solve your doubt: OpenEdge 11.6 Documentation Pay attention, because MATCHES does not use index. If "stkadj-reas" table is bigger, your FOR EACH may perform slowly. Or if "MATCHES" does not work for you, do this: IF cReasonCode = "*" THEN DO: FOR EACH...

What have you tried?

You can't change a label by other dynamically. You need first remove all the labels and then add new labels. Try this code: DEF VAR cOldLabels AS CHAR NO-UNDO. DEF VAR cNewLabels AS CHAR NO-UNDO INITIAL 'A|B|C|D|E|F|G'. DEF VAR i AS INT NO-UNDO. cOldLabels =...

This is mine version. It works like should be, i.e., negative numbers, multiples of 10 and decimal values. FUNCTION GetRoundedUp RETURNS INT(deValue AS DEC): DEF VAR iResult AS INT NO-UNDO. DEF VAR iMod AS INT NO-UNDO. DEF VAR deRounded AS DEC NO-UNDO. ASSIGN deRounded =...

There's no magic solution to do if you can't change anything on source database. Can you create at least a trigger on tables that you need to export?

I don't know how QAD works, but your problem is possibly related to the character encoding in email. I send all my emails using UTF-8 and I have no issues with it. I use The W3C Markup Validation Service to validate the generated HTML. You must define your HTML variable as LONGCHAR too, to...

Could you post your HTML code here so we can help?

The below code was based on your logic. Run it to see what happens... DEF TEMP-TABLE ttFruits NO-UNDO FIELD fruit-name AS CHAR FORMAT 'X(30)'. DEF VAR ceFruits AS CHAR NO-UNDO EXTENT 3 INITIAL ['Apple', 'Orange', 'Banana']. DEF VAR yourSearch AS CHAR NO-UNDO INITIAL 'Apple'. DEF VAR i...

What is your OpenEdge/Progress version?

There is a mistake in your logic. Remove the "NO-ERROR" and post here the message that will appear.

Hello, Read this KB Progress KB - Best way to add new index to table with large count of records?. It can clarify your doubt. Best regards,

Hello Arjon, Try this: FUNCTION GetGender RETURNS CHAR (iSex AS INT): DEF VAR ecGender AS CHAR EXTENT 2 INITIAL ['Male', 'Female'] NO-UNDO. RETURN ecGender[iSex]. END. DEF QUERY qUsrInf FOR UserInfo. DEF BROWSE bUsrInf QUERY qUsrInf DISPLAY Fname Lname GetGender(Sex) @ Sex WITH 17 DOWN...

Hello Osmar, Write the "EnableCell" procedure, like below: PROCEDURE EnableCell : /*------------------------------------------------------------------------------ Purpose: Parameters: <none> Notes...

I did a flexible and dynamic solution for your menus. Feel free to change anything. Best regards, /* -------------------------------------------------------------------------- */ DEF VAR hMainMenu AS HANDLE NO-UNDO. DEF TEMP-TABLE tt-menu NO-UNDO FIELD men-key AS CHAR FIELD...