projekt kivitendo

package SL::DB::Order::TypeData;

use strict;

use Carp;

use Exporter qw(import);

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

use constant {

  SALES_ORDER_TYPE       => 'sales_order',

  PURCHASE_ORDER_TYPE    => 'purchase_order',

  SALES_QUOTATION_TYPE   => 'sales_quotation',

  REQUEST_QUOTATION_TYPE => 'request_quotation',

};

my @export_types = qw(SALES_ORDER_TYPE PURCHASE_ORDER_TYPE REQUEST_QUOTATION_TYPE SALES_QUOTATION_TYPE);

my @export_subs = qw(valid_types validate_type is_valid_type get get3);

our @EXPORT_OK = (@export_types, @export_subs);

our %EXPORT_TAGS = (types => \@export_types, subs => \@export_subs);

my %type_data = (

  SALES_ORDER_TYPE() => {

    text => {

      delete => t8('The order has been deleted'),

      saved  => t8('The order has been saved'),

      add    => t8("Add Sales Order"),

      edit   => t8("Edit Sales Order"),

      list   => t8("Sales Orders"),

      attachment => t8("sales_order_list"),

    },

    show_menu => {

      save_and_quotation      => 1,

      save_and_rfq            => 1,

      save_and_sales_order    => 0,

      save_and_purchase_order => 1,

      save_and_delivery_order => 1,

      save_and_supplier_delivery_order => 0,

      save_and_reclamation    => 1,

      save_and_invoice_for_advance_payment => 1,

      save_and_final_invoice  => 1,

      save_and_ap_transaction => 0,

      save_and_invoice        => 1,

      delete                  => sub { $::instance_conf->get_sales_order_show_delete },

    },

    properties => {

      customervendor => "customer",

      is_customer    => 1,

      nr_key         => "ordnumber",

    },

    part_classification_query => [ "used_for_sale" => 1 ],

    rights => {

      edit => "sales_order_edit",

      view => "sales_order_edit | sales_order_view",

    },

  },

  PURCHASE_ORDER_TYPE() => {

    text => {

      delete => t8('The order has been deleted'),

      saved  => t8('The order has been saved'),

      add    => t8("Add Purchase Order"),

      edit   => t8("Edit Purchase Order"),

      list   => t8("Purchase Orders"),

      attachment => t8("purchase_order_list"),

    },

    show_menu => {

      save_and_quotation      => 0,

      save_and_rfq            => 1,

      save_and_sales_order    => 1,

      save_and_purchase_order => 0,

      save_and_delivery_order => 1,

      save_and_supplier_delivery_order => 1,

      save_and_reclamation    => 1,

      save_and_invoice_for_advance_payment => 0,

      save_and_final_invoice  => 0,

      save_and_ap_transaction => 1,

      save_and_invoice        => 1,

      delete                  => sub { $::instance_conf->get_purchase_order_show_delete },

    },

    properties => {

      customervendor => "vendor",

      is_customer    => 0,

      nr_key         => "ordnumber",

    },

    part_classification_query => [ "used_for_purchase" => 1 ],

    rights => {

      edit => "purchase_order_edit",

      view => "purchase_order_edit | purchase_order_view",

    },

  },

  SALES_QUOTATION_TYPE() => {

    text => {

      delete => t8('The quotation has been deleted'),

      saved  => t8('The quotation has been saved'),

      add    => t8("Add Quotation"),

      edit   => t8("Edit Quotation"),

      list   => t8("Quotations"),

      attachment => t8("quotation_list"),

    },

    show_menu => {

      save_and_quotation      => 0,

      save_and_rfq            => 1,

      save_and_sales_order    => 1,

      save_and_purchase_order => 0,

      save_and_delivery_order => 0,

      save_and_supplier_delivery_order => 0,

      save_and_reclamation    => 0,

      save_and_invoice_for_advance_payment => 0,

      save_and_final_invoice  => 0,

      save_and_ap_transaction => 0,

      save_and_invoice        => 1,

      delete                  => 1,

    },

    properties => {

      customervendor => "customer",

      is_customer    => 1,

      nr_key         => "quonumber",

    },

    part_classification_query => [ "used_for_sale" => 1 ],

    rights => {

      edit => "sales_quotation_edit",

      view => "sales_quotation_edit | sales_quotation_view",

    },

  },

  REQUEST_QUOTATION_TYPE() => {

    text => {

      delete => t8('The rfq has been deleted'),

      saved  => t8('The rfq has been saved'),

      add    => t8("Add Request for Quotation"),

      edit   => t8("Edit Request for Quotation"),

      list   => t8("Request for Quotations"),

      attachment => t8("rfq_list"),

    },

    show_menu => {

      save_and_quotation      => 1,

      save_and_rfq            => 0,

      save_and_sales_order    => 1,

      save_and_purchase_order => 1,

      save_and_delivery_order => 0,

      save_and_supplier_delivery_order => 0,

      save_and_reclamation    => 0,

      save_and_invoice_for_advance_payment => 0,

      save_and_final_invoice  => 0,

      save_and_ap_transaction => 0,

      save_and_invoice        => 1,

      delete                  => 1,

    },

    properties => {

      customervendor => "vendor",

      is_customer    => 0,

      nr_key         => "quonumber",

    },

    part_classification_query => [ "used_for_purchase" => 1 ],

    rights => {

      edit => "purchase_quotation_edit",

      view => "purchase_quotation_edit | purchase_quotation_view",

    },

  },

);

my @valid_types = (

  SALES_ORDER_TYPE,

  PURCHASE_ORDER_TYPE,

  SALES_QUOTATION_TYPE,

  REQUEST_QUOTATION_TYPE,

);

my %valid_types = map { $_ => $_ } @valid_types;

sub valid_types {

  \@valid_types;

}

sub is_valid_type {

  !!exists $type_data{$_[0]};

}

sub validate_type {

  my ($type) = @_;

  return $valid_types{$type} // croak "invalid type '$type'";

}

sub get {

  my ($type, $key) = @_;

  croak "invalid type '$type'" unless exists $type_data{$type};

  my $ret = $type_data{$type}->{$key} // die "unknown property '$key'";

  ref $ret eq 'CODE'

    ? $ret->()

    : $ret;

}

sub get3 {

  my ($type, $topic, $key) = @_;

  croak "invalid type '$type'" unless exists $type_data{$type};

  my $ret = $type_data{$type}{$topic}{$key} // croak "unknown property '$key' in topic '$topic' for type '$type'";

  ref $ret eq 'CODE'

    ? $ret->()

    : $ret;

}

1;

__END__

todo:

features:

- price_tax_calculation

- subversioning for sales_orders

- final invoices for sales_orders

- payment_terms

- periodic invoices for some types

- auto close quotations for some types

-