projekt kivitendo

my $is_sales = scalar ($form->{type} =~ /^sales_/); # these vars are exported, so that the template

my $is_order = scalar ($form->{type} =~ /_order$/); # may determine what to show

my $is_sales_quo = scalar ($form->{type} =~ /sales_quotation$/);

my $is_req_quo = scalar ($form->{type} =~ /request_quotation$/);

my $is_sales_ord = scalar ($form->{type} =~ /sales_order$/);

my $is_pur_ord = scalar ($form->{type} =~ /purchase_order$/);

my $allow_invoice = $is_req_quo || $is_pur_ord || ($is_sales_quo && $::instance_conf->get_allow_sales_invoice_from_sales_quotation) || ($is_sales_ord && $::instance_conf->get_allow_sales_invoice_from_sales_order);

my $tpca_remainder = 0;

[ t8('Update'), submit => [ '#form', { action_update => 1 } ] ], # always

[ t8('Ship to'), submit => [ '#form', { action_ship_to => 1 } ] ], # always

[ t8('Print'), submit => [ '#form', { action_print => 1 } ], checks => [ qw(require-data-dransation) ] ],

[ t8('E Mail'), submit => [ '#form', { action_print => 1 } ], checks => [ qw(require-data-dransation) ] ],

[ t8('Save'), submit => [ '#form', { action_save => 1 } ], checks => [ qw(require-data-dransation) ], confirm => t8('Missing transport cost: #1 Are you sure?', $tpca_remainder) ], # always, optional warn_save_active_periodic_invoice,

[ t8('Save and Close'), submit => [ '#form', { action_save_and_close => 1 } ], checks => [ qw(require-data-dransation) ], confirm => t8('Missing transport cost: #1 Are you sure?', $tpca_remainder) ], # always, optional warn_save_active_periodic_invoice,

[ t8('Follow Up'), function => [ 'follow_up_window' ], disabled => !$::form->{id} ],

[ t8('History'), function => [ 'set_history_window', $::form->{id} * 1, 'id' ], disabled => !$::form->{id} ],

[ t8('Save as new'), submit => [ '#form', { action_save_as_new => 1 } ], checks => [ qw(require-data-dransation) ], disabled => !$::form->{id} ],

([ t8('Delete'), submit => [ '#form', { action_delete => 1 } ], disabled => !$::form->{id} ]) x!!( $::form->{id} && (!$is_sales_ord || $::instance_conf->get_sales_order_show_delete) && (!$is_pur_ord || $::instance_conf->get_purchase_order_show_delete ) ),

([ t8('Sales Order'), submit => [ '#form', { action_sales_order => 1 } ], disabled => !$::form->{id} ]) x!!($is_sales_quo ),

([ t8('Purchase Order'), submit => [ '#form', { action_sales_order => 1 } ], disabled => !$::form->{id} ]) x!!($is_req_quo ),

([ t8('Delivery Order'), submit => [ '#form', { action_delivery_order => 1 } ], disabled => !$::form->{id} ]) x!!(($is_sales_ord || $is_pur_ord ) ),

([ t8('Invoice'), submit => [ '#form', { action_invoice => 1 } ], disabled => !$::form->{id} ]) x!!($allow_invoice ),

[ t8('Quotation'), submit => [ '#form', { action_quotation => 1 } ], disabled => !$::form->{id} ],

[ t8('Request for Quotation'), submit => [ '#form', { action_reqest_for_quotation => 1 } ], disabled => !$::form->{id} ],

is_sales => $is_sales,

is_order => $is_order,

is_sales_quo => $is_sales_quo,

is_req_quo => $is_req_quo,

is_sales_ord => $is_sales_ord,

is_pur_ord => $is_pur_ord,