Revision 1f2c9572
Von Philip Reetz vor etwa 18 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 138 | 138 |
|
| 139 | 139 |
$cp_id = $form->{cp_id};
|
| 140 | 140 |
IS->get_customer(\%myconfig, \%$form); |
| 141 |
|
|
| 141 | 142 |
#quote all_customer Bug 133 |
| 142 | 143 |
foreach $ref (@{ $form->{all_customer} }) {
|
| 143 | 144 |
$ref->{name} = $form->quote($ref->{name});
|
| ... | ... | |
| 170 | 171 |
|
| 171 | 172 |
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
|
| 172 | 173 |
|
| 173 |
if ($form->{all_customer}) {
|
|
| 174 |
if (@{ $form->{all_customer} }) {
|
|
| 174 | 175 |
$form->{customer} = "$form->{customer}--$form->{customer_id}";
|
| 175 | 176 |
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" }
|
| 176 | 177 |
(@{ $form->{all_customer} });
|
| ... | ... | |
| 442 | 443 |
$exchangerate .= qq| |
| 443 | 444 |
<input type=hidden name=forex value=$form->{forex}>
|
| 444 | 445 |
|; |
| 446 |
print(STDERR "$form->{customer} Kunde\n");
|
|
| 445 | 447 |
|
| 446 | 448 |
$customer = |
| 447 | 449 |
($form->{selectcustomer})
|
| 448 | 450 |
? qq|<select name=customer>$form->{selectcustomer}</select>\n<input type=hidden name="selectcustomer" value="$form->{selectcustomer}">|
|
| 449 | 451 |
: qq|<input name=customer value="$form->{customer}" size=35>|;
|
| 452 |
print(STDERR "$form->{customer} Kunde\n");
|
|
| 450 | 453 |
|
| 451 | 454 |
#sk |
| 452 | 455 |
$contact = |
Auch abrufbar als: Unified diff
Bei Anlegen eines neues Vorgangs im Auftragwesen, wurde bei Kunden/Lieferanten Suchbox der
letzte Kunde/Lieferant falsch eingetragen