2021-12-30 12:05:56 +01:00
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" ;
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 ) ;
}
my $ node = $ db - > get_node4multi ( $ main_id , $ lang ) ;
2022-02-14 16:06:02 +01:00
if ( $ table && $ main_id ) {
2021-12-30 12:05:56 +01:00
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 {
2022-02-14 16:06:02 +01:00
return "failure::Fehler, Datensatz kann nicht angelegt werden weil folgende Informationen fehlen: ($main_id)" ;
2021-12-30 12:05:56 +01:00
}
}
###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}" ) ) {
my $ nextNr = $ node - > { int06 } ;
2022-02-14 16:06:02 +01:00
$ u_rows += $ db - > update_content4change ( $ table , $ c_id , $ nextNr , $ nextNr , "barcode" ) ;
my $ int06 = $ node - > { int06 } + 1 ;
$ u_rows += $ db - > updater ( "nodes" , "main_id" , $ R:: set_main_id , "int06" , $ int06 , "" , "" , "" , "" , "no_time" ) ;
2021-12-30 12:05:56 +01:00
} 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/,/\./ ;
}
$ 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" , "" , "" , "" , "" , "" ) ;
}
}
}
###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 ) {
2022-02-14 16:06:02 +01:00
my $ print_return = "" ;
2021-12-30 12:05:56 +01:00
my $ exit_code = 1 ;
my $ table = "contenttrans" ;
my $ ctt = $ db - > get_content1 ( $ table , $ c_id4print ) ;
2022-02-01 20:53:23 +01:00
my $ praefix = "$ctt->{txt00}-$varenv{praefix}" ; #like Rechnung-sharee_operator
2021-12-30 12:05:56 +01:00
###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
2022-02-01 20:53:23 +01:00
if ( - f "$varenv{basedir}/pdf/$praefix-$ctt->{ct_name}.pdf" && $ varenv { metahost } ) {
2021-12-30 12:05:56 +01:00
#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>" ;
2022-02-01 20:53:23 +01:00
} elsif ( - f "$varenv{basedir}/pdf/$praefix-$ctt->{ct_name}.pdf" ) {
2021-12-30 12:05:56 +01:00
#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" ;
}
}
}
}
2022-02-04 15:42:58 +01:00
if ( - f "$varenv{basedir}/pdf/$praefix-$ctt->{ct_name}.pdf" && ( ( $ R:: set_state eq "buchen" && $ R:: send_invoice && $ ctt - > { int01 } && $ ctt - > { int01 } != 0 ) || ( $ ib_key eq "send_invoice_again" ) ) ) {
2021-12-30 12:05:56 +01:00
#sleep 3;#PDF invoice sending disabled because of partly empty invoices
#
#my $key_pdf;
2022-02-01 20:53:23 +01:00
#$key_pdf = `/usr/bin/pdftotext $varenv{basedir}/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:/);
system ( `$varenv{basedir}/src/scripts/mailTransport.pl "$varenv{syshost}" "send_invoice" "$ctt->{c_id}" "$praefix-$ctt->{ct_name}.pdf"` ) ;
2021-12-30 12:05:56 +01:00
}
#
} #end c_id4print
#SET Tagesabschluss
if ( $ R:: v_abschluss ) {
2022-02-01 20:53:23 +01:00
my $ journal_tpl = "209" ;
my $ journal_id = "300011" ;
2021-12-30 12:05:56 +01:00
#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 ) ;
2022-02-01 20:53:23 +01:00
my $ c_id4kasse = "" ;
2021-12-30 12:05:56 +01:00
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
$ 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 , $ 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" ) ;
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 ;