(no subject)

[rlmuller at uscomputergurus.com]

Hi All,

I'm running FP5.6 over WinXP-Pro/SP2.  Below is the input processing table
for a two-field MyCust file (Cust ID and Cust Name):

The purposes of this file & processing-table are:
1. an exercise for me to learn FilePro;
2. an initial stage of a prototype for allocating AR receipts to existing
Invoices;
3. a means to generate test data;

Ultimately, the prototype functionality will be an upfrade to an
FP4.0-based accounting system on a 1980's version of SCO.  (That's what my
cash-strapped client has,  so it's a given.)

I'm using the FP Plus 4.0 manual and the FP 16 Plus Tutorial as my
resources, together with my 30-day FP5.6 software.

I originally had lines 1-5 to generate records, which worked fine, but it
failed if I made field 1 read-only (to prevent inadvertent modification of
the field).  That made sense, so I relaxed that restriction and added
lines 6-9.

My questions are:
1.  Is there a better way to generate, e.g. IDs, in a production
environment and prevent inadvertent (or malicious) modification?

2. Is there a better way to generate test data than this approach?  I plan
to generate random Invoices and Receivables.

3. Is there any way to insert space for line of code between lines n and
n+1 beyond moving lines n+1 through the last-coded-line to last+2?

Thanks in advance for any guidance you may provide.

Regards,
Richard



1  -------------------------------------
        If
        Then END
2  -------------------------------------
@WEF1   If 1 NE " "                                ' If RecordNumber
already assigned,
        Then END                                       ' Quit processing
field 1
3  -------------------------------------
        If                                                    '
RecordNumber already assigned, so
        Then 1 = "1000"+ at RN; DISPLAY     ' Set CustID = 1000 + RecordNumber
4  -------------------------------------
        If
        Then 2 = "Mr." < 1; DISPLAY           ' Set CustName = "Mr." +
RecordNumber
5  -------------------------------------
        If
        Then END
6  -------------------------------------
@WLF1   If 1 EQ "1000"+ at RN
        Then EXIT
7  -------------------------------------
        If
        Then 1 = "1000"+ at RN; DISPLAY;
8  -------------------------------------
        If
        Then BEEP; SHOW "CustID may not be changed; it's been reset";
SCREEN, 1
9  -------------------------------------
        If
        Then END
10  -------------------------------------