projekt kivitendo

use SL::DB::Invoice;

use SL::DB::PurchaseInvoice;

use SL::DB::RecordLink;

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) ]);

  { 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', },

);

#

# actions

sub action_ajax_add_list {

  my ($self) = @_;

  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};

  my $output  = $self->render(

    'record_links/add_list',

  );

  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 },

                  UNKNOWN                   => '9999999999999999',

                );

  my $number_xtor = sub {

  my %scores;

  %scores = ( 'SL::DB::SalesProcess'    =>  10,

              'SL::DB::Order'           =>  sub { $scores{ $_[0]->type } },

              sales_quotation           =>  20,

              sales_order               =>  30,

  );

}

1;

__END__

use SL::Presenter::Part;

use SL::Presenter::Project;

use SL::Presenter::Record;

use SL::Presenter::RequirementSpecItem;

use SL::Presenter::RequirementSpecTextBlock;

use SL::Presenter::SepaExport;

  my %groups = _sort_grouped_lists(_group_records($list));

  my $output = '';

  $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 = (

    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 _sales_quotation_list {

  my ($self, $list, %params) = @_;

"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",

"Toggle marker":"Markierung umschalten",

"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 Overview'          => 'Finanzübersicht',

  '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 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 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>

  </tr>

  <tr>

  </tr>

  <tr>

   <td>[% L.input_tag('transaction_description', '', style=style) %]</td>

  </tr>

 </table>

<!--

$(function() {

  $('#record_links_add input[name=vc_name]').focus();

});

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("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>

 </tr>

 [%- END %]

</table>