projekt kivitendo

# 20.10.2009 sschoeling: this sub seems to be orphaned.

sub stichtag {

  $main::lxdebug->enter_sub();

  # noch nicht fertig

  # soll mal eine Erinnerungsfunktion für USTVA Abgaben werden, die automatisch

  # den Termin der nächsten USTVA anzeigt.

  #

  #

  my ($today, $FA_dauerfrist, $FA_voranmeld) = @_;

  #$today zerlegen:

  #$today =today * 1;

  $today =~ /(\d\d\d\d)(\d\d)(\d\d)/;

  my $year     = $1;

  my $month    = $2;

  my $day      = $3;

  my $yy       = $year;

  my $mm       = $month;

  my $yymmdd   = "$year$month$day" * 1;

  my $mmdd     = "$month$day" * 1;

  my $stichtag = '';

  #$tage_bis = '1234';

  #$ical = '...vcal format';

  #if ($FA_voranmeld eq 'month'){

  my %liste = (

    "0110" => 'December',

    "0210" => 'January',

    "0310" => 'February',

    "0410" => 'March',

    "0510" => 'April',

    "0610" => 'May',

    "0710" => 'June',

    "0810" => 'July',

    "0910" => 'August',

    "1010" => 'September',

    "1110" => 'October',

    "1210" => 'November',

  );

  #$mm += $dauerfrist

  #$month *= 1;

  $month += 1 if ($day > 10);

  $month    = sprintf("%02d", $month);

  $stichtag = $year . $month . "10";

  my $ust_va   = $month . "10";

  foreach my $date (%liste) {

    $ust_va = $liste{$date} if ($date eq $stichtag);

  }

  #} elsif ($FA_voranmeld eq 'quarter'){

  #1;

  #}

  #@stichtag = ('10.04.2004', '10.05.2004');

  #@liste = ['0110', '0210', '0310', '0410', '0510', '0610', '0710', '0810', '0910',

  #          '1010', '1110', '1210', ];

  #

  #foreach $key (@liste){

  #  #if ($ddmm < ('0110' * 1));

  #  if ($ddmm ){}

  #  $stichtag = $liste[$key - 1] if ($ddmm > $key);

  #

  #}

  #

  #$stichtag =~ /([\d]\d)(\d\d)$/

  #$stichtag = "$1.$2.$yy"

  #$stichtag=$1;

  our $description; # most probably not existent.

  our $tage_bis;    # most probably not existent.

  our $ical;        # most probably not existent.

  $main::lxdebug->leave_sub();

  return ($stichtag, $description, $tage_bis, $ical);

}