| $ref->[$i] | }; }else{ print td($ref->[$i]); } } print "
";
if($s->{in}->param('action') =~ /(nonpage|excel|ftp)/){
$s->{rwt}->{maxline} = 9999999;
}
return $s;
}
sub prtSetting{
my $s = shift;
my @arg = @_;
if($#arg == -1){
@arg = (0,5,0,5);
}
if($#arg == 3){
$s->{cons}->{printSetting} =~ s/leftMargin = 0;/leftMargin = $arg[3];/;
$s->{cons}->{printSetting} =~ s/rightMargin = 0;/rightMargin = $arg[1];/;
$s->{cons}->{printSetting} =~ s/topMargin = 0;/topMargin = $arg[0];/;
$s->{cons}->{printSetting} =~ s/bottomMargin = 0;/bottomMargin = $arg[2];/;
}
}
sub rwt_init_prepare{
my $s = shift;
return $s->{dbh}->{dbh}->prepare($s->{rwt}->{sql});
}
sub printout{
my $s = shift;
if($s->{rwt}->{page} < $s->{rwt}->{RestartPage}){
return;
}
if($s->{rwt}->{page} > $s->{rwt}->{RestartPage_E}){
return;
}
print @_;
}
sub rwt_start{
my $s = shift;
my $level;
$s->{rwt}->{break_level} = -1;
while($s->{rwt}->{ref} = $s->rwt_dataget()){
$s->{rwt}->{line} = [];
$s->{rwt}->{rskip} = 0;
$s->{rwt}->{endsw} = 0;
$s->rwt_tisel($s);
if($s->{rwt}->{endsw} != 0
or $s->{rwt}->{page} > $s->{rwt}->{RestartPage_E}){
$ref = undef;
last;
}
next if($s->{rwt}->{rskip} == 1);
unless($s->{rwt}->{oref}){
$s->rwt_data_save();
}
$s->break_check($s);
$s->rwt_dtail($s);
$s->rwt_dtail_opt($s);
$s->rwt_print_dt($s);
$s->rwt_sumry($s);
$s->rwt_sumcomp($s);
$s->{rwt}->{headPrint} = 0;
}
$s->{rwt}->{break_level} = 99;
# $s->break_check(99);
$s->break_routine(99);
$s->bottom_print();
# print "";
return $s;
}
sub bottom_print{
my $s = shift;
$s->printout( "");
$s->printout( $s->{rwt}->{BOTTOM}) if($s->{rwt}->{BOTTOM});
}
=head2 rwt_dataget １件リード
データ１件リードしハッシュのリファレンスを返す
=cut
sub rwt_dataget{
my $s = shift;
return $s->{rwt}->{sth}->fetchrow_hashref();
}
sub rwt_data_save{
my $s = shift;
for(@{$s->{rwt}->{sth}->{'NAME'}}){
$s->{rwt}->{oref}->{$_} = $s->{rwt}->{ref}->{$_};
}
}
=head2 rwt_tisel １件リード後のサブルーチン
データ読み飛ばしや終了の判断を行う。
データ読み飛ばしたい時は$obj->{rwt}->{rskip}に1をセット。
終了したい時は$obj->{rwt}->{endsw}に1をセット。
=cut
sub rwt_tisel{
my $s = shift;
}
sub break_check{
my $s = shift;
my $level = shift;
my $i = 0;
$s->{rwt}->{break_level} = -1;
for ($i = $s->key_count;$i>=0;$i--){
if($s->{rwt}->{ref}->{$s->{rwt}->{key}[$i]} ne
$s->{rwt}->{okey}[$i]){
$s->{rwt}->{break_level} = $i;
$s->break_routine($i);
last;
}
}
for ($i = $s->key_count;$i>=0;$i--){
$s->{rwt}->{okey}[$i] =
$s->{rwt}->{ref}->{$s->{rwt}->{key}[$i]};
}
$s->rwt_data_save();
if($level != 99){
if($s->{rwt}->{lcnt} > $s->{rwt}->{maxline} or
$s->{rwt}->{lcnt} == 0){
$s->rwt_head_print();
}
}
}
sub key_count{
my $s = shift;
my $count = 0;
for(@{$s->{rwt}->{key}}){$count++;}
return --$count;
}
sub break_routine{
my $s = shift;
my $i = shift;
my $j;
my $tmp ;
if($s->{rwt}->{page} != 0){
for $j (0 .. $i){
$tmp = "level$j";
$s->rwt_print_levelset($j);
eval{
$s->$tmp($i);
};
$s->rwt_print_level($j);
}
}
}
=head2 level0,level1 .. level99 キー項目ブレーク処理
キー項目($obj->{rwt}->{Key}[0 ..])に設定した項目がブレーク
した時に処理するルーチン
level99はeof後処理（総合計印字用）
=cut
sub level0{ my $s = shift; my $break = shift; }
sub level1{ my $s = shift; my $break = shift; }
sub level2{ my $s = shift; my $break = shift; }
sub level3{ my $s = shift; my $break = shift; }
sub level4{ my $s = shift; my $break = shift; }
sub level5{ my $s = shift; my $break = shift; }
sub level99{ my $s = shift; my $break = shift; }
=head2 rwt_dtail 明細印字前ルーチン
明細を印字前に処理されるルーチン
独自に明細を編集したい時には'rwt_dtail'をオーバーライドする。
$self->{rwt}->{line}[0..] :明細内容をこの配列にセット
=cut
sub rwt_dtail_opt{
my $s = shift;
}
sub rwt_dtail_bef{
my $s = shift;
}
sub rwt_dtail{
my $s = shift;
$s->rwt_dtail_bef();
my $i = 0;
$s->{rwt}->{line}[0] = "| {rwt}->{-column}>}); }elsif($s->{rwt}->{page} % $s->{rwt}->{-column} != 1){ $s->printout(qq{ |
| {rwt}->{-column}>}); } $s->rwt_header($s); $i = 0; for(@{$s->{rwt}->{hdline}}){ if($i == 0){ if($s->{rwt}->{page} % $s->{rwt}->{-column} == 1){ $s->printout("$_ |
| });
}
}else{ $s->printout($_);}
$s->{rwt}->{lcnt}++;
$i++;
}
$s->{rwt}->{headPrint} = 1;
return;
}
if($s->{in}->param('action') =~ /ftp/){
$s->{rwt}->{lcnt} = 0;
$s->rwt_header($s);
print CSV $s->{dbh}->euc2sj($s->{rwt}->{hdline}[1]);
$s->{rwt}->{headPrint} = 1;
return;
}
if($s->{in}->param('action') =~ /excel/){
$s->{rwt}->{lcnt} = 0;
$s->rwt_header($s);
for(@{$s->{rwt}->{hdline}}){
#print $s->{dbh}->euc2sj($_),"\n";
$s->printout($_,"\n");
$s->{rwt}->{lcnt}++;
}
$s->{rwt}->{headPrint} = 1;
return;
}
if($s->{rwt}->{page} != $s->{rwt}->{RestartPage}){
$s->{rwt}->{page}--;
$s->bottom_print();
$s->{rwt}->{page}++;
$s->page_break();
}else{ $s->printout(' '); } $s->{rwt}->{lcnt} = 0; $s->rwt_header($s); for(@{$s->{rwt}->{hdline}}){ $s->printout( $_); $s->{rwt}->{lcnt}++; } $s->{rwt}->{headPrint} = 1; } sub page_break{ my $s = shift; $s->printout(' '); } sub rwt_print_levelset{ my $s = shift; my $i = shift; my $tmp = "level$i"; my $j; my $edt; my $tuuka =''; if(exists $s->{rwt}->{sum}->{$i}){ $s->{rwt}->{$tmp}[0] = " |