/*  PROGRESS Decompiler 2025.4, decompiled: 16.04.2025 22:38:50               */
/*  File: Original.r, 6408 bytes, 29.01.2014 21:50:40                         */
/*  Source: d:\Projekty\D\Popisane10\Progs\Original.p                         */
/*  Compiled: 29.01.2014 20:50:40, PROGRESS Version: 10 (1005)                */

/* ******************************  Main Block  ****************************** */

FIND FIRST DEMO.CUSTOMER
    WHERE Cust-num = ipNUM
    USE-INDEX cust-num
    SHARE-LOCK NO-ERROR
IF
    NOT(AVAILABLE DEMO.CUSTOMER)
THEN
    LABEL_1:
    DO:
        CREATE DEMO.CUSTOMER
        DEMO.CUSTOMER.Cust-num = ipNUM
    END.
IF
    (ipNAME <> "")
THEN
    LABEL_2:
    DO:
        lvNAM = "Has Name"
        DEMO.CUSTOMER.Name = ipNAME
        DEMO.CUSTOMER.Max-credit = ((DEMO.CUSTOMER.Mnth-sales[11] * DEMO.CUSTOMER.Discount) + (ipPRICE * DEMO.CUSTOMER.Curr-bal))
        DEMO.CUSTOMER.Discount = (DEMO.CUSTOMER.Discount + ipDIS)
        IF
            (DEMO.CUSTOMER.Discount <> 0)
        THEN
            DEMO.CUSTOMER.Max-credit = (DEMO.CUSTOMER.Max-credit / DEMO.CUSTOMER.Discount)
        DEMO.CUSTOMER.Cust-num = (DEMO.CUSTOMER.Cust-num + 12)
    END.
ELSE
    LABEL_3:
    DO:
        lvNAM = "No Name"
        DEMO.CUSTOMER.Phone = "555-555"
        DEMO.CUSTOMER.City = "London"
        DEMO.CUSTOMER.St = "Baker Street"
        IF
            (DEMO.CUSTOMER.Contact = "")
        THEN
            DEMO.CUSTOMER.Contact = "mail@me.now"
        DEMO.CUSTOMER.Curr-bal = 12345.67
    END.
ipABS = ABSOLUTE(DEMO.CUSTOMER.Ytd-sls)
FIND LAST DEMO.ORDER
    WHERE (DEMO.ORDER.Order-num = ipNUM)
    USE-INDEX cust-order
    NO-LOCK NO-ERROR
IF
    AVAILABLE DEMO.ORDER
THEN
    lvNUM = (DEMO.ORDER.Cust-num + 1)
ELSE
    lvNUM = 1
CREATE DEMO.ORDER
DEMO.ORDER.Name = "My Order Name"
DEMO.ORDER.Address2 = DEMO.CUSTOMER.City
DEMO.ORDER.Odate = TODAY
DEMO.ORDER.Sdate = DATE(MONTH(TODAY), 1, YEAR(TODAY))
DEMO.ORDER.Shipped = "N"
DEMO.ORDER.Zip = DEMO.CUSTOMER.Zip
DEMO.ORDER.Cust-num = IF (DEMO.ORDER.Order-num = 13) THEN 12 ELSE (11 * lvNUM)
DEMO.ORDER.City = DEMO.CUSTOMER.City
RELEASE DEMO.ORDER
RELEASE DEMO.CUSTOMER

DEF INPUT PARAMETER ipNUM AS INTEGER.
DEF INPUT PARAMETER ipNAME AS CHARACTER.
DEF INPUT PARAMETER ipABS AS DECIMAL.
DEF INPUT PARAMETER ipPRICE AS DECIMAL.
DEF INPUT PARAMETER ipDESC AS CHARACTER.
DEF INPUT PARAMETER ipDIS AS INTEGER.
DEF VAR lvNAM AS CHARACTER.
DEF VAR lvNUM AS INTEGER.


