The OpenEdge Hive

Hi All,

How I have to create WSDL?

Where I need to deploy that created WSDL?

What are the changes I need to do for creating WSDL

Rajaselvam.M

I'm trying to use smtpmail.p with our email server, but having no luck. I've tried to duplicate the settings used in my email client, but there's something different that the ever-suspicious server picks up and it returns this message:

220-(servername) ESMTP Exim 4.68 #1 Thu, 04 Sep 2008 00:51:38 -0500 
220-We do not authorize the use of this system to transport unsolicited, 
220 and/or bulk e-mail.

How do I find out what methods and attributes I can call for a smartobject? Specifically, I want to be able tell a smart data object to jump to a given record so it shows the record in the smartDataView that I have attached to it.
In python, you just type dir(). Is there any equivalent in Progress?

Thx

There is no mention of these preprocessor directives anywhere in the ABL reference or handbook.
What do they do?

Does anybody know where there's some smartobjects tutorials? I need something like the ABL handbook where it shows you how to create a very primitive app. The ABL handbook does not mention smartobjects at all.
The "ADM and smartobjects" manual has no examples. I just need a quick and dirty example to get something concrete up and running.

Shawn

"called.p"

DEF VAR vcStringa AS CHAR INIT "Questa è la stringa di inizializzazione" FORMAT "X(40)" NO-UNDO.
DEF VAR vcFrameStampa AS CHAR NO-UNDO.
DEF VAR vcFrameTitolo AS CHAR NO-UNDO.
DEF VAR i AS INT NO-UNDO.

DO i=0 TO 5
:   
    vcFrameStampa = SUBSTITUTE ("fStampa&1", i).
    vcFrameTitolo = SUBSTITUTE ("Procedura di stampa &1", i).
    
    DEFINE FRAME vcFrameStampa WITH CENTERED TITLE vcFrameTitolo.
    
    DISPLAY vcStringa LABEL "Stampa"
            i LABEL "indice"
            vcFrameTitolo FORMAT "X(40)"
  

DEF VAR i AS INT INIT 0.
DEF VAR j AS INT INIT 0.

DEFINE FRAME fCust
       Customer.CustNum LABEL "Cust#"
       Customer.Name
       Customer.City
       SKIP(1).

DEFINE FRAME fInvo
       Invoice.Invoicenum LABEL "Invo#"
       SKIP(1).

forCust:
FOR EACH Customer NO-LOCK WITH FRAME fCust
:
    i = i + 1.
    
    forInv:
    FOR EACH Invoice
    WHERE Invoice.CustNum = Customer.CustNum
    NO-LOCK WITH FRAME fInvo
    : 
        j = j + 1. 
    END.
END.

MESSAGE "i: " i "j: "j.

Why the heck does one character equal 5 pixels by 21 pixels? Characters in 8 Point Courier New font are definitely NOT 5x21 pixels. This completely throws off all forms. Is there any way to change progress to use different character to pixel conversions?. Otherwise, I have to go through all the code and convert coordinates. This will be very painful.

Help!!!

Shawn

FIND FIRST item.

and

FIND item 1.

?!?!?!

Hello,

I am using Jasper Report 1.2 and now I want to represent an alphanumeric value as barcode in my reoport and it should show verticaly. Previously I was used a font to represent barcode but that is not supporting alphabets.Is there any free fonts that do the same or any other way? Looking forward for reply from any helping hand.
Thanks in advance.

--Hani

I'm in the process of converting a character based progress v7 app to v 10.1. Most of the code works in windows for the time being but I need it to use a fixed font. How do you set the default font to fixed?

Thx,
Shawn