projekt kivitendo

  my ($self, $myconfig, $form) = @_;

  my $ARAP = $form->{ARAP} eq "AR" ? "AR" : "AP";

  $query = qq|SELECT closedto FROM defaults|;

  ($form->{closedto}) = selectrow_query($form, $dbh, $query);

  $main::lxdebug->leave_sub();

}

  my ($self, $myconfig, $form) = @_;

  my $arap = ($form->{vc} eq 'customer') ? 'ar' : 'ap';

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

    $form->{"all_$form->{vc}"} = selectall_hashref_query($form, $dbh, $query);

  }

  $main::lxdebug->leave_sub();

}

  my ($self, $myconfig, $form) = @_;

  # connect to database

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

SQL

  ($form->{openinvoices_other_currencies}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{"${vc}_id"}), "$form->{currency}");

  $main::lxdebug->leave_sub();

}