projekt kivitendo

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

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

# LX-Office ERP

# Copyright (C) 2008

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

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

#

# Letter module

#

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

package SL::Letter;

use strict;

use List::Util qw(max);

use SL::Common;

use SL::CT;

use SL::DBUtils;

use SL::MoreCommon;

use SL::TransNumber;

use SL::DB::Manager::Customer;

my $DEFINITION = <<SQL;

                                      Table "public.letter"

        Column       |            Type             |                Modifiers

  -------------------+-----------------------------+------------------------------------------

   id                | integer                     | not null default nextval('id'::regclass)

   vc_id             | integer                     | not null

   letternumber      | text                        |

   jobnumber         | text                        |

   text_created_for  | text                        |

   date              | date                        |

   subject           | text                        |

   greeting          | text                        |

   body              | text                        |

   close             | text                        |

   company_name      | text                        |

   employee_id       | integer                     |

   employee_position | text                        |

   salesman_id       | integer                     |

   salesman_position | text                        |

   itime             | timestamp without time zone | default now()

   mtime             | timestamp without time zone |

   page_created_for  | text                        |

   intnotes          | text                        |

   cp_id             | integer                     |

   reference         | text                        |

  Indexes:

      "letter_pkey" PRIMARY KEY, btree (id)

  Foreign-key constraints:

      "letter_cp_id_fkey" FOREIGN KEY (cp_id) REFERENCES contacts(cp_id)

      "letter_employee_id_fkey" FOREIGN KEY (employee_id) REFERENCES employee(id)

      "letter_salesman_id_fkey" FOREIGN KEY (salesman_id) REFERENCES employee(id)

SQL

# XXX not working yet

#sub customer {

#  my $self = shift;

#

#  die 'not a setter' if @_;

#

#  return unless $self->{customer_id};

#

#  # resolve customer_obj

#}

sub new {

  my $class  = ref $_[0] || $_[0]; shift;

  my %params = @_;

  my $ref    = $_[0];

  $ref = ref $_[0] eq 'HASH' ? $ref : \%params; # don't like it either...

  my $self = bless $ref, $class;

  $self->_lastname_used;

  $self->_resolve_customer;

  $self->set_greetings;

  return $self;

}

sub _create {

  my $self = shift;

  my $dbh  = $::form->get_standard_dbh;

  ($self->{id}) = selectfirst_array_query($::form, $dbh, "select nextval('id')");

  do_query($::form, $dbh, <<SQL, $self->{id}, $self->{customer_id});

    INSERT INTO letter (id, vc_id) VALUES (?, ?);

SQL

}

sub _create_draft {

  my $self = shift;

  my $dbh  = $::form->get_standard_dbh;

  ($self->{draft_id}) = selectfirst_array_query($::form, $dbh, "select nextval('id')");

  do_query($::form, $dbh, <<SQL, $self->{draft_id}, $self->{customer_id});

    INSERT INTO letter_draft (id, vc_id) VALUES (?, ?);

SQL

}

sub save {

  $::lxdebug->enter_sub;

  my $self     = shift;

  my %params   = @_;

  my $dbh      = $::form->get_standard_dbh;

  my ($table, $update_value);

  if ($params{draft}) {

    $self->_create_draft unless $self->{draft_id};

    $table = 'letter_draft';

    $update_value = 'draft_id';

  } else {

    $self->_create unless $self->{id};

    $table = 'letter';

    $update_value = 'id';

  }

  my %fields         = __PACKAGE__->_get_fields;

  my %field_mappings = __PACKAGE__->_get_field_mappings;

  delete $fields{id};

  my @update_fields = keys %fields;

  my $set_clause    = join ', ', map { "$_ = ?" } @update_fields;

  my @values        = map { _escaper($_)->( $self->{ $field_mappings{$_} || $_ } ) } @update_fields, $update_value;

  my $query = "UPDATE $table SET $set_clause WHERE id = ?";

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

  $dbh->commit;

  $::lxdebug->leave_sub;

}

sub find {

  $::lxdebug->enter_sub;

  my $class    = ref $_[0] || $_[0]; shift;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $form->get_standard_dbh($myconfig);

  my %params   = @_;

  my $letter_table = 'letter';

  $letter_table = 'letter_draft' if $params{draft};

  %params = %$form if  !scalar keys %params;

  my (@wheres, @values);

  my $add_token = sub { add_token(\@wheres, \@values, @_) };

  $add_token->(col => 'letter.id',           val => $params{id},           esc => 'id'    ) if $params{id};

  $add_token->(col => 'letter.letternumber', val => $params{letternumber}, esc => 'substr') if $params{letternumber};

  $add_token->(col => 'vc.name',             val => $params{customer},     esc => 'substr') if $params{customer};

  $add_token->(col => 'vc.id',               val => $params{customer_id},  esc => 'id'    ) if $params{customer_id};

  $add_token->(col => 'letter.cp_id',        val => $params{cp_id},        esc => 'id'    ) if $params{cp_id};

  $add_token->(col => 'ct.cp_name',          val => $params{contact},      esc => 'substr') if $params{contact};

  $add_token->(col => 'letter.subject',      val => $params{subject},      esc => 'substr') if $params{subject};

  $add_token->(col => 'letter.body',         val => $params{body},         esc => 'substr') if $params{body};

  $add_token->(col => 'letter.date',         val => $params{date_from}, method => '>='    ) if $params{date_from};

  $add_token->(col => 'letter.date',         val => $params{date_to},   method => '<='    ) if $params{date_to};

  my $query = qq|

    SELECT $letter_table.*, vc.name AS customer, vc.id AS customer_id, ct.cp_name AS contact FROM $letter_table

      LEFT JOIN customer vc ON vc.id = $letter_table.vc_id

      LEFT JOIN contacts ct ON $letter_table.cp_id = ct.cp_id

  |;

  if (@wheres) {

    $query .= ' WHERE ' . join ' AND ', @wheres;

  }

  my @results = selectall_hashref_query($form, $dbh, $query, @values);

  my @objects = map { $class->new($_) } @results;

  $::lxdebug->leave_sub;

  return @objects;

}

sub delete {

  $::lxdebug->enter_sub;

  my $self     = shift;

  do_query($::form, $::form->get_standard_dbh, <<SQL, $self->{id});

    DELETE FROM letter WHERE id = ?

SQL

  $::form->get_standard_dbh->commit;

  $::lxdebug->leave_sub;

}

sub delete_drafts {

  $::lxdebug->enter_sub;

  my $self        = shift;

  my @draft_ids   = @_;

  my $form        = $main::form;

  my $myconfig = \%main::myconfig;

  my $dbh         = $form->get_standard_dbh($myconfig);

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

  my  $query = qq|DELETE FROM letter_draft WHERE id IN (| . join(", ", map { "?" } @draft_ids) . qq|)|;

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

  $dbh->commit;

  $::lxdebug->leave_sub;

}

sub check_number {

  my $self = shift;

  return if $self->{letternumber}

         && $self->{id}

         && 1 == scalar __PACKAGE__->find(letternumber => $self->{letternumber});

  $self->{letternumber} = SL::TransNumber->new(type => 'letter', id => $self->{id}, number => $self->{letternumber})->create_unique;

}

sub check_name {

  my $self   = shift;

  my %params = @_;

  unless ($params{_name_selected}) {

    $::form->{$_} = $self->{$_} for qw(oldcustomer customer selectcustomer customer_id);

    if (::check_name('customer')) {

      $self->_set_customer_from($::form);

    }

  } else {

    $self->_set_customer_from($::form);

  }

}

sub _set_customer_from {

  my $self = shift;

  my $from = shift;

  $self->{$_} = $from->{$_} for qw(oldcustomer customer_id customer selectcustomer);

  $self;

}

sub check_date {

  my $self = shift;

  $self->{date} ||= $::form->current_date(\%::myconfig);

}

sub load {

  my $self   = shift;

  my $table  = 'letter';

  my $draft = $self->{draft};

  $table     = 'letter_draft' if $draft;

  return $self unless $self && $self->{id}; # no id? dont load.

  my %mappings      = _get_field_mappings();

  my $mapped_select = join ', ', '*', map { "$_ AS $mappings{$_}" } keys %mappings;

  my ($db_letter) = selectfirst_hashref_query($::form, $::form->get_standard_dbh, <<SQL, $self->{id});

    SELECT $mapped_select FROM $table WHERE id = ?

SQL

  $self->update_from($db_letter);

  $self->_resolve_customer;

  $self->set_greetings;

  $self->{draft_id} = delete $self->{id} if $draft;  # set draft if we have one

  return $self;

}

sub update_from {

  my $self   = shift;

  my $src    = shift;

  my %fields = $self->_get_fields;

  $fields{$_} = $src->{$_} for qw{customer_id customer selectcustomer oldcustomer}; # customer stuff

  $self->{$_} = $src->{$_} for keys %fields;

  return $self;

}

sub export_to {

  my $self = shift;

  my $form = shift;

  my %fields         = $self->_get_fields;

  my %field_mappings = $self->_get_field_mappings;

  for (keys %fields) {

    $form->{$_} =  _escaper($_)->( $self->{ $field_mappings{$_} || $_ } );

  }

}

sub language {

  my $self = shift;

  die 'not a setter' if @_;

  return unless $self->{cp_id};

  # umetec/cetaq only!

  # contacts have a custom variable called "mailing"

  # it contains either a language code or the string "No"

  my $custom_variables = CVar->get_custom_variables(

    module      => 'Contacts',

    name_prefix => 'cp',

    trans_id    => $self->{cp_id},

  );

  my ($mailing) = grep { $_->{name} eq 'Mailing' } @$custom_variables;

  return $mailing->{value} eq 'No' ? undef : $mailing->{value};

}

sub set_greetings {

  $::lxdebug->enter_sub;

  my $self = shift;

  return $::lxdebug->leave_sub if $self->{greeting};

  # automatically set greetings

  # greetings depend mainly on contact person

#   my $contact = $self->_get_contact;

  $self->{greeting} = $::locale->text('Dear Sir or Madam,');

  $::lxdebug->leave_sub;

}

sub _lastname_used {

  # wrapper for form lastname_used

  # sets customer to last used customer,

  # also used to initalize customer for new objects

  my $self = shift;

  return if $self->{customer_id};

  my $saved_form = save_form($::form);

  $::form->lastname_used($::form->get_standard_dbh, \%::myconfig, 'customer');

  $self->{customer_id} = $::form->{customer_id};

  $self->{customer}    = $::form->{customer};

  restore_form($saved_form);

  return $self;

}

sub _resolve_customer {

  # used if an object is created with only id.

  my $self = shift;

  return unless $self->{customer_id} && !$self->{customer};

#  my ($customer) = CT->find_by_id(cv => 'customer', id => $self->{customer_id});

#  my ($customer) = CT->find_by_id(cv => 'customer', id => $self->{customer_id});

  # SL/CVar.pm:        : $cfg->{type} eq 'customer'  ? (SL::DB::Manager::Customer->find_by(id => 1*$ref->{number_value}) || SL::DB::Customer->new)->name

  $self->{customer} = SL::DB::Manager::Customer->find_by(id => $self->{customer_id})->name; # || SL::DB::Customer->new)->name

}

sub _get_definition {

  $DEFINITION;

}

sub _get_field_mappings {

  return (

    vc_id => 'customer_id',

  );

}

sub _get_fields {

  my %fields = _get_definition() =~ /(\w+) \s+ \| \s+ (integer|text|timestamp|numeric|date)/xg;

}

sub _escaper {

  my $field_name = shift;

  my %fields     = __PACKAGE__->_get_fields;

  for ($fields{$field_name}) {

    return sub { conv_i(shift) } if /integer/;

    return sub { shift };

  }

}

1;

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

# LX-Office ERP

# Copyright (C) 2008

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

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

#

# Letter module

#

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

use strict;

use POSIX qw(strftime);

use SL::GenericTranslations;

use SL::ReportGenerator;

use SL::Letter;

use SL::CT;

use SL::DB::Contact;

use SL::DB::Default;

use SL::Helper::CreatePDF;

use SL::Helper::Flash;

use SL::Common;

use Cwd;

require "bin/mozilla/reportgenerator.pl";

require "bin/mozilla/io.pl";

require "bin/mozilla/arap.pl";

use constant TEXT_CREATED_FOR_VALUES => (qw(presskit fax letter));

use constant PAGE_CREATED_FOR_VALUES => (qw(sketch 1 2));

our ($form, %myconfig, $locale, $lxdebug);

# parserhappy(R)

# $locale->text('Presskit')

# $locale->text('Sketch')

# $locale->text('Fax')

# $locale->text('Letter')

sub add {

  $::lxdebug->enter_sub;

  $main::auth->assert('sales_letter_edit');

  my %params = @_;

  return $main::lxdebug->leave_sub if load_letter_draft();

  my $letter = SL::Letter->new(%params);

  if (my $cp_id = delete $::form->{contact_id}) {

    my $contact = SL::DB::Manager::Contact->find_by(cp_id => $cp_id);

    $letter->{cp_id}     = $contact->cp_id;

    $letter->{vc_id}     = $contact->cp_cv_id;

    $letter->{greeting}  = GenericTranslations->get(

      translation_type => 'greetings::' . ($contact->{cp_gender} eq 'f' ? 'female' : 'male'),

      language_id      => $contact->language_id,

      allow_fallback   => 1

    );

    $params{language_id} = $contact->language_id;

  }

  $letter->check_date;

  _display(

    letter      => $letter,

    title       => $locale->text('Add Letter'),

    language_id => $params{language_id},

  );

  $::lxdebug->leave_sub;

}

sub edit {

  $::lxdebug->enter_sub;

  $main::auth->assert('sales_letter_edit');

  add() unless ($form->{id});

  my $letter = SL::Letter->new( id => $form->{id}, draft => $form->{draft} )->load;

  add() unless $letter && ($letter->{id} || $letter->{draft_id});

  _display(

    letter => $letter,

    title  => $locale->text('Edit Letter'),

  );

  $::lxdebug->leave_sub;

}

sub save {

  $::lxdebug->enter_sub;

  $main::auth->assert('sales_letter_edit');

  my %params = @_;

  $::form->error(t8('The subject is missing.')) unless $form->{letter}->{subject};

  $::form->error(t8('The body is missing.')) unless $form->{letter}->{body};

  $::form->error(t8('The employee is missing.')) unless $form->{letter}->{employee_id};

  my $letter = _update();

  $letter->check_number;

  $letter->save;

  $form->{SAVED_MESSAGE} = $locale->text('Letter saved!');

  _display(

    letter => $letter,

  );

  $::lxdebug->leave_sub;

}

sub save_letter_draft {

  $::lxdebug->enter_sub;

  $main::auth->assert('sales_letter_edit');

  $::form->error(t8('The subject is missing.')) unless $form->{letter}->{subject};

  $::form->error(t8('The body is missing.')) unless $form->{letter}->{body};

  $::form->error(t8('The employee is missing.')) unless $form->{letter}->{employee_id};

  $::form->error(t8('Already as letter saved.')) if $form->{letter}->{letternumber};

  my $letter_draft = _update();

  $letter_draft->{draft_id} = delete $letter_draft->{id}; # if we have one

  $letter_draft->save(draft => '1');

  $letter_draft->{vergiss_mich_nicht} = 'nicht vergessen';

  $form->{SAVED_MESSAGE} = $locale->text('Draft for this Letter saved!');

  _display(

    letter => $letter_draft,

  );

  $::lxdebug->leave_sub;

}

sub delete {

  $main::lxdebug->enter_sub();

  $main::auth->assert('sales_letter_edit');

  # NYI

  $form->{SAVED_MESSAGE} = $locale->text('Not yet implemented!');

  _display();

  $main::lxdebug->leave_sub();

}

sub delete_letter_drafts {

  $main::lxdebug->enter_sub();

  $main::auth->assert('sales_letter_edit');

  my @ids;

  foreach (keys %{$form}) {

    push @ids, $1 if (/^checked_(.*)/ && $form->{$_});

  }

  SL::Letter->delete_drafts(@ids) if (@ids); #->{id});

  add();

  $main::lxdebug->leave_sub();

}

sub _display {

  $main::lxdebug->enter_sub();

  $main::auth->assert('sales_letter_edit');

  my %params = @_;

  my $letter = $params{letter};

  my %TMPL_VAR;

  $form->{type}             = 'letter';   # needed for print_options

  $form->{vc}               = 'customer'; # needs to be for _get_contacts...

  $form->{"$form->{vc}_id"} ||= $letter->{customer_id};

  $form->{jsscript}         = 1;

  $form->{javascript}       =

     qq|<script type="text/javascript" src="js/customer_or_vendor_selection.js"></script>

        <script type="text/javascript" src="js/edit_part_window.js"></script>|;

  $form->get_lists("contacts"      => "ALL_CONTACTS",

  "employees"     => "ALL_EMPLOYEES",

                   "salesmen"      => "ALL_SALESMEN",

                   "departments"   => "ALL_DEPARTMENTS",

                   "languages"     => "languages",

                   "customers"     => { key   => "ALL_CUSTOMERS",

                                        limit => $myconfig{vclimit} + 1 },

                   "vc"            => 'customer',

                   );

  $TMPL_VAR{vc_keys}       = sub { "$_[0]->{name}--$_[0]->{id}" };

  $TMPL_VAR{vc_select}     = "customer_or_vendor_selection_window('letter.customer', '', 0, 0)";

  $TMPL_VAR{ct_labels}     = sub { ($_[0]->{cp_greeting} ? "$_[0]->{cp_greeting} " : '') .  $_[0]->{cp_name} .  ($_[0]->{cp_givenname} ? ", $_[0]->{cp_givenname}" : '') };

  $TMPL_VAR{TCF}           = [ map { key => $_, value => $locale->text(ucfirst $_) }, TEXT_CREATED_FOR_VALUES() ];

  $TMPL_VAR{PCF}           = [ map { key => $_, value => $locale->text(ucfirst $_) }, PAGE_CREATED_FOR_VALUES() ];

  $form->header();

  $form->{language_id} ||= $params{language_id};

  print $form->parse_html_template('letter/edit', {

    %params,

    %TMPL_VAR,

    letter        => $letter,

    print_options => print_options(inline => 1),

  });

  $main::lxdebug->leave_sub();

}

sub search {

  $lxdebug->enter_sub();

  $main::auth->assert('sales_letter_report');

  $form->get_lists("employees" => "EMPLOYEES",

                   "salesmen"  => "SALESMEN",

                   "customers" => "ALL_CUSTOMERS");

  $form->{jsscript} = 1;

  $form->{title}    = $locale->text('Letters');

  $form->header();

  print $form->parse_html_template('letter/search');

  $lxdebug->leave_sub();

}

sub report {

  $lxdebug->enter_sub();

  $main::auth->assert('sales_letter_report');

  my %params = @_;

  my @report_params = qw(letternumber subject body contact date_from date_to cp_id);

  if ($form->{selectcustomer}) {

    push @report_params, 'customer_id';

    $form->{customer_id} = $form->{customer};

  } else {

    push @report_params, 'customer';

  }

  report_generator_set_default_sort('date', 1);

  %params = (%params, map { $_ => $form->{$_} } @report_params);

  my @letters       = SL::Letter->find(%params);

  $form->{rowcount} = @letters;

  $form->{title}    = $locale->text('Letters');

  my %column_defs = (

    'date'                  => { 'text' => $locale->text('Date'), },

    'subject'               => { 'text' => $locale->text('Subject'), },

    'letternumber'          => { 'text' => $locale->text('Letternumber'), },

    'customer'              => { 'text' => $locale->text('Customer') },

    'contact'               => { 'text' => $locale->text('Contact') },

    'date'                  => { 'text' => $locale->text('Date') },

  );

  my @columns = qw(date subject letternumber customer contact date);

  my $href    = build_std_url('action=report', grep { $form->{$_} } @report_params);

  my @sortable_columns = qw(date subject letternumber customer contact date);

  foreach my $name (@sortable_columns) {

    my $sortdir                 = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};

    $column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";

  }

  my @options;

  # option line

  push @options, $locale->text('Subject')                  . " : $form->{subject}"   if ($form->{subject});

  push @options, $locale->text('Body')                     . " : $form->{body}"      if ($form->{body});

  my @hidden_report_params = map { +{ 'key' => $_, 'value' => $form->{$_} } } @report_params;

  my $report = SL::ReportGenerator->new(\%myconfig, $form, 'std_column_visibility' => 1);

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

  $report->set_export_options('report', @report_params);

  $report->set_sort_indicator($form->{sort}, $form->{sortdir});

  $report->set_options('raw_top_info_text'    => $form->parse_html_template('letter/report_top',    { 'OPTIONS' => \@options }),

                       'raw_bottom_info_text' => $form->parse_html_template('letter/report_bottom', { 'HIDDEN'  => \@hidden_report_params }),

                       'output_format'        => 'HTML',

                       'title'                => $form->{title},

                       'attachment_basename'  => $locale->text('letters_list') . strftime('_%Y%m%d', localtime time),

    );

  $report->set_options_from_form();

  my $idx      = 0;

  my $callback = build_std_url('action=report', grep { $form->{$_} } @report_params);

  my $edit_url = build_std_url('action=edit', 'callback=' . E($callback));

  foreach my $l (@letters) {

    $idx++;

    my $row = { map { $_ => { 'data' => $l->{$_} } } keys %{ $l } };

    $row->{subject}->{link}      = $edit_url . '&id=' . Q($l->{id});

    $row->{letternumber}->{link} = $edit_url . '&id=' . Q($l->{id});

    $report->add_data($row);

  }

  $report->generate_with_headers();

  $lxdebug->leave_sub();

}

sub print_letter {

  $lxdebug->enter_sub();

  $main::auth->assert('sales_letter_edit');

  my ($old_form) = @_;

  my $display_form = $form->{display_form} || "display_form";

  my $letter       = _update();

  $letter->export_to($form);

  $form->{formname} = "letter";

  $form->{format} = "pdf";

  my $language_saved      = $form->{language_id};

  my $greeting_saved      = $form->{greeting};

  my $cp_id_saved         = $form->{cp_id};

  call_sub("customer_details");

  if (!$cp_id_saved) {

    # No contact was selected. Delete all contact variables because

    # IS->customer_details() and IR->vendor_details() get the default

    # contact anyway.

    map({ delete($form->{$_}); } grep(/^cp_/, keys(%{ $form })));

  }

  $form->{greeting} = $greeting_saved;

  $form->{language_id} = $language_saved;

  if ($form->{cp_id}) {

    CT->get_contact(\%myconfig, $form);

  }

  $form->{cp_contact_formal} = ($form->{cp_greeting} ? "$form->{cp_greeting} " : '') . ($form->{cp_givenname} ? "$form->{cp_givenname} " : '') . $form->{cp_name};

  $form->get_employee_data('prefix' => 'employee', 'id' => $letter->{employee_id});

  $form->get_employee_data('prefix' => 'salesman', 'id' => $letter->{salesman_id});

  my %create_params = (

    template  => scalar(SL::Helper::CreatePDF->find_template(

      name        => 'letter',

      printer_id  => $::form->{printer_id},

      language_id => $::form->{language_id},

      formname    => 'letter',

      format      => 'pdf',

    )),

    variables => $::form,

    return    => 'file_name',

  );

  my $pdf_file_name;

  eval {

    # catch LaTeX template not found error

    my $tex_templates  = $::instance_conf->get_templates . '/letter.tex';

    die( t8('Please create/copy a template named letter.tex in your client template dir') ) unless (-e $tex_templates);

    $pdf_file_name = SL::Helper::CreatePDF->create_pdf(%create_params);

    # set some form defaults for printing webdav copy variables

    $form->{tmpfile} = $pdf_file_name;

    $form->{tmpdir} = 'users';

    $form->{type} = 'letter';

    $form->{cwd}        = getcwd();

    if ( $::form->{media} eq 'email') {

      my $mail             = Mailer->new;