use SL::DB::Invoice;
use SL::DB::PurchaseInvoice;
use SL::DB::RecordLink;
+use SL::DB::RequirementSpec;
use SL::JSON;
use SL::Locale::String;
__PACKAGE__->run_before('check_object_params', only => [ qw(ajax_list ajax_delete ajax_add_select_type ajax_add_filter ajax_add_list ajax_add_do) ]);
__PACKAGE__->run_before('check_link_params', only => [ qw( ajax_add_list ajax_add_do) ]);
-my @link_types = (
+my %link_type_defaults = (
+ filter => 'type_filter',
+ project => 'globalproject',
+ description => 'transaction_description',
+ date => 'transdate',
+);
+
+my @link_type_specifics = (
+ { title => t8('Requirement spec'), type => 'requirement_spec', model => 'RequirementSpec', number => 'id', project => 'project', description => 'title', date => undef, filter => undef, },
{ title => t8('Sales quotation'), type => 'sales_quotation', model => 'Order', number => 'quonumber', },
{ title => t8('Sales Order'), type => 'sales_order', model => 'Order', number => 'ordnumber', },
{ title => t8('Sales delivery order'), type => 'sales_delivery_order', model => 'DeliveryOrder', number => 'donumber', },
{ title => t8('Purchase Invoice'), type => 'purchase_invoice', model => 'PurchaseInvoice', number => 'invnumber', },
);
+my @link_types = map { +{ %link_type_defaults, %{ $_ } } } @link_type_specifics;
#
# actions
sub action_ajax_add_list {
my ($self) = @_;
- my $manager = 'SL::DB::Manager::' . $self->link_type_desc->{model};
- my $vc = $self->link_type =~ m/sales_|^invoice$/ ? 'customer' : 'vendor';
+ my $manager = 'SL::DB::Manager::' . $self->link_type_desc->{model};
+ my $vc = $self->link_type =~ m/sales_|^invoice|requirement_spec$/ ? 'customer' : 'vendor';
+ my $project = $self->link_type_desc->{project};
+ my $description = $self->link_type_desc->{description};
+ my $filter = $self->link_type_desc->{filter};
- my @where = $manager->type_filter($self->link_type);
+ my @where = $filter ? $manager->$filter($self->link_type) : ();
push @where, ("${vc}.${vc}number" => { ilike => '%' . $::form->{vc_number} . '%' }) if $::form->{vc_number};
push @where, ("${vc}.name" => { ilike => '%' . $::form->{vc_name} . '%' }) if $::form->{vc_name};
- push @where, (transaction_description => { ilike => '%' . $::form->{transaction_description} . '%' }) if $::form->{transaction_description};
- push @where, (globalproject_id => $::form->{globalproject_id}) if $::form->{globalproject_id};
+ push @where, ($description => { ilike => '%' . $::form->{transaction_description} . '%' }) if $::form->{transaction_description};
+ push @where, ("${project}_id" => $::form->{globalproject_id}) if $::form->{globalproject_id};
- my $objects = $manager->get_all_sorted(where => \@where, with_objects => [ $vc, 'globalproject' ]);
+ my $objects = $manager->get_all_sorted(where => \@where, with_objects => [ $vc, $project ]);
my $output = $self->render(
'record_links/add_list',
- { output => 0 },
- OBJECTS => $objects,
- vc => $vc,
- number_column => $self->link_type_desc->{number},
+ { output => 0 },
+ OBJECTS => $objects,
+ vc => $vc,
+ number_column => $self->link_type_desc->{number},
+ description_column => $description,
+ project_column => $project,
+ date_column => $self->link_type_desc->{date},
);
my %result = ( count => scalar(@{ $objects }), html => $output );
'SL::DB::DeliveryOrder' => sub { $_[0]->donumber },
'SL::DB::Invoice' => sub { $_[0]->invnumber },
'SL::DB::PurchaseInvoice' => sub { $_[0]->invnumber },
+ 'SL::DB::RequirementSpec' => sub { $_[0]->id },
UNKNOWN => '9999999999999999',
);
my $number_xtor = sub {
my %scores;
%scores = ( 'SL::DB::SalesProcess' => 10,
+ 'SL::DB::RequirementSpec' => 15,
'SL::DB::Order' => sub { $scores{ $_[0]->type } },
sales_quotation => 20,
sales_order => 30,
);
}
+sub compare_to {
+ my ($self, $other) = @_;
+
+ return $self->id <=> $other->id;
+}
+
1;
__END__
use SL::Presenter::Part;
use SL::Presenter::Project;
use SL::Presenter::Record;
+use SL::Presenter::RequirementSpec;
use SL::Presenter::RequirementSpecItem;
use SL::Presenter::RequirementSpecTextBlock;
use SL::Presenter::SepaExport;
my %groups = _sort_grouped_lists(_group_records($list));
my $output = '';
+ $output .= _requirement_spec_list( $self, $groups{requirement_specs}, %params) if $groups{requirement_specs};
$output .= _sales_quotation_list( $self, $groups{sales_quotations}, %params) if $groups{sales_quotations};
$output .= _sales_order_list( $self, $groups{sales_orders}, %params) if $groups{sales_orders};
$output .= _sales_delivery_order_list( $self, $groups{sales_delivery_orders}, %params) if $groups{sales_delivery_orders};
my ($list) = @_;
my %matchers = (
+ requirement_specs => sub { (ref($_[0]) eq 'SL::DB::RequirementSpec') },
sales_quotations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_quotation') },
sales_orders => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_order') },
sales_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_sales },
return %groups;
}
+sub _requirement_spec_list {
+ my ($self, $list, %params) = @_;
+
+ return $self->record_list(
+ $list,
+ title => $::locale->text('Requirement specs'),
+ type => 'requirement_spec',
+ columns => [
+ [ $::locale->text('Requirement spec number'), sub { $self->requirement_spec($_[0], display => 'table-cell') } ],
+ [ $::locale->text('Customer'), 'customer' ],
+ [ $::locale->text('Title'), 'title' ],
+ [ $::locale->text('Project'), 'project', ],
+ [ $::locale->text('Status'), sub { $_[0]->status->description } ],
+ ],
+ %params,
+ );
+}
+
sub _sales_quotation_list {
my ($self, $list, %params) = @_;
--- /dev/null
+package SL::Presenter::RequirementSpec;
+
+use strict;
+
+use parent qw(Exporter);
+
+use Exporter qw(import);
+our @EXPORT = qw(requirement_spec);
+
+use Carp;
+
+sub requirement_spec {
+ my ($self, $requirement_spec, %params) = @_;
+
+ $params{display} ||= 'inline';
+
+ croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
+
+ my $text = join '', (
+ $params{no_link} ? '' : '<a href="controller.pl?action=RequirementSpec/show&id=' . $self->escape($requirement_spec->id) . '">',
+ $self->escape($requirement_spec->id),
+ $params{no_link} ? '' : '</a>',
+ );
+ return $self->escaped_text($text);
+}
+
+1;
"The selected database is still configured for client \"#1\". If you delete the database that client will stop working until you re-configure it. Do you still want to delete the database?":"Die auswählte Datenbank ist noch für Mandant \"#1\" konfiguriert. Wenn Sie die Datenbank löschen, wird der Mandanten nicht mehr funktionieren, bis er anders konfiguriert wurde. Wollen Sie die Datenbank trotzdem löschen?",
"There is one or more sections for which no part has been assigned yet; therefore creating the new record is not possible yet.":"Es gibt einen oder mehrere Abschnitte ohne Artikelzuweisung; daher kann der neue Beleg noch nicht erstellt werden.",
"Time/cost estimate actions":"Aktionen für Kosten-/Zeitabschätzung",
+"Title":"Titel",
"Toggle marker":"Markierung umschalten",
+"Transaction description":"Vorgangsbezeichnung",
"Update":"Erneuern",
"Update quotation/order":"Auftrag/Angebot aktualisieren",
"Version actions":"Aktionen für Versionen"
'Filter for customer variables' => 'Filter für benutzerdefinierte Kundenvariablen',
'Filter for item variables' => 'Filter für benutzerdefinierte Artikelvariablen',
'Filter parts' => 'Artikel filtern',
- 'Financial Controlling' => 'Finanzcontrolling',
- 'Financial Controlling Report' => 'Finanzcontrollingbericht',
'Financial Overview' => 'Finanzübersicht',
- 'Financial controlling report for open sales orders' => 'Finanzcontrollingbericht für offene Aufträge',
'Financial overview for #1' => 'Finanzübersicht für #1',
'Finish' => 'Abschließen',
'First 20 Lines' => 'Nur erste 20 Datensätze',
'Requirement Spec Types' => 'Pflichtenhefttypen',
'Requirement Spec Version' => 'Pflichtenheftversion',
'Requirement Specs' => 'Pflichtenhefte',
+ 'Requirement spec' => 'Pflichtenheft',
'Requirement spec actions' => 'Pflichtenheftaktionen',
'Requirement spec function block #1 with #2 sub function blocks; description: "#3"' => 'Pflichtenheft-Funktionsblock #1 mit #2 Unterfunktionsblöcken; Beschreibung: "#3"',
+ 'Requirement spec number' => 'Pflichtenheftnummer',
'Requirement spec picture "#1"' => 'Pflichtenheftbild "#1"',
'Requirement spec section #1 "#2" with #3 function blocks and a total of #4 sub function blocks; preamble: "#5"' => 'Pflichtenheftabschnitt #1 "#2" mit #3 Funktionsblöcken und insgesamt #4 Unterfunktionsblöcken; Einleitung: "#5"',
'Requirement spec sub function block #1; description: "#2"' => 'Pflichtenheft-Unterfunktionsblock #1; Beschreibung: "#2"',
<table>
<tr>
<td>[%- LxERP.t8("Link to") %]:</td>
- <td>[% L.select_tag('link_type', LINK_TYPES, default=DEFAULT_LINK_TYPE, style=style) %]</td>
+ <td>[% L.select_tag('link_type', LINK_TYPES, default=DEFAULT_LINK_TYPE, style=style, id='record_links_add_filter_link_type') %]</td>
</tr>
<tr>
</tr>
<tr>
- <td>[%- LxERP.t8("Transaction description") %]:</td>
+ <td><span id="record_links_add_filter_title">[%- LxERP.t8("Transaction description") %]</span>:</td>
<td>[% L.input_tag('transaction_description', '', style=style) %]</td>
</tr>
</table>
<!--
$(function() {
$('#record_links_add input[name=vc_name]').focus();
+ $('#record_links_add_filter_link_type').change(function() {
+ var title = $('#record_links_add_filter_link_type').val() == 'requirement_spec' ? kivi.t8('Title') : kivi.t8('Transaction description');
+ $('#record_links_add_filter_title').html(title);
+ });
});
function record_links_reset_form() {
<th>[% L.checkbox_tag('record_links_check_all') %]</th>
<th>[% IF vc == 'customer' %][%- LxERP.t8("Customer") %][%- ELSE %][%- LxERP.t8("Vendor") %][%- END %]</th>
<th>[%- LxERP.t8("Number") %]</th>
- <th>[%- LxERP.t8("Date") %]</th>
- <th>[%- LxERP.t8("Transaction description") %]</th>
+ [% IF date_column %]
+ <th>[%- LxERP.t8("Date") %]</th>
+ [% END %]
+ <th>[% IF SELF.link_type == 'requirement_spec' %][%- LxERP.t8("Title") %][% ELSE %][%- LxERP.t8("Transaction description") %][% END %]</th>
<th>[%- LxERP.t8("Project") %]</th>
</tr>
<td>[% L.checkbox_tag('link_id[]', value=object.id) %]</td>
<td>[%- HTML.escape(object.$vc.name) %]</td>
<td>[%- HTML.escape(object.$number_column) %]</td>
- <td>[%- HTML.escape(object.transdate.to_kivitendo) %]</td>
- <td>[%- HTML.escape(object.transaction_description) %]</td>
- <td>[%- P.project(object.globalproject, no_link=1) %]</td>
+ [% IF date_column %]
+ <td>[%- HTML.escape(object.$date_column.to_kivitendo) %]</td>
+ [% END %]
+ <td>[%- HTML.escape(object.$description_column) %]</td>
+ <td>[%- P.project(object.$project_column, no_link=1) %]</td>
</tr>
[%- END %]
</table>
projects / kivitendo-erp.git / commitdiff