私はちょうど進行中のアプリケーションビルダーで新しいレポートを設計したいと思います。進行中のレポートの作成方法App Builder?
例: 入力パラメータとして従業員番号を渡し、それぞれの従業員の詳細をExcelシートで取得したいだけです。進行中のコードを書く方法については、画像をご覧ください。
おかげで、もちろん
私はちょうど進行中のアプリケーションビルダーで新しいレポートを設計したいと思います。進行中のレポートの作成方法App Builder?
例: 入力パラメータとして従業員番号を渡し、それぞれの従業員の詳細をExcelシートで取得したいだけです。進行中のコードを書く方法については、画像をご覧ください。
おかげで、もちろん
私はあなたのDBは、実際に編成されているが、次のようなものがプロシージャに渡された従業員番号にマッチする「従業員」のすべてのレコードをエクスポートする方法さっぱりだが。出力はExcelが開くのに適したCSVファイルになります。それはあなたが最初に好きかもしれない構文に関するいくつかのアイデアを与える必要があります。
define variable employeeNum as integer no-undo.
update employeeNum.
run exportEmployees (input employeeNum).
procedure exportEmployee:
define input parameter empNum as integer no-undo.
define buffer employee for employee.
output to value("employee.csv").
for each employee no-lock where employee.employeeId = empNum:
export delimiter "," employee.
end.
output close.
return.
end.
データをExcelに簡単に取得する方法は、EXPORTを使用することです。
すなわちかかわらフォーマットせずにエクスポートします
OUTPUT TO file.csv.
FOR EACH Customer NO-LOCK:
EXPORT DELIMITER ";" Customer.
END.
OUTPUT CLOSE.
。
エクセルのバージョンによっては、保存したファイルを開くのではなく、直接処理することができます。
http://knowledgebase.progress.com/articles/Article/21671
あなたのコードは、上記の例のようになりますが、あなたは変更します/ *次のようなものへのデータ* /セクションを追加します。
FOR EACH EMP NO-LOCK
WHERE EMP.EMPNO = INTEGER(EMPNO:SCREEN-VALUE):
/* Add data */
ASSIGN chWorksheet:Range("B1"):VALUE = EMP.ENAME
chWorksheet:Range("B2"):VALUE = EMP.SAL.
END.
これは、埋め込みが「EMPNO」と呼ばれ、EMPNOフィールドが整数であることを前提としています。