Revision 52609551
Von Jan Büren vor etwa 14 Jahren hinzugefügt
| bin/mozilla/cp.pl | ||
|---|---|---|
| 34 | 34 |
use SL::CP; |
| 35 | 35 |
use SL::IS; |
| 36 | 36 |
use SL::IR; |
| 37 |
use SL::AR; |
|
| 38 |
use SL::AP; |
|
| 37 | 39 |
use strict ("vars", "subs");
|
| 38 | 40 |
#use warnings; |
| 39 | 41 |
|
| ... | ... | |
| 239 | 241 |
<input type=hidden name="$form->{vc}_id" value="| . H($form->{"$form->{vc}_id"}) . qq|">
|
| 240 | 242 |
<input type=hidden name="old$form->{vc}" value="| . H($form->{"old$form->{vc}"}) . qq|">
|
| 241 | 243 |
</tr> |
| 244 |
<tr> |
|
| 245 |
<th align=right>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 246 |
<td><input name="invnumber" size="35"</td> |
|
| 247 |
</tr> |
|
| 242 | 248 |
<tr valign=top> |
| 243 | 249 |
<th align=right nowrap>| . $locale->text('Address') . qq|</th>
|
| 244 | 250 |
<td colspan=2> |
| ... | ... | |
| 518 | 524 |
} |
| 519 | 525 |
} |
| 520 | 526 |
} |
| 521 |
|
|
| 527 |
# Falls Suche über Rechnungsnummer und kein Kundenname vorhanden |
|
| 528 |
if ($form->{invnumber} && !($form->{$form->{vc}})){
|
|
| 529 |
$form->{open} ='Y'; # nur die offenen rechnungen
|
|
| 530 |
if ($form->{ARAP} eq 'AR'){
|
|
| 531 |
AR->ar_transactions(\%myconfig, \%$form); |
|
| 532 |
# den ersten treffen nehmen und mit dem namen überschreiben |
|
| 533 |
$form->{$form->{vc}} = $form->{AR}[0]{name};
|
|
| 534 |
} else {
|
|
| 535 |
# s.o. nur für zahlungsausgang |
|
| 536 |
AP->ap_transactions(\%myconfig, \%$form); |
|
| 537 |
$form->{$form->{vc}} = $form->{AP}[0]{name};
|
|
| 538 |
} |
|
| 539 |
} |
|
| 522 | 540 |
# get customer and invoices |
| 523 | 541 |
$updated = &check_name($form->{vc});
|
| 524 | 542 |
|
Auch abrufbar als: Unified diff
Zahlungsverkehr: Bei der Suche nach offenen Rechnungen auch eine Suche nach Rechnungsnummer zulassen. HINWEIS: Es wird nur der erste Treffer (falls vorhanden) angezeigt