projekt kivitendo

    $self->_unpack_flags($config);

  $self->_unpack_flags($config);

sub _unpack_flags {

  $main::lxdebug->enter_sub();

  my $self   = shift;

  my $config = shift;

  foreach my $flag (split m/:/, $config->{flags}) {

    if ($flag =~ m/(.*?)=(.*)/) {

      $config->{"flag_${1}"}    = $2;

    } else {

      $config->{"flag_${flag}"} = 1;

    }

  }

  $main::lxdebug->leave_sub();

}

  $q_var      .= qq| AND (sub_module = ?)| if $params{sub_module};

      my @values = (conv_i($cvar->{id}), conv_i($params{trans_id}));

      push @values, $params{sub_module} if $params{sub_module};

      do_statement($form, $h_var, $q_var, @values);

  my @configs  = $params{configs} ? @{ $params{configs} } : grep { $_->{module} eq $params{module} } @{ CVar->get_configs() };

  my @values   = (conv_i($params{trans_id}), $params{module});

  if ($params{sub_module}) {

    $query .= qq| AND (sub_module = ?)|;

    push @values, $params{sub_module};

  }

  do_query($form, $dbh, $query, @values);

    qq|INSERT INTO custom_variables (config_id, sub_module, trans_id, bool_value, timestamp_value, text_value, number_value)

       VALUES                       (?,         ?,          ?,        ?,          ?,               ?,          ?)|;

    my @values = (conv_i($config->{id}), "$params{sub_module}", conv_i($params{trans_id}));

    my $value  = $params{variables}->{"$params{name_prefix}cvar_$config->{name}$params{name_postfix}"};

  my %options  = ( name_prefix       => "$params{name_prefix}",

                   name_postfix      => "$params{name_postfix}",

                   hide_non_editable => $params{hide_non_editable},

                 );

    $var->{HTML_CODE} = $form->parse_html_template('amcvar/render_inputs', { 'var' => $var, %options });

      push @sub_where,  qq|cvar.sub_module = ?|;

      push @sub_values, "$params{sub_module}";

       WHERE (config_id IN (| . join(', ', ('?') x scalar(@cfg_ids)) . qq|))

         AND (trans_id = ?)

         AND (sub_module = ?)|;

    do_statement($form, $sth, $query, @cfg_ids, conv_i($row->{$params{trans_id_field}}), "$params{sub_module}");

  foreach my $item (@{ $form->{item_list} }) {

    my $custom_variables = CVar->get_custom_variables(module   => 'IC',

                                                      trans_id => $item->{id},

                                                      dbh      => $dbh,

                                                     );

    $main::lxdebug->dump(0, "cvar", $custom_variables);

    map { $item->{"ic_cvar_" . $_->{name} } = $_->{value} } @{ $custom_variables };

  }

  $main::lxdebug->dump(0, "items", $form->{item_list});

use SL::CVar;

  my $ic_cvar_configs = CVar->get_configs(module => 'IC',

                                          dbh    => $dbh);

    $query = qq|DELETE FROM custom_variables

                WHERE (config_id IN (SELECT id FROM custom_variable_configs WHERE module = 'IC'))

                  AND (sub_module = 'orderitems')

                  AND (trans_id IN (SELECT id FROM orderitems WHERE trans_id = ?))|;

    do_query($form, $dbh, $query, $form->{id});

      my $orderitems_id = $form->{"orderitems_id_$i"};

      ($orderitems_id)  = selectfirst_array_query($form, $dbh, qq|SELECT nextval('orderitemsid')|) if (!$orderitems_id);

      $query = qq|INSERT INTO orderitems (

                    id, trans_id, parts_id, description, longdescription, qty, base_qty,

                    sellprice, discount, unit, reqdate, project_id, serialnumber, ship,

                    pricegroup_id, ordnumber, transdate, cusordnumber, subtotal,

                    marge_percent, marge_total, lastcost, price_factor_id, price_factor, marge_price_factor)

                  VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,

                          (SELECT factor FROM price_factors WHERE id = ?), ?)|;

           conv_i($orderitems_id), conv_i($form->{id}), conv_i($form->{"id_$i"}),

      CVar->save_custom_variables(module       => 'IC',

                                  sub_module   => 'orderitems',

                                  trans_id     => $orderitems_id,

                                  configs      => $ic_cvar_configs,

                                  variables    => $form,

                                  name_prefix  => 'ic_',

                                  name_postfix => "_$i",

                                  dbh          => $dbh);

  my $ic_cvar_configs = CVar->get_configs(module => 'IC',

                                          dbh    => $dbh);

      # Retrieve custom variables.

      my $cvars = CVar->get_custom_variables(dbh        => $dbh,

                                             module     => 'IC',

                                             sub_module => 'orderitems',

                                             trans_id   => $ref->{orderitems_id},

                                            );

      # $main::lxdebug->dump(0, "cv", $cvars);

      map { $ref->{"ic_cvar_$_->{name}"} = $_->{value} } @{ $cvars };

      # Handle accounts.

  my $ic_cvar_configs = CVar->get_configs(module => 'IC');

  push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };

      map { push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} }, $form->{"ic_cvar_$_->{name}_$i"} } @{ $ic_cvar_configs };

    my $ic_cvar_configs = CVar->get_configs(module => 'IC');

    my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };

      map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;

      map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;

  _update_custom_variables();

    # Benutzerdefinierte Variablen für Waren/Dienstleistungen/Erzeugnisse

    _render_custom_variables_inputs(ROW2 => \@ROW2, row => $i);

  my @new_fields =

    qw(bin listprice inventory_accno income_accno expense_accno unit weight

       assembly taxaccounts partsgroup formel longdescription not_discountable

       part_payment_id partnotes id lastcost price_factor_id price_factor);

  push @new_fields, "lizenzen" if ($lizenzen);

  push @new_fields, grep { m/^ic_cvar_/ } keys %{ $form->{item_list}->[0] };

  my $ic_cvar_configs = CVar->get_configs(module => 'IC');

  push @new_fields, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };

    my @flds = qw(id qty unit bom partnumber description sellprice weight runningnumber partsgroup lastcost);

    my @flds = qw(id partnumber description qty ship sellprice unit

                  discount inventory_accno income_accno expense_accno listprice

                  taxaccounts bin assembly weight projectnumber project_id

                  oldprojectnumber runningnumber serialnumber partsgroup payment_id

                  not_discountable shop ve gv buchungsgruppen_id language_values

                  sellprice_pg pricegroup_old price_old price_new unit_old ordnumber

                  transdate longdescription basefactor marge_total marge_percent

                  marge_price_factor lastcost price_factor_id partnotes

                  stock_out stock_in);

    my $ic_cvar_configs = CVar->get_configs(module => 'IC');

    push @flds, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };

sub _update_custom_variables {

  $lxdebug->enter_sub();

  $form->{CVAR_CONFIGS}       ||= { };

  $form->{CVAR_CONFIGS}->{IC}   = CVar->get_configs(module => 'IC');

  $lxdebug->leave_sub();

}

sub _render_custom_variables_inputs {

  $lxdebug->enter_sub();

  my %params = @_;

  if (!$form->{CVAR_CONFIGS}->{IC}) {

    $lxdebug->leave_sub();

    return;

  }

  foreach my $cvar (@{ $form->{CVAR_CONFIGS}->{IC} }) {

    $cvar->{value} = $form->{"ic_cvar_" . $cvar->{name} . "_$params{row}"};

  }

  CVar->render_inputs(hide_non_editable => 1,

                      variables         => $form->{CVAR_CONFIGS}->{IC},

                      name_prefix       => 'ic_',

                      name_postfix      => "_$params{row}");

  my $num_visible_cvars = 0;

  foreach my $cvar (@{ $form->{CVAR_CONFIGS}->{IC} }) {

    my $description = '';

    if ($cvar->{flag_editable}) {

      $num_visible_cvars++;

      $description = $cvar->{description} . ' ';

    }

    push @{ $params{ROW2} }, { line_break => $num_visible_cvars == 1,

                               value      => $description . $cvar->{HTML_CODE},

                             };

  }

  $lxdebug->leave_sub();

}

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

  '_render_custom_variables_inputs' => '_render_custom_variables_inputs',

  '_update_custom_variables'    => '_update_custom_variables',

ALTER TABLE custom_variables ADD COLUMN sub_module text;

UPDATE custom_variables SET sub_module = '';

[%- SET var_name = HTML.escape(name_prefix) _ "cvar_" _ HTML.escape(var.name) _ HTML.escape(name_postfix) -%]

[%- IF hide_non_editable && !var.flag_editable %]

<input type="hidden" name="[% var_name %]" value="[% HTML.escape(var.value) %]">

[%- ELSIF var.type == 'bool' %]

<input type="checkbox" name="[% var_name %]" value="1"[% IF var.value %] checked[% END %]>

<textarea name="[% var_name %]" cols="[% HTML.escape(var.width) %]" rows="[% HTML.escape(var.height) %]">[% HTML.escape(var.value) %]</textarea>

<input name="[% var_name %]" id="[% var_name %]" size="12" value="[% HTML.escape(var.value) %]">

<input name="[% var_name %]_button" id="[% var_name %]_trigger" type="button" value="?">

     Calendar.setup({ inputField : "[% var_name %]",

                      ifFormat   : "[% myconfig_jsc_dateformat %]",

                      button     : "[% var_name %]_trigger" });

<input name="[% var_name %]" value="[% HTML.escape(var.value) %]">

<select name="[% var_name %]">

<input name="[% var_name %]" value="[% HTML.escape(var.value) %]" [%- IF var.maxlength %] maxlength="[% HTML.escape(var.maxlength) %]"[% END -%]>

[%- SET var_name = HTML.escape(name_prefix) _ "cvar_" _ HTML.escape(var.name) _ HTML.escape(name_postfix) -%]

[%- IF hide_non_editable && !var.flag_editable %]

<input type="hidden" name="[% var_name %]" value="[% HTML.escape(var.value) %]">

[%- ELSIF var.type == 'bool' %]

<input type="checkbox" name="[% var_name %]" value="1"[% IF var.value %] checked[% END %]>

<textarea name="[% var_name %]" cols="[% HTML.escape(var.width) %]" rows="[% HTML.escape(var.height) %]">[% HTML.escape(var.value) %]</textarea>

<input name="[% var_name %]" id="[% var_name %]" size="12" value="[% HTML.escape(var.value) %]">

<input name="[% var_name %]_button" id="[% var_name %]_trigger" type="button" value="?">

     Calendar.setup({ inputField : "[% var_name %]",

                      ifFormat   : "[% myconfig_jsc_dateformat %]",

                      button     : "[% var_name %]_trigger" });

<input name="[% var_name %]" value="[% HTML.escape(var.value) %]">

<select name="[% var_name %]">

<input name="[% var_name %]" value="[% HTML.escape(var.value) %]" [%- IF var.maxlength %] maxlength="[% HTML.escape(var.maxlength) %]"[% END -%]>

      [% IF row2.line_break %]<br/>[% END %]

      [% IF row2.line_break %]<br/>[% END %]