projekt kivitendo

#!/usr/bin/perl

use warnings;

use strict;

use 5.008;

warn "MH start\n";

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;

warn "MH lx conf\n";

use SL::LxOfficeConf;

warn "MH read config\n";

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);

warn "MH instance config\n";

$::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});

warn "MH instance config init\n";

$main::lxdebug->message(LXDebug->DEBUG2(),"MH instance config init\n");

$::instance_conf->init;

# ACTUAL REQUEST GOES HERE

# example:

my $formvars = <<EOF;

   id = 

   type = purchase_order

   vc = vendor

   proforma = 

   queued = 

   printed = 

   emailed = 

   ui_tab = 

   title = Lieferantenauftrag erfassen

   creditlimit = 0.00000

   creditremaining = -31558.0668

   tradediscount = 

   business = 

   max_dunning_level = 

   dunning_amount = 

   shiptoname = 

   shiptostreet = 

   shiptozipcode = 

   credit_note_amount = 

   openinvoicesum = -3239.61

   openordersum = -17980.07

   CFDD_shipto = 

   CFDD_shipto_id = 

   shiptocity = 

   shiptocountry = 

   shiptogln = 

   shiptocontact = 

   shiptophone = 

   shiptofax = 

   shiptodepartment_1 = 

   shiptodepartment_2 = 

   shiptoemail = 

   shiptocp_gender = 

   taxpart = 

   taxservice = 

   taxaccounts = 1406 

   cursor_fokus = partnumber_3

   addnumber = 7

   show_details = 0

   useasnew = 

   oldvendor = xxxxx--28553

   selectvendor = 

   old_currency = EUR

   forex = 0

   1406_rate = 0.19000

   1406_description = Vorsteuer

   1406_taxnumber = 1406

   convert_from_oe_ids = 

   convert_from_ar_ids = 

   convert_from_do_id = 

   follow_up_trans_id_1 = 

   follow_up_trans_type_1 = purchase_order

   follow_up_trans_info_1 =  (xxxx)

   follow_up_rowcount = 1

   lastmtime = 

   vendor_id = 28553

   vendor = xxxxx

   has_customer_vendor_picker = 1

   cp_id = 

   taxzone_id = 4

   department_id = 

   currency = EUR

   shippingpoint = 

   shipvia = 

   transaction_description = 

   employee_id = 12284

   ordnumber = 

   quonumber = 

   cusordnumber = 

   rfqdate = 

   transdate = 14.06.2016

   reqdate = 15.06.2016

   globalproject_id = 

   partupd1 = 0

   currentrow = 1

   runningnumber_1 = 1

   partnumber_1 = 355776

   description_1 = yyyy 1695071171002

   ship_1 = 0,00

   qty_1 = 50,00

   price_factor_id_1 = 942

   unit_1 = Stck

   sellprice_1 = 169,46

   discount_1 = 0

   unit_old_1 = Stck

   price_new_1 = 0

   orderitems_id_1 = 

   bo_1 = 

   pricegroup_old_1 = 

   price_old_1 = 0

   id_1 = 14373

   inventory_accno_1 = 1140

   bin_1 = 

   partsgroup_1 = 

   partnotes_1 = 

   active_price_source_1 = 

   active_discount_source_1 = 

   customer_exclusive_1 = 

   vendor_exclusive_1 = 

   std_warehouse_1 = Elektromateriallager

   std_bin_1 = 1

   not_discountable_1 = 0

   income_accno_1 = 4400

   expense_accno_1 = 5400

   listprice_1 = 3.50000

   assembly_1 = 0

   taxaccounts_1 = 1406

   ordnumber_1 = 

   donumber_1 = 

   transdate_1 = 

   cusordnumber_1 = 

   longdescription_1 = 

   basefactor_1 = 

   marge_absolut_1 = 84,73

   marge_percent_1 = 100,00

   marge_price_factor_1 = 100.00000

   weight_1 = 0

   orderitems_id_1 = 

   converted_from_orderitems_id_1 = 

   converted_from_invoice_id_1 = 

   serialnumber_1 = 

   project_id_1 = 

   reqdate_1 = 

   currentrow = 2

   runningnumber_2 = 2

   partnumber_2 = 355780

   description_2 = zzzzz

   ship_2 = 0,00

   qty_2 = 500

   price_factor_id_2 = 942

   unit_2 = Stck

   sellprice_2 = 45,26

   discount_2 = 0

   unit_old_2 = Stck

   price_new_2 = 0

   orderitems_id_2 = 

   bo_2 = 

   pricegroup_old_2 = 

   price_old_2 = 0

   id_2 = 14297

   inventory_accno_2 = 1140

   bin_2 = 

   partsgroup_2 = 

   partnotes_2 = 

   active_price_source_2 =

   active_discount_source_2 = 

   customer_exclusive_2 = 

   vendor_exclusive_2 = 

   std_warehouse_2 = Elektromateriallager

   std_bin_2 = 1

   not_discountable_2 = 0

   income_accno_2 = 4400

   expense_accno_2 = 5400

   listprice_2 = 0.00000

   assembly_2 = 0

   taxaccounts_2 = 1406

   ordnumber_2 = 

   donumber_2 = 

   transdate_2 = 

   cusordnumber_2 = 

   longdescription_2 = 

   basefactor_2 = 

   marge_absolut_2 = 0,00

   marge_percent_2 = 0,00

   marge_price_factor_2 = 100.00000

   weight_2 = 0

   orderitems_id_2 = 

   converted_from_orderitems_id_2 = 

   converted_from_invoice_id_2 = 

   serialnumber_2 = 

   project_id_2 = 

   reqdate_2 = 

   currentrow = 3

   runningnumber_3 = 3

   partnumber_3 = 

   description_3 = 

   qty_3 = 0,00

   price_factor_id_3 = 

   unit_3 = Stck

   sellprice_3 = 0,00

   discount_3 = 0

   unit_old_3 = 

   price_new_3 = 0

   orderitems_id_3 = 

   bo_3 = 

   pricegroup_old_3 = 

   price_old_3 = 0

   id_3 = 

   inventory_accno_3 = 

   bin_3 = 

   partsgroup_3 = 

   partnotes_3 = 

   active_price_source_3 = 

   active_discount_source_3 = 

   customer_exclusive_3 = 

   vendor_exclusive_3 = 

   std_warehouse_3 = 

   std_bin_3 = 

   not_discountable_3 = 

   income_accno_3 = 

   expense_accno_3 = 

   listprice_3 = 

   assembly_3 = 

   taxaccounts_3 = 

   ordnumber_3 = 

   donumber_3 = 

   transdate_3 = 

   cusordnumber_3 = 

   longdescription_3 = 

   basefactor_3 = 

   marge_absolut_3 = 0,00

   marge_percent_3 = 0,00

   marge_price_factor_3 = 

   weight_3 = 0

   orderitems_id_3 = 

   converted_from_orderitems_id_3 = 

   converted_from_invoice_id_3 = 

   serialnumber_3 = 

   project_id_3 = 

   reqdate_3 = 

   notes = 

   intnotes = 

   payment_id = 43427

   delivery_term_id = 

   taxincluded_changed_by_user = 0

   oldinvtotal = 101.36

   oldtotalpaid = 

   formname = purchase_order

   language_id = 

   format = pdf

   media = screen

   action_update = Erneuern

   action = dispatcher

   saved_xyznumber = 

   rowcount = 3

   callback = oe.pl?action=add&type=purchase_order&vc=vendor

   vendor_discount = 0

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;

}

warn "MH now start\n";

$main::lxdebug->message(LXDebug->DEBUG2(),"MH now start\n");

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

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

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

#$main::lxdebug->message(LXDebug->DEBUG2(),"MH newdbh=".$dbh);

require "bin/mozilla/oe.pl";

update();