parts storno fix

This commit is contained in:
ragu 2022-09-16 16:33:52 +02:00
parent eb09d2d480
commit 876d1e6df2
4 changed files with 8 additions and 2 deletions

View file

@ -1036,8 +1036,12 @@ sub insert_contentoid {
}
}
elsif($key =~ /template_id|cc_id|ct_id|ca_id/ && $insert->{table} =~ /contentpos|contentadrpos|contenttranspos/){
$columns .= "$key,";
$columns .= "$key,";
if(!looks_like_number($insert->{$key})){
$values .= "null,";
}else{
$values .= "'$insert->{$key}',";
}
}
}

View file

@ -456,6 +456,8 @@ sub price2calc {
$total = $einzel * $menge;
}
$total = $total * $ctpos->{int01} if($ctpos->{int01});
if($ctpos->{int07} && $ctpos->{int07} > 0 && $menge > 0){
$discount = "-" . $ctpos->{int07};
if($ctpos->{int08} && $ctpos->{int08} == 1){

View file

@ -586,7 +586,7 @@ EOF
print $q->div({-style=>"padding:0.5em;font-size:0.81em;width:98%;text-align:right;"},"<span style='color:red;'>$opos</span> $vibuchen_mtime Gebucht $ctt->{int01} € \"$ctt->{state}\"") if($ctt->{state});
}
if( -f "$varenv{pdfinvoice}/$praefix-$ctt->{ct_name}.pdf"){
if( -f "$varenv{basedir}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf"){
#print $q->div({-style=>"padding:0.5em;font-size:0.81em;width:98%;text-align:right;"}, "Download: ", $q->a({-href=>"$varenv{metahost}/pdf/$praefix-$ctt->{ct_name}.pdf", -target=>'_blank'},"$praefix-$ctt->{ct_name}.pdf"));
print $q->div({-style=>'padding:0.5em;font-size:0.81em;width:98%;text-align:right;'}, "Download: ", $q->a({-href=>"$varenv{wwwhost}/FileOut?file=$praefix-$ctt->{ct_name}.pdf&sessionid=$coo", -target=>"_blank" , -type=>'application/octet-stream', -style=>'text-decoration:underline;'}), "Rechnung $ctt->{ct_name}.pdf"),"\n";
}