Home › forums › Forums for Groups › 4GL/ABL General Programming

Try to print with FRAME: i made mistake...

Tue, 2008-07-22 15:47 — Matrixbob 
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.

‹ [SmartWindow] How can i print with my program in the "editor" widget ( or object? ) ? character coordinates vs pixel coordinates ›

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.
Wed, 2008-07-23 11:52 — Matrixbob
Matrixbob's picture

Is correct the syntax method

Is correct the syntax method used before?!

I've one pseudo guideline that is:

DISPLAY tab_name WITH FRAME frame_name n COLUMN CENTERED TITLE frame_title WIDTH n n DOWN.


Tue, 2008-07-22 16:15 — jurjen
jurjen's picture

What?

Hi Bob,
I do not understand your post. Is it a question?


Thu, 2008-07-31 12:14 — Matrixbob
Matrixbob's picture

Now i do this

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

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

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

forCust:
FOR EACH Customer NO-LOCK
:
    i = i + 1.
    j = 0.
    DISPLAY Customer.CustNum Customer.Name Customer.City WITH FRAME fCust.
    MESSAGE "i: " i "j: "j.

    forInv:
    FOR EACH Invoice
    WHERE Invoice.CustNum = Customer.CustNum
    NO-LOCK BREAK BY Customer.CustNum 
    :
	j = j + 1.
	DISPLAY Invoice.Invoicenum (COUNT BY Customer.CustNum) WITH FRAME fInvo NO-BOX STREAM-IO.
	MESSAGE "i: " i "j: "j.
    END.

END.

-----
Better of this now i can't do... :(