|
|
[サンプルコード]
■CRSの処理
Function OnTouch( e ) {
/* 印刷リクエスト発行 */
CSVDocument csvdoc;
try {
(1)
入力値を引数にして、サーバアプリケーションを呼び出す
(サーバからの戻り値がcsvdocに格納される)
csvdoc.get("print_psg.asp", "Addr=" + <TextBoxの入力値など> );
} catch( e ) {
^.MessageBox("例外");
return;
}
(3)
サーバアプリケーションからの戻り値(CSV形式)を解析
サーバアプリケーションから渡された印刷リクエスト情報を
元にPSSのダウンロードとプレビューを実行する
/* Biz/PrintServerの場所 */
var bpserver = csvdoc.GetCell(0, 0);
/* Spoolの場所 */
var spool = csvdoc.GetCell(0, 1);
/* プレビューの開始 */
^.psd.Start(bpserver, spool);
Active = $FALSE;
}
PrintStreamDocument psd {
Function Start(bpserver, spool) {
/* プレビューを実行する */
}
}
■サーバアプリケーションの処理
<%
(2)
引数を元に帳票を生成
生成されたPSSファイルの情報をBiz/Browserへ返す
'Biz/PrintServerのサーバ名
BPServer = "localhost"
'Biz/Browserからの条件を受け取る
Addr = Request("Addr")
'Biz/PrintServerへ接続
set obj = CreateObject("BizPrintClient.Connect")
set conn = obj.Connect(BPServer)
'印刷データをCSV形式で出力
df = conn.CreateDataFile("csv")
ws = conn.WriteDataFile(
Addr & ",サラダ,小エビのカクテルサラダ,280" & vbCRLF)
ws = conn.WriteDataFile(
Addr & ",サラダ,ワカメサラダ,330" & vbCRLF)
:
:
Call conn.CloseDataFile()
'印刷リクエストの組み立て
conn.Agent = "QFM30PSG" ' 印刷モジュール名
conn.Form = "pssample.qfm" ' フォーム名
conn.Title = Addr & "サンプル" ' JOBタイトル
conn.AgentParam = "%DF" ' 印刷データファイル名
Call conn.Submit() ' 印刷リクエスト送付
'Biz/Browserに返信(CSV形式)
Response.Write("""")
Response.Write(conn.GetServerURL())
Response.Write(""",""")
Response.Write("/bps/util/getdoc?Ext=pss&RequestId=")
Response.Write(conn.RequestId)
Response.Write("&Page=")
Response.Write(""",""")
Response.Write(Addr)
Response.Write("""")
%>
CRSファイル形式のサンプルを
「Biz/PrintServer連携サンプル(Psp_010.zip)」
よりご利用いただけます。
※サンプル内の「Readme.txt」をお読みになってからご利用ください。
|
|