diff --git a/copri4/main/src/Mod/Prelogic.pm b/copri4/main/src/Mod/Prelogic.pm index 824d92d..8cf2ebe 100755 --- a/copri4/main/src/Mod/Prelogic.pm +++ b/copri4/main/src/Mod/Prelogic.pm @@ -929,7 +929,7 @@ sub preinit(){ #collect sub-nodes #TODO - my $main_ids = "300008,300009";#Rechnung,Storno + my $main_ids = "300008,300009,300011";#Rechnung,Storno,Verkaufsjournal #my $main_ids = "$parent_trans->{main_id},"; #$main_ids .= $db->collect_noderec($parent_trans->{main_id},$lang,"nothing") if($parent_trans->{main_id}); #$main_ids =~ s/,$//; @@ -941,13 +941,13 @@ sub preinit(){ $sum_start = $lb->checkint($sum_start); $sum_kasse = $lb->checkint($sum_kasse); my $c_id4kasse = ""; - my $c_id4abschluss = $db->get_content6("$table","close_time","null","state","Kassenbestand","int09","$parent_trans->{parent_id}","","","$s_owner_id"); + my $c_id4abschluss = $db->get_content6("$table","close_time","null","state","Tagesabschluss","int09","$parent_trans->{parent_id}","","","$s_owner_id"); if($journal_id){ if($c_id4abschluss->{c_id} && $c_id4abschluss->{c_id} > 0){ $c_id4kasse = $c_id4abschluss->{c_id}; }else{ $ct_name = "--- auto ct_name = c_id ---"; - $c_id4kasse = $db->insert_content2($table,$ct_name,$users_dms->{u_id},"Kassenbestand"); + $c_id4kasse = $db->insert_content2($table,$ct_name,$users_dms->{u_id},"Tagesabschluss"); $i_rows += 1 if($c_id4kasse > 0); $db->update_content4change("contenttrans",$c_id4kasse,"$c_id4kasse"); $db->update_content4change("contenttrans",$c_id4kasse,"",$parent_trans->{parent_id},"int09");#mandant_main_id diff --git a/copri4/main/src/Mod/Shareework.pm b/copri4/main/src/Mod/Shareework.pm index 4850a3f..6803104 100755 --- a/copri4/main/src/Mod/Shareework.pm +++ b/copri4/main/src/Mod/Shareework.pm @@ -423,12 +423,10 @@ sub save_account(){ } $u_rows = $dbt->update_one($dbh,$update_primary,"$_='$valxx'"); } - }elsif($_ eq "int12"){ - if($varenv{dbname} eq "sharee_primary"){ - $u_rows = $dbt->update_one($dbh,$update_primary,"$_=2"); - }else{ - $u_rows = $dbt->update_one($dbh,$update_primary,"$_=$valxx"); - } + }elsif($_ eq "int12" && $varenv{dbname} ne "sharee_primary"){ + my $vde_on_fail = 0; + $vde_on_fail = 2 if($valxx && $valxx == 1); + $u_rows = $dbt->update_one($dbh,$update_primary,"$_=$vde_on_fail"); }elsif($_ =~ /^int|barcode/){ $u_rows = $dbt->update_one($dbh,$update_primary,"$_=$valxx"); }elsif($_ eq "ct_name" && $R::base_edit){ diff --git a/copri4/main/src/Tpl/Liste3.pm b/copri4/main/src/Tpl/Liste3.pm index fddd35c..851e155 100755 --- a/copri4/main/src/Tpl/Liste3.pm +++ b/copri4/main/src/Tpl/Liste3.pm @@ -987,7 +987,7 @@ sub tpl(){ $betrag =~ s/\./,/; print $q->td({-class=>'tdint',-style=>"$txtstyle $set_style"},"$betrag"),"\n"; } - }elsif($key =~ /int02/ && $ct4rel->{$id}->{state} eq "Kassenbestand"){ + }elsif($key =~ /int02/ && $ct4rel->{$id}->{state} eq "Tagesabschluss"){ print $q->td({-class=>'tdint',-style=>"$txtstyle $set_style"},$q->b("Anfangst. $ct4rel->{$id}->{$key}")),"\n"; }elsif($key =~ /int03/ && "$table" eq "contenttrans"){ print $q->td({-class=>'tdint',-style=>"$txtstyle $set_style"},""),"\n"; diff --git a/copri4/shareeapp-operator/src/Tpl/FormEdit.pm b/copri4/shareeapp-operator/src/Tpl/FormEdit.pm index 9daac33..1e564f5 100755 --- a/copri4/shareeapp-operator/src/Tpl/FormEdit.pm +++ b/copri4/shareeapp-operator/src/Tpl/FormEdit.pm @@ -312,7 +312,6 @@ Nach Abschluss der Registrierung erhalten Sie sowohl auf die von Ihnen hinterleg $ctrel->{$key} = $q->unescapeHTML("$ctrel->{$key}"); $ctrel->{$key} = $lb->newline($ctrel->{$key},"","1"); - #radID & timeCode from contenttranspos---------------- if($ctrel->{int03} && $path =~ /$varenv->{accounting_3}|$varenv->{profile}/){ if(1==1){ if($key =~ /ct_name/){ @@ -454,25 +453,7 @@ Nach Abschluss der Registrierung erhalten Sie sowohl auf die von Ihnen hinterleg $label_des="$des"; } - #sharee Tarife - if(1==2 && $key =~ /txt30/){ - #FIXME - print $q->div({-style=>'padding-top:10px;'}, "aktivierte Tarife: $ctrel->{$key}"),"\n" if($users_sharee->{txt08} =~ /gnu-systems|tux-edv/); - if(($R::failure && $R::failure =~ /^$key/) || ($ctrel->{txt31} && $ctrel->{txt31} =~ /$key/)){ - $autofocus = "autofocus"; - $label_des = "Bitte \"$des\" bestätigen"; - } - - my ($bike_group,$user_group,$tariff_all,$user_tour) = $apif->fetch_tariff($users_sharee,""); - my $required=""; - my @tariff = ("$ctrel->{$key}"); - @tariff = split(/\s/,$ctrel->{$key}) if($ctrel->{$key} =~ /\s/); - my $record_bonus = {c_id => 0}; - foreach my $rid (sort { $tariff_all->{$a}->{barcode} <=> $tariff_all->{$b}->{barcode} } keys (%$tariff_all)){ - print "xxxxxxxxxxxxx $tariff_all->{$rid}->{barcode} | $tariff_all->{$rid}->{int18}\n"; - }#end foreach tariff_all - - }elsif($key =~ /txt/ && $size eq "select" && $des eq "Land"){ + if($key =~ /txt/ && $size eq "select" && $des eq "Land"){ my $country = $lb->country_code(); $ctrel->{$key} = "DE" if(!$ctrel->{$key}); my @_valxx; @@ -497,12 +478,6 @@ Nach Abschluss der Registrierung erhalten Sie sowohl auf die von Ihnen hinterleg $required=""; $label_des = "$des"; } - elsif($key eq "txt07" && $R::failure && $R::failure =~ /conflict_txt07/){ - $autofocus = "autofocus"; - my ($failkey,$failval) = split(/=/,$R::failure); - $label_des = "Achtung, es existiert bereits ein Account mit der Telefon Nr.: $failval"; - $ctrel->{$key} = $R::conflict_txt07; - } elsif($key eq "txt08" && $R::failure && $R::failure =~ /conflict_txt08/){ $autofocus = "autofocus"; my ($failkey,$failval) = split(/=/,$R::failure); @@ -552,13 +527,14 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit print $q->div({-style=>'text-align:left;color:grey;'}, "", "Passwort anzeigen"),"\n" if($pw ne "xxxxxxxx"); }else{ #all other input textfields - $required = "";# if($key =~ /txt09|txt16/); print $q->label({-for=>"$key", -style=>'padding-top:1.5em;'},"$label_des"),"\n"; print "\n"; - }#end $key =~ /txt/ + } + } + #end $key =~ /txt/ #all int checkboxes disabled because of AGB downunder - }elsif($key =~ /int/ && $size eq "checkbox"){ + elsif($key =~ /int/ && $size eq "checkbox"){ if(($R::failure && $R::failure =~ /^$key/) || ($ctrel->{txt31} && $ctrel->{txt31} =~ /$key/)){ $autofocus = "autofocus"; $label_des = "Bitte \"$des\" bestätigen"; @@ -579,12 +555,9 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit #print $q->div({-class=>'content2'},"Bitte beachten Sie unsere Datenschutzhinweise."),"\n"; }elsif(1==2 && $key =~ /int02/){#newsletter - if($varenv->{wwwhost} !~ /konrad/){ print $q->label({-for=>"$key", -style=>'padding-top:10px;'},""),"\n"; print $q->div({-id=>"$key"},$but->checkbox("1","$key","$ctrel->{$key}","","$required"), " $des"),"\n"; print $q->hidden(-name=>"$key",-override=>1,-value=>"0"); - } - }else{ print $q->label({-for=>"$key", -style=>'padding-top:10px;'},""),"\n"; print $q->div({-id=>"$key"},$but->checkbox("1","$key","$ctrel->{$key}","","$required"), " $des"),"\n"; @@ -618,7 +591,7 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit } } - if($key eq "txt16" && $ctrel->{c_id} && !$R::confirm_success){ + if($key eq "txt16" && $ctrel->{c_id}){ print $q->div({-style=>'margin-top:1em;'},""),"\n"; }