Revision 47713b33
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 794 | 794 |
$main::lxdebug->leave_sub(); |
| 795 | 795 |
} |
| 796 | 796 |
|
| 797 |
sub get_transdate {
|
|
| 798 |
$main::lxdebug->enter_sub(); |
|
| 799 |
|
|
| 800 |
my ($self, $myconfig, $form) = @_; |
|
| 801 |
|
|
| 802 |
# connect to database |
|
| 803 |
my $dbh = SL::DB->client->dbh; |
|
| 804 |
|
|
| 805 |
my $query = |
|
| 806 |
"SELECT COALESCE(" .
|
|
| 807 |
" (SELECT transdate FROM ap WHERE id = " . |
|
| 808 |
" (SELECT MAX(id) FROM ap) LIMIT 1), " . |
|
| 809 |
" current_date)"; |
|
| 810 |
($form->{transdate}) = $dbh->selectrow_array($query);
|
|
| 811 |
|
|
| 812 |
$main::lxdebug->leave_sub(); |
|
| 813 |
} |
|
| 814 |
|
|
| 815 | 797 |
sub _delete_payments {
|
| 816 | 798 |
$main::lxdebug->enter_sub(); |
| 817 | 799 |
|
| bin/mozilla/ap.pl | ||
|---|---|---|
| 255 | 255 |
|
| 256 | 256 |
$form->{callback} = "ap.pl?action=add" unless $form->{callback};
|
| 257 | 257 |
|
| 258 |
AP->get_transdate(\%myconfig, $form); |
|
| 259 | 258 |
create_links(dont_save => 1); |
| 260 | 259 |
|
| 261 | 260 |
if ($form->{vendor_id}) {
|
Auch abrufbar als: Unified diff
Kreditorenbuchung: leeres Rechungsdatum bei Neuerfassung