projekt kivitendo

#======================================================================

# LX-Office ERP

#

#======================================================================

#

# Saving and loading drafts

#

#======================================================================

package Drafts;

use YAML;

use SL::Common;

use SL::DBUtils;

sub get_module {

  $main::lxdebug->enter_sub();

  my ($self, $form) = @_;

  my ($module, $submodule);

  $module = $form->{"script"};

  $module =~ s/\.pl$//;

  if (grep({ $module eq $_ } qw(is ir ar ap))) {

    $submodule = "invoice";

  } else {

    $submodule = "unknown";

  }

  $main::lxdebug->leave_sub();

  return ($module, $submodule);

}

sub save {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form, $draft_id, $draft_description) = @_;

  my ($dbh, $sth, $query, %saved, @dont_save, $dumped);

  $dbh = $form->dbconnect_noauto($myconfig);

  my ($module, $submodule) = $self->get_module($form);

  $query = "SELECT COUNT(*) FROM drafts WHERE id = ?";

  my ($res) = selectrow_query($form, $dbh, $query, $draft_id);

  if (!$res) {

    $draft_id = $module . "-" . $submodule . "-" . Common::unique_id();

    $query = "INSERT INTO drafts (id, module, submodule) VALUES (?, ?, ?)";

    do_query($form, $dbh, $query, $draft_id, $module, $submodule);

  }

  @dont_save = qw(login password path action);

  map({ $saved{$_} = $form->{$_};

        delete($form->{$_}); } @dont_save);

  $dumped = YAML::Dump($form);

  map({ $form->{$_} = $saved{$_}; } @dont_save);

  $query =

    qq|UPDATE drafts SET description = ?, form = ?, employee_id = | .

    qq|  (SELECT id FROM employee WHERE login = ?) | .

    qq|WHERE id = ?|;

  do_query($form, $dbh, $query, $draft_description, $dumped,

           $form->{login}, $draft_id);

  $dbh->commit();

  $dbh->disconnect();

  $form->{draft_id} = $draft_id;

  $form->{draft_description} = $draft_description;

  $main::lxdebug->leave_sub();

}

sub load {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form, $draft_id) = @_;

  my ($dbh, $sth, $query, @values);

  $dbh = $form->dbconnect($myconfig);

  $query = qq|SELECT id, description, form FROM drafts WHERE id = ?|;

  $sth = $dbh->prepare($query);

  $sth->execute($draft_id) || $form->dberror("$query ($draft_id)");

  my @values;

  if (my $ref = $sth->fetchrow_hashref()) {

    @values = ($ref->{form}, $ref->{id}, $ref->{description});

  }

  $sth->finish();

  do_query($form, $dbh, "DELETE FROM drafts WHERE id = ?", $draft_id);

  $dbh->disconnect();

  $main::lxdebug->leave_sub();

  return @values;

}

sub remove {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form, $draft_id) = @_;

  return $main::lxdebug->leave_sub() unless ($draft_id);

  my ($dbh, $sth, $query, @values);

  $dbh = $form->dbconnect($myconfig);

  $query = qq|DELETE FROM drafts WHERE id = ?|;

  do_query($form, $dbh, $query, $draft_id);

  $dbh->disconnect();

  $main::lxdebug->leave_sub();

}

sub list {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  my ($dbh, $sth, $query, @values);

  $dbh = $form->dbconnect($myconfig);

  my ($module, $submodule) = $self->get_module($form);

  my @list = ();

  $query =

    qq|SELECT d.id, d.description, d.itime::timestamp(0) AS itime, | .

    qq|  e.name AS employee_name | .

    qq|FROM drafts d | .

    qq|LEFT JOIN employee e ON d.employee_id = e.id | .

    qq|WHERE (d.module = ?) AND (d.submodule = ?) | .

    qq|ORDER BY d.itime|;

  my @values = ($module, $submodule);

  $sth = $dbh->prepare($query);

  $sth->execute(@values) ||

    $form->dberror($query . " (" . join(", ", @values) . ")");

  while (my $ref = $sth->fetchrow_hashref()) {

    push(@list, $ref);

  }

  $sth->finish();

  $dbh->disconnect();

  $main::lxdebug->leave_sub();

  return @list;

}

1;

require "bin/mozilla/drafts.pl";

  return $lxdebug->leave_sub() if (load_draft_maybe());

| . ($form->{saved_message} ? qq|<p>$form->{saved_message}</p>| : "") . qq|

|

. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])

. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}])

. qq|

      . $locale->text('Post') . qq|"> | .

      NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'),

                       '-class' => 'submit'));

  if (AP->post_transaction(\%myconfig, \%$form)) {

    # saving the history

    if(!exists $form->{addition} && $form->{id} ne "") {

      $form->{addition} = "POSTED";

      $form->save_history($form->dbconnect(\%myconfig));

    }

    # /saving the history 

    remove_draft();

    $form->redirect($locale->text('Transaction posted!'));

  }

require "bin/mozilla/drafts.pl";

  return $lxdebug->leave_sub() if (load_draft_maybe());

| . ($form->{saved_message} ? qq|<p>$form->{saved_message}</p>| : "") . qq|

|

. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])

. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}])

. qq|

        . $locale->text('Post') . qq|"> | .

        NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'),

                         '-class' => 'submit'));

    remove_draft();

  my $new_form = YAML::Load($old_form);

  map({ $form->{$_} = $new_form->{$_}; } keys(%{$new_form}));

#======================================================================

# LX-Office ERP

#

#======================================================================

#

# Saving and loading drafts

#

#======================================================================

use SL::Drafts;

require "bin/mozilla/common.pl";

sub save_draft {

  $lxdebug->enter_sub();

  if (!$form->{draft_id} && !$form->{draft_description}) {

    restore_form($form->{SAVED_FORM}, 1) if ($form->{SAVED_FORM});

    $form->{SAVED_FORM} = save_form();

    $form->header();

    print($form->parse_html_template("drafts/save_new"));

    return $lxdebug->leave_sub();

  }

  my ($draft_id, $draft_description) =

    ($form->{draft_id}, $form->{draft_description});

  restore_form($form->{SAVED_FORM}, 1);

  delete($form->{SAVED_FORM});

  Drafts->save(\%myconfig, $form, $draft_id, $draft_description);

  $form->{saved_message} = $locale->text("Draft saved.");

  update();

  $lxdebug->leave_sub();

}

sub remove_draft {

  $lxdebug->enter_sub();

  Drafts->remove(\%myconfig, $form, $form->{draft_id}) if ($form->{draft_id});

  delete($form->{draft_id});

  delete($form->{draft_description});

  $lxdebug->leave_sub();

}

sub load_draft_maybe {

  $lxdebug->enter_sub();

  $lxdebug->leave_sub() and return 0 if ($form->{DONT_LOAD_DRAFT});

  my ($draft_nextsub) = @_;

  my @drafts = Drafts->list(\%myconfig, $form);

  $lxdebug->leave_sub() and return 0 unless (@drafts);

  $draft_nextsub = "add" unless ($draft_nextsub);

  delete($form->{action});

  my $saved_form = save_form();

  $form->header();

  print($form->parse_html_template("drafts/load",

                                   { "DRAFTS" => \@drafts,

                                     "SAVED_FORM" => $saved_form,

                                     "draft_nextsub" => $draft_nextsub }));

  $lxdebug->leave_sub();

  return 1;

}

sub dont_load_draft {

  $lxdebug->enter_sub();

  my $draft_nextsub = $form->{draft_nextsub};

  $draft_nextsub = "add" unless ($form->{draft_nextsub});

  restore_form($form->{SAVED_FORM}, 1);

  delete($form->{action});

  $form->{DONT_LOAD_DRAFT} = 1;

  &{ $draft_nextsub }();

  $lxdebug->leave_sub();

}

sub load_draft {

  $lxdebug->enter_sub();

  my ($old_form, $id, $description) = Drafts->load(\%myconfig, $form, $form->{id});

  if ($old_form) {

    restore_form($old_form, 1);

    $form->{draft_id} = $id;

    $form->{draft_description} = $description;

    $lxdebug->dump(0, "of", $old_form);

  }

  update();

  $lxdebug->leave_sub();

}

1;

require "bin/mozilla/drafts.pl";

  return $lxdebug->leave_sub() if (load_draft_maybe());

| . ($form->{saved_message} ? qq|<p>$form->{saved_message}</p>| : "") . qq|

      . $locale->text('Post') . qq|"> | .

      NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'),

                       '-class' => 'submit'));

|

  . $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])

  . $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}]);

  if (IR->post_invoice(\%myconfig, \%$form)){

    remove_draft();

require "bin/mozilla/drafts.pl";

  return $lxdebug->leave_sub() if (load_draft_maybe());

| . ($form->{saved_message} ? qq|<p>$form->{saved_message}</p>| : "") . qq|

        . $locale->text('Post') . qq|"> | .

        NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'),

                         '-class' => 'submit'));

|

. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])

. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}])

. qq|

    remove_draft();

    if (IS->post_invoice(\%myconfig, \%$form)){

      remove_draft();

        if(!exists $form->{addition}) {

  - Einkaufs-, Verkaufs-, Debitoren- und Kreditorenrechnungen k?nnen

    als Entwurf gespeichert und sp?ter weiter bearbeitet werden. Dabei

    werden sie nicht gebucht.

  'Draft saved.'                => 'Entwurf gespeichert.',

  'Enter a description for this new draft.' => 'Geben Sie eine Beschreibung für diesen Entwurf ein.',

  'Load draft'                  => 'Entwurf laden',

  'Loading a draft will remove it from this list until you click the \'Save Draft\' button again.' => 'Das Laden eines Entwurfs wird ihn aus dieser Liste entfernen, bis Sie erneut auf \'Entwurf Speichern\' klicken.',

  'Save draft'                  => 'Entwurf speichern',

  'Skip'                        => '?berspringen',

  'The following drafts have been saved and can be loaded.' => 'Die folgenden Entwürfe wurden gespeichert und können geladen werden.',

  'Draft saved.'                => 'Entwurf gespeichert.',

  'Save draft'                  => 'Entwurf speichern',

  'dont_load_draft'             => 'dont_load_draft',

  'load_draft'                  => 'load_draft',

  'load_draft_maybe'            => 'load_draft_maybe',

  'remove_draft'                => 'remove_draft',

  'save_draft'                  => 'save_draft',

  'entwurf_speichern'           => 'save_draft',

  '?berspringen'                => 'skip',

  'Draft saved.'                => 'Entwurf gespeichert.',

  'Save draft'                  => 'Entwurf speichern',

  'dont_load_draft'             => 'dont_load_draft',

  'load_draft'                  => 'load_draft',

  'load_draft_maybe'            => 'load_draft_maybe',

  'remove_draft'                => 'remove_draft',

  'save_draft'                  => 'save_draft',

  'entwurf_speichern'           => 'save_draft',

  '?berspringen'                => 'skip',

$self->{texts} = {

  'ADDED'                       => 'Hinzugef?gt',

  'Address'                     => 'Adresse',

  'Customer Number'             => 'Kundennummer',

  'DELETED'                     => 'Gel?scht',

  'DUNNING STARTED'             => 'DUNNING STARTED',

  'Draft saved.'                => 'Entwurf gespeichert.',

  'ELSE'                        => 'Zusatz',

  'Enter longdescription'       => 'Langtext eingeben',

  'History'                     => 'Historie',

  'MAILED'                      => 'Gesendet',

  'Name'                        => 'Name',

  'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden',

  'No Vendor was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein H?ndler gefunden',

  'No employee was found matching the search parameters.' => 'Es wurde kein Angestellter gefunden, auf den die Suchparameter zutreffen.',

  'No part was found matching the search parameters.' => 'Es wurde kein Artikel gefunden, auf den die Suchparameter zutreffen.',

  'No project was found matching the search parameters.' => 'Es wurde kein Projekt gefunden, auf das die Suchparameter zutreffen.',

  'PAYMENT POSTED'              => 'Rechung gebucht',

  'POSTED'                      => 'Gebucht',

  'POSTED AS NEW'               => 'Als neu gebucht',

  'PRINTED'                     => 'Gedruckt',

  'Part Number'                 => 'Artikelnummer',

  'Part description'            => 'Artikelbeschreibung',

  'Please enter values'         => 'Bitte Werte eingeben',

  'Project Number'              => 'Projektnummer',

  'Project description'         => 'Projektbeschreibung',

  'SAVED'                       => 'Gespeichert',

  'SAVED FOR DUNNING'           => 'Gespeichert',

  'SCREENED'                    => 'Angezeigt',

  'Select a Customer'           => 'Endkunde ausw?hlen',

  'Select a part'               => 'Artikel auswählen',

  'Select a project'            => 'Projekt auswählen',

  'Select an employee'          => 'Angestellten auswählen',

  'Unit'                        => 'Einheit',

  'Value'                       => 'Wert',

  'Variable'                    => 'Variable',

  'bin_list'                    => 'Lagerliste',

  'invoice'                     => 'Rechnung',

  'packing_list'                => 'Versandliste',

  'pick_list'                   => 'Entnahmeliste',

  'proforma'                    => 'Proforma',

  'purchase_order'              => 'Auftrag',

  'request_quotation'           => 'Angebotsanforderung',

  'sales_order'                 => 'Kundenauftrag',

  'sales_quotation'             => 'Verkaufsangebot',

};

$self->{subs} = {

  'E'                           => 'E',

  'H'                           => 'H',

  'NTI'                         => 'NTI',

  'Q'                           => 'Q',

  'build_std_url'               => 'build_std_url',

  'calculate_qty'               => 'calculate_qty',

  'delivery_customer_selection' => 'delivery_customer_selection',

  'dont_load_draft'             => 'dont_load_draft',

  'employee_selection_internal' => 'employee_selection_internal',

  'format_dates'                => 'format_dates',

  'load_draft'                  => 'load_draft',

  'load_draft_maybe'            => 'load_draft_maybe',

  'part_selection_internal'     => 'part_selection_internal',

  'project_selection_internal'  => 'project_selection_internal',

  'reformat_numbers'            => 'reformat_numbers',

  'remove_draft'                => 'remove_draft',

  'restore_form'                => 'restore_form',

  'save_draft'                  => 'save_draft',

  'save_form'                   => 'save_form',

  'select_employee'             => 'select_employee',

  'select_employee_internal'    => 'select_employee_internal',

  'select_part'                 => 'select_part',

  'select_part_internal'        => 'select_part_internal',

  'set_longdescription'         => 'set_longdescription',

  'show_history'                => 'show_history',

  'vendor_selection'            => 'vendor_selection',

  'entwurf_speichern'           => 'save_draft',

  '?berspringen'                => 'skip',

};

1;

  'Draft saved.'                => 'Entwurf gespeichert.',

  'Save draft'                  => 'Entwurf speichern',

  'dont_load_draft'             => 'dont_load_draft',

  'load_draft'                  => 'load_draft',

  'load_draft_maybe'            => 'load_draft_maybe',

  'remove_draft'                => 'remove_draft',

  'save_draft'                  => 'save_draft',

  'entwurf_speichern'           => 'save_draft',

  '?berspringen'                => 'skip',

  'Draft saved.'                => 'Entwurf gespeichert.',

  'Save draft'                  => 'Entwurf speichern',

  'dont_load_draft'             => 'dont_load_draft',

  'load_draft'                  => 'load_draft',

  'load_draft_maybe'            => 'load_draft_maybe',

  'remove_draft'                => 'remove_draft',

  'save_draft'                  => 'save_draft',

  'entwurf_speichern'           => 'save_draft',

  '?berspringen'                => 'skip',

-- @tag: drafts

-- @description: Neue Tabelle zum Speichern von Entwürfen

-- @depends: release_2_4_1

CREATE TABLE drafts (

       id varchar(50) NOT NULL,

       module varchar(50) NOT NULL,

       submodule varchar(50) NOT NULL,

       description text,

       itime timestamp DEFAULT now(),

       form text,

       employee_id integer,

       PRIMARY KEY (id),

       FOREIGN KEY (employee_id) REFERENCES employee (id)

);