出力セッション用フォームを作成するには

出力セッションを作成する場合は、そのセッションのフォームも作成する必要があります。

Dynamic Form Editor の詳細については、Dynamic Form Editor のオンラインヘルプを参照してください。

フォームを作成する前に、プログラムスクリプトを確認すると役に立ちます。出力セッションを作成したときにプログラムスクリプトを作成している場合は、特に有用です。プログラムスクリプトにはデフォルトの範囲指定が含まれています。

生成されたプログラムスクリプトを拡張して、親テーブルへの参照を問い合わせる必要があるかもしれません。

次のプログラムスクリプト例を参照してください。

|**********************************************************
|* cxoes0421  0  VRC B61U a  dv00
|* 
|* Development User              
|* 2005-02-07
|**********************************************************
|* Main table cxoes021 Suppliers, Form Type 4
|**********************************************************
                                                                                
|****************************** declaration section *******
declaration:

  table   tcxoes021 | Suppliers
  table   tcxoes031 | Countries

   extern  domain  cxsuno           suno.f    fixed
   extern  domain  cxsuno           suno.t    fixed

|****************************** program section ************

|****************************** group section **************
group.1:
init.group:
   get.screen.defaults()

|****************************** choice section *************
choice.cont.process:
on.choice:
   execute(print.data)

choice.print.data:
on.choice:
   if rprt_open() then
       read.main.table()
       rprt_close()
   else
       choice.again()
   endif

|****************************** field section ***************
field.suno.f:
when.field.changes:
   suno.t = suno.f

|****************************** function section ************
functions:

function read.main.table()
{
    select cxoes021.*, cxoes031.*
    from cxoes021, cxoes031
    where   cxoes021._index1 inrange {:suno.f}
                                    and {:suno.t}
    and     cxoes021.ccty refers to cxoes031
    order by cxoes021._index1
   selectdo
       rprt_send()
   endselect
}