Called table FORM printing

[Scott Walker]

Scott Walker
RAM Systems Corp
Ph: (704) 896-6549
Fx: (704) 896-7458
scottw1 at alltel.net



-----Original Message-----
From: filepro-list-bounces at lists.celestial.com
[mailto:filepro-list-bounces at lists.celestial.com] On Behalf Of R.
Murphey
Sent: Thursday, December 16, 2004 11:38 AM
To: filePro mailing list
Subject: Called table FORM printing


5.0.09DN9   Native Windows

I decided to create a routine to combine all my @keyF processing in a 
central place. My thinking is that this will allow me to only show those

formats that I want users to have access to.

So I created a database that holds the filePro file name and the output 
name, and whether or not it should be displayed in the browse.

Then I created a processing table in a library file.

I call this table from my @keyF processing in the input table.

The problem is that when I use the form command at the end of my called 
table, nothing prints.

I thought that the problem might be because the current working 
directory was incorrect, so I changed back to the filePro directory of 
the file I was in. This also didn't work.


Any ideas?



=====================================
Input processing
=====================================

@keyF    If:
        Then: call "library/keyF"
      -------   -   -   -   -   -
          If:
        Then: end

=====================================
Called processing (keyF)
=====================================

          If:
        Then: declare fName(32), frmName(32)
      -------   -   -   -   -   -   -
          If:
        Then: fName = @fi { ""
      -------   -   -   -   -   -   -
          If:
        Then: lookup frm=forms k=[fName] i=A -nxms b="(brw=12 prc=cullit
              fill=asc,top)[Form Name  Description]*2      *3"
      -------   -   -   -   -   -   -
          If: not frm
        Then: clearb; end
      -------   -   -   -   -   -   -
          If:
        Then: chdir "p:/filepro/" { @fi { ""
      -------   -   -   -   -   -   -
          If: ' debug - what directory am i in?
        Then: rz(75) = getcwd(); msgbox rz
      -------   -   -   -   -   -   -
          If:
        Then: frmName = frm(2) { ""
      -------   -   -   -   -   -   -
          If:
        Then: form frmName
      -------   -   -   -   -   -   -   -   -   -   -   -
          If:
        Then: clearb; end
      -------   -   -   -   -   -   -   -   -   -   -   -
          If: '
        Then: '
      -------   -   -   -   -   -   -   -   -   -   -   -
cullit   If: frm(4) ne "Y"
        Then: drop
      -------   -   -   -   -   -   -   -   -   -   -   -
          If:
        Then: end




Does it need to be:

Then: form (frmName)



Just a guess,


Regards,


Scott