Called table FORM printing

[GCC Consulting]

> -----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
> 
Just a thought, have you tried coping this code into an input table and running
it directly rather then as a call?  If you did, did it work?

I am not sure this matters, have you tried closing the browse first and then
running FORM?

Richard Kreiss
GCC Consulting