Message when no selection occurs

[Larry Dannenberg]

I have a brief table that looks for duplicate records and prints them. If no
duplicates are found, the selection table terminates and no printout is
generated. Users may think the table did not run when this occurs so I would
like to print a message to the monitor when no records are selected.

 

When filePro is on the last index, the selection table below prints a
message box for as many times as there is a record containing the last item
in the index (in this case, the last customer number). 

 

Is there a better way to do this? I would like to print 1 message to the
monitor if no records are selected.

 

  7  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: 'lookup key based on consumer number, index (C) based on
consumer#.

       Then: lookup one = MRattenddays  k=32   i=c -nx
.

  8  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

loop   . If: not one and f eq ""
.

       Then: msgbox "No Duplicate Records Were Found." & "\nThe last
consumer # <32<"and\nthe corresponding record #=" < @rn;end

  9  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: not one
.

       Then: end
.

 10  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: 32 ne one(32)           'Consumer number does not match
.

       Then: end
.

 11  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: 'save the looked up record as qn
.

       Then: qn=one(@rn)
.

 12  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: @rn eq qn               'this is the same record
.

       Then: getnext one;goto loop
.

13  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: 35 ne one(35)             'this is not for the same month/year
.

       Then: getnext one;goto loop
.

 14  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: 36 ne one(36)             'this is not for the same location
.

       Then: getnext one;goto loop
.

 15  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If: 'A match has been found
.

       Then: select;f(1,*,g) ="1";end
.

 16  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       . If:
.

       Then: end
.

 17  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

 

 

 

 

 

------------------------------

Larry Dannenberg

Butler County MRDD

155 Donald Drive

Fairfield, OH  45014

(513) 867-5962 ext. 35

larryd at butlermrdd.org <mailto:debbies at butlermrdd.org> 

www.butlermrdd.org <http://www.butlermrdd.org> 

 

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.celestial.com/pipermail/filepro-list/attachments/20060217/ec6ccdd4/attachment-0001.html