roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-10 22:16:26 +02:00
Code Issues Projects Releases Packages Wiki Activity

saving column into invoices

Browse source
This commit is contained in:
Rainer Gümpelein 2022-02-10 16:45:22 +01:00
parent ba041a56b6
commit 4c11beb331
7 changed files with 222 additions and 283 deletions
Download patch file Download diff file Expand all files Collapse all files

11
copri4/main/src/scripts/payone_cron.pl
View file

@ -29,7 +29,7 @@ BEGIN {
$syshost = $ARGV[0] || exit 1;
}
use lib "/var/www/copri4/$syshost/src";
use lib "/var/www/copri-bike/$syshost/src";
my $ctt_id = $ARGV[1] || "";
my $intervall = $ARGV[2] || "1";
@ -45,7 +45,7 @@ use Data::Dumper;
use Scalar::Util qw(looks_like_number);
my $cf = new Config;
my %varenv = $cf->envonline("$syshost");
my %varenv = $cf->envonline();
my $lb = new Libenz;
my $dbt = new DBtank;
my $pay = new Payment;
@ -93,7 +93,7 @@ my $dbh = $dbt->dbconnect();
print FILE "\n$i)** loop $now_dt ---> payone_cron select invoice ct.c_id:$ct4rel->{$id}->{c_id}| ca.c_id:$ct4rel->{$id}->{int10}| ct.ct_name:$ct4rel->{$id}->{ct_name}| ct.mtime:$ct4rel->{$id}->{mtime}\n";
if($ct4rel->{$id}->{int10} && !$ct4rel->{$id}->{txt22} && $ct4rel->{$id}->{ct_name} =~ /---|^\d+$/){
my $umst1619 = $lb->umst_breaking($ct4rel->{$id},$now_dt);
#my $umst1619 = $lb->umst_breaking($ct4rel->{$id},$now_dt);
#get Adresse from contentadr
my $fetchadr = {
@ -119,9 +119,8 @@ my $dbh = $dbt->dbconnect();
my $sum_parts0=0;
my $sum_parts7=0;
my $sum_parts19=0;
my $sum_kaution=0;
my $diff7 = 100 + 7;
my $diff19 = 100 + $umst1619;
#my $diff19 = 100 + $umst1619;
my $diff19 = 100 + 19;
my $sum_umst7=0;
my $sum_umst19=0;
my $j=0;