mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-11-15 23:26:34 +01:00
1127 lines
51 KiB
Perl
1127 lines
51 KiB
Perl
|
package Prelogic;
|
||
|
#
|
||
|
#Deprecated module, please use Prelib.pm
|
||
|
#
|
||
|
# SPDX-License-Identifier: AGPL-3.0-or-later
|
||
|
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
|
||
|
#
|
||
|
#should be refactored
|
||
|
#
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
use POSIX;
|
||
|
use CGI;
|
||
|
use CGI::Carp qw(fatalsToBrowser);
|
||
|
use CGI ':standard';
|
||
|
use Date::Calc qw(:all);
|
||
|
use Lib::Config;
|
||
|
use Mod::Buttons;
|
||
|
use Mod::Libenz;
|
||
|
use Mod::Libenzdb;
|
||
|
use Mod::DBtank;
|
||
|
use Mod::Callib;
|
||
|
use Mod::Payment;
|
||
|
|
||
|
sub new {
|
||
|
my $class = shift;
|
||
|
my $self = {};
|
||
|
bless($self,$class);
|
||
|
return $self;
|
||
|
}
|
||
|
|
||
|
#Template
|
||
|
sub preinit(){
|
||
|
my $self = shift;
|
||
|
my $users_dms = shift;
|
||
|
|
||
|
my $q = new CGI;
|
||
|
$q->import_names('R');
|
||
|
my @keywords = $q->param;
|
||
|
my $cf = new Config;
|
||
|
my $lb = new Libenz;
|
||
|
my $db = new Libenzdb;
|
||
|
my $dbt = new DBtank;
|
||
|
my $cb = new Callib;
|
||
|
my $but = new Buttons;
|
||
|
my $payone = new Payment;
|
||
|
my %ib = $but->ibuttons();
|
||
|
my %varenv = $cf->envonline();
|
||
|
my $script = $q->script_name();
|
||
|
my $path_info = $q->path_info();
|
||
|
my $path = $path_info;
|
||
|
#with meta_host,
|
||
|
if("$varenv{metahost}"){
|
||
|
$path = "$script" . "$path_info";
|
||
|
$script="";
|
||
|
}
|
||
|
my $lang = "de";
|
||
|
my $c_id = $R::c_id || "0";#c_id aus content
|
||
|
my $time = time();
|
||
|
my $now_date = strftime "%Y-%m-%d", localtime;
|
||
|
my $today = strftime("%d.%m.%Y",localtime(time));
|
||
|
my $today4db = strftime("%Y-%m-%d %H:%M",localtime(time));
|
||
|
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
|
||
|
my $day = strftime "%d", localtime;
|
||
|
my $mon = strftime "%m", localtime;
|
||
|
my $year = strftime "%Y", localtime;
|
||
|
my $i_rows=0;
|
||
|
my $u_rows=0;
|
||
|
my $d_rows=0;
|
||
|
my $dbh = "";
|
||
|
|
||
|
if(!$users_dms->{u_id}){
|
||
|
return "failure::Fehler<br /> Die Anwender Authentifikation wurde unterbrochen.";
|
||
|
}
|
||
|
|
||
|
#Mindestmengenanzeige #ist in Liste.pm implementiert
|
||
|
#if(!$R::detail_search && $path =~ /root$/ && "$R::redirected" ne "1"){
|
||
|
# my $repath = $lb->shortcut2("$path","$users_dms->{u_id}");
|
||
|
#print redirect("$varenv{wwwhost}$script$repath?redirected=1&detail_search=1&s_int03=<=0");
|
||
|
#exit 0;
|
||
|
#}els
|
||
|
#topmenu shortcut handling
|
||
|
#if(!$R::no_redirect && !$R::detail_search && $path =~ /^\/([\w-\s]+)\/([\w-\s]+)$|root$/ && "$R::redirected" ne "1"){
|
||
|
# my $repath = $lb->shortcut2("$path","$users_dms->{u_id}");
|
||
|
# if("$repath" ne "$path"){
|
||
|
# print redirect("$varenv{wwwhost}$script$repath?redirected=1\&return=0-0-0|$i_rows-$u_rows-$d_rows");
|
||
|
# exit 0;
|
||
|
# }
|
||
|
#}
|
||
|
|
||
|
|
||
|
|
||
|
#international buttons
|
||
|
my ($key,$val,$ib_key);
|
||
|
while (($key,$val) = each(%ib)) {
|
||
|
$ib_key = $key if($R::ct_trans eq $val);
|
||
|
}
|
||
|
$ib_key = $R::ct_trans if(!$ib_key);
|
||
|
my ($ct_last,$c_idnew);
|
||
|
|
||
|
my $table = "contenttrans";
|
||
|
$table = "contenttver" if($users_dms->{kind_of_trans} =~ /Veranstaltung|Proje/);
|
||
|
my $ctt = $db->get_content1($table,$users_dms->{c_id4trans});
|
||
|
my $buchen_mtime = $lb->time4de($ctt->{mtime});
|
||
|
|
||
|
#actual-path an get right mandant for verkauf
|
||
|
$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 = $R::mandant_main_id || $node_mandant->{parent_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","$node_mandant->{parent_id}");
|
||
|
my $ctb = $db->get_content1("contentuser","$users_dms->{u_id}");
|
||
|
|
||
|
if($node_mandant->{parent_id} && !$parent_trans->{main_id}){
|
||
|
return "failure::Fehler<br /> keine eindeutige Modulzuweisung vorhanden.";
|
||
|
}
|
||
|
my $rel = $db->get_rel4tpl4nd($parent_trans->{main_id},$lang,$users_dms->{c_id4trans});
|
||
|
$rel = $db->get_rel4tpl4nd("",$lang,$users_dms->{c_id4trans},$rel->{template_id}) if($users_dms->{c_id4trans} > "0");
|
||
|
|
||
|
my $ct_name = $q->escapeHTML("$R::ct_name");
|
||
|
my $barcode=0;
|
||
|
|
||
|
#Kassen-Abschluss Logik
|
||
|
my $s_owner_id=0;
|
||
|
if(($ctf->{txt06} eq "Benutzer") && ($R::kind_of_trans =~ /Verkauf|Verleih|Faktur/)){
|
||
|
$s_owner_id = $users_dms->{u_id};
|
||
|
}
|
||
|
|
||
|
if($R::cash_sort){
|
||
|
$db->users_up("cash_sort",$R::cash_sort,$users_dms->{u_id});
|
||
|
}
|
||
|
if($R::ctpos_close){
|
||
|
$db->users_up("ctpos_activ","0",$users_dms->{u_id});
|
||
|
}elsif($R::ctpos_activ){
|
||
|
$db->users_up("ctpos_activ",$R::ctpos_activ,$users_dms->{u_id});
|
||
|
}
|
||
|
|
||
|
if($R::s_start_date_time && $varenv{dataflow} =~ /wiki/){
|
||
|
$db->users_up("cal_start","$R::s_start_date_time",$users_dms->{u_id});
|
||
|
}
|
||
|
if($R::s_end_date_time && $varenv{dataflow} =~ /wiki/){
|
||
|
$db->users_up("cal_end","$R::s_end_date_time",$users_dms->{u_id});
|
||
|
}
|
||
|
if($R::view_list && $varenv{dataflow} =~ /wiki/){
|
||
|
$db->users_up("view_list","$R::view_list",$users_dms->{u_id});
|
||
|
}
|
||
|
|
||
|
|
||
|
|
||
|
#OPEN/CLOSE
|
||
|
if(($R::ct_trans eq "open") && ("$R::kind_of_trans" !~ /Kalender|Mietjournal/)){
|
||
|
$db->update_users4trans($R::c_id4trans,$R::tpl_id4trans,$R::kind_of_trans,$users_dms->{u_id});
|
||
|
$users_dms = $db->select_users($users_dms->{u_id});
|
||
|
}elsif(($R::ct_trans eq "close") && ("$R::kind_of_trans" !~ /Kalender|Mietjournal/)){
|
||
|
$db->update_users4trans("0","0","",$users_dms->{u_id});
|
||
|
$users_dms = $db->select_users($users_dms->{u_id});
|
||
|
}
|
||
|
|
||
|
|
||
|
#NEW contenttrans
|
||
|
if($ib_key =~ /^new_/){
|
||
|
$ct_name = "----" if(!$ct_name);
|
||
|
my $foreign_key;
|
||
|
my $sort;
|
||
|
my $main_id = $R::main_id;
|
||
|
if($ib_key =~ /new_trans/){
|
||
|
$table = "contenttrans";
|
||
|
$foreign_key="ct_id";
|
||
|
$main_id = $parent_trans->{main_id} if(!$R::main_id);
|
||
|
}elsif($ib_key =~ /new_tver/){
|
||
|
$table = "contenttver";
|
||
|
$foreign_key="cv_id";
|
||
|
$main_id = $parent_trans->{main_id} if(!$R::main_id);
|
||
|
}
|
||
|
my $node = $db->get_node4multi($main_id,$lang);
|
||
|
|
||
|
#new content for all sub_nodes
|
||
|
if($varenv{dataflow} =~ /wiki/ && $table && $main_id){
|
||
|
my $main_id2 = $main_id;
|
||
|
$main_id2 = $node->{parent_id} if($main_id >= 300000);
|
||
|
my ($dd1,$mo1,$yy1) = split(/\./,$R::s_start_date_time);
|
||
|
my $dt1 = $yy1 . $mo1 . $dd1;
|
||
|
my ($dd2,$mo2,$yy2) = split(/\./,$today);
|
||
|
my $dt2 = $yy2 . $mo2 . $dd2;
|
||
|
if($R::s_start_date_time && ($dt1 > $dt2)){
|
||
|
return "failure::Der Vorgang wurde abgebrochen. Das anlegen von Datensätzen in die Zukunft ist nicht vorgesehen da problematisch Aufgrund der Übernahme der Inhalte aus \"Vereinbarungen\". ($R::s_start_date_time > $today alias $dt1 > $dt2)";
|
||
|
}
|
||
|
my $start_time = $R::s_start_date_time || $today;
|
||
|
my $sub_nodes = $db->collect_node($main_id2,$lang,$users_dms->{u_id});
|
||
|
#only sub-nodes 300000
|
||
|
foreach my $id (sort { lc($sub_nodes->{$a}->{node_name}) cmp lc($sub_nodes->{$b}->{node_name}) } (keys (%$sub_nodes))){
|
||
|
#print "$sub_nodes->{$id}->{main_id}|";
|
||
|
my $ctrel;
|
||
|
$ctrel = $db->get_ctrel2($table,"",$sub_nodes->{$id}->{main_id},$lang,"","",$R::template_id,"start_time","$start_time","=");
|
||
|
if(!$ctrel->{c_id} && $sub_nodes->{$id}->{main_id} > 300000){
|
||
|
$c_idnew = $db->insert_content($table,$ct_name,$users_dms->{u_id},$sort);
|
||
|
$i_rows += 1 if($c_idnew > 0);
|
||
|
$db->updater("$table","c_id",$c_idnew,"ct_name","$c_idnew");
|
||
|
$db->updater("$table","c_id",$c_idnew,"start_time","$start_time");
|
||
|
my $ctrel_desc = $db->get_ctrel2($table,"",$sub_nodes->{$id}->{main_id},$lang,"","",$R::template_id,"","","","start_time","DESC");#copy Vereinbarung und Wissenswertes
|
||
|
$db->updater("$table","c_id",$c_idnew,"txt00","$ctrel_desc->{txt00}");
|
||
|
#$db->updater("$table","c_id",$c_idnew,"txt01","$ctrel_desc->{txt01}");#don't copy
|
||
|
my $rel_id = $db->insert_relationlist($table,$sub_nodes->{$id}->{main_id},$lang,$c_idnew,$R::template_id,$foreign_key);
|
||
|
}
|
||
|
}
|
||
|
print redirect("$varenv{wwwhost}$script$path?detail_search=1\&s_start_date_time=$start_time\&s_end_date_time=$start_time\&return=$i_rows-$u_rows-$d_rows");
|
||
|
exit 0;
|
||
|
}elsif($table && $main_id && $R::kind_of_trans){
|
||
|
my $rel = $db->get_rel4tpl($main_id,$lang);
|
||
|
$c_idnew = $db->insert_content2($table,$ct_name,$users_dms->{u_id},"");
|
||
|
$i_rows += 1 if($c_idnew > 0);
|
||
|
my $rel_id = $db->insert_relationlist($table,$rel->{main_id},$lang,$c_idnew,$rel->{tpl_id},$foreign_key);
|
||
|
$rel->{content_id} = $c_idnew; #notwendig bei prozeduralem $R::select_part
|
||
|
$db->update_content4change($table,$c_idnew,"",$parent_trans->{parent_id},"int09");#mandant_main_id
|
||
|
$db->update_content4change($table,$c_idnew,"",$node->{main_id},"int12");#zusätzl. Formtyp
|
||
|
$db->update_content4change($table,$c_idnew,"",$node->{node_name},"txt00");#node_name
|
||
|
$db->update_content4change($table,$c_idnew,"",$today4db,"start_time") if($R::kind_of_trans =~ /Faktur|Verleih/);
|
||
|
$db->update_content4change($table,$c_idnew,"",$today4db,"end_time") if($R::kind_of_trans =~ /Faktur|Verleih/);
|
||
|
$db->update_users4trans($c_idnew,$R::tpl_id4trans,$R::kind_of_trans,$users_dms->{u_id}) if("$R::kind_of_trans" !~ /Kalender|Mietjournal/);
|
||
|
if($ib_key eq "new_trans"){
|
||
|
$db->update_content4change($table,$c_idnew,"","txt63","txt21");#Text-1
|
||
|
$db->update_content4change($table,$c_idnew,"","Barkunde","txt01") if($varenv{wwwhost} =~ /lx-rad/);
|
||
|
$db->update_content4change($table,$c_idnew,"","txt61,txt63","txt21") if($R::kind_of_trans =~ /Faktur|Verleih/);#Text-3
|
||
|
}
|
||
|
}else{
|
||
|
return "failure::Fehler, Datensatz kann nicht angelegt werden weil folgende Informationen fehlen: ($main_id && $R::kind_of_trans)";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
###ADD PARTS/DATE TO Transactions
|
||
|
if((($ib_key =~ /add_transpos|add_transdate/) || ($R::select_part && ($R::spart_ct_name || $R::json_select))) && (!$ctt->{close_time})){
|
||
|
$table = "contenttranspos";
|
||
|
my $menge="1";
|
||
|
|
||
|
#Leihrad-logik
|
||
|
my ($zcolumn,$zcontent,$ct_node);
|
||
|
$zcolumn = "barcode";
|
||
|
$zcontent = "$R::spart_ct_name" || "$R::json_select";
|
||
|
|
||
|
#get part for adding and get from_main_id
|
||
|
my $ct_name = "$R::spart_ct_name" || "$R::json_select" || "";#turn-around!§$
|
||
|
my $c_id = "$R::c_id" || "";
|
||
|
my ($ct,$waren,$pre_lager,$lager);
|
||
|
|
||
|
#my $warentpl_ids = $ctf->{txt37};
|
||
|
my $warentpl_ids = "205,224,225,210,226,227,228,229";
|
||
|
$ct = $db->get_ctrel2("content","$ct_name","","$lang","","$c_id","$warentpl_ids","$zcolumn","$zcontent","");
|
||
|
|
||
|
$ct_name = $ct->{ct_name} if($ct->{ct_name});
|
||
|
$lager = $ct->{txt12} if($ct->{txt12});
|
||
|
$lager = $mandant_main_id if(($ib_key =~ /new_transdate/) || ($R::spart_ct_name == $varenv{termin_id}));
|
||
|
|
||
|
|
||
|
if($ct->{main_id}){
|
||
|
$ct_node = $db->get_node4multi($ct->{main_id},$lang);
|
||
|
#check if part linked to mandant
|
||
|
my $mandant_check;
|
||
|
$waren = $db->get_node2($users_dms->{fullurl},"Waren",$lang);
|
||
|
$mandant_check = $db->collect_noderec($waren->{main_id},$lang,"nothing") if($waren->{main_id});
|
||
|
$mandant_check =~ s/,/|/g;
|
||
|
$users_dms = $db->select_users($users_dms->{u_id}) if($ib_key =~ /new_/);#nur bei new_ mit save_
|
||
|
if(!$users_dms->{c_id4trans} && $ib_key !~ /new_transdate/){
|
||
|
return "failure::Zu welchem Vorgang soll die Aktion verknüpft werden? Bitte erst den entsprechenden Vorgang öffnen.";
|
||
|
}elsif($ct->{main_id} && ($ct_node->{main_id} !~ /$mandant_check/)){
|
||
|
return "failure::Der Artikel \"$R::spart_ct_name\" ist in der Datenbank vorhanden, aber nicht in \"$ctf->{ct_name}\" verlinkt<br />Kläre bitte ob eine Faktura hier in Zukunft gewollt ist. Falls ja, informiere den Admin damit dieser die Verknüpfung herstellt.";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if(($ct_name || $ct->{barcode}) && $rel->{content_id} && $ct_node->{main_id}){
|
||
|
my $partnr = "$ct_name / $ct->{barcode}";
|
||
|
$partnr = "$ct_name" if("$ct_name" eq "$ct->{barcode}" || !$ct->{barcode});
|
||
|
my $bezeichnung = "$ct->{txt01}";
|
||
|
$ct->{int02} = $ct->{int02} * -1 if($ct->{main_id} == 300012);#Gutscheine
|
||
|
my $einzel_preis = $ct->{int02};
|
||
|
my $einzel_rabatt = $ct->{int07};
|
||
|
$einzel_rabatt = $ctt->{int06} if($ctt->{int06} > 0);
|
||
|
my $unit = $ct->{txt03};
|
||
|
if($ctf->{int02} != 0 && $ct->{int09} != 0){
|
||
|
$einzel_preis = $ctf->{int02};
|
||
|
$menge = $ct->{int09};
|
||
|
$unit = "AW";
|
||
|
}
|
||
|
|
||
|
|
||
|
#umst
|
||
|
my $umst=0;
|
||
|
$umst = $ct_node->{int03};
|
||
|
$umst = $1 if($ctf->{txt13} =~ /(\d+)/ && $ct_node->{int03} !~ /\d/);#Standard VK Umst
|
||
|
|
||
|
#Add Parts from content to contenttranspos#################
|
||
|
my $pos_id;
|
||
|
#Sort counter
|
||
|
my $ctpos = $db->get_content2sort("contenttranspos","1",">=","ct_id","$rel->{content_id}","","");
|
||
|
|
||
|
my $ctt = $db->get_content1("contenttrans",$users_dms->{c_id4trans});
|
||
|
|
||
|
#INSERT pos
|
||
|
$pos_id = $db->insert_contenttranspos($table,$partnr,$users_dms->{u_id},$ct->{barcode},$ct->{c_id},$ctt->{c_id},$ct->{main_id},$bezeichnung,$ct_node->{node_name},$unit,$einzel_preis,$menge,$umst,$einzel_rabatt,$lager,"","$ct->{txt05}","$ct->{txt06}","$ct->{txt07}","$ctt->{txt08}","$ctt->{int10}");
|
||
|
$i_rows += 1 if($pos_id > 0);
|
||
|
|
||
|
#append Rahmennummer
|
||
|
if($ct->{txt11}){
|
||
|
my $rahmennr = "$ct->{txt11}";
|
||
|
$rahmennr = "$ctt->{txt11} | $ct->{txt11}" if($ctt->{txt11});#add nr.
|
||
|
$db->updater("contenttrans","c_id",$rel->{content_id},"txt11",$rahmennr,$users_dms->{u_id});
|
||
|
}
|
||
|
|
||
|
#}
|
||
|
#################################################################
|
||
|
|
||
|
#negate if not rental-bike
|
||
|
if(($ct->{template_id} ne "205") && ($ctt->{txt00} !~ /Angebot|Kostenvoranschlag|Auftrag|Storno/) && !$R::c_idpos){
|
||
|
$db->update_content4comp("content",$ct_name,"$ct->{c_id}","-","1","$R::kind_of_trans","$lager");
|
||
|
}
|
||
|
return "pos_id=$pos_id";#new return-code to get opened Part-Position in Transposition
|
||
|
}elsif($ct_name && !$rel->{content_id}){
|
||
|
return "failure::Für die Terminzuordnung bitte zuerst einen Verkauf Vorgang öffnen oder neu erzeugen.<br /> ::$script/$users_dms->{fullurl}/Verkauf::Zum Verkauf";
|
||
|
}else{
|
||
|
return "failure::Die Artikelnummer ist in der Waren Datenbank nicht angelegt oder einem anderen Lagerort zugeordnet.<br /> ::$script/$users_dms->{fullurl}/Waren::Waren verwalten";
|
||
|
}
|
||
|
}
|
||
|
#####
|
||
|
|
||
|
#UPDATE CONTENT
|
||
|
#print "@keywords ";
|
||
|
if($ib_key =~ /save/){
|
||
|
$c_id = $R::c_id if($ib_key eq "save");#only in journal edit
|
||
|
$db->users_up("c_id4edit","0","$users_dms->{u_id}");#delete edit marker
|
||
|
my $table = "contenttrans";
|
||
|
#Maybe obsolete, because of ajax autosave --> for now back to old
|
||
|
#print "$ib_key|$R::ct_trans2c_idadr|$R::c_idadr";
|
||
|
if($ib_key eq "save_adr" && $R::ct_trans2c_idadr eq "save_contentadr" && $R::c_idadr =~ /^\d+$/){
|
||
|
$table = "contentadr";
|
||
|
$c_id = "$R::c_idadr";
|
||
|
}elsif($ib_key eq "save_adr" && $R::ct_trans2c_idadr eq "save_contentadr"){
|
||
|
# #like new_adr in Premain.pm
|
||
|
$table = "contentadr";
|
||
|
my $foreign_key="ca_id";
|
||
|
my $p_main_id = $ctf->{txt32};
|
||
|
my $barcode_last = $db->get_barcode("users","$table");#hier gilt: $table=column in users
|
||
|
my $freenr = $lb->get_freenr($table,$barcode_last->{$table});
|
||
|
($ct_name,$barcode) = $lb->barcodeable($table,$freenr);#new nr routine
|
||
|
if($barcode){
|
||
|
$db->users_up("$table","$barcode",$users_dms->{u_id});
|
||
|
}else{
|
||
|
return "failure::Fehler, neue Nummer kann nicht generiert werden";
|
||
|
}
|
||
|
if($p_main_id && $users_dms->{kind_of_trans}){
|
||
|
#if($address->{main_id} && $users_dms->{kind_of_trans}){
|
||
|
$rel = $db->get_rel4tpl($p_main_id,$lang);
|
||
|
$c_idnew = $db->insert_content2($table,$ct_name,$users_dms->{u_id},"");
|
||
|
$i_rows += 1 if($c_idnew > 0);
|
||
|
$db->update_barcode($table,$c_idnew,$ct_name,$barcode);
|
||
|
my $rel_id = $db->insert_relationlist($table,$rel->{main_id},$lang,$c_idnew,$rel->{tpl_id},$foreign_key);
|
||
|
$c_id = $c_idnew; #for contenadr update
|
||
|
$R::c_idadr = $c_idnew; #for copy contentadr to contenttrans
|
||
|
}
|
||
|
#Freitext oder nur in contentrans speichern
|
||
|
}elsif($ib_key eq "save_adr" || $ib_key =~ /save_text/){
|
||
|
$table = "contenttrans";
|
||
|
$c_id = "$R::c_id4trans";
|
||
|
}elsif($ib_key =~ /save_tver/){
|
||
|
$table = "contenttver";
|
||
|
$c_id = "$users_dms->{c_id4trans}";
|
||
|
$c_id = $R::c_id if($R::cell_key && $R::c_id);
|
||
|
}elsif($ib_key eq "save_pos"){
|
||
|
$table = "contenttranspos";
|
||
|
$c_id = $R::c_idpos || $R::pos_id;
|
||
|
}elsif($ib_key eq "save_verpos"){
|
||
|
$table = "contenttverpos";
|
||
|
$c_id = $R::c_idpos || $R::pos_id;
|
||
|
}
|
||
|
|
||
|
#Miet- bzw. BaseVA- Zeitraum
|
||
|
if($R::start_date =~ /\d{1,2}\.\d{1,2}\.\d{4}/ && $R::end_date =~ /\d{1,2}\.\d{1,2}\.\d{4}/){
|
||
|
my $start_date = $q->escapeHTML("$R::start_date");
|
||
|
my $end_date = $q->escapeHTML("$R::end_date");
|
||
|
my $s_hh = $q->escapeHTML("$R::s_hh") || "0";
|
||
|
my $s_mi = $q->escapeHTML("$R::s_mi") || "0";
|
||
|
my $e_hh = $q->escapeHTML("$R::e_hh") || "0";
|
||
|
my $e_mi = $q->escapeHTML("$R::e_mi") || "0";
|
||
|
$s_hh = "24" if($s_hh > "24");
|
||
|
$e_hh = "24" if($e_hh > "24");
|
||
|
$s_mi = "59" if($s_mi > "59");
|
||
|
$e_mi = "59" if($e_mi > "59");
|
||
|
my $start_time="null";
|
||
|
my $end_time="null";
|
||
|
$start_time = "$start_date $s_hh:$s_mi" if("$start_date $s_hh:$s_mi" =~ /\d{1,2}\.\d{1,2}\.\d{4}\s\d{1,2}:\d{1,2}/);
|
||
|
$end_time = "$end_date $e_hh:$e_mi" if("$end_date $e_hh:$e_mi" =~ /\d{1,2}\.\d{1,2}\.\d{4}\s\d{1,2}:\d{1,2}/);
|
||
|
|
||
|
|
||
|
if($ib_key =~ /save_pos/){
|
||
|
my $pos_id = $R::c_idpos;
|
||
|
my ($start_datetime,$end_datetime,$s_up,$e_up,$menge) = $cb->contenttranspos_dating($pos_id,$start_time,$end_time,$today4db,"");
|
||
|
my ($s_yy,$s_mo,$s_dd,$s_hh,$s_mi) = $cb->split_date($start_datetime);
|
||
|
my $s_time = Mktime($s_yy,$s_mo,$s_dd,$s_hh,$s_mi,0);
|
||
|
my ($e_yy,$e_mo,$e_dd,$e_hh,$e_mi) = $cb->split_date($end_datetime);
|
||
|
my $e_time = Mktime($e_yy,$e_mo,$e_dd,$e_hh,$e_mi,0);
|
||
|
|
||
|
my $ctpos_id=0;
|
||
|
my $cvpos_id=0;
|
||
|
$ctpos_id = $pos_id if($table eq "contenttranspos");
|
||
|
$cvpos_id = $pos_id if($table eq "contenttverpos");
|
||
|
$db->updater($table,"c_id",$pos_id,"start_time","$start_datetime",$users_dms->{u_id});
|
||
|
$db->updater($table,"c_id",$pos_id,"end_time","$end_datetime",$users_dms->{u_id});
|
||
|
#print "($s_time <= $time && $e_time >= $time) xxxx";
|
||
|
#set contentpos status
|
||
|
if($s_time <= $time && $e_time >= $time){
|
||
|
$db->updater($table,"c_id",$pos_id,"int10","3",$users_dms->{u_id});
|
||
|
}else{
|
||
|
$db->updater($table,"c_id",$pos_id,"int10","1",$users_dms->{u_id});
|
||
|
#2021-08-04 set also bike available
|
||
|
$db->updater("content","c_id",$R::cc_id,"int10","1",$users_dms->{u_id}) if($R::cc_id);
|
||
|
}
|
||
|
#TINK $menge counting
|
||
|
#we believe setting by manually insert of int03=$menge via Transposition
|
||
|
#$db->updater($table,"c_id",$pos_id,"int03","$menge",$users_dms->{u_id});
|
||
|
#set GPS
|
||
|
if($R::txt06 && $R::txt06 =~ /^(\d{1,2}\.\d+),\s?(\d{1,2}\.\d+)$/){
|
||
|
$db->updater($table,"c_id",$pos_id,"txt06","$R::txt06",$users_dms->{u_id});
|
||
|
}
|
||
|
#set StationID
|
||
|
if($R::int04 =~ /^\d+$/){
|
||
|
$db->updater($table,"c_id",$pos_id,"int04","$R::int04",$users_dms->{u_id});
|
||
|
#require "Mod/KMLout.pm";
|
||
|
#my $kmlfile = Mod::KMLout::kmlGenerator("","");
|
||
|
}
|
||
|
|
||
|
$db->updater("contenttrans","c_id",$ctt->{c_id},"start_time","$start_datetime",$users_dms->{u_id});
|
||
|
$db->updater("contenttrans","c_id",$ctt->{c_id},"end_time","$end_datetime",$users_dms->{u_id});
|
||
|
|
||
|
}elsif($ib_key =~ /save_tver|save_verpos/){
|
||
|
$u_rows += $db->updater("contenttver","c_id",$c_id,"start_time","$start_time");
|
||
|
$u_rows += $db->updater("contenttver","c_id",$c_id,"end_time","$end_time");
|
||
|
$db->users_up("cal_start","$start_time",$users_dms->{u_id}) if($varenv{dataflow} =~ /wiki/);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
#hidden select keys to delete first, marked with off_ (Project.pm)
|
||
|
foreach(@keywords){
|
||
|
if($_ =~ /off_(txt\d+)/){
|
||
|
$db->updater("$table","c_id",$c_id,"$1","");
|
||
|
}
|
||
|
}
|
||
|
|
||
|
my $ct_exist2;
|
||
|
$ct_exist2 = $db->get_content2($table,$ct_name) if($ct_name);
|
||
|
$ct_exist2 = $db->get_content1($table,$c_id) if($c_id);
|
||
|
if($ct_exist2->{ct_name} && ($ct_exist2->{c_id} ne $c_id)){
|
||
|
return "failure::$ct_exist2->{ct_name} - $ct_exist2->{c_id} - $c_id<br /> content name exists";
|
||
|
}elsif($c_id){
|
||
|
$users_dms = $db->select_users($users_dms->{u_id});#to get new cal_start
|
||
|
my $j=0;
|
||
|
foreach(@keywords){
|
||
|
$j++;
|
||
|
my $val = $q->param($_);
|
||
|
my $valxx = $q->escapeHTML("$val");
|
||
|
my @val = $q->param($_);
|
||
|
$valxx = $q->escapeHTML("@val");
|
||
|
$_ =~ s/col_//;
|
||
|
$ct_exist2->{$_} =~ s/^\s+//; $ct_exist2->{$_} =~ s/\s+$//;
|
||
|
$valxx =~ s/^\s+//; $valxx =~ s/\s+$//;
|
||
|
$valxx .= ".00" if($valxx =~ /^\d+$/ && $_ =~ /int\d+/);
|
||
|
#print "|$_:$ct_exist2->{$_} -- $valxx|<br>";
|
||
|
if($_ =~ /sort4pos_\d+/ && $valxx =~ /^\d+$/){
|
||
|
$db->updater("contenttverpos","c_id",$1,"sort","$valxx") if($_ =~ /sort4pos_(\d+)/);
|
||
|
}elsif(("$ct_exist2->{$_}" ne "$valxx") || $R::ckid_main || $_ =~ /txt10|txt11/ || $R::edit_main){
|
||
|
if($_ eq "ct_name" && $valxx && $table){
|
||
|
$u_rows +=$db->updater("$table","c_id",$c_id,"$_","$valxx");
|
||
|
}
|
||
|
if($_ =~ /txt21|txt6/ && $table){
|
||
|
$db->update_content4change2($table,$c_id,"$R::txt61,$R::txt62,$R::txt63,$R::txt64,$R::txt65,$R::txt66,$R::txt67,$R::txt68,$R::txt69","txt21")
|
||
|
}elsif($_ =~ /txt(\d+)$/ && $table){
|
||
|
$valxx = "null" if(!$valxx);#for empty
|
||
|
my $txtxx = $valxx;
|
||
|
$u_rows +=$db->updater("$table","c_id",$c_id,"$_","$valxx");
|
||
|
}
|
||
|
|
||
|
if($_ =~ /mtime/ && $table){
|
||
|
my $timexx = $valxx;
|
||
|
$u_rows += $db->update_content4change($table,$c_id,$ct_name,$timexx,$_,$users_dms->{u_id}) if($timexx =~ /\d{1,2}\.\d{1,2}\.\d{2,4}\s\d{1,2}:\d{1,2}/ || $timexx =~ /\d{1,2}\.\d{1,2}\.\d{2,4}$/);
|
||
|
}
|
||
|
if($_ =~ /state/ && $table){
|
||
|
my $state = $valxx;
|
||
|
$u_rows += $db->update_content4change($table,$c_id,$ct_name,$state,$_,$users_dms->{u_id});
|
||
|
}
|
||
|
if($_ =~ /(xml_export)/ && $table){#boolean
|
||
|
my $key = $1;
|
||
|
my $value = $valxx || "f";
|
||
|
$u_rows += $db->update_content4change($table,$c_id,$ct_name,$value,$key,$users_dms->{u_id});
|
||
|
}
|
||
|
if($_ =~ /int(\d+)/ && $table){
|
||
|
$valxx =~ s/,/./;
|
||
|
$valxx =~ s/\.00//;
|
||
|
$valxx = "null" if(!$valxx);#for empty
|
||
|
my $intxx = $valxx;
|
||
|
#Ausgaben trigger
|
||
|
if($ib_key eq "save_pos" && $_ eq "int02" && $intxx =~ /-\d/){
|
||
|
$u_rows += $db->update_content4change($table,$c_id,$ct_name,$intxx,"int02",$users_dms->{u_id});
|
||
|
}elsif($ib_key eq "save_pos" && $_ eq "int03"){
|
||
|
#Warenbestands trigger
|
||
|
my $op="+";
|
||
|
$op = $1 if($intxx =~ s/(-|\+)//);
|
||
|
if($op =~ /-/){
|
||
|
return "failure::Bitte einen fiktiven Artikel unter \"Ausgaben\" verwenden.";
|
||
|
}
|
||
|
my $add_menge="0";
|
||
|
#differenz, es wird nur der zuwachs verwendet
|
||
|
$ct_exist2->{$_} = 0 if(!$ct_exist2->{$_});
|
||
|
$add_menge = - $ct_exist2->{$_} + $intxx if($op eq "+");
|
||
|
my $rows = $db->update_content4comp("contenttranspos",$R::ct_name,$R::c_idpos,"$op","$add_menge","$R::kind_of_trans");
|
||
|
if($rows){
|
||
|
$u_rows += $db->update_content4comp("content",$R::ct_name,"$R::cc_id","-","$add_menge","$R::kind_of_trans","$ct_exist2->{txt12}") if(($R::kind_of_trans =~ /Faktur|Verleih/) && ($ctt->{txt00} !~ /Angebot|Kostenvoranschlag|Auftrag/) && ("$ctb->{txt02}" ne "aus"));
|
||
|
}
|
||
|
}else{
|
||
|
$u_rows +=$db->updater("$table","c_id",$c_id,"$_","$valxx");
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
###SET workflow (like copy doc-type)
|
||
|
#follows address copy
|
||
|
#1. counter for WaWi and ReNr
|
||
|
my $c_id4trans = $R::c_id4trans;#It needs hidden posts. Only implemented in Address and Transact
|
||
|
if($R::set_workflow && $R::set_main_id4workflow && $R::ct_name4workflow =~ /\d/){
|
||
|
return "failure::Bitte erst einen Formular-Typ wählen" if($R::set_main_id4workflow <= "300000");
|
||
|
$table = "contenttrans";
|
||
|
my $foreign_key="ct_id";
|
||
|
my $j="1";
|
||
|
$rel = $db->get_rel4tpl("",$lang,$c_id4trans,$R::tpl_id4trans);
|
||
|
my $set_tpl = $db->get_rel4tpl($R::set_main_id4workflow,$lang,"","","ASC");
|
||
|
my $backlink = $R::ct_name4workflow;
|
||
|
my $ct_name = $R::ct_name4workflow;
|
||
|
my $subname= 1;
|
||
|
($ct_name,$subname) = split(/-/,$R::ct_name4workflow) if($R::ct_name4workflow =~ /\d+-\d+/);
|
||
|
my $lastct_name = $db->get_like2sort($table,"ct_name","$ct_name-");
|
||
|
if($lastct_name->{ct_name}){
|
||
|
($ct_name,$subname) = split(/-/,$lastct_name->{ct_name});
|
||
|
$subname++;
|
||
|
}
|
||
|
my $ct_name_new = "$ct_name-$subname";
|
||
|
my $barcode = "$ct_name$subname";
|
||
|
|
||
|
###Vorsicht, redundanter code-abschnitt = set_main_id
|
||
|
my ($node,$ct_exist);
|
||
|
$node = $db->get_node4multi($R::set_main_id4workflow,$lang);
|
||
|
if($node->{main_id} > 300000){
|
||
|
my $rows = $node->{int10} + 1;
|
||
|
$db->updater("nodes","main_id",$node->{main_id},"int10",$rows);
|
||
|
}
|
||
|
|
||
|
#Node abhängige auto Beleg-Nummer
|
||
|
my $journal_nodes = "$ctf->{txt23}";
|
||
|
$journal_nodes .= "|$ctf->{txt24}" if($ctf->{txt24});
|
||
|
$journal_nodes .= "|$ctf->{txt25}" if($ctf->{txt25});
|
||
|
if(($node->{int06} > 0) && ("$R::set_main_id4workflow" != "$rel->{main_id}") && ("$rel->{main_id}" !~ /$journal_nodes/) && ($node->{node_name} !~ /steuerfrei/)){
|
||
|
$ct_exist = $db->get_ctrel2($table,$node->{int06},$R::set_main_id4workflow,$lang);
|
||
|
if($ct_exist->{rel_id}){
|
||
|
return "failure::Konflikt, die Nummer \"$ct_exist->{ct_name}\" ist bereits vergeben.";
|
||
|
}
|
||
|
#$ct_name_new = "$node->{int06}" . "-$ct_name";#neue subNummer
|
||
|
#$barcode = "$node->{int06}" . "$ct_name";
|
||
|
$ct_name_new = "$node->{int06}";
|
||
|
$barcode = "$node->{int06}";
|
||
|
my $int06 = $node->{int06} + 1;
|
||
|
$u_rows += $db->updater("nodes","main_id",$R::set_main_id4workflow,"int06",$int06,"","","","","no_time");
|
||
|
}
|
||
|
###
|
||
|
|
||
|
$ct_exist = $db->get_ctrel2($table,$ct_name_new,"",$lang,"","",$set_tpl->{tpl_id});
|
||
|
if($ct_exist->{ct_name} && $node->{node_name} !~ /Storno/){
|
||
|
return "failure::Der Vorgang mit der Nummer \"$ct_exist->{ct_name}\" ist bereits vorhanden";
|
||
|
}
|
||
|
$c_idnew = $db->insert_content2($table,$ct_name_new,$users_dms->{u_id},"");
|
||
|
$i_rows += 1 if($c_idnew > 0);
|
||
|
my $rel_id = $db->insert_relationlist($table,$R::set_main_id4workflow,$lang,$c_idnew,$set_tpl->{tpl_id},$foreign_key);
|
||
|
$node = $db->get_node4multi($R::set_main_id4workflow,$lang);
|
||
|
$db->updater($table,"c_id",$c_idnew,"close_time","null");
|
||
|
|
||
|
#2017-08-10 adapted from lx-rad, set backlink for workflow documentation
|
||
|
$db->updater($table,"c_id",$c_idnew,"txt04","$backlink");
|
||
|
$db->update_content4change($table,$c_idnew,"",$barcode,"barcode");
|
||
|
$db->update_content4change($table,$c_idnew,"",$parent_trans->{parent_id},"int09");#mandant_id
|
||
|
$db->update_content4change($table,$c_idnew,"",$R::set_main_id4workflow,"int12");#zusätzl. Formtyp
|
||
|
$db->update_content4change($table,$c_idnew,"",$node->{node_name},"txt00");#node_name
|
||
|
$db->update_content4change($table,$c_idnew,"","txt61,txt63","txt21") if($node->{node_name} =~ /Mietvertrag/);#Text-3
|
||
|
$db->update_content4change($table,$c_idnew,"","txt64","txt21") if($node->{node_name} =~ /Rückgabe/);#Text-4
|
||
|
$db->update_content4change($table,$c_idnew,"","txt65","txt21") if($node->{node_name} =~ /steuerfrei/);#Text-5
|
||
|
$db->update_users4trans($c_idnew,$set_tpl->{tpl_id},$R::kind_of_trans,$R::owner);
|
||
|
|
||
|
$node = $db->get_node4multi($R::set_main_id4workflow,$lang);
|
||
|
my $old_node = $db->get_node4multi($rel->{main_id},$lang);
|
||
|
|
||
|
#workflow
|
||
|
#print "$old_node->{node_name} ---> $node->{node_name}";
|
||
|
|
||
|
#position copy
|
||
|
my ($cttpos,$rows) = $db->collect_contentpos("$table",$c_id4trans);
|
||
|
foreach my $id (sort { lc($cttpos->{$a}->{sort}) cmp lc($cttpos->{$b}->{sort}) } keys(%$cttpos)){
|
||
|
#2019-05-24, adding Storno (300009) to Rechnung
|
||
|
if(($node->{node_name} =~ /Storno/) || ($R::set_main_id eq "300009" && $node->{node_name} =~ /Rechnung/)){
|
||
|
$cttpos->{$id}->{int02} = $cttpos->{$id}->{int02} * -1 if($cttpos->{$id}->{int02} != 0);
|
||
|
$cttpos->{$id}->{int07} = $cttpos->{$id}->{int07} * -1 if($cttpos->{$id}->{int07} != 0 && $cttpos->{$id}->{int08} == 1);#if Rabatt int08 != 1 alias €;
|
||
|
if($R::kind_of_trans =~ /Faktur/){
|
||
|
$db->update_content4comp("content",$cttpos->{$id}->{ct_name},"$cttpos->{$id}->{cc_id}","+","$cttpos->{$id}->{int03}","$R::kind_of_trans","$cttpos->{$id}->{txt12}");
|
||
|
}
|
||
|
}
|
||
|
|
||
|
delete $cttpos->{$id}->{c_id};
|
||
|
delete $cttpos->{$id}->{ct_id};
|
||
|
delete $cttpos->{$id}->{itime};
|
||
|
delete $cttpos->{$id}->{mtime};
|
||
|
my $insert_pos = {
|
||
|
%{$cttpos->{$id}},
|
||
|
table => "contenttranspos",
|
||
|
ct_id => $c_idnew,
|
||
|
itime => 'now()',
|
||
|
mtime => 'now()',
|
||
|
};
|
||
|
my $ctpos_id = $dbt->insert_contentoid($dbh,$insert_pos,"");
|
||
|
$i_rows += 1 if($ctpos_id > 0);
|
||
|
|
||
|
}
|
||
|
|
||
|
$db->update_users4trans($c_idnew,$set_tpl->{tpl_id},$R::kind_of_trans,$R::owner);
|
||
|
$users_dms = $db->select_users($users_dms->{u_id});
|
||
|
$c_id4trans = $users_dms->{c_id4trans};
|
||
|
}
|
||
|
####
|
||
|
|
||
|
|
||
|
#copy ADD ADDRESS from contentadr to contenttrans
|
||
|
#Attention, doupled saved over Terminal AND over set_workflow
|
||
|
#All Verkauf-Terminal submits without Print PDF!
|
||
|
#
|
||
|
if(($R::ct_trans !~ /print_pdf|print/i) && (($ib_key eq "add_transadr") || $R::ct_trans2c_idadr || $R::set_main_id || $R::set_main_id4workflow)){
|
||
|
$c_id4trans = $users_dms->{c_id4trans} if($ib_key eq "add_transadr" && $users_dms->{c_id4trans});
|
||
|
if(!$c_id4trans){
|
||
|
return "failure::Wohin damit? Für die Zuweisung bitte erst ein Ziel öffnen.";
|
||
|
}
|
||
|
$table = "contenttrans";
|
||
|
my $ctt;
|
||
|
#202=Adressenliste
|
||
|
if(($ib_key eq "add_transadr") || ($R::ct_trans2c_idadr eq "save_contentadr")){
|
||
|
$ctt = $db->get_ctrel("contentadr","",$lang,"",$R::c_idadr,"202");
|
||
|
}else{
|
||
|
my $c_id4copy = $R::c_id4copy || $c_id4trans;
|
||
|
$ctt = $db->get_content1("contenttrans",$c_id4copy);
|
||
|
}
|
||
|
#214=Adressendefinition
|
||
|
my $tpl = $db->get_tpl("214");
|
||
|
my @ct4tpl = split (/,/,$tpl->{tpl_order});
|
||
|
foreach(@ct4tpl){#copy
|
||
|
my ($key,$val) = split /=/,$_;
|
||
|
$ctt->{$key} = "no" if(!$ctt->{$key} && $key =~ /txt/);
|
||
|
$ctt->{$key} = "0" if(!$ctt->{$key} && $key =~ /int/);
|
||
|
if($R::c_idadr > 0){#from contentadr
|
||
|
#print "---> $key";
|
||
|
if($key =~ /int10/){
|
||
|
$u_rows += $db->update_content4change($table,$c_id4trans,"",$R::c_idadr,"int10");
|
||
|
}elsif(($ib_key eq "add_transadr") && ($key =~ /txt09|txt10|txt11|txt12/)){
|
||
|
my $advanced_fields = "no";
|
||
|
}elsif(($R::ct_trans2c_idadr eq "save_contentadr") && ($key =~ /txt10|txt11|txt12/)){#wg.Reparaturobjekt|Rahmen|Freitext
|
||
|
my $advanced_fields = "no";
|
||
|
}else{
|
||
|
$u_rows += $db->update_content4change($table,$c_id4trans,"",$ctt->{$key},$key);
|
||
|
}
|
||
|
}else{
|
||
|
$u_rows += $db->update_content4change($table,$c_id4trans,"",$ctt->{$key},$key);
|
||
|
}
|
||
|
}
|
||
|
$db->update_content4change($table,$c_id4trans,"",$users_dms->{u_id},"owner");
|
||
|
}
|
||
|
###
|
||
|
|
||
|
#delete ask
|
||
|
if("$ib_key" eq "remove_chk4rel" && $R::main_id && $R::c_id && $R::template_id && $R::rel_id){
|
||
|
my $rel4nd = $db->collect_rel4nodes("",$R::c_id,$R::template_id);
|
||
|
my $rel4tpl = $db->get_rel4tpl($R::main_id,$lang,"","","",$R::rel_id);
|
||
|
my $node_names; my $i=0;
|
||
|
my $delete_key = "";
|
||
|
$delete_key = "delete_trans" if($rel4tpl->{ct_table} eq "contenttrans");
|
||
|
$delete_key = "delete_tver" if($rel4tpl->{ct_table} eq "contenttver");
|
||
|
foreach my $rid (sort { lc($rel4nd->{$a}->{node_name}) cmp lc($rel4nd->{$b}->{node_name}) } keys (%$rel4nd)){
|
||
|
$i++;
|
||
|
$node_names .= "• $rel4nd->{$rid}->{node_name}</br>" if($rel4nd->{$rid}->{node_name});
|
||
|
}
|
||
|
if($i == 1){
|
||
|
return "failure::Datensatz wirklich löschen. ::?ct_trans=$delete_key\&exit_box2=1\&xml_export=$R::xml_export\&c_id=$R::c_id\&rel_id=$R::rel_id ::löschen"
|
||
|
}else{
|
||
|
return "failure::Es gibt hier zwei Möglichkeiten. Nur die Relation löschen oder den Content komplett löschen. ::?ct_trans=delete_rel4ct\&exit_box2=1\&main_id=$R::main_id\&rel_id=$R::rel_id ::Relation löschen ::?rel_edit=$delete_key\&exit_box2=1\&xml_export=$R::xml_export\&c_id=$R::c_id\&rel_id=$R::rel_id ::Content löschen"
|
||
|
}
|
||
|
}
|
||
|
|
||
|
#delete Only relation ... without content
|
||
|
if("$ib_key" eq "delete_rel4ct" && $R::main_id && $R::rel_id){
|
||
|
$d_rows += $db->delete_relation($R::main_id,$lang,$R::rel_id);
|
||
|
$db->cleanup_users($users_dms->{u_id}) if($users_dms->{u_id});
|
||
|
}
|
||
|
|
||
|
#DELETE abschluss
|
||
|
if($ib_key eq "delete" || $ib_key =~ /delete_tver/){
|
||
|
$table = "contenttrans";
|
||
|
$table = "contenttver" if($ib_key =~ /delete_tver/);
|
||
|
$d_rows += $db->delete_content("$table","$R::c_id");
|
||
|
$db->update_users4trans("0","0","",$users_dms->{u_id});
|
||
|
}
|
||
|
|
||
|
#DELETE
|
||
|
if($ib_key =~ /delete_trans/){
|
||
|
my $c_id4del = $R::c_id4trans || $R::c_id;
|
||
|
$table = "contenttrans" if($ib_key =~ /delete_trans/);
|
||
|
my $ctt = $db->get_content1("$table","$c_id4del");
|
||
|
|
||
|
if(($R::kind_of_trans =~ /Faktur|Verleih/) && ($ctt->{txt00} !~ /Angebot|Kostenvoranschlag|Auftrag|Storno/) && ("$ctb->{txt02}" ne "aus")){
|
||
|
my ($cttpos,$rows) = $db->collect_contentpos("$table","$c_id4del");
|
||
|
foreach my $id (sort { lc($cttpos->{$a}->{sort}) cmp lc($cttpos->{$b}->{sort}) } keys(%$cttpos)){
|
||
|
$db->update_content4comp("content",$cttpos->{$id}->{ct_name},"$cttpos->{$id}->{cc_id}","+","$cttpos->{$id}->{int03}","$users_dms->{kind_of_trans}","$cttpos->{$id}->{txt12}");
|
||
|
#my @packc_ids = split(/,/,$cttpos->{$id}->{txt05});
|
||
|
#foreach(@packc_ids){
|
||
|
# $db->update_content4comp("content","","$_","+","$cttpos->{$id}->{int03}","$R::kind_of_trans","$cttpos->{$id}->{txt12}");
|
||
|
#}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$d_rows += $db->delete_content("$table","$c_id4del");
|
||
|
$db->update_users4trans("0","0","",$users_dms->{u_id});
|
||
|
print $q->div({-class=>'elementwhite'},"2... redirecting to ... or CLICK ", $q->a({href=>"$varenv{wwwhost}$script$path"},"$varenv{wwwhost}$script$path"));
|
||
|
print redirect("$varenv{wwwhost}$script$path?redirected=1\&return=0-0-0|$i_rows-$u_rows-$d_rows");
|
||
|
exit 0;
|
||
|
}
|
||
|
|
||
|
my $pos_id = $R::c_idpos || $R::pos_id;
|
||
|
#DELETE verpos
|
||
|
if($ib_key eq "remove_verpos" && $pos_id){
|
||
|
$table = "contenttverpos";
|
||
|
$d_rows += $db->delete_content("$table","$pos_id");
|
||
|
}
|
||
|
|
||
|
#DELETE pos
|
||
|
if($ib_key =~ /delete_pos|delete_verpos/ && $pos_id){
|
||
|
$table = "contenttranspos";
|
||
|
$table = "contenttverpos" if($ib_key =~ /delete_verpos/);
|
||
|
my $cttpos = $db->get_content1($table,$pos_id);
|
||
|
|
||
|
my $ctpos_sort;
|
||
|
if($pos_id == $users_dms->{ctpos_activ}){
|
||
|
my $ctt_subpos = $db->collect_content2($table,"ctpos_id","$pos_id");
|
||
|
foreach my $id (keys(%$ctt_subpos)){
|
||
|
$d_rows += $db->delete_content("$table","$ctt_subpos->{$id}->{c_id}");
|
||
|
}
|
||
|
}
|
||
|
$d_rows += $db->delete_content("$table","$pos_id");
|
||
|
$db->users_up("ctpos_activ","0",$users_dms->{u_id}) if("$pos_id" eq "$users_dms->{ctpos_activ}");
|
||
|
$ct_name = $1 if($R::ct_name =~ /^(\d+)/);
|
||
|
if(($R::kind_of_trans =~ /Faktur|Verleih/) && ($ctt->{txt00} !~ /Angebot|Kostenvoranschlag|Auftrag/) && ("$ctb->{txt02}" ne "aus")){
|
||
|
$u_rows += $db->update_content4comp("content",$ct_name,"$cttpos->{cc_id}","+","$cttpos->{int03}","$R::kind_of_trans","$cttpos->{txt12}");
|
||
|
#my @packc_ids = split(/,/,$cttpos->{txt05});
|
||
|
# foreach(@packc_ids){
|
||
|
# $db->update_content4comp("content","","$_","+","$cttpos->{int03}","$R::kind_of_trans","$cttpos->{txt12}");
|
||
|
# }
|
||
|
}
|
||
|
}
|
||
|
###
|
||
|
|
||
|
#Auftragsstatus
|
||
|
if($R::order_state && $R::c_id4trans){
|
||
|
my $table = "contenttrans";
|
||
|
$u_rows += $db->updater($table,"c_id",$R::c_id4trans,"txt22","$R::txt22",$users_dms->{u_id});
|
||
|
}
|
||
|
|
||
|
###SET Relation (like move doc-type)
|
||
|
#executed by Terminal submit-buttons
|
||
|
#2. counter for WaWi and ReNr
|
||
|
if((!$R::close_time && $R::set_main_id) && ($R::set_relation || $R::set_state || $R::open_set_main_id > 300000 || $R::ct_trans =~ /print_pdf|print/i)){
|
||
|
if($R::open_set_main_id){
|
||
|
$R::set_main_id = $R::open_set_main_id;
|
||
|
$users_dms = $db->select_users($users_dms->{u_id});
|
||
|
}
|
||
|
my $c_id = $users_dms->{c_id4trans} || "";#Document id
|
||
|
return "failure::Abbruch, die Aktion konnte keinem Dokument zugeordnet werden. Arbeiten Sie mit mehreren Browser-Tabs? Bitte multiple COPRI Tabs schließen und anschließend das Verkauf-Terminal neu öffnen." if(!$c_id);
|
||
|
|
||
|
my $table = "contenttrans"; my $ctt;
|
||
|
my $rel = $db->get_rel4tpl("",$lang,$users_dms->{c_id4trans},$users_dms->{tpl_id4trans});
|
||
|
$ctt = $db->get_content1("contenttrans",$rel->{content_id});
|
||
|
my ($node,$ct_exist);
|
||
|
return "failure::Bitte erst einen Formular-Typ wählen" if($R::set_main_id <= "300000");
|
||
|
$u_rows += $db->update_relation2("",$lang,$R::set_main_id,"",$rel->{rel_id}) if(!$R::close_time && $rel->{rel_id});
|
||
|
$node = $db->get_node4multi($R::set_main_id,$lang);
|
||
|
if($node->{main_id} > 300000){
|
||
|
my $rows = $node->{int10} + 1;
|
||
|
$db->updater("nodes","main_id",$node->{main_id},"int10",$rows);
|
||
|
}
|
||
|
|
||
|
#Node and HoleCkeck depended auto Rechnungs-Nummer
|
||
|
if(($node->{int06} > 0) && ("$ctt->{ct_name}" !~ /\d/ || "$R::set_main_id" != "$rel->{main_id}")){
|
||
|
|
||
|
#HoleCheck if ReNr available before ReNr counter
|
||
|
my $ReNr_start = 40000;
|
||
|
my $freeNr = $lb->get_freeReNr("$table","$ReNr_start","$node->{int06}","txt00","$node->{node_name}");
|
||
|
my $nextNr = $node->{int06};
|
||
|
$nextNr = $freeNr if($freeNr && $freeNr < $node->{int06});
|
||
|
|
||
|
$u_rows += $db->update_content4change($table,$c_id,$nextNr,$nextNr,"barcode");
|
||
|
if(!$freeNr){
|
||
|
my $int06 = $node->{int06} + 1;
|
||
|
$u_rows += $db->updater("nodes","main_id",$R::set_main_id,"int06",$int06,"","","","","no_time");
|
||
|
}
|
||
|
|
||
|
|
||
|
}elsif($ctt->{ct_name} !~ /\d/){
|
||
|
$db->update_content4change($table,$c_id,$c_id,$c_id,"barcode") ;
|
||
|
}
|
||
|
|
||
|
#Payone managemandate (txt16=txid means payment process ID)
|
||
|
my $subset_state = $R::set_state || $ctt->{state};
|
||
|
if($R::c_idadr && $subset_state =~ /payone/){
|
||
|
my $ctadr = $db->get_content1("contentadr",$R::c_idadr);
|
||
|
|
||
|
#SEPA
|
||
|
if($ctadr->{int03} == 1 && (!$ctt->{txt16} || $ctt->{int03} != 1 || $ctadr->{ct_name} !~ /\w{2}-\d+/ || $ctt->{txt28} =~ /errorcode=/)){
|
||
|
if($ctadr->{ct_name} !~ /\w{2}-\d+/){
|
||
|
$payone->managemandate_main(\%varenv,$ctadr,"",$users_dms->{u_id});
|
||
|
sleep 3;
|
||
|
$ctadr = $db->get_content1("contentadr",$R::c_idadr);
|
||
|
}
|
||
|
#preauthorizationSEPA sets new Rechnungsnummer
|
||
|
if($ctadr->{txt27} =~ /active|pending/ || !$ctt->{txt16} || $ctt->{txt28} =~ /errorcode=80|errorcode=907|errorcode=911|errorcode=950|errorcode=902|errorcode=1077/){
|
||
|
|
||
|
my $renewed="";
|
||
|
$renewed = "txid auto renewd" if($ctt->{txt28} =~ /errorcode=80|errorcode=907|errorcode=911|errorcode=950|errorcode=902|errorcode=1077/);
|
||
|
$ctt->{renewed} = $renewed;
|
||
|
$payone->preauthorizationSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
|
||
|
}
|
||
|
}
|
||
|
|
||
|
#CC
|
||
|
#preauthorizationCC sets new Rechnungsnummer
|
||
|
if($ctadr->{int03} == 2 && (!$ctt->{txt16} || $ctt->{txt28} =~ /errorcode=80|errorcode=907|errorcode=911|errorcode=950|errorcode=902|errorcode=33|errorcode=908|errorcode=4|errorcode=5|errorcode=1077/ || $ctt->{int03} != 2 || length($ctadr->{ct_name}) < 19)){#CC
|
||
|
|
||
|
my $renewed="";
|
||
|
$renewed = "txid auto renewd" if($ctt->{txt28} =~ /errorcode=80|errorcode=907|errorcode=911|errorcode=950|errorcode=902|errorcode=33|errorcode=908|errorcode=4|errorcode=5|errorcode=1077/);
|
||
|
$ctt->{renewed} = $renewed;
|
||
|
$payone->preauthorizationCC_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
|
||
|
}
|
||
|
}
|
||
|
|
||
|
#Change Formular Type -----------------------------------------------
|
||
|
#if("$R::set_main_id" != "$rel->{main_id}"){
|
||
|
if(($R::ct_trans =~ /print_pdf|print/i) || ("$R::set_main_id" != "$rel->{main_id}")){
|
||
|
my $table = "contenttrans";
|
||
|
|
||
|
#zum Angebot den Warenbestand hochsetzen!
|
||
|
if(($ctt->{txt00} !~ /Angebot|Kostenvoranschlag|Auftrag|Storno/) && ($node->{node_name} =~ /Angebot|Kostenvoranschlag|Auftrag/) && ("$ctb->{txt02}" ne "aus")){
|
||
|
my ($cttpos,$rows) = $db->collect_contentpos("$table",$users_dms->{c_id4trans});
|
||
|
foreach my $id (sort { lc($cttpos->{$a}->{sort}) cmp lc($cttpos->{$b}->{sort}) } keys(%$cttpos)){
|
||
|
$u_rows += $db->update_content4comp("content",$cttpos->{$id}->{ct_name},"$cttpos->{$id}->{cc_id}","+","$cttpos->{$id}->{int03}","$users_dms->{kind_of_trans}","$cttpos->{$id}->{txt12}");
|
||
|
}
|
||
|
}
|
||
|
#vom Angebot zur Rechnung usw. den Warenbestand runtersetzen!
|
||
|
if(($ctt->{txt00} =~ /Angebot|Kostenvoranschlag|Auftrag/) && ($node->{node_name} !~ /Angebot|Kostenvoranschlag|Auftrag/) && ("$ctb->{txt02}" ne "aus")){
|
||
|
my ($cttpos,$rows) = $db->collect_contentpos("$table",$users_dms->{c_id4trans});
|
||
|
foreach my $id (sort { lc($cttpos->{$a}->{sort}) cmp lc($cttpos->{$b}->{sort}) } keys(%$cttpos)){
|
||
|
$u_rows += $db->update_content4comp("content",$cttpos->{$id}->{ct_name},"$cttpos->{$id}->{cc_id}","-","$cttpos->{$id}->{int03}","$users_dms->{kind_of_trans}","$cttpos->{$id}->{txt12}");
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$u_rows += $db->update_content4change($table,$c_id,"",$R::set_main_id,"int12");#zusätzl. Formtyp
|
||
|
$db->update_content4change($table,$c_id,"",$node->{node_name},"txt00");#node_name
|
||
|
$db->update_content4change($table,$c_id,"",$ctb->{txt06},"txt13") if($ctb->{txt06});#vendor name
|
||
|
$db->update_content4change($table,$c_id,"","txt61,txt63","txt21") if($node->{node_name} =~ /Mietvertrag/);#Text-3
|
||
|
$db->update_content4change($table,$c_id,"","txt64","txt21") if($node->{node_name} =~ /Rückgabe/);#Text-4
|
||
|
$db->update_content4change($table,$c_id,"","$R::mtime_changed","mtime") if($today !~ /$R::mtime_changed/);#invoice date
|
||
|
}
|
||
|
|
||
|
#SET state alias Zahlung buchen
|
||
|
if($R::set_state && !$R::close_time){
|
||
|
my $state = "no";
|
||
|
$state = $R::state if($R::state);
|
||
|
my $sum_paid = "null";
|
||
|
my $sum_kaution = "null";
|
||
|
if($state ne "no"){
|
||
|
$sum_paid = $R::sum_paid;
|
||
|
$sum_kaution = $R::sum_kaution;
|
||
|
$sum_paid =~ s/,/\./;
|
||
|
$sum_kaution =~ s/,/\./;
|
||
|
}
|
||
|
|
||
|
#We do it only if txt80 end_time in Firma is defined
|
||
|
my $max_timestamp;
|
||
|
if($ctf->{txt80} && $ctt->{txt20}){
|
||
|
if($ctt->{txt20} =~ /(\d{2})\.(\d{2})\.(\d{4})$/){
|
||
|
$max_timestamp = "$1.$2.$3 23:59";
|
||
|
}else{
|
||
|
return "failure::Abbruch, das Leistungsdatum muss als einfaches Datum (Bsp: 31.08.2016) oder als Zeitraum wie im folgenden Beispiel definiert sein: 01.08.2016 - 31.08.2016\n";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$u_rows += $db->update_content4change($table,$c_id,"","$sum_paid","int01");
|
||
|
$db->update_content4change($table,$c_id,"",$state,"state");
|
||
|
$db->update_content4change($table,$c_id,"","now()","mtime");
|
||
|
$db->update_content4change($table,$c_id,"",$users_dms->{u_id},"owner");
|
||
|
|
||
|
#2020-02-05, do it only if payone (without payone Zahlunseingang)
|
||
|
if($state =~ /payone/){
|
||
|
$db->updater($table,"c_id","$c_id","int14","1","","","","","");
|
||
|
|
||
|
#preauth
|
||
|
my $ctadr = $db->get_content1("contentadr",$ctt->{int10});
|
||
|
if($ctadr->{int03} == 1 && $ctadr->{ct_name} =~ /\w{2}-\d+/ && ($ctt->{txt16} !~ /\d+/ || $ctt->{int03} != 1)){
|
||
|
my $payoneret = $payone->preauthorizationSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
|
||
|
sleep 2;
|
||
|
}elsif($ctadr->{int03} == 2 && length($ctadr->{ct_name}) >= 19 && ($ctt->{txt16} !~ /\d+/ || $ctt->{int03} != 2)){
|
||
|
my $payoneret = $payone->preauthorizationCC_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
|
||
|
sleep 2;
|
||
|
}
|
||
|
#2018-10-18, check if preauth is done with txid (txt16)
|
||
|
$ctt = $db->get_content1("contenttrans",$c_id);
|
||
|
|
||
|
#SEPA capture
|
||
|
if($ctt->{int03} == 1 && $ctt->{txt16} && $R::state =~ /SEPA/ && $state !~ /Zahlungseingang/){#SEPA
|
||
|
my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
|
||
|
}
|
||
|
#CC capture
|
||
|
if($ctt->{int03} == 2 && $ctt->{txt16} && $R::state =~ /Kreditkarte/ && $state !~ /Zahlungseingang/){#CC
|
||
|
my $payoneret = $payone->captureCC_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
|
||
|
}
|
||
|
}else{
|
||
|
$db->updater($table,"c_id","$c_id","int14","null","","","","","");
|
||
|
}
|
||
|
|
||
|
#Rechnungspositionen itime > end Abrechnunsgdatum
|
||
|
if($max_timestamp){
|
||
|
my $ctpos_ck = $db->get_content7("contenttranspos","ct_id","$c_id","itime",">","$max_timestamp");
|
||
|
if($ctpos_ck->{c_id}){
|
||
|
my $ctadr = $db->get_content7("contentadr","c_id",$ctt->{int10});
|
||
|
my $ct_id = $dbt->insert_contenttrans($dbh,$ctadr,"300008","218","----",$users_dms->{u_id});
|
||
|
$db->updater($table,"c_id",$ct_id,"start_time","$ctt->{start_time}",$users_dms->{u_id});
|
||
|
$db->updater($table,"c_id",$ct_id,"end_time","$ctt->{end_time}",$users_dms->{u_id});
|
||
|
|
||
|
$i_rows = $db->updater("contenttranspos","ct_id","$c_id","ct_id","$ct_id","","itime",">","$max_timestamp","no_time");
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
}
|
||
|
###end SET Relation or state (V Terminal submit's)
|
||
|
|
||
|
my $c_id4print = $users_dms->{c_id4trans};
|
||
|
$c_id4print= $R::c_id if($R::printer_id =~ /Adresse|Kunde/);
|
||
|
if($c_id4print){
|
||
|
my $print_return;
|
||
|
my $exit_code = 1;
|
||
|
my $table = "contenttrans";
|
||
|
$table = "contenttver" if($rel->{ct_table} eq "contenttver");
|
||
|
$table = "contentadr" if($R::printer_id =~ /Adresse|Kunde/);#jbw
|
||
|
my $ctt = $db->get_content1($table,$c_id4print);
|
||
|
my $praefix = "$ctt->{txt00}-$varenv{praefix}";
|
||
|
#$praefix = "$ctt->{txt00}-TINK" if($varenv{wwwhost} =~ /tink|konrad/);
|
||
|
#$praefix = "$ctt->{txt00}-sharee" if($varenv{wwwhost} =~ /sharee/);
|
||
|
|
||
|
|
||
|
###PRINT
|
||
|
if($R::ct_trans =~ /print_pdf|print/i){
|
||
|
my $main_id = $R::set_main_id || $R::main_id;
|
||
|
my $node = $db->get_node4multi($main_id,$lang);
|
||
|
my $psize="A4";
|
||
|
if("$ctt->{txt00}" =~ /Quittung/){
|
||
|
$psize="A5";
|
||
|
#-B 0 -T 0 -L 0 -R 0 # testing paper-margin=0
|
||
|
}
|
||
|
my $wc_line=0;
|
||
|
$wc_line= $ctt->{int04};#Adresse.Tabelle
|
||
|
my ($sysname, $nodename, $release, $version, $machine) = uname();
|
||
|
my $topdf = "$varenv{basedir}/src/wkhtmltopdf-amd64";
|
||
|
|
||
|
if("$R::printer_id" =~ /PDF/){
|
||
|
#without system() because we have to wait until PDF is ready
|
||
|
$print_return = `$topdf --page-size $psize "$varenv{wwwhost}$script/Printpreview?printer_id=$R::printer_id\&mandant_main_id=$mandant_main_id\&main_id=$node->{main_id}\&ct_name2print=$ctt->{ct_name}\&c_id4trans=$c_id4print\&u_id=$users_dms->{u_id}\&wc=$wc_line" $varenv{pdf}/$praefix-$ctt->{ct_name}.pdf 2>&1`;
|
||
|
$exit_code = $?;
|
||
|
|
||
|
if(1==1){#debugging
|
||
|
my $filesize = -s "$varenv{pdf}/$praefix-$ctt->{ct_name}.pdf";
|
||
|
open(EMA, ">> $varenv{logdir}/copri-print.log");
|
||
|
print EMA "$today4db\n$topdf --page-size $psize $varenv{wwwhost}$script/Printpreview?printer_id=$R::printer_id\&mandant_main_id=$mandant_main_id\&main_id=$node->{main_id}\&ct_name2print=$ctt->{ct_name}\&c_id4trans=$c_id4print\&u_id=$users_dms->{u_id}\&wc=$wc_line $varenv{pdf}/$praefix-$ctt->{ct_name}.pdf\nreturn: $print_return\nfilesize: $filesize\nexit_code: $exit_code\n";
|
||
|
close EMA;
|
||
|
#exit 0;
|
||
|
}
|
||
|
|
||
|
if($R::set_state ne "buchen"){#no redirect if buchen incl. print_pdf
|
||
|
if( -f "$varenv{pdf}/$praefix-$ctt->{ct_name}.pdf" && $varenv{metahost}){
|
||
|
#print redirect("$varenv{metahost}$script/pdf/$praefix-$ctt->{ct_name}.pdf");
|
||
|
#exit 0;
|
||
|
print "<script type=\"text/javascript\">window.open('$varenv{metahost}$script/pdf/$praefix-$ctt->{ct_name}.pdf');</script>";
|
||
|
}elsif( -f "$varenv{pdf}/$praefix-$ctt->{ct_name}.pdf"){
|
||
|
#print redirect("$varenv{wwwhost}/pdf/$praefix-$ctt->{ct_name}.pdf");
|
||
|
#exit 0;
|
||
|
print "<script type=\"text/javascript\">window.open('$varenv{wwwhost}$script/pdf/$praefix-$ctt->{ct_name}.pdf');</script>";
|
||
|
}else{
|
||
|
return "failure::PDF konnte nicht generiert werden, bitte Info an: info\@gnu-systems.de\n $varenv{wwwhost}/pdf/$praefix-$ctt->{ct_name}.pdf";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
}
|
||
|
}
|
||
|
|
||
|
## ./src/Mod/newsletter_tink.pl '/var/www/copri3/tinkdms' 'https://tinkdms.copri.eu' 'send_invoice' '1842' '2866'
|
||
|
#2018-01-12
|
||
|
#if(($R::send_invoice && $print_return =~ /Done/ && $exit_code == 0) || ($ib_key eq "send_invoice_again")){
|
||
|
if(-f "$varenv{pdf}/$praefix-$ctt->{ct_name}.pdf" && (($R::set_state eq "buchen" && $R::send_invoice) || ($ib_key eq "send_invoice_again"))){
|
||
|
#sleep 3;#PDF invoice sending disabled because of partly empty invoices
|
||
|
#
|
||
|
#print "$varenv{basedir}/src/Mod/newsletter_tink.pl '$varenv{basedir}' '$varenv{wwwhost}' 'send_invoice' '$ctt->{int10}' '$ctt->{ct_name}'";
|
||
|
#Last check!!!!!
|
||
|
#my $key_pdf;
|
||
|
#$key_pdf = `/usr/bin/pdftotext $varenv{pdf}/$praefix-$ctt->{ct_name}.pdf - | grep "Seite:"`;
|
||
|
system(`$varenv{basedir}/src/Mod/newsletter_tink.pl "$varenv{basedir}" "$varenv{wwwhost}" "send_invoice" "$ctt->{int10}" "$ctt->{ct_name}"`);# if($key_pdf =~ /Seite:/);
|
||
|
|
||
|
}
|
||
|
#
|
||
|
}#end c_id4print
|
||
|
|
||
|
#SET Tagesabschluss
|
||
|
if($R::v_abschluss){
|
||
|
my $journal_tpl="999999";
|
||
|
my $journal_id="999999";
|
||
|
my $Xjournal_id="999999";
|
||
|
if("$R::kind_of_trans" eq "Verkauf"){
|
||
|
$journal_id=$ctf->{txt23} if($ctf->{txt23});
|
||
|
$Xjournal_id=$ctf->{txt70} if($ctf->{txt70});
|
||
|
$journal_tpl=$ctf->{txt26} if($ctf->{txt26});
|
||
|
}
|
||
|
if($R::kind_of_trans =~ /Faktur|Verleih/){
|
||
|
$journal_id=$ctf->{txt25} if($ctf->{txt25});
|
||
|
$Xjournal_id=$ctf->{txt70} if($ctf->{txt70});
|
||
|
$journal_tpl=$ctf->{txt28} if($ctf->{txt28});
|
||
|
}
|
||
|
|
||
|
#test node
|
||
|
my $n_exist = $db->get_node4multi($journal_id,$lang);
|
||
|
my $t_exist = $db->get_tpl($journal_tpl);
|
||
|
if(!$n_exist->{n_id} || !$t_exist->{tpl_id}){
|
||
|
return "failure::Die Journal Konfiguration ist fehlerhaft.";
|
||
|
}
|
||
|
|
||
|
#collect sub-nodes
|
||
|
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 $table = "contenttrans";
|
||
|
my $sum_start = $R::sum_start || "0";
|
||
|
my $sum_kasse = $R::sum_kasse || "0";
|
||
|
$sum_start = $lb->checkint($sum_start);
|
||
|
$sum_kasse = $lb->checkint($sum_kasse);
|
||
|
my $c_id4kasse;
|
||
|
#my $journal_node = $db->get_node3("$parent_trans->{main_id}","Verkaufsjournal","$lang");
|
||
|
my $c_id4abschluss = $db->get_content6("$table","close_time","null","state","Kassenbestand","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");
|
||
|
$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
|
||
|
$db->update_content4change("contenttrans",$c_id4kasse,"",$c_id4kasse,"int11");#last_ab
|
||
|
$db->update_content4change("contenttrans",$c_id4kasse,"",$journal_id,"int12");#main_id
|
||
|
|
||
|
#2021-04-30, check close_time if fails. 300011 not in main_ids #TODO $db->collect_noderec
|
||
|
#$db->update_content4change("contenttrans",$c_id4kasse,"","now()","close_time");
|
||
|
$db->update_content4change("contenttrans",$c_id4kasse,"",$n_exist->{node_name},"txt00");#node_name
|
||
|
#my $rel_id = $db->insert_relationlist($table,$journal_id,$lang,$c_id4kasse,$journal_tpl,"ct_id");
|
||
|
my $rel_id = $db->insert_relationlist($table,$journal_id,$lang,$c_id4kasse,$tpl_vk,"ct_id");
|
||
|
}
|
||
|
$u_rows += $db->update_kasse($table,$c_id4kasse,$sum_kasse,$sum_start);
|
||
|
|
||
|
if($journal_id && $journal_tpl && $R::close_trans){
|
||
|
my $opos="null";
|
||
|
$u_rows += $db->update_tagesabschluss($table,$c_id4kasse,$journal_id,$journal_tpl,$tpl_vk,$parent_trans->{parent_id},"$main_ids","$s_owner_id","$opos");
|
||
|
|
||
|
#Move thinks which are in context to closed transactions
|
||
|
if(1==1){
|
||
|
my $Xlast = $db->collect_Xlast($c_id4kasse,$journal_id,$journal_tpl,$parent_trans->{parent_id});
|
||
|
foreach my $c_id (keys (%$Xlast)){
|
||
|
my @Xct_name = split(/-/,$Xlast->{$c_id}->{ct_name});
|
||
|
foreach(@Xct_name){
|
||
|
$u_rows += $db->update_Xabschluss($table,$c_id4kasse,$Xjournal_id,$journal_tpl,$tpl_vk,$parent_trans->{parent_id},"$main_ids","$s_owner_id","$_") if($_ > 10); #because of max workflow counter
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if("$R::kind_of_trans" eq "Verkauf"){
|
||
|
$path =~ s/$R::kind_of_trans.*/$R::kind_of_trans\/Verkaufsjournal/;
|
||
|
}
|
||
|
if("$R::kind_of_trans" eq "Einkauf"){
|
||
|
$path =~ s/$R::kind_of_trans.*/$R::kind_of_trans\/Einkaufsjournal/;
|
||
|
}
|
||
|
if($R::kind_of_trans =~ /Faktur|Verleih/){
|
||
|
$path =~ s/$R::kind_of_trans.*/$R::kind_of_trans\/Verleihjournal/;
|
||
|
}
|
||
|
|
||
|
#calculate and set counts
|
||
|
my @mainis = split(/,/,$main_ids);
|
||
|
foreach(@mainis){
|
||
|
my $rows = $db->count_content($table,"$_","$tpl_vk");
|
||
|
$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}$script$path"},"$varenv{wwwhost}$script$path"));
|
||
|
print redirect("$varenv{wwwhost}$script$path?redirected=1\&return=0-0-0|$i_rows-$u_rows-$d_rows");
|
||
|
exit 0;
|
||
|
}
|
||
|
}
|
||
|
$db->cleanup_users($users_dms->{u_id});
|
||
|
}
|
||
|
###
|
||
|
return "$i_rows-$u_rows-$d_rows";
|
||
|
}
|
||
|
1;
|