Revision 07d71c33
Von Stephan Köhler vor fast 19 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 43 | 43 |
|
| 44 | 44 |
sub add {
|
| 45 | 45 |
$lxdebug->enter_sub(); |
| 46 |
|
|
| 46 |
print STDERR "ir.pl-add\n"; |
|
| 47 | 47 |
$form->{title} = $locale->text('Add Vendor Invoice');
|
| 48 | 48 |
|
| 49 | 49 |
&invoice_links; |
| ... | ... | |
| 67 | 67 |
|
| 68 | 68 |
sub invoice_links {
|
| 69 | 69 |
$lxdebug->enter_sub(); |
| 70 |
|
|
| 70 |
print STDERR "ir.pl-invoice_links\n"; |
|
| 71 | 71 |
# create links |
| 72 | 72 |
$form->{webdav} = $webdav;
|
| 73 | 73 |
|
| ... | ... | |
| 160 | 160 |
|
| 161 | 161 |
sub prepare_invoice {
|
| 162 | 162 |
$lxdebug->enter_sub(); |
| 163 |
|
|
| 163 |
print STDERR "ir.pl-prepare_invoice\n"; |
|
| 164 | 164 |
if ($form->{id}) {
|
| 165 | 165 |
|
| 166 | 166 |
map { $form->{$_} =~ s/\"/"/g } qw(invnumber ordnumber quonumber);
|
| ... | ... | |
| 188 | 188 |
|
| 189 | 189 |
sub form_header {
|
| 190 | 190 |
$lxdebug->enter_sub(); |
| 191 |
|
|
| 191 |
print STDERR "ir.pl-form_header\n"; |
|
| 192 | 192 |
# set option selected |
| 193 | 193 |
foreach $item (qw(AP vendor currency department contact)) {
|
| 194 | 194 |
$form->{"select$item"} =~ s/ selected//;
|
| ... | ... | |
| 304 | 304 |
<input type=hidden name=title value="$form->{title}">
|
| 305 | 305 |
<input type=hidden name=vc value="vendor"> |
| 306 | 306 |
<input type=hidden name=type value=$form->{type}>
|
| 307 |
<input type=hidden name=level value=$form->{level}>
|
|
| 307 | 308 |
|
| 308 | 309 |
<input type=hidden name=creditlimit value=$form->{creditlimit}>
|
| 309 | 310 |
<input type=hidden name=creditremaining value=$form->{creditremaining}>
|
| ... | ... | |
| 416 | 417 |
|
| 417 | 418 |
sub form_footer {
|
| 418 | 419 |
$lxdebug->enter_sub(); |
| 419 |
|
|
| 420 |
print STDERR "ir.pl-form_footer\n"; |
|
| 420 | 421 |
$form->{invtotal} = $form->{invsubtotal};
|
| 421 | 422 |
|
| 422 | 423 |
if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {
|
Auch abrufbar als: Unified diff
Merge von 599-602,605,614,615 aus unstable: Preisgruppen Teil 1
--Preisgruppenerweiterung auf Basis von Andres Patch - Thanks
-Preisgruppenverwaltung
-Preiseingabe der Preisgruppen in Masken Waren,etc.
-Auswahl der Preisgruppen in den Verkaufsmasken
-Erweiterung Datenbankschema
-Übersetzungen für Preisgruppen
-Bugfix Preisgruppen, in der Warenmaske zeigte er eine Preisgruppe a
"Gruppe 1" als "Gruppe" an
-Anpassung locale
--Fehler bei negativen Umsaetzen behoben
--Fehler beim Speichern von Rechnungen und Angeboten/Auftraegen wenn keine Preisgruppen vorhanden
--Fehler bei Drucken und Buchen und Preisgruppen behoben, Preisgruppen Quelltext ein wenig modifiziert