開発用メモ：Crystalreports

Crystalreports 行数指定で改ページ

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

WhilePrintingRecords;
numberVar line := 0;

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

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

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

WhilePrintingRecords;
numberVar line;
line = 25

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

（１）「年忌グループ」という以下の式を作る※グループ名：年忌グループの降順でグループ化・月日順の昇順でソート

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

（２）グループ化を「年忌グループ」 に変更、グループの並び替えを「降順」に設定

（３）レイアウト→「複数の列でグループを書式設定」

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

短冊の命日和暦

式：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, “ﾝ”,”ん”);