[Logic] Multi QSL Label Printing

aluscre [email protected]
Mon, 14 Jan 2002 17:51:15 -0500


Any ideas??

I have modified the multi-3-qsl label report as outlined in page 24 of
k3gv's logictips & tricks.
Everything works fine except for two things:

1. Before report prints I get a series of error messges on screen. I
have to click OK many,many times then it runs. There are two different
messages-

a. (the more frequent one)-
Function Procedure NEW_REC
Error #39
Message: Numeric Overflow Data was lost
Line # in (memory variable) 428
Line # in Function/Procedure NEW_REC:25

b. (less frequent)-
Function Procedure LBLMULTI
Error #39
Message: Numeric Overflow Data was lost
Line # in (memory variable) 235
Line # in Function/Procedure LBLMULTI:235



2. Report then runs OK. But a few of the reports (with only 4 QSOs) have
an extra line for # 5 that has only informaton under date
and     time
0 *ba 0                 :



Here is information from my report setup-

BEFORE RUN:


lblmult(global.report_ref.selectexp, 5) && function supports 2, 3, or 4
QSOs per label


* The following DELETE statement will cause this to print ONLY labels
with more than 1 QSO.  The problem is knowing which QSOs to mark as
printed.

delete for empty(call2)

* DH 10/11/96


* SKIP LABELS
skip_count = 0

define window temp from 1,1 size 3,38 title "Skip labels"
move window temp  center
activate window temp

@ 1,1 say "Enter number of labels to skip:" get skip_count pict "###"
range 0,999
read modal

release window temp

=lblblank(skip_count, global.report_ref.selectexp)

if empty(global.report_ref.selectexp)
 global.report_ref.selectexp=".t."
endif

global.report_ref.selectexp  = "(" +  global.report_ref.selectexp + ")
or empty(call)" && so blank records will be included


********************************************************
AFTER FILE OPEN:
define window qsl from 5,5 to 10,67 color scheme 5  shadow float double

prt_addr=.t.
addr_call=.f.
all_msg = space(92)

activate window qsl
on key label tab keyboard "{ctrl+W}"

@ 1,1 say "Enter an optional message to appear on all cards:"
@ 2,1 get all_msg size 1,59

read modal

on key label tab

release window qsl

***********************************************************