projekt kivitendo

#!/usr/bin/perl

use warnings;

use strict;

use 5.008;

use SL::Dispatcher;

use Data::Dumper;

use Devel::REPL 1.002001;

use File::Slurp;

use Getopt::Long;

use Pod::Usage;

use CGI qw( -no_xhtml);

use DateTime;

use SL::Auth;

use SL::Form;

use SL::Helper::DateTime;

use SL::InstanceConfiguration;

use SL::Locale;

use SL::LXDebug;

use Data::Dumper;

use List::Util qw(max);

use Time::HiRes;

use SL::LxOfficeConf;

SL::LxOfficeConf->read;

# FILL IN!

my $client = '1';

my $login  = 'odadmin';

$::lxdebug = LXDebug->new();

$::locale  = Locale->new($::lx_office_conf{system}->{language});

$::form    = Form->new;

$::auth    = SL::Auth->new;

die "Cannot find client with ID or name '$client'" if !$::auth->set_client($client);

$::instance_conf = SL::InstanceConfiguration->new;

$::request       = SL::Request->new(

  cgi    => CGI->new({}),

  layout => SL::Layout::None->new,

);

die 'cannot reach auth db'               unless $::auth->session_tables_present;

$::auth->restore_session;

require "bin/mozilla/common.pl";

die "cannot find user $login"            unless %::myconfig = $::auth->read_user(login => $login);

die "cannot find locale for user $login" unless $::locale   = Locale->new($::myconfig{countrycode});

$::instance_conf->init;

# ACTUAL REQUEST GOES HERE

# exmaple:

my $formvars = <<EOF;

   id = 643656

   item = part

   title = Ware bearbeiten

   makemodel = 1

   alternate = 0

   onhand = 0

   orphaned = 1

   taxaccounts = 

   rowcount = 

   eur = 

   original_partnumber = 360082

   currow = 

   cursor_fokus = 

   lastmtime = 14.06.2016 14:35:15.617518

   ui_tab = 

   partnumber = 

   partstypes_id = 3

   description = Danfoss Sicherheitsüberströmventil SAVA DN40 G2", Sollwertbereich 2-7 bar

   notes = 

   ean = 

   customs_tariff_number = 

   buchungsgruppen_id = 936

   IC_income = 

   IC_expense = 

   IC = 1140--Waren (Bestand)

   payment_id = 

   formel = 

   image = 

   microfiche = 

   drawing = 

   intnotes = 

   priceupdate = 14.06.2016

   listprice = 0,00

   sellprice = 0,00

   lastcost = 575,4

   price_factor_id = 

   unit_changeable = 1

   unit = Stck

   weight = 0

   dispotype = consumption

   leadtime = 0

   consume = 0

   ordersize = 0

   rop = 0

   warehouse_id = 0

   bin_id = 0

   ve = 0

   gv = 0

   has_customer_vendor_picker = 1

   cp_customer_id_1 = 

   cp_customer_name_1 = 

   cp_partnumber_1 = 

   cp_partdescription_1 = 

   cp_old_price_1 = 0,00

   cp_price_1 = 0,00

   cp_lastupdate_1 = 

   cp_sortorder_1 = 

   cprices_rows = 1

   has_customer_vendor_picker = 1

   make_1 = 28559

   makename_1 = Danfoss GmbH

   model_1 = 003H6973

   model_description_1 = Danfoss Sicherheitsüberströmventil SAVA DN40 G2", Sollwertbereich 2-7 bar

   old_lastcost_1 = 510,60000

   lastcost_1 = 575,4

   lastupdate_1 = 14.06.2016

   sortorder_1 = 

   priceupdate_1 = Y

   make_2 = 

   makename_2 = 

   model_2 = 

   model_description_2 = 

   old_lastcost_2 = 0,00000

   lastcost_2 = 0,00000

   lastupdate_2 = 

   sortorder_2 = 

   priceupdate_2 = Y

   makemodel_rows = 2

   callback = ic.pl?action=generate_report&l_linetotal=Y&searchitems=article&l_part=Y&partstypes_id=3&itemstatus=active&l_pricegroups=Y&partstypes_id=3&description=danfoss%25sicherhe&l_partnumber=Y&l_ptype=Y&l_description=1&l_onhand=Y&l_unit=Y&l_sellprice=Y&l_linetotalsellprice=Y&l_lastcost=Y&l_linetotallastcost=Y&sort=description&revers=0

   previousform = 

   taxaccount2 = 

   vc = 

   cvar_Vorlauf1_valid = on

   cvar_Vorlauf1 = 50

   cvar_Vorlauf2_valid = on

   cvar_Vorlauf2 = 70

   cvar_Ruecklauf1_valid = on

   cvar_Ruecklauf1 = 50

   cvar_Ruecklauf2_valid = on

   cvar_Ruecklauf2 = 47

   cvar_Nennweite1_valid = on

   cvar_Nennweite1 = 25

   cvar_Nennweite2_valid = on

   cvar_Nennweite2 = 40

   cvar_GesWaerme1_valid = on

   cvar_GesWaerme1 = 110,00

   cvar_GesWaerme2_valid = on

   cvar_GesWaerme2 = 110

   cvar_MassLaenge_valid = on

   cvar_MassLaenge = 2.200

   cvar_MassHoehe_valid = on

   cvar_MassHoehe = 1.600

   cvar_MassTiefe_valid = on

   cvar_MassTiefe = 600

   cvar_bom_valid = on

   cvar_bom = 0-Unbestimmt

   cvar_typ_valid = on

   cvar_typ = 

   cvar_auslegung_p_valid = on

   cvar_auslegung_p = 

   cvar_auslegung_s_valid = on

   cvar_auslegung_s = 

   cvar_auslegung_b_valid = on

   cvar_auslegung_b = 

   cvar_max_Temp_valid = on

   cvar_max_Temp = 0

   cvar_pruefdruck_valid = on

   cvar_pruefdruck = 

   cvar_pruefmedium_valid = on

   cvar_pruefmedium = 

   cvar_regler_valid = on

   cvar_regler = 

   price_rows = 0

   cursor_fokus = 

   action = als neu speichern

EOF

my @lines = split("\n",$formvars);

foreach my $line ( @lines ) {

  my ( $name,$value ) = split("=",$line,2);

  $name =~ s/^\s+|\s+$//g;

  $value =~ s/^\s+|\s+$//g;

  $::form->{"$name"} = $value;

}

#my $dbh = SL::DB::Object->new->db->dbh;

#warn "MH2 dbh=".$dbh."\n";

#$::form->set_standard_dbh($dbh);

require "bin/mozilla/ic.pl";

save_as_new();