[Logic] Multi QSL Label Printing

2002年1月14日 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
***********************************************************