X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/30c9fd203f9285f08501a1f9e985dcd8c3a79715..a9b2cbe24d8c27e71b0683548cf9b358cd5f724b:/SL/Letter.pm

diff --git a/SL/Letter.pm b/SL/Letter.pm
new file mode 100644
index 000000000..1d1b97498
--- /dev/null
+++ b/SL/Letter.pm
@@ -0,0 +1,404 @@
+#=====================================================================
+# 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;