| Current Path : /var/www/web-klick.de/dsh/90_akt/b2/2007/10-1500/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/b2/2007/10-1500/render.umsatzsteuer |
$text = `less $ARGV[0]`;
map { $o = sprintf("%02u",$o+1); $text =~ s/$_/$o/g } qw(Januar Februar Ma[e\"]rz April Mai Juni Juli August
September Oktober November Dezember alenderjahr);
#--------------------------------------------
$text =~ s/(UST-ERKLAERUNG|Umsatzsteuererklaerung)(.*?\D)(\d\d\d\d)(\D)/Umsatzsteuer 13 $3 $2$4/s;
if ($text !~ /Umsatzsteuer.*?(\d\d) +(\d\d\d\d)/s) { print "101"; exit; }
$jahr = $2; $monat = $1;
$text1 = "UST_$jahr\_$monat\n";
while ($text =~ s/(\d)\.(\d+\,\d\d)/$1$2/) { 1; }
$o->{83} = "USTVA $jahr$monat"."01";
$o->{820} = "UST-Erklaerung $jahr";
#--------------------------------------------
$o1 = join("|",keys %$o);
while ($text =~ s/\s($o1)\s+(\-?\d+)\,(\d\d)/-x-x-x-/s) {
$text1 = $text1 . "$jahr$monat"."22 -".sprintf("%3.2f","$2\.$3")." - 13-9999 0.00 $o->{$1}\n";
}
$o = "1230";
$text1 =~ s/\n(\d\d\d\d)1322 /\n$1$o /gs;
$text1 =~ s/ \-\-/ /g; print $text1;