Revision 40c2c37c
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 45 | 45 |
use SL::GenericTranslations; |
| 46 | 46 |
use SL::MoreCommon; |
| 47 | 47 |
use SL::IC; |
| 48 |
use SL::IO; |
|
| 48 | 49 |
use Data::Dumper; |
| 49 | 50 |
|
| 50 | 51 |
use strict; |
| ... | ... | |
| 948 | 949 |
$form->{marge_total} *= -1;
|
| 949 | 950 |
} |
| 950 | 951 |
|
| 952 |
IO->set_datepaid(table => 'ar', id => $form->{id}, dbh => $dbh);
|
|
| 953 |
|
|
| 951 | 954 |
if ($payments_only) {
|
| 952 |
$query = qq|UPDATE ar SET paid = ?, datepaid = ? WHERE id = ?|;
|
|
| 953 |
do_query($form, $dbh, $query, $form->{paid}, $form->{paid} ? conv_date($form->{datepaid}) : undef, conv_i($form->{id}));
|
|
| 955 |
$query = qq|UPDATE ar SET paid = ? WHERE id = ?|; |
|
| 956 |
do_query($form, $dbh, $query, $form->{paid}, conv_i($form->{id}));
|
|
| 954 | 957 |
|
| 955 | 958 |
if (!$provided_dbh) {
|
| 956 | 959 |
$dbh->commit(); |
| ... | ... | |
| 988 | 991 |
$query = qq|UPDATE ar set |
| 989 | 992 |
invnumber = ?, ordnumber = ?, quonumber = ?, cusordnumber = ?, |
| 990 | 993 |
transdate = ?, orddate = ?, quodate = ?, customer_id = ?, |
| 991 |
amount = ?, netamount = ?, paid = ?, datepaid = ?,
|
|
| 994 |
amount = ?, netamount = ?, paid = ?, |
|
| 992 | 995 |
duedate = ?, deliverydate = ?, invoice = ?, shippingpoint = ?, |
| 993 | 996 |
shipvia = ?, terms = ?, notes = ?, intnotes = ?, |
| 994 | 997 |
curr = ?, department_id = ?, payment_id = ?, taxincluded = ?, |
Auch abrufbar als: Unified diff
Beim Buchen von Rechnungen/Zahlungen das Feld "datepaid" richtig setzen.
Zusätzlich noch ein Datenbankupgradescript, das die Felder in
bestehenden Einträgen berichtigt.