projekt kivitendo

    # get date

    $query =

       qq|SELECT

            (SELECT cu.name FROM currencies cu WHERE cu.id=d.currency_id) AS defaultcurrency,

            (SELECT c.accno FROM chart c WHERE d.fxgain_accno_id = c.id) AS fxgain_accno,

            (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id = c.id) AS fxloss_accno,

    $self->lastname_used($dbh, $myconfig, $table, $module) unless ($self->{"$self->{vc}_id"});

    $self->{currency} = $self->{defaultcurrency}           unless $self->{currency};

    $self->{exchangerate} =

  }

  $main::lxdebug->leave_sub();

  $form->{callback} = "ap.pl?action=add" unless $form->{callback};

  AP->get_transdate(\%myconfig, $form);

  create_links(dont_save => 1);

  if ($form->{vendor_id}) {

    my $vendor = SL::DB::Vendor->load_cached($form->{vendor_id});

  $form->{creditremaining_plus} = ($form->{creditremaining} =~ /-/) ? "0" : "1";

  $form->get_lists("charts"    => { "key"       => "ALL_CHARTS",

                  );

  map(

  $form->{callback} = "ar.pl?action=add" unless $form->{callback};

  AR->get_transdate(\%myconfig, $form);

  create_links(dont_save => 1);

  if ($form->{customer_id}) {

    my $last_used_ar_chart = SL::DB::Customer->load_cached($form->{customer_id})->last_used_ar_chart;