projekt kivitendo

use SL::Controller::Helper::ReportGenerator;

use SL::DB::Part;

use SL::DB::PurchaseBasketItem;

use SL::PriceSource;

use SL::Locale::String qw(t8);

use SL::Helper::Flash qw(flash);

use Data::Dumper;

 'scalar --get_set_init' => [ qw(models) ],

);

sub action_list_parts {

  $self->{action} = 'list_parts';

  my $objects = $::form->{noshow} ? [] : $self->models->get;

  $self->_setup_list_action_bar;

}

sub prepare_report {

  my ($self, $title, $noshow ) = @_;

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

  $self->{report} = $report;

  my %column_defs = (

  map { $column_defs{$_}->{visible} = 1 } @visible;

  $report->set_options_from_form;

  unless ( $noshow ) {

    $self->models->finalize; # for filter laundering

  }

  my $parts = $self->_get_parts(0);

  my $top    = $self->render('disposition_manager/list_parts', { output => 0 },

                             noshow => $noshow,

                             PARTS => $parts,

                           );

  $report->set_options(

    raw_top_info_text    => $top,

    raw_bottom_info_text => $bottom,

  );

}

sub action_add_to_purchase_basket{

  my $parts_to_add = delete($::form->{ids}) || [];

  foreach my $id (@{ $parts_to_add }) {

    my $basket_part = SL::DB::PurchaseBasketItem->new(

    )->save;

 }

 $self->action_show_basket;

}

sub action_show_basket {

  $self->_setup_show_basket_action_bar;

}

sub action_show_vendor_items {

}

sub action_transfer_to_purchase_order {

  my @error_report;

  }

  my $v_id =  $::form->{vendor_ids}->[0] ;

  my ($vendor, $employee);

  my $order = SL::DB::Order->new(

    vendor_id               => $vendor->id,

    employee_id             => $employee->id,

    transdate               => DateTime->today_local

  );

  my $i = 0;

  }

  $order->db->with_transaction( sub {

    $order->calculate_prices_and_taxes;

      $item->{custom_variables} = \@{ $item->cvars_by_config };

      $item->save;

    }

    return 1;

  }) || die "error: " . $order->db->error;

  );

}

sub _get_parts {

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

  my $query = <<SQL;

SQL

  my $parts_to_order = [ grep { !$_->get_open_ordered_qty } @{$parts} ];

  return $parts_to_order if !$ordered;

  return $parts_ordered if $ordered;

};

    model => 'Part',

    sorted => {

      _default => {

      },

     },

    ],

    paginated => {

      form_params => [ qw(page per_page) ],

    $bar->add(

      action => [

        t8('Action'),

      ],

    );

  }

    $bar->add(

      action => [

        t8('Reload'),

      ],

      action => [

        t8('Action'),

      ],

    );

  }

  if ( !$self->_is_in_purchase_basket && scalar @{$self->part->makemodels}) {

    my $basket_part = SL::DB::PurchaseBasketItem->new(

      orderer     => SL::DB::Manager::Employee->current,

    )->save;

sub _is_in_purchase_basket {

  my ( $self ) = @_;

}

sub _is_ordered {

  my ( $self ) = @_;

  my $query = <<SQL;

WITH

),

SELECT open_qty FROM open_ordered_qty

SQL

  return $open_qty if $open_qty > 0;

  return 0;

  lastcost         => { type => 'numeric', precision => 15, scale => 5 },

  lastupdate       => { type => 'date' },

  make             => { type => 'integer' },

  model            => { type => 'text' },

  mtime            => { type => 'timestamp' },

  part_description => { type => 'text' },

  notes              => { type => 'text' },

  obsolete           => { type => 'boolean', default => 'false', not_null => 1 },

  onhand             => { type => 'numeric', default => '0', precision => 25, scale => 5 },

  part_type          => { type => 'enum', check_in => [ 'part', 'service', 'assembly', 'assortment' ], db_type => 'part_type_enum', not_null => 1 },

  partnumber         => { type => 'text', not_null => 1 },

  partsgroup_id      => { type => 'integer' },

__PACKAGE__->meta->columns(

  cleared    => { type => 'boolean', default => 'false', not_null => 1 },

  id         => { type => 'serial', not_null => 1 },

  orderer_id => { type => 'integer' },

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

__PACKAGE__->meta->foreign_keys(

  orderer => {

    class       => 'SL::DB::Employee',

  part => {

    class       => 'SL::DB::Part',

  },

);

use Rose::DB::Object::Helpers qw(as_tree);

use SL::Locale::String qw(t8);

use SL::DBUtils;

use SL::DB::MetaSetup::Part;

use SL::DB::Manager::Part;

__PACKAGE__->before_save('_before_save_set_partnumber');

__PACKAGE__->before_save('_before_save_set_assembly_weight');

sub init_onhandqty{

  my ($self) = @_;

  my $qty = SL::Helper::Inventory::get_onhand(part => $self->id);

  return $qty;

}

sub init_stockqty{

  my ($self) = @_;

  my $qty = SL::Helper::Inventory::get_stock(part => $self->id);

  return $qty;

}

sub init_get_open_ordered_qty {

  my $self   = shift;

  my $result = SL::DB::Manager::Part->get_open_ordered_qty($self->id);

  return $result;

}

sub _before_save_set_partnumber {

  my ($self) = @_;

}

sub vendor_dropdown {

  my @vendor_dd;

    my $vendor = SL::DB::Manager::Vendor->get_first( where => [ id => $mm->make ] );

    my @tmp = ({ title => $vendor->vendornumber . "--" .$vendor->name . " (" . $::form->format_amount(\%::myconfig, $mm->lastcost, 2) . ")", value => $vendor->{id} });

    push @vendor_dd, @tmp;

"Delete requirement spec":"Pflichtenheft löschen",

"Delete template":"Vorlage löschen",

"Delete text block":"Textblock löschen",

"Do you really want to cancel?":"Möchten Sie wirklich abbrechen?",

"Do you really want to continue?":"Möchten Sie wirklich fortfahren?",

"Do you really want to delete the selected documents?":"Möchten Sie wirklich diese Dateien löschen?",

"Delete requirement spec":"",

"Delete template":"",

"Delete text block":"",

"Do you really want to cancel?":"",

"Do you really want to continue?":"",

"Do you really want to delete the selected documents?":"",

  'All general ledger entries'  => 'Alle Hauptbucheinträge',

  'All groups'                  => 'Alle Gruppen',

  'All modules'                 => 'Alle Module',

  'All partsgroups'             => 'Alle Warengruppen',

  'All pay postings successfully imported.' => 'Alle Lohnbuchungen erfolgreich importiert.',

  'All payments have already been posted.' => 'Es wurden bereits alle Zahlungen verbucht.',

  'Already counted'             => 'Bereits erfasst',

  'Already imported entries (duplicates)' => 'Bereits importierte Einträge (Duplikate)',

  'Already imported: '          => 'Bereits importiert:',

  'Always edit assembly items (user can change/delete items even if assemblies are already produced)' => 'Erzeugnisbestandteile verändern (Löschen/Umsortieren) auch nachdem dieses Erzeugnis schon produziert wurde.',

  'Always edit assortment items (user can change/delete items even if assortments are already used)' => 'Sortimentsbestandteile verändern (Löschen/Umsortieren), auch nachdem dieses Sortiment schon verwendet wurde.',

  'Always save orders with a projectnumber (create new projects)' => 'Aufträge immer mit Projektnummer speichern (neue Projekte erstellen)',

  'Article Code'                => 'Artikelkürzel',

  'Article classification'      => 'Artikel-Klassifizierung',

  'Article data'                => 'Artikeldaten',

  'Article type'                => 'Artikeltyp',

  'Articles'                    => 'Artikel',

  'As a result, the saved onhand values of the present goods can be stored into a warehouse designated by you, or will be reset for a proper warehouse tracking' => 'Als Konsequenz können die gespeicherten Mengen entweder in ein Lager überführt werden, oder für eine frische Lagerverwaltung resettet werden.',

  'Automatically created invoice for fee and interest for dunning %s' => 'Automatisch erzeugte Rechnung für Gebühren und Zinsen zu Mahnung %s',

  'Available'                   => 'Verfügbar',

  'Available Prices'            => 'Mögliche Preise',

  'Available qty'               => 'Lagerbestand',

  'Available to all users'      => 'Für alle BenutzerInnen verfügbar',

  'BALANCE SHEET'               => 'BILANZ',

  'Detailed information about this customer' => 'Detaillierte Informationen über diesen Kunden',

  'Details'                     => 'Details',

  'Details (one letter abbreviation)' => 'D',

  'Details: #1'                 => 'Details: #1',

  'Developer Tools'             => 'Developer Tools',

  'Dial command missing in kivitendo configuration\'s [cti] section' => 'Wählbefehl fehlt im Abschnitt [cti] der kivitendo-Konfiguration',

  'Display in basic data tab'   => 'Im Reiter Basisdaten anzeigen',

  'Display options'             => 'Anzeigeoptionen',

  'Displayable Name Preferences' => 'Einstellungen für Anzeigenamen',

  'Do not change the tax rate of taxkey 0.' => 'Ändern Sie nicht den Steuersatz vom Steuerschlüssel 0.',

  'Do not check for duplicates' => 'Nicht nach Dubletten suchen',

  'Do not create Factur-X/ZUGFeRD invoices' => 'Keine Factur-X-/ZUGFeRD-Rechnungen erzeugen',

  'Order Date missing!'         => 'Auftragsdatum fehlt!',

  'Order Number'                => 'Auftragsnummer',

  'Order Number missing!'       => 'Auftragsnummer fehlt!',

  'Order amount'                => 'Auftragswert',

  'Order data'                  => 'Auftragsinformationen',

  'Order deleted!'              => 'Auftrag gelöscht!',

  'Order/Item row name'         => 'Name der Auftrag-/Positions-Zeilen',

  'Order/Item/Stock row name'   => 'Name der Auftrag-/Positions-/Lager-Zeilen',

  'Order/RFQ Number'            => 'Belegnummer',

  'OrderItem'                   => 'Position',

  'Ordered'                     => 'Von Kunden bestellt',

  'Ordered purchase'            => 'Bestellte Menge',

  'Orderer'                     => 'BestellerIn',

  'Orders'                      => 'Aufträge',

  'Part Type'                   => 'Artikel-Typ',

  'Part Unit'                   => 'Einheit',

  'Part added to purchasebasket' => 'Zu Einkaufkorb hinzugefügt',

  'Part already in purchasebasket' => 'Schon im Einkaufskorb',

  'Part already ordered'        => 'Artikel ist bestellt',

  'Part classifications'        => 'Artikel-Klassifizierungen',

  'Part marked as "Shop part"'  => 'Markiert als Shopartikel',

  'Parts Classification'        => 'Artikel-Klassifizierung',

  'Parts Inventory'             => 'Warenliste',

  'Parts Master Data'           => 'Artikelstammdaten',

  'Parts with existing part numbers' => 'Artikel mit existierender Artikelnummer',

  'Parts, services and assemblies' => 'Waren, Dienstleistungen und Erzeugnisse',

  'Partsgroup'                  => 'Warengruppe',

  'Rename Images'               => 'Bilder umbenennen',

  'Rename attachment'           => 'Dateianhang umbenennen',

  'Renumber sections and function blocks' => 'Abschnitte/Funktionsblöcke neu nummerieren',

  'Replace legacy order controller with new one' => 'Neuen Auftrags-Controller verwenden',

  'Replace the orphaned currencies by other not orphaned currencies. To do so, please delete the currency in the textfields above and replace it by another currency. You could loose or change unintentionally exchangerates. Go on very carefully since you could destroy transactions.' => 'Ersetze die Währungen durch andere gültige Währungen. Wenn Sie sich hierfür entscheiden, ersetzen Sie bitte alle Währungen, die oben angegeben sind, durch Währungen, die in Ihrem System ordnungsgemäß eingetragen sind. Alle eingetragenen Wechselkurse für die verwaiste Währung werden dabei gelöscht. Bitte gehen Sie sehr vorsichtig vor, denn die betroffenen Buchungen können unter Umständen kaputt gehen.',

  'Report Positions'            => 'Berichte',

  'Shoporders'                  => 'Shopbest.',

  'Shops'                       => 'Webshops',

  'Short'                       => 'Knapp',

  'Short onhand'                => 'Geringe Lagermenge',

  'Should VAT ID or taxnumber be unique for all vendors? This is checked when saving a vendor\'s master data. One of the fields is sufficient and required.' => 'Soll die UStID oder Steuernummer eindeutig über alle Lieferanten sein? Dies wird beim Speichern von Lieferantenstammdaten geprüft. Eines dieser Felder reicht aus und muss angegeben sein.',

  'Should VAT ID or taxnumber be unique for customers? This is checked when saving a customer\'s master data. One of the fields is sufficient and required.' => 'Soll die UStID oder Steuernummer eindeutig über alle Kunden sein? Dies wird beim Speichern von Kundenstammdaten geprüft. Eines dieser Felder reicht aus und muss angegeben sein.',

  'There are no entries that match the filter.' => 'Es gibt keine Einträge, auf die der Filter zutrifft.',

  'There are no items in stock.' => 'Dieser Artikel ist nicht eingelagert.',

  'There are no items on your TODO list at the moment.' => 'Ihre Aufgabenliste enthält momentan keine Einträge.',

  'There are no orders for the selected time period.' => 'Es gibt für den ausgewählten Zeitraum keine Aufträge.',

  'There are no record templates yet.' => 'Es gibt noch keine Belegvorlagen.',

  'There are parts with no reclamation reason at position:' => 'Es git Artikel mit keinem Reklamationsgrund an Position:',

  'Total'                       => 'Summe',

  'Total Fees'                  => 'Kumulierte Gebühren',

  'Total Sales Orders Value'    => 'Auftragseingang',

  'Total number of entries'     => 'Gesamtzahl Einträge',

  'Total stock value'           => 'Gesamter Bestandswert',

  'Total sum'                   => 'Gesamtsumme',

  'VAT ID'                      => 'USt-IdNr.',

  'VAT ID and/or taxnumber must be given.' => 'UStId und/oder Steuernummer muss angegeben werden.',

  'VN'                          => 'Kred.-Nr.',

  'Valid'                       => 'Gültig',

  'Valid are integer values and floating point numbers, e.g. 4.75h = 4 hours and 45 minutes.' => 'Erlaubt sind ganzzahlige Werte und Kommawerte: Beispiel: 4,75h = 4 Stunden und 45 Minuten.',

  'Valid for Purchase'          => 'Gültig für Einkauf',

  'once'                        => 'einmalig',

  'one time'                    => 'einmalig',

  'one-time execution'          => 'einmalige Ausführung',

  'only OB Transactions'        => 'nur EB-Buchungen',

  'open'                        => 'Offen',

  'order'                       => 'Reihenfolge',

  'revert deleted'              => 'löschen rückgängig',

  'rfq_list'                    => 'anfragenliste',

  'rma_delivery_order_list'     => 'lieferscheinliste_rma',

  'running'                     => 'läuft',

  'sales tax identification number' => 'USt-IdNr.',

  'sales_delivery_order_list'   => 'lieferscheinliste_verkauf',

  'Add text block'              => '',

  'Add time recording article'  => '',

  'Add title'                   => '',

  'Add unit'                    => '',

  'Added sections and function blocks: #1' => '',

  'Added text blocks: #1'       => '',

  'All general ledger entries'  => '',

  'All groups'                  => '',

  'All modules'                 => '',

  'All partsgroups'             => '',

  'All pay postings successfully imported.' => '',

  'All payments have already been posted.' => '',

  'Article Code'                => '',

  'Article classification'      => '',

  'Article data'                => '',

  'Article type'                => '',

  'Articles'                    => '',

  'As a result, the saved onhand values of the present goods can be stored into a warehouse designated by you, or will be reset for a proper warehouse tracking' => '',

  'Automatically created invoice for fee and interest for dunning %s' => '',

  'Available'                   => '',

  'Available Prices'            => '',

  'Available qty'               => '',

  'Available to all users'      => '',

  'BALANCE SHEET'               => '',

  'Create new version'          => '',

  'Create one from the context menu by right-clicking on this text.' => '',

  'Create order'                => '',

  'Create sales invoices with Factur-X/ZUGFeRD data' => '',

  'Create sales invoices with Swiss QR-bill' => '',

  'Create tables'               => '',

  'Detailed information about this contact' => '',

  'Detailed information about this customer' => '',

  'Details'                     => '',

  'Details: #1'                 => '',

  'Developer Tools'             => '',

  'Dial command missing in kivitendo configuration\'s [cti] section' => '',

  'List of jobs'                => '',

  'List of tax zones'           => '',

  'List open SEPA exports'      => '',

  'List time recordings of all staff members' => '',

  'Listprice'                   => '',

  'Load'                        => '',

  'Microfiche'                  => '',

  'Minimize Panel'              => '',

  'Minimum Amount'              => '',

  'Miscellaneous'               => '',

  'Missing \'description\' field.' => '',

  'Missing \'tag\' field.'      => '',

  'No Shopdescription'          => '',

  'No Shopimages'               => '',

  'No VAT Info for this Factur-X/ZUGFeRD invoice, please ask your vendor to add this for his Factur-X/ZUGFeRD data.' => '',

  'No Vendor was found matching the search parameters.' => '',

  'No account selected. Please select an account.' => '',

  'No action defined.'          => '',

  'No valid number entered for pricegroup "#1".' => '',

  'No vendor has been selected yet.' => '',

  'No vendor selected or found!' => '',

  'No warehouse has been created yet or the quantity of the bins is not configured yet.' => '',

  'No webdav backend enabled.'  => '',

  'No year given for method year' => '',

  'One of the columns "qty" or "target_qty" must be given. If "target_qty" is given, the quantity to transfer for each transfer will be calculate, so that the quantity for this part, warehouse and bin will result in the given "target_qty" after each transfer.' => '',

  'One of the units used (#1) cannot be mapped to a known unit code from the UN/ECE Recommendation 20 list.' => '',

  'One or more Perl modules missing' => '',

  'Onhand only sets the quantity in master data, not in inventory. This is only a legacy info field and will be overwritten as soon as a inventory transfer happens.' => '',

  'Only Lines with Notes or Errors' => '',

  'Only Price'                  => '',

  'Order Date missing!'         => '',

  'Order Number'                => '',

  'Order Number missing!'       => '',

  'Order amount'                => '',

  'Order data'                  => '',

  'Order deleted!'              => '',

  'Order item search'           => '',

  'Order probability'           => '',

  'Order probability & expected billing date' => '',

  'Order value periodicity'     => '',

  'Order/Item row name'         => '',

  'Order/Item/Stock row name'   => '',

  'Order/RFQ Number'            => '',

  'OrderItem'                   => '',

  'Ordered'                     => '',

  'Orders'                      => '',

  'Orders / Delivery Orders deleteable' => '',

  'Orders in Webshop'           => '',

  'Part Test'                   => '',

  'Part Type'                   => '',

  'Part Unit'                   => '',

  'Part classifications'        => '',

  'Part marked as "Shop part"'  => '',

  'Part picker'                 => '',

  'Purchase Reclamation'        => '',

  'Purchase Reclamations'       => '',

  'Purchase Reclamations deleteable' => '',

  'Purchase delivery order'     => '',

  'Purchase invoices'           => '',

  'Purchase invoices changeable' => '',

  'Registration'                => '',

  'Relaxed (UTF-8)'             => '',

  'Release From Stock'          => '',

  'Remaining'                   => '',

  'Remaining Amount'            => '',

  'Remaining Net Amount'        => '',

  'Rename Images'               => '',

  'Rename attachment'           => '',

  'Renumber sections and function blocks' => '',

  'Replace legacy order controller with new one' => '',

  'Replace the orphaned currencies by other not orphaned currencies. To do so, please delete the currency in the textfields above and replace it by another currency. You could loose or change unintentionally exchangerates. Go on very carefully since you could destroy transactions.' => '',

  'Report Positions'            => '',

  'Risk'                        => '',

  'Risk levels'                 => '',

  'Risks'                       => '',

  'Rounding'                    => '',

  'Rounding Gain'               => '',

  'Rounding Loss'               => '',

  'Shoporders'                  => '',

  'Shops'                       => '',

  'Short'                       => '',

  'Should VAT ID or taxnumber be unique for all vendors? This is checked when saving a vendor\'s master data. One of the fields is sufficient and required.' => '',

  'Should VAT ID or taxnumber be unique for customers? This is checked when saving a customer\'s master data. One of the fields is sufficient and required.' => '',

  'Should ap transactions be and when should they be changeable or deleteable after posting?' => '',

  'Show overdue sales quotations and requests for quotations...' => '',

  'Show parts'                  => '',

  'Show parts longdescription (notes) in select list' => '',

  'Show purchase letters report' => '',

  'Show record tab in customer' => '',

  'Show record tab in vendor'   => '',

  'There are no entries that match the filter.' => '',

  'There are no items in stock.' => '',

  'There are no items on your TODO list at the moment.' => '',

  'There are no orders for the selected time period.' => '',

  'There are no record templates yet.' => '',

  'There are parts with no reclamation reason at position:' => '',

  'Total'                       => '',

  'Total Fees'                  => '',

  'Total Sales Orders Value'    => '',

  'Total number of entries'     => '',

  'Total stock value'           => '',

  'Total sum'                   => '',

    assembly                  => { parts_id => 'part', id => 'assembly_part' },

    assortment_items          => { parts_id => 'part' },

    dunning                   => { trans_id => 'invoice', fee_interest_ar_id => 'fee_interest_invoice' },

  },

  sellprice    => 5,

  lastcost     => 3,

  rop          => 20,

  warehouse_id => $wh->id,

  bin_id       => $bin->id,

  makemodels   => [ _create_makemodel_for_vendor(vendor => $vendor) ],

  partnumber   => 'TP 2',

  description  => 'Testpart 2 norop',

  rop          => 60,

)->save;

set_stock(part => $part2, bin_id => $bin->id, qty => 80);

    partnumber   => "TPO $i",

    description  => "Testpart onhand $i",

    rop          => 50,

    sellprice    => 5,

    lastcost     => 3,

    warehouse_id => $wh->id,

<h2>[% 'All parts of vendor odered by onhand' | $T8 %]</h2>

<table width="100%">

    <thead>

     <tr class="listheading">

     </tr>

    </thead>

    <tbody>

    [% FOREACH makemodel_item = MAKEMODEL_ITEMS %]

    [% SET select_size = basket_item.part.vendor_dropdown.size %]

      <tr class="listrow">

        </td>

        <td>[% HTML.escape(makemodel_item.description) %]</td>

      </tr>

    [% END %]

    </tbody>

[%- INCLUDE 'common/flash.html' %]

<hr>

<h2>[% 'Short onhand' | $T8 %]</h2>

  <table width="100%">

    <thead>

     <tr class="listheading">

       <th>[% 'Partnumber'                                      | $T8 %] </th>

       <th>[% 'Description'                                     | $T8 %] </th>

       <th>[% 'Vendor'                                          | $T8 %] </th>

    [% FOREACH part = PARTS %]

      [% IF !part.get_open_ordered_qty %]

      <tr class="listrow">

        <td>[% HTML.escape(part.partnumber) %]</td>

        <td>[% HTML.escape(part.description) %]</td>

      </tr>

      [% END %]

    [% END %]

  </table>

</form>

<hr>

</div>

[%- INCLUDE 'common/flash.html' %]

<h1>[% title %]</h1>

[% # Dumper.dump_html(BASKET_ITEMS) %]

<form id="purchasebasket" style="margin:1em;">

  <div>

  </div>

<div>

  <table id="baskettable" width="100%">

    <thead>

     <tr class="listheading">

       <th>[% 'Partnumber'                                      | $T8 %] </th>

       <th>[% 'Description'                                     | $T8 %] </th>