PRINT only generates the results the first time?

[Jeremy Anderson]

Walter Vaughan wrote:

> With a long table it might be easier to post the ASCII text so that it 
> can be loaded and viewed in the filePro IDE easier...
>
> Stuff that comes to mind...
> 1) What kind of output form is this? Full page form/Mailing label?
> 2) put a show"@cr="{cr; in front of the print statement on line 37
>     - it'll prove that you are even getting to the line and
>           what cr is supposed to be.
> 3) What's a TQI? :)
>
> -- 
> Walter

0) Say, that's a good idea.  I've attached the ASCII processing table, 
and the output form as well.
1) full page form.
2) debugger does verify that I'm looping through it every time
3) Technician Quality Inspection

Jeremy


-- 
Jeremy Anderson			      jeremy (at) plunketts.net
IT Manager, Plunkett's Pest Control   Author, Multitool Linux

-------------- next part --------------
A non-text attachment was scrubbed...
Name: out.TQIblank
Type: application/octet-stream
Size: 6950 bytes
Desc: not available
Url : http://lists.celestial.com/pipermail/filepro-list/attachments/20040817/df485fed/out.obj
-------------- next part --------------
chkblnk:'verify that this is indeed a request for a blank TQI:' these will always have a blank field 7 and 8:
:7 ne "" OR  8 ne "":end;:
:12 eq "Y":end; 'this TQI request has already been printed':
:              'Record data on this output request in the Log file:lookup fpl = tFileproLog  r=free  -n:
:not fpl:goto dateck:
::fpl(1) = "Master_lists"; fpl(2) = @FN; fpl(3) = @TD; fpl(4) = @ID:
dateck:'month is recorded in field 6.:hg=6;:
::hn(8,date) = mid(hg,"1","3") & "01" & mid(hg,"3","3"):
::ho(10,mdyy/) = hn:
::hk(6,.0,g) = mid(ho,"7","4") & mid(ho,"1","2"):
::hi(9,MON) = mid(hg,"1","2"); hj(15,,g) = hi < mid(hg,"4","2"):
getsupe:' get the supervisor's name:lookup supename = em2 k=9 i=3 -nx:
:not supename:zy="_______________________ "; goto entloop:
::zy=supename(6) < supename(7):
::close supename;:
entloop:' we might have to do multiple blank TQIs, so we're about:' to enter a loop.  We'll check what field 11 is, and make:
::cr(3,.0) = "1";:
loop:::
:cr gt 11:goto finish:
::gosub output:
::cr=cr+"1"; show "@looping";  goto loop:
finish::12="Y"; end:
output:::
:' next few lines go into invnos (invoice numbers):' and grab the next available invoice number, making sure it's an:
:' unused number.  Start at 999999, go back until you find a used:' invoice number, then add 1 to that, and put the record number in 'ir', so we can updated it in a bit.:
::in(6,.0,g) = "999999":
::lookup invnos  k=in   i=a -el:
::in = invnos(1); ir(6,.0,g) = invnos(@RN):
::in = in + "1"; he(7,) = mid(in,"1","3") & "-" & mid(in,"4","3"):
::hf(16,) = hj:
::lookup rec = NewSerRec  r=free  -e:
::rec(1) = in; rec(3) = "33760"; rec(10) = 8; rec(13) = hk;' rec(11) = '????????':
::rec(14) = "1"; rec(15) = 3; rec(17) = "Q"; rec(18) = 10; 'rec(23) = hp:
::lookup invnos  r=ir   -e:
::invnos(1) = in:
::close invnos; hl = ""; hm = "";:
::print:
::return: