開発用メモ:Crystalreports

Crystalreports 行数指定で改ページ

ページヘッダに「式フィールド」を追加。



WhilePrintingRecords;
numberVar line := 0;

詳細「式フィールド」を追加



WhilePrintingRecords;
numberVar line;
line := line + 1;

詳細のセクションエキスパート「出力後改ページ」にチェック&式



WhilePrintingRecords;
numberVar line;
line = 25

★年回別帳票で、~年回・~回忌・回会で対応するためには

(1)「年忌グループ」という以下の式を作る※グループ名:年忌グループの降順でグループ化・月日順の昇順でソート

if {Old2.TYMemo}="初盆" then 9999
else
{Old2.Seireki}

(2)グループ化を「年忌グループ」 に変更、グループの並び替えを「降順」に設定

(3)レイアウト→「複数の列でグループを書式設定」

===================

短冊の命日和暦

式:xday

if isnull({Old.DeathDate}) then
switch ({Old.Gappi}="", “",
right({Old.Gappi}, Len({Old.Gappi})-Instr({Old.Gappi},"月"))="","",
true, right({Old.Gappi}, Len({Old.Gappi})-Instr({Old.Gappi},"月"))) else
switch (Instr(ToWords(Day({Old.DeathDate}),0,1),"一十") <> 0,Replace (ToWords(Day({Old.DeathDate}),0,1),"一十","十") & “日",
true,ToWords(Day({Old.DeathDate}),0,1) & “日")

式:xmonth

if isnull({Old.DeathDate}) then
switch ({Old.Gappi}="", “",
Left({Old.Gappi}, Instr({Old.Gappi},"月"))="","",
true, Left({Old.Gappi}, Instr({Old.Gappi},"月"))) else
switch (Instr(ToWords(month({Old.DeathDate}),0,1),"一十") <> 0,Replace (ToWords(month({Old.DeathDate}),0,1),"一十","十") & “月",
true,ToWords(month({Old.DeathDate}),0,1) & “月")

式:命日

{Old.JapanYear} & {@xmonth} & {@xday}

=========================
西暦の縦書き表示用

関数が使えない時のチカラワザ

Local StringVar target := cstr({Old2.Seireki});
target := Replace(target, “.00″,"");
target := Replace(target, “,","");
target := Replace(target, “1","一");
target := Replace(target, “2","二");
target := Replace(target, “3","三");
target := Replace(target, “4","四");
target := Replace(target, “5","五");
target := Replace(target, “6","六");
target := Replace(target, “7","七");
target := Replace(target, “8","八");
target := Replace(target, “9","九");
target := Replace(target, “0","〇");

Local StringVar target := {Old.JapanYear};
target := Replace(target, “七十","70″);
target := Replace(target, “六十九","69″);
target := Replace(target, “六十八","68″);
target := Replace(target, “六十七","67″);
target := Replace(target, “六十六","66″);
target := Replace(target, “六十五","65″);
target := Replace(target, “六十四","64″);
target := Replace(target, “六十三","63″);
target := Replace(target, “六十二","62″);
target := Replace(target, “六十一","61″);
target := Replace(target, “六十","60″);
target := Replace(target, “五十九","59″);
target := Replace(target, “五十八","58″);
target := Replace(target, “五十七","57″);
target := Replace(target, “五十六","56″);
target := Replace(target, “五十五","55″);
target := Replace(target, “五十四","54″);
target := Replace(target, “五十三","53″);
target := Replace(target, “五十二","52″);
target := Replace(target, “五十一","51″);
target := Replace(target, “五十","50″);
target := Replace(target, “四十九","49″);
target := Replace(target, “四十八","48″);
target := Replace(target, “四十七","47″);
target := Replace(target, “四十六","46″);
target := Replace(target, “四十五","45″);
target := Replace(target, “四十四","44″);
target := Replace(target, “四十三","43″);
target := Replace(target, “四十二","42″);
target := Replace(target, “四十一","41″);
target := Replace(target, “四十","40″);
target := Replace(target, “三十九","39″);
target := Replace(target, “三十八","38″);
target := Replace(target, “三十七","37″);
target := Replace(target, “三十六","36″);
target := Replace(target, “三十五","35″);
target := Replace(target, “三十四","34″);
target := Replace(target, “三十三","33″);
target := Replace(target, “三十二","32″);
target := Replace(target, “三十一","31″);
target := Replace(target, “三十","30″);
target := Replace(target, “二十九","29″);
target := Replace(target, “二十八","28″);
target := Replace(target, “二十七","27″);
target := Replace(target, “二十六","26″);
target := Replace(target, “二十五","25″);
target := Replace(target, “二十四","24″);
target := Replace(target, “二十三","23″);
target := Replace(target, “二十二","22″);
target := Replace(target, “二十一","21″);
target := Replace(target, “二十","20″);
target := Replace(target, “十九","19″);
target := Replace(target, “十八","18″);
target := Replace(target, “十七","17″);
target := Replace(target, “十六","16″);
target := Replace(target, “十五","15″);
target := Replace(target, “十四","14″);
target := Replace(target, “十三","13″);
target := Replace(target, “十二","12″);
target := Replace(target, “十一","11″);
target := Replace(target, “十","10″);
target := Replace(target, “九","9″);
target := Replace(target, “八","8″);
target := Replace(target, “七","7″);
target := Replace(target, “六","6″);
target := Replace(target, “五","5″);
target := Replace(target, “四","4″);
target := Replace(target, “三","3″);
target := Replace(target, “二","2″);
target := Replace(target, “一","1″);

============================

Local StringVar target := {Old2.BuddhistNameKana};
target := Replace(target, “ァ","ぁ");
target := Replace(target, “ィ","ぃ");
target := Replace(target, “ゥ","ぅ");
target := Replace(target, “ェ","ぇ");
target := Replace(target, “ォ","ぉ");
target := Replace(target, “ガ","が");
target := Replace(target, “ギ","ぎ");
target := Replace(target, “グ","ぐ");
target := Replace(target, “ゲ","げ");
target := Replace(target, “ゴ","ご");
target := Replace(target, “ザ","ざ");
target := Replace(target, “ジ","じ");
target := Replace(target, “ズ","ず");
target := Replace(target, “ゼ","ぜ");
target := Replace(target, “ゾ","ぞ");
target := Replace(target, “ダ","だ");
target := Replace(target, “ヂ","ぢ");
target := Replace(target, “ヅ","づ");
target := Replace(target, “デ","で");
target := Replace(target, “ド","ど");
target := Replace(target, “バ","ば");
target := Replace(target, “ビ","び");
target := Replace(target, “ブ","ぶ");
target := Replace(target, “ベ","べ");
target := Replace(target, “ボ","ぼ");
target := Replace(target, “パ","ぱ");
target := Replace(target, “ピ","ぴ");
target := Replace(target, “プ","ぷ");
target := Replace(target, “ペ","ぺ");
target := Replace(target, “ポ","ぽ");
target := Replace(target, “ア","あ");
target := Replace(target, “イ","い");
target := Replace(target, “ウ","う");
target := Replace(target, “エ","え");
target := Replace(target, “オ","お");
target := Replace(target, “カ","か");
target := Replace(target, “キ","き");
target := Replace(target, “ク","く");
target := Replace(target, “ケ","け");
target := Replace(target, “コ","こ");
target := Replace(target, “サ","さ");
target := Replace(target, “シ","し");
target := Replace(target, “ス","す");
target := Replace(target, “セ","せ");
target := Replace(target, “ソ","そ");
target := Replace(target, “タ","た");
target := Replace(target, “タ","ち");
target := Replace(target, “ッ","っ");
target := Replace(target, “ツ","つ");
target := Replace(target, “テ","て");
target := Replace(target, “ト","と");
target := Replace(target, “ナ","な");
target := Replace(target, “ニ","に");
target := Replace(target, “ヌ","ぬ");
target := Replace(target, “ネ","ね");
target := Replace(target, “ノ","の");
target := Replace(target, “ハ","は");
target := Replace(target, “ヒ","ひ");
target := Replace(target, “フ","ふ");
target := Replace(target, “ヘ","へ");
target := Replace(target, “ホ","ほ");
target := Replace(target, “マ","ま");
target := Replace(target, “ミ","み");
target := Replace(target, “ム","む");
target := Replace(target, “メ","め");
target := Replace(target, “モ","も");
target := Replace(target, “ャ","ゃ");
target := Replace(target, “ヤ","や");
target := Replace(target, “ュ","ゅ");
target := Replace(target, “ユ","ゆ");
target := Replace(target, “ョ","ょ");
target := Replace(target, “ヨ","よ");
target := Replace(target, “ラ","ら");
target := Replace(target, “リ","り");
target := Replace(target, “ル","る");
target := Replace(target, “レ","れ");
target := Replace(target, “ロ","ろ");
target := Replace(target, “ヮ","ゎ");
target := Replace(target, “ワ","わ");
target := Replace(target, “ヲ","を");
target := Replace(target, “ン","ん");
target := Replace(target, “ァ","ぁ");
target := Replace(target, “ィ","ぃ");
target := Replace(target, “ゥ","ぅ");
target := Replace(target, “ェ","ぇ");
target := Replace(target, “ォ","ぉ");
target := Replace(target, “ガ","が");
target := Replace(target, “ギ","ぎ");
target := Replace(target, “グ","ぐ");
target := Replace(target, “ゲ","げ");
target := Replace(target, “ゴ","ご");
target := Replace(target, “ザ","ざ");
target := Replace(target, “ジ","じ");
target := Replace(target, “ズ","ず");
target := Replace(target, “ゼ","ぜ");
target := Replace(target, “ゾ","ぞ");
target := Replace(target, “ダ","だ");
target := Replace(target, “ヂ","ぢ");
target := Replace(target, “ヅ","づ");
target := Replace(target, “デ","で");
target := Replace(target, “ド","ど");
target := Replace(target, “バ","ば");
target := Replace(target, “ビ","び");
target := Replace(target, “ブ","ぶ");
target := Replace(target, “ベ","べ");
target := Replace(target, “ボ","ぼ");
target := Replace(target, “パ","ぱ");
target := Replace(target, “ピ","ぴ");
target := Replace(target, “プ","ぷ");
target := Replace(target, “ペ","ぺ");
target := Replace(target, “ポ","ぽ");
target := Replace(target, “ア","あ");
target := Replace(target, “イ","い");
target := Replace(target, “ウ","う");
target := Replace(target, “エ","え");
target := Replace(target, “オ","お");
target := Replace(target, “カ","か");
target := Replace(target, “キ","き");
target := Replace(target, “ク","く");
target := Replace(target, “ケ","け");
target := Replace(target, “コ","こ");
target := Replace(target, “サ","さ");
target := Replace(target, “シ","し");
target := Replace(target, “ス","す");
target := Replace(target, “セ","せ");
target := Replace(target, “ソ","そ");
target := Replace(target, “タ","た");
target := Replace(target, “チ","ち");
target := Replace(target, “ッ","っ");
target := Replace(target, “ツ","つ");
target := Replace(target, “テ","て");
target := Replace(target, “ト","と");
target := Replace(target, “ナ","な");
target := Replace(target, “ニ","に");
target := Replace(target, “ヌ","ぬ");
target := Replace(target, “ネ","ね");
target := Replace(target, “ノ","の");
target := Replace(target, “ハ","は");
target := Replace(target, “ヒ","ひ");
target := Replace(target, “フ","ふ");
target := Replace(target, “ヘ","へ");
target := Replace(target, “ホ","ほ");
target := Replace(target, “マ","ま");
target := Replace(target, “ミ","み");
target := Replace(target, “ム","む");
target := Replace(target, “メ","め");
target := Replace(target, “モ","も");
target := Replace(target, “ャ","ゃ");
target := Replace(target, “ヤ","や");
target := Replace(target, “ュ","ゅ");
target := Replace(target, “ユ","ゆ");
target := Replace(target, “ョ","ょ");
target := Replace(target, “ヨ","よ");
target := Replace(target, “ラ","ら");
target := Replace(target, “リ","り");
target := Replace(target, “ル","る");
target := Replace(target, “レ","れ");
target := Replace(target, “ロ","ろ");
target := Replace(target, “ヮ","ゎ");
target := Replace(target, “ワ","わ");
target := Replace(target, “ヲ","を");
target := Replace(target, “ン","ん");