roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2024-09-20 21:24:28 +02:00
Code Issues Projects Releases Packages Wiki Activity

set Tagesbericht

Browse source
This commit is contained in:
Rainer Gümpelein 2022-02-22 21:57:57 +01:00
parent efb06142c0
commit 6b7a616b44
2 changed files with 14 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
copri4/main/src/Mod/Prelogic.pm
View file

@ -104,13 +104,12 @@ sub preinit(){
#actual-path an get right mandant for verkauf #actual-path an get right mandant for verkauf
$R::kind_of_trans = $R::kind_of_trans || $users_dms->{kind_of_trans}; $R::kind_of_trans = $R::kind_of_trans || $users_dms->{kind_of_trans};
my $node_mandant = $db->get_node2($users_dms->{fullurl},"$R::kind_of_trans",$lang); my $mandant_main_id = 100002;
my $mandant_main_id = $R::mandant_main_id || $node_mandant->{parent_id}; my $parent_trans = $db->get_node3("$mandant_main_id","Faktura","$lang") if($mandant_main_id);
my $parent_trans = $db->get_node3("$mandant_main_id","$R::kind_of_trans","$lang") if($mandant_main_id); my $ctf = $db->get_content1("contentuser","$mandant_main_id");
my $ctf = $db->get_content1("contentuser","$node_mandant->{parent_id}");
my $ctb = $db->get_content1("contentuser","$users_dms->{u_id}"); my $ctb = $db->get_content1("contentuser","$users_dms->{u_id}");
if($node_mandant->{parent_id} && !$parent_trans->{main_id}){ if(!$parent_trans->{main_id}){
return "failure::Fehler<br /> keine eindeutige Modulzuweisung vorhanden."; return "failure::Fehler<br /> keine eindeutige Modulzuweisung vorhanden.";
} }
my $rel = $db->get_rel4tpl4nd($parent_trans->{main_id},$lang,$users_dms->{c_id4trans}); my $rel = $db->get_rel4tpl4nd($parent_trans->{main_id},$lang,$users_dms->{c_id4trans});
@ -833,7 +832,8 @@ sub preinit(){
$ctt->{sequence} = $R::payone_sequence || 1; $ctt->{sequence} = $R::payone_sequence || 1;
#only if int14 = OPOS (set by preauthorization) #only if int14 = OPOS (set by preauthorization)
if($ctt->{int14}){ #if($ctt->{int14}){#TODO doupleclick
if(1==1){
#SEPA capture #SEPA capture
if($ctt->{int03} == 1 && $ctt->{txt16} && $R::state =~ /SEPA/){#SEPA if($ctt->{int03} == 1 && $ctt->{txt16} && $R::state =~ /SEPA/){#SEPA
my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id}); my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
@ -928,11 +928,13 @@ sub preinit(){
} }
#collect sub-nodes #collect sub-nodes
my $main_ids = "$parent_trans->{main_id},"; #TODO
$main_ids .= $db->collect_noderec($parent_trans->{main_id},$lang,"nothing") if($parent_trans->{main_id}); my $main_ids = "300008,300009";#Rechnung,Storno
$main_ids =~ s/,$//; #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/,$//;
my $tpl_vk="$R::tpl_id"; my $tpl_vk = "218";
my $table = "contenttrans"; my $table = "contenttrans";
my $sum_start = $R::sum_start || "0"; my $sum_start = $R::sum_start || "0";
my $sum_kasse = $R::sum_kasse || "0"; my $sum_kasse = $R::sum_kasse || "0";
@ -968,8 +970,8 @@ sub preinit(){
my $rows = $db->count_content($table,"$_","$tpl_vk"); my $rows = $db->count_content($table,"$_","$tpl_vk");
$db->updater("nodes","main_id",$_,"int10",$rows) if($_ > 300000 && $rows =~ /\d/); $db->updater("nodes","main_id",$_,"int10",$rows) if($_ > 300000 && $rows =~ /\d/);
} }
print $q->div({-class=>'elementwhite'},"1... redirecting to ... or CLICK ", $q->a({href=>"$varenv{wwwhost}/DMS/Faktura/Verleihjournal"},"$varenv{wwwhost}/DMS/Faktura/Verleihjournal")); print $q->div({-class=>'elementwhite'},"1... redirecting to ... or CLICK ", $q->a({href=>"$varenv{wwwhost}/DMS/Faktura/Verkaufsjournal"},"$varenv{wwwhost}/DMS/Faktura/Verkaufsjournal"));
print redirect("$varenv{wwwhost}/DMS/Faktura/Verleihjournal?redirected=1\&return=0-0-0|$i_rows-$u_rows-$d_rows"); print redirect("$varenv{wwwhost}/DMS/Faktura/Verkaufsjournal?redirected=1\&return=0-0-0|$i_rows-$u_rows-$d_rows");
exit 0; exit 0;
} }
} }

4
copri4/main/src/Tpl/Address3.pm
View file

@ -301,10 +301,6 @@ EOF
print $q->Tr(),"\n"; print $q->Tr(),"\n";
print $q->td({-class=>'tdescr'},"payone error"),"\n"; print $q->td({-class=>'tdescr'},"payone error"),"\n";
print $q->td({-class=>'tdval'},"(transaction) $ctt->{txt28}"),"\n"; print $q->td({-class=>'tdval'},"(transaction) $ctt->{txt28}"),"\n";
}elsif($ctadr->{txt28} =~ /error/i){
print $q->Tr(),"\n";
print $q->td({-class=>'tdescr'},"payone error"),"\n";
print $q->td({-class=>'tdval'},"(address) $ctadr->{txt28}"),"\n";
} }
print $q->end_table; print $q->end_table;