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,