projekt kivitendo

# end of main

sub add {

  $main::lxdebug->enter_sub();

sub edit {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my $locale   = $main::locale;

  $form->{show_details}                = $::myconfig{show_form_details};

  $form->{taxincluded_changed_by_user} = 1;

sub invoice_links {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  $form->{vc} = 'customer';

  # create links

  $form->create_links("AR", \%myconfig, "customer");

  my $editing = $form->{id};

  $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id

sub prepare_invoice {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  if ($form->{type} eq "credit_note") {

    $form->{type}     = "credit_note";

    $form->{formname} = "credit_note";

  my $change_on_same_day_only = $::instance_conf->get_is_changeable == 2 && ($form->current_date(\%::myconfig) ne $form->{gldate});

  my $payments_balanced       = ($::form->{oldtotalpaid} == 0);

  my $has_storno              = ($::form->{storno} && !$::form->{storno_id});

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      action => [

        t8('Update'),

        submit    => [ '#form', { action => "update" } ],

        id        => 'update_button',

        checks    => [ 'kivi.validate_form' ],

        accesskey => 'enter',

          t8('Post'),

          submit   => [ '#form', { action => "post" } ],

          checks   => [ 'kivi.validate_form' ],

                    : $form->{storno}                           ? t8('A canceled invoice cannot be posted.')

                    : ($form->{id} && $change_never)            ? t8('Changing invoices has been disabled in the configuration.')

                    : ($form->{id} && $change_on_same_day_only) ? t8('Invoices can only be changed on the day they are posted.')

          t8('Post Payment'),

          submit   => [ '#form', { action => "post_payment" } ],

          checks   => [ 'kivi.validate_form' ],

        ],

        action => [ t8('Mark as paid'),

          submit   => [ '#form', { action => "mark_as_paid" } ],

          confirm  => t8('This will remove the invoice from showing as unpaid even if the unpaid amount does not match the amount. Proceed?'),

          only_if  => $::instance_conf->get_is_show_mark_as_paid,

        ],

      ], # end of combobox "Post"

          submit   => [ '#form', { action => "storno" } ],

          confirm  => t8('Do you really want to cancel this invoice?'),

          checks   => [ 'kivi.validate_form' ],

                    : !$payments_balanced ? t8('Cancelling is disallowed. Either undo or balance the current payments until the open amount matches the invoice amount')

                    : undef,

        ],

          submit   => [ '#form', { action => "delete" } ],

          confirm  => t8('Do you really want to delete this object?'),

          checks   => [ 'kivi.validate_form' ],

                    : $form->{locked}          ? t8('The billing period has already been locked.')

                    : $change_never            ? t8('Changing invoices has been disabled in the configuration.')

                    : $change_on_same_day_only ? t8('Invoices can only be changed on the day they are posted.')

          t8('Use As New'),

          submit   => [ '#form', { action => "use_as_new" } ],

          checks   => [ 'kivi.validate_form' ],

        ],

        action => [

          t8('Credit Note'),

          submit   => [ '#form', { action => "credit_note" } ],

          checks   => [ 'kivi.validate_form' ],

                    : !$form->{id}                   ? t8('This invoice has not been posted yet.')

                    :                                  undef,

        ],

          ($form->{id} ? t8('Print') : t8('Preview')),

          call     => [ 'kivi.SalesPurchase.show_print_dialog', $form->{id} ? 'print' : 'preview' ],

          checks   => [ 'kivi.validate_form' ],

        ],

        action => [ t8('Print and Post'),

          call     => [ 'kivi.SalesPurchase.show_print_dialog', $form->{id} ? 'print' : 'print_and_post' ],

          checks   => [ 'kivi.validate_form' ],

        ],

        action => [ t8('E Mail'),

          call     => [ 'kivi.SalesPurchase.show_email_dialog' ],

          checks   => [ 'kivi.validate_form' ],

        ],

      ], # end of combobox "Export"

        action => [

          t8('Drafts'),

          call     => [ 'kivi.Draft.popup', 'is', 'invoice', $form->{draft_id}, $form->{draft_description} ],

        ],

      ], # end of combobox "more"

    );

sub form_header {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my $cgi      = $::request->{cgi};

  my %TMPL_VAR = ();

  my @custom_hiddens;

sub form_footer {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->{invtotal}    = $form->{invsubtotal};

  # note rows

sub update {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my ($recursive_call) = @_;

  $form->{print_and_post} = 0         if $form->{second_run};

sub display_form {

  $::lxdebug->enter_sub;

  relink_accounts();