Revision 5b47ed3e
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 35 | 35 |
package IR; |
| 36 | 36 |
|
| 37 | 37 |
use SL::AM; |
| 38 |
use SL::DBUtils; |
|
| 38 | 39 |
|
| 39 | 40 |
sub post_invoice {
|
| 40 | 41 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 624 | 625 |
ordnumber = '$form->{ordnumber}',
|
| 625 | 626 |
quonumber = '$form->{quonumber}',
|
| 626 | 627 |
transdate = '$form->{invdate}',
|
| 628 |
orddate = | . conv_dateq($form->{"orddate"}) . qq|,
|
|
| 629 |
quodate = | . conv_dateq($form->{"quodate"}) . qq|,
|
|
| 627 | 630 |
vendor_id = $form->{vendor_id},
|
| 628 | 631 |
amount = $amount, |
| 629 | 632 |
netamount = $netamount, |
| ... | ... | |
| 845 | 848 |
|
| 846 | 849 |
# retrieve invoice |
| 847 | 850 |
$query = qq|SELECT a.cp_id, a.invnumber, a.transdate AS invdate, a.duedate, |
| 851 |
a.orddate, a.quodate, |
|
| 848 | 852 |
a.ordnumber, a.quonumber, a.paid, a.taxincluded, a.notes, a.taxzone_id, a.storno, a.gldate, |
| 849 | 853 |
a.intnotes, a.curr AS currency |
| 850 | 854 |
FROM ap a |
Auch abrufbar als: Unified diff
Bei Einkaufs- und Verkaufsmasken Felder für Angebots- und Auftragsdatum hinzugefügt.