roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-13 07:06:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

invoice mailing

Browse source
This commit is contained in:
Rainer Gümpelein 2022-02-01 20:53:23 +01:00
parent 4d9395808c
commit f852443c6d
13 changed files with 97 additions and 126 deletions
Download patch file Download diff file Expand all files Collapse all files

13
copri4/main/src/Tpl/MandantConf.pm
View file

@ -83,6 +83,7 @@ sub tpl(){
print $q->hidden(-name=>'owner',-override=>'1', -value=>"$users_dms->{u_id}");
print $q->hidden(-name=>'c_id',-override=>'1', -value=>"$ct->{c_id}");
print $q->hidden(-name=>'rel_id',-override=>'1', -value=>"$rel->{rel_id}");
print $q->hidden(-name=>'main_id',-override=>'1', -value=>"$rel->{main_id}");
print $but->singlesubmit7("rel_edit","save_user","$ib{save}");
print "</td>\n";
}else{
@ -96,13 +97,13 @@ sub tpl(){
foreach (@tpl_order){
$i++;
my ($key,$des,$size) = split /=/,$_;
$size = "60" if($key =~ /ct_name|txt/ && !$size);
$size = "60" if($key =~ /ct_name|txt|img/ && !$size);
$ct->{$key} = $q->unescapeHTML("$ct->{$key}");
$ct->{$key} = $lb->newline($ct->{$key});
my $value = "";
if($R::config2edit){
if($size eq "area"){
$value = "<textarea class='etxtarea' name='$key' rows=2 cols=40>$ct->{$key}</textarea>";
$value = "<textarea class='etxtarea' name='$key' rows=2 cols=60>$ct->{$key}</textarea>";
}elsif($size =~ /\w\+\w/){
my ($a,$b) = split /\+/,$size;
my $a_checked;
@ -110,18 +111,20 @@ sub tpl(){
$a_checked = "checked" if($ct->{$key} eq "$a" || !$ct->{$key});
$b_checked = "checked" if($ct->{$key} eq "$b");
$value = "$a <input type='radio' name='$key' value='$a' $a_checked> $b <input type='radio' name='$key' value='$b' $b_checked>";
}elsif($key =~ /txt|ct_name/){
}elsif($key =~ /txt/){
$value = "<input class='etxt' type='text' name='$key' value='$ct->{$key}' size=$size maxlength=200>";
}elsif($key =~ /int/){
$value = "<input class='etxt' type='text' name='$key' value='$ct->{$key}' size=6 maxlength=10>";
}elsif($key =~ /img/){
$value = "<input class='etxt' type='text' name='$key' value='$ct->{$key}' size=40 maxlength=40>";
$value = "<input class='etxt' type='text' name='$key' value='$ct->{$key}' size=$size maxlength=200>";
}
}else{
$value = "$ct->{$key}";
}
print $q->Tr();
if($key =~ /header/){
if($key =~ /header01/){
print $q->td({-class=>'tdval2',-colspan=>'2'},$q->b("<br />$dbt->{operator}->{$varenv{dbname}}->{project} $dbt->{operator}->{$varenv{dbname}}->{oprefix} $dbt->{operator}->{$varenv{dbname}}->{database}->{dbname}")),"\n";
}elsif($key =~ /header/){
print $q->td({-class=>'tdval2',-colspan=>'2'},$q->b("<br />$des")),"\n";
}elsif($users_dms->{u_id} eq $varenv{superu_id}){
print $q->td({-class=>'tdescr2'},"$des ($key)"),"\n";

41
copri4/main/src/Tpl/TransPositionen.pm
View file

@ -71,8 +71,10 @@ sub tpl(){
my $vibuchen_mtime = "";
$vibuchen_mtime = "Payone post " . $lb->time4de($ctt->{pay_time},1) . " . " if($ctt->{pay_time});
my $tpl = $db->get_tpl($ctf->{txt36});
my $tpl = $db->get_tpl("208");
my @tpl_order = split /,/,$tpl->{tpl_order};
my $tplf = $db->get_tpl("201");#Firma tpl
my @tplf_order = split /,/,$tplf->{tpl_order};
my $txt20 = $R::txt20 || $ctt->{txt20} || "";#Leistungsdatum
my $int05 = $R::int05 || $ctt->{int05} || "";#manuell
@ -233,19 +235,10 @@ EOF
$gesamt = $lb->round($gesamt);
$gesamt = $lb->cashme($gesamt);
$ctf->{txt13} = $1 if($ctf->{txt13} =~ /(\d+)/);
if($node_name =~ /steuerfrei/){#dirty hack
$sum_parts0 += $gesamt;
}elsif("$cttpos->{$id}->{int05}" =~ /\d/){
$sum_parts0 += $gesamt if("$cttpos->{$id}->{int05}" == "0");
$sum_parts7 += $gesamt if("$cttpos->{$id}->{int05}" == "7");
#$sum_parts19 += $gesamt if("$cttpos->{$id}->{int05}" == "19");
$sum_parts19 += $gesamt if($cttpos->{$id}->{int05} >= 16);
if($cttpos->{$id}->{int05} =~ /\d/){
$sum_parts19 += $gesamt;
}else{
#print "yyy $gesamt $ctf->{txt13} |";
$sum_parts0 += $gesamt if("$ctf->{txt13}" == "0");
$sum_parts7 += $gesamt if("$ctf->{txt13}" == "7");
$sum_parts19 += $gesamt if("$ctf->{txt13}" >= "16");
$sum_parts19 += $gesamt;
}
#1. Spalte
@ -428,10 +421,30 @@ EOF
$sum_umst19 = $lb->cashme($sum_umst19,",");
$sum_paid = $lb->cashme($sum_paid,",");
my $payment_text = "";
foreach(@tplf_order){
my ($key,$des,$size) = split /=/,$_;
if($key =~ /txt5\d/){
$ctf->{$key} = $q->unescapeHTML("$ctf->{$key}");
$ctf->{$key} = $lb->newline($ctf->{$key},"","");
$ctt->{state} =~ s/\(payone.*//;
if($des =~ /$ctt->{state}/){
if($sum_parts19 < 0){
$payment_text = "$ctf->{txt58}";
}else{
$payment_text = "$ctf->{$key}";
}
}
}
}
my $n="5";
my $m= 1 + $k - $n;
$m++;
print "<tr><td colspan='$m'>&nbsp;</td><td style='font-size:1em;' colspan='$n'>\n";
print "<tr>\n";
print "<td class='element' style='border:0;' colspan='$m'>$payment_text</td>\n";
print "<td style='font-size:1em;' colspan='$n'>\n";
print $q->start_table({-class=>'list',-style=>'border-top:1px;border-style:solid;border-color:black;', -border=>'0', -width=>'100%',-align=>'center', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
print $q->Tr("\n");
print $q->td("&nbsp;");