Revision 9a3d356c
Von Bernd Blessmann vor mehr als 13 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
$query = qq|UPDATE ap SET
|
||
|
invnumber = ?, transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?,
|
||
|
amount = ?, duedate = ?, paid = ?, netamount = ?,
|
||
|
curr = ?, notes = ?, department_id = ?, storno = ?, storno_id = ?
|
||
|
curr = ?, notes = ?, department_id = ?, storno = ?, storno_id = ?,
|
||
|
globalproject_id = ?
|
||
|
WHERE id = ?|;
|
||
|
@values = ($form->{invnumber}, conv_date($form->{transdate}),
|
||
|
$form->{ordnumber}, conv_i($form->{vendor_id}),
|
||
| ... | ... | |
|
$form->{netamount},
|
||
|
$form->{currency}, $form->{notes},
|
||
|
conv_i($form->{department_id}), $form->{storno},
|
||
|
$form->{storno_id}, $form->{id});
|
||
|
$form->{storno_id}, conv_i($form->{globalproject_id}),
|
||
|
$form->{id});
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
|
||
|
# add individual transactions
|
||
| SL/AR.pm | ||
|---|---|---|
|
invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?,
|
||
|
taxincluded = ?, amount = ?, duedate = ?, paid = ?,
|
||
|
netamount = ?, curr = ?, notes = ?, department_id = ?,
|
||
|
employee_id = ?, storno = ?, storno_id = ?
|
||
|
employee_id = ?, storno = ?, storno_id = ?, globalproject_id = ?
|
||
|
WHERE id = ?|;
|
||
|
my @values = ($form->{invnumber}, $form->{ordnumber}, conv_date($form->{transdate}), conv_i($form->{customer_id}), $form->{taxincluded} ? 't' : 'f', $form->{amount},
|
||
|
conv_date($form->{duedate}), $form->{paid}, $form->{netamount}, $form->{currency}, $form->{notes}, conv_i($form->{department_id}),
|
||
|
conv_i($form->{employee_id}), $form->{storno} ? 't' : 'f', $form->{storno_id}, conv_i($form->{id}));
|
||
|
conv_i($form->{employee_id}), $form->{storno} ? 't' : 'f', $form->{storno_id},
|
||
|
conv_i($form->{globalproject_id}), conv_i($form->{id}));
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
|
||
|
# add individual transactions for AR, amount and taxes
|
||
| SL/Form.pm | ||
|---|---|---|
|
a.duedate, a.ordnumber, a.taxincluded, a.curr AS currency, a.notes,
|
||
|
a.intnotes, a.department_id, a.amount AS oldinvtotal,
|
||
|
a.paid AS oldtotalpaid, a.employee_id, a.gldate, a.type,
|
||
|
a.globalproject_id,
|
||
|
c.name AS $table,
|
||
|
d.description AS department,
|
||
|
e.name AS employee
|
||
| bin/mozilla/ap.pl | ||
|---|---|---|
|
$form->{javascript} .= qq|<script type="text/javascript" src="js/show_vc_details.js"></script>|;
|
||
|
$form->{javascript} .= qq|<script type="text/javascript" src="js/follow_up.js"></script>|;
|
||
|
|
||
|
my $globalprojectnumber =
|
||
|
NTI($cgi->popup_menu('-name' => "globalproject_id",
|
||
|
'-values' => \@project_values,
|
||
|
'-labels' => \%project_labels,
|
||
|
'-default' => $form->{"globalproject_id"} ));
|
||
|
|
||
|
$form->header;
|
||
|
my $onload = qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
|
||
|
$onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
|
||
| ... | ... | |
|
<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
|
||
|
$button2
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<th align=right nowrap>| . $locale->text('Project Number') . qq|</th>
|
||
|
<td>$globalprojectnumber</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
| bin/mozilla/ar.pl | ||
|---|---|---|
|
qq|<script type="text/javascript" src="js/show_vc_details.js"></script>| .
|
||
|
qq|<script type="text/javascript" src="js/follow_up.js"></script>|;
|
||
|
|
||
|
my $globalprojectnumber =
|
||
|
NTI($cgi->popup_menu('-name' => "globalproject_id",
|
||
|
'-values' => \@project_values,
|
||
|
'-labels' => \%project_labels,
|
||
|
'-default' => $form->{"globalproject_id"} ));
|
||
|
|
||
|
$form->header;
|
||
|
$onload = qq|focus()|;
|
||
|
$onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
|
||
| ... | ... | |
|
<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
|
||
|
$button2
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<th align=right nowrap>| . $locale->text('Project Number') . qq|</th>
|
||
|
<td>$globalprojectnumber</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
| doc/changelog | ||
|---|---|---|
|
# Veränderungen von Lx-Office ERP #
|
||
|
###################################
|
||
|
|
||
|
- Projektnummer pro Beleg läßt sich auch für Debitoren- und
|
||
|
Kreditorenbuchungen angeben.
|
||
|
|
||
|
- Bei den Berichten für Verkaus- und Einkaufsrechnungen wird auch auf die
|
||
|
positionsbezogenen Projektnummern für Debitoren- und Kreditorenbuchungen
|
||
|
gefiltert.
|
||
Auch abrufbar als: Unified diff
Projektnummer pro Beleg auch für Debitoren- und Kreditorenbuchungen.